summaryrefslogtreecommitdiff
path: root/module/system/repl/repl.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/repl/repl.scm')
-rw-r--r--module/system/repl/repl.scm8
1 files changed, 7 insertions, 1 deletions
diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm
index fba67764f..21998ba5d 100644
--- a/module/system/repl/repl.scm
+++ b/module/system/repl/repl.scm
@@ -106,6 +106,12 @@
(abort))))))
(define (run-repl repl)
+ (define (with-stack-and-prompt thunk)
+ (call-with-prompt (default-prompt-tag)
+ (lambda () (start-stack #t (thunk)))
+ (lambda (k proc)
+ (with-stack-and-prompt (lambda () (proc k))))))
+
(% (with-fluids ((*repl-stack*
(cons repl (or (fluid-ref *repl-stack*) '()))))
(if (null? (cdr (fluid-ref *repl-stack*)))
@@ -140,7 +146,7 @@
(repl-parse repl exp))))))
(run-hook before-eval-hook exp)
(with-error-handling
- (start-stack #t (% (thunk)))))
+ (with-stack-and-prompt thunk)))
(lambda (k) (values))))
(lambda l
(for-each (lambda (v)