84 |
(lambda () |
(lambda () |
85 |
(lazy-catch #t |
(lazy-catch #t |
86 |
(lambda () |
(lambda () |
87 |
(let* ((env (memoized-environment source)) |
(let* ((expr |
88 |
(value (local-eval expression env))) |
;; We assume that no one will |
89 |
(display ";value: ") |
;; really want to evaluate a |
90 |
|
;; string (since it is |
91 |
|
;; self-evaluating); so if we |
92 |
|
;; have a string here, read the |
93 |
|
;; expression to evaluate from |
94 |
|
;; it. |
95 |
|
(if (string? expression) |
96 |
|
(with-input-from-string expression |
97 |
|
read) |
98 |
|
expression)) |
99 |
|
(env (memoized-environment source)) |
100 |
|
(value (local-eval expr env))) |
101 |
|
(write expr) |
102 |
|
(display " => ") |
103 |
(write value) |
(write value) |
104 |
(newline))) |
(newline))) |
105 |
eval-handler)) |
eval-handler)) |