summaryrefslogtreecommitdiff
path: root/module/system/repl/common.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/repl/common.scm')
-rw-r--r--module/system/repl/common.scm7
1 files changed, 6 insertions, 1 deletions
diff --git a/module/system/repl/common.scm b/module/system/repl/common.scm
index 88ef93d3e..a3f2032ba 100644
--- a/module/system/repl/common.scm
+++ b/module/system/repl/common.scm
@@ -142,7 +142,12 @@ See <http://www.gnu.org/licenses/lgpl.html>, for more details.")
(lambda (x)
(if (memq x vals)
x
- (error "Bad on-error value ~a; expected one of ~a" x vals))))))))
+ (error
+ (format
+ #f
+ "Bad on-error value ~a; expected one of ~a"
+ x
+ vals)))))))))
(define %make-repl make-repl)
(define* (make-repl lang #:optional debug)