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

Diff of /guile/guile-core/ice-9/debugger/commands.scm

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

revision 1.2 by mvo, Sat Apr 5 19:06:32 2003 UTC revision 1.3 by ossau, Thu Sep 25 20:29:24 2003 UTC
# Line 84  however it may be continued over multipl Line 84  however it may be continued over multipl
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))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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