diff options
Diffstat (limited to 'module/system/repl/error-handling.scm')
-rw-r--r-- | module/system/repl/error-handling.scm | 6 |
1 files changed, 2 insertions, 4 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))) |