mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

Fixed the exception handler of `guilec'.

Browse source 
* src/guilec.in: Fixed the exception handler.

git-archimport-id: lcourtes@laas.fr--2005-mobile/guile-vm--mobile--0.6--patch-12
This commit is contained in:
Ludovic Courtes 2006-01-02 18:05:23 +00:00 • committed by Ludovic Courtès
parent 23b587b0a1
commit a316e42d98
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/guilec.in
View file

@ -62,7 +62,13 @@ Report bugs to <guile-user@gnu.org>.~%")
(for-each (lambda (file) (for-each (lambda (file)
(apply compile-file (cons file compile-opts))) (apply compile-file (cons file compile-opts)))
(option-ref options '() '()))) (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~%") (format (current-error-port) "removing compiled files due to errors~%")
(false-if-exception (false-if-exception
(for-each unlink (map compiled-file-name files))) (for-each unlink (map compiled-file-name files)))