diff options
Diffstat (limited to 'module/system/repl/repl.scm')
-rw-r--r-- | module/system/repl/repl.scm | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm index 5bab7780e..1cffa7187 100644 --- a/module/system/repl/repl.scm +++ b/module/system/repl/repl.scm @@ -135,15 +135,13 @@ (run-repl (make-repl lang debug))) ;; (put 'abort-on-error 'scheme-indent-function 1) -(define-syntax abort-on-error - (syntax-rules () - ((_ string exp) - (catch #t - (lambda () exp) - (lambda (key . args) - (format #t "While ~A:~%" string) - (print-exception (current-output-port) #f key args) - (abort)))))) +(define-syntax-rule (abort-on-error string exp) + (catch #t + (lambda () exp) + (lambda (key . args) + (format #t "While ~A:~%" string) + (print-exception (current-output-port) #f key args) + (abort)))) (define (run-repl repl) (define (with-stack-and-prompt thunk) |