diff options
Diffstat (limited to 'module/system/repl')
-rw-r--r-- | module/system/repl/error-handling.scm | 6 | ||||
-rw-r--r-- | module/system/repl/repl.scm | 16 |
2 files changed, 9 insertions, 13 deletions
diff --git a/module/system/repl/error-handling.scm b/module/system/repl/error-handling.scm index c6c64cc73..2a585aaff 100644 --- a/module/system/repl/error-handling.scm +++ b/module/system/repl/error-handling.scm @@ -182,7 +182,5 @@ (apply (if (memq k pass-keys) throw on-error) k args)) (error "Unknown on-error strategy" on-error))))))) -(define-syntax with-error-handling - (syntax-rules () - ((_ form) - (call-with-error-handling (lambda () form))))) +(define-syntax-rule (with-error-handling form) + (call-with-error-handling (lambda () form))) 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) |