summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-10-15 02:16:01 +0100
committerjao <jao@gnu.org>2022-10-15 02:16:01 +0100
commit4fd0a65645fda5a775f939f36e2e2cdb98f54b73 (patch)
tree4a02f284a8db4a7b522bd8ade1000601dd87a0ce /src
parentca9223e0b2cac5a2cab6d967b7cd8b94082bba29 (diff)
downloadgeiser-chez-4fd0a65645fda5a775f939f36e2e2cdb98f54b73.tar.gz
geiser-chez-4fd0a65645fda5a775f939f36e2e2cdb98f54b73.tar.bz2
fix: restore automatic debugger entry
Diffstat (limited to 'src')
-rw-r--r--src/geiser/geiser.ss9
1 files changed, 5 insertions, 4 deletions
diff --git a/src/geiser/geiser.ss b/src/geiser/geiser.ss
index 62cd6ad..ba5d616 100644
--- a/src/geiser/geiser.ss
+++ b/src/geiser/geiser.ss
@@ -41,9 +41,10 @@
(lambda (k)
(with-exception-handler
(lambda (e)
- (debug-condition e) ; save the condition for the debugger
+ (debug-condition e) ; save the condition for the debugger
(k `((result "")
(output . ,(get-output-string output-string))
+ (debug #t)
(error (key . condition)
(msg . ,(as-string (display-condition e)))))))
(lambda ()
@@ -106,13 +107,13 @@
(define not-found (gensym))
- (define current-environment (make-parameter environment?))
-
(define (module-env env)
(cond ((environment? env) env)
((list? env) (environment env))
(else #f)))
+ (define current-environment (make-parameter #f module-env))
+
(define (try-eval sym . env)
(call/cc
(lambda (k)
@@ -123,7 +124,7 @@
(define (geiser:eval module form)
(call-with-result
(lambda ()
- (parameterize ((current-environment (module-env module)))
+ (parameterize ((current-environment module))
(if (environment? (current-environment))
(eval form (current-environment))
(eval form))))))