diff options
Diffstat (limited to 'module/system/repl/common.scm')
-rw-r--r-- | module/system/repl/common.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/module/system/repl/common.scm b/module/system/repl/common.scm index 24a583ce6..a5267c616 100644 --- a/module/system/repl/common.scm +++ b/module/system/repl/common.scm @@ -121,7 +121,14 @@ See <http://www.gnu.org/licenses/lgpl.html>, for more details.") ,(value-history-enabled?) ,(lambda (x) (if x (enable-value-history!) (disable-value-history!)) - (->bool x)))))) + (->bool x))) + (on-error + debug + ,(let ((vals '(debug backtrace report pass))) + (lambda (x) + (if (memq x vals) + x + (error "Bad on-error value ~a; expected one of ~a" x vals)))))))) (define %make-repl make-repl) (define* (make-repl lang #:optional debug) |