diff options
Diffstat (limited to 'module/system/repl/common.scm')
-rw-r--r-- | module/system/repl/common.scm | 7 |
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) |