summaryrefslogtreecommitdiff
path: root/module/system/repl/repl.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2010-10-08 13:50:24 +0200
committerLudovic Courtès <ludo@gnu.org>2010-10-08 15:25:56 +0200
commit7390e4bd11418371bc4a744e2eee1ca40b9c9531 (patch)
tree3eadb203cabdf1922bc3bdc9d31b5f9777f928f0 /module/system/repl/repl.scm
parent7f593bc7f9ab9ebf4e64ce7e28f85bdcbbe8906f (diff)
downloadguile-7390e4bd11418371bc4a744e2eee1ca40b9c9531.tar.gz
Fixlets for REPL error handling.
* module/system/repl/error-handling.scm (error-string): Don't call `display-error' when STACK is empty. (call-with-error-handling): Display ERROR-MSG instead of using `format', since ERROR-MSG may contain `format' escapes. * module/system/repl/repl.scm (run-repl): Add missing argument to `format'.
Diffstat (limited to 'module/system/repl/repl.scm')
-rw-r--r--module/system/repl/repl.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm
index 8275f8fba..9691dfb2a 100644
--- a/module/system/repl/repl.scm
+++ b/module/system/repl/repl.scm
@@ -129,7 +129,7 @@
(if (eq? k 'quit)
(abort args)
(begin
- (format #t "While executing meta-command:~%" string)
+ (format #t "While executing meta-command `~A'~%" string)
(pmatch args
((,subr ,msg ,args . ,rest)
(display-error #f (current-output-port) subr msg args rest))