From a316e42d98c01b8a6ccaf99e42d18da93a778713 Mon Sep 17 00:00:00 2001 From: Ludovic Courtes Date: Mon, 2 Jan 2006 18:05:23 +0000 Subject: [PATCH] Fixed the exception handler of `guilec'. * src/guilec.in: Fixed the exception handler. git-archimport-id: lcourtes@laas.fr--2005-mobile/guile-vm--mobile--0.6--patch-12 --- src/guilec.in | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/guilec.in b/src/guilec.in index 34881db9a..e0d3c926e 100755 --- a/src/guilec.in +++ b/src/guilec.in @@ -62,7 +62,13 @@ Report bugs to .~%") (for-each (lambda (file) (apply compile-file (cons file compile-opts))) (option-ref options '() '()))) - (lambda () + (lambda (key . args) + (format (current-error-port) "exception `~a' caught~a~%" key + (if (null? args) "" + (if (string? (car args)) + (string-append " in subr `" (car args) "'") + ""))) + (format (current-error-port) "removing compiled files due to errors~%") (false-if-exception (for-each unlink (map compiled-file-name files)))