Back out change to lazy-handler-dispatch lookup.

ice-9/ChangeLog

@@ -1,3 +1,8 @@
+2004-01-20  Neil Jerram  <neil@ossau.uklinux.net>
+
+	* boot-9.scm (error-catching-loop): Back out 2003-11-19 change to
+	lazy-handler-dispatch lookup.
+
 2004-01-12  Marius Vollmer  <mvo@zagadka.de>
 
 	* mapping.scm: Use '#:' prefix for keywords instead of ':'.

ice-9/boot-9.scm

@@ -2315,18 +2315,18 @@
 					    (loop (thunk)))
 					  #f)))))
 
-				  ;; Use a closure here rather than
+				  ;; Note that having just
-				  ;; just `lazy-handler-dispatch' so
+				  ;; `lazy-handler-dispatch' here is
-				  ;; that lookup of
+				  ;; connected with the mechanism that
-				  ;; lazy-handler-dispatch's value is
+				  ;; produces a nice backtrace upon
-				  ;; deferred until a throw occurs.
+				  ;; error.  If, for example, this is
-				  ;; This means that if code executed
+				  ;; replaced with (lambda args (apply
-				  ;; in the REPL just above set!s
+				  ;; lazy-handler-dispatch args)), the
-				  ;; lazy-handler-dispatch, the new
+				  ;; stack cutting (in save-stack)
-				  ;; value will be used to handle the
+				  ;; goes wrong and ends up saving no
-				  ;; next throw from the REPL.
+				  ;; stack at all, so there is no
-				  (lambda args
+				  ;; backtrace.
-				    (apply lazy-handler-dispatch args))))
+				  lazy-handler-dispatch))
 
 		    (lambda (key . args)
 		      (case key