mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-20 02:30:23 +02:00
Code Activity

(error-catching-repl): Call the E

Browse source 
("eval'er") procedure via call-with-values and call the P
("printer") for each produced value.  Thanks to Matthias Köppe!
This commit is contained in:
Marius Vollmer 2001-05-15 00:51:06 +00:00
parent cf46055fc3
commit 5f89fb1313
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/boot-9.scm
View file

@ -2375,7 +2375,10 @@
;; (display "No backtrace available.\n"))) ;; (display "No backtrace available.\n")))
(define (error-catching-repl r e p) (define (error-catching-repl r e p)
(error-catching-loop (lambda () (p (e (r)))))) (error-catching-loop
(lambda ()
(call-with-values (lambda () (e (r)))
(lambda the-values (for-each p the-values))))))
(define (gc-run-time) (define (gc-run-time)
(cdr (assq 'gc-time-taken (gc-stats)))) (cdr (assq 'gc-time-taken (gc-stats))))