/[guile]/guile/guile-core/ice-9/boot-9.scm
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.323 by mvo, Mon Nov 17 00:28:03 2003 UTC revision 1.324 by ossau, Wed Nov 19 01:16:16 2003 UTC
# Line 2315  Line 2315 
2315                                              (loop (thunk)))                                              (loop (thunk)))
2316                                            #f)))))                                            #f)))))
2317    
2318                                    lazy-handler-dispatch))                                    ;; Use a closure here rather than
2319                                      ;; just `lazy-handler-dispatch' so
2320                                      ;; that lookup of
2321                                      ;; lazy-handler-dispatch's value is
2322                                      ;; deferred until a throw occurs.
2323                                      ;; This means that if code executed
2324                                      ;; in the REPL just above set!s
2325                                      ;; lazy-handler-dispatch, the new
2326                                      ;; value will be used to handle the
2327                                      ;; next throw from the REPL.
2328                                      (lambda args
2329                                        (apply lazy-handler-dispatch args))))
2330    
2331                      (lambda (key . args)                      (lambda (key . args)
2332                        (case key                        (case key

Legend:
Removed from v.1.323  
changed lines
  Added in v.1.324

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26