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 |