guile/guile-core/ice-9 boot-9.scm

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/05/14 17:51:07

Modified files:
        guile-core/ice-9: boot-9.scm 

Log message:
        (error-catching-repl): Call the E
        ("eval'er") procedure via call-with-values and call the P
        ("printer") for each produced value.  Thanks to Matthias Köppe!

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/boot-9.scm.diff?cvsroot=OldCVS&tr1=1.244&tr2=1.245&r1=text&r2=text

Patches:
Index: guile/guile-core/ice-9/boot-9.scm
diff -u guile/guile-core/ice-9/boot-9.scm:1.244 
guile/guile-core/ice-9/boot-9.scm:1.245
--- guile/guile-core/ice-9/boot-9.scm:1.244     Mon May 14 12:09:50 2001
+++ guile/guile-core/ice-9/boot-9.scm   Mon May 14 17:51:06 2001
@@ -2375,7 +2375,10 @@
 ;;      (display "No backtrace available.\n")))
 
 (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)
   (cdr (assq 'gc-time-taken (gc-stats))))