summaryrefslogtreecommitdiff
path: root/module/system/base/compile.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/base/compile.scm')
-rw-r--r--module/system/base/compile.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index e6b2d1310..49a47eea6 100644
--- a/module/system/base/compile.scm
+++ b/module/system/base/compile.scm
@@ -41,9 +41,10 @@
(throw 'syntax-error loc msg exp))
(define-public (call-with-compile-error-catch thunk)
- (try (thunk)
- ((syntax-error loc msg exp)
- (format #t "~A:~A: ~A: ~A" (car loc) (cdr loc) msg exp))))
+ (catch 'syntax-error
+ (thunk)
+ (lambda (key loc msg exp)
+ (format #t "~A:~A: ~A: ~A" (car loc) (cdr loc) msg exp))))
;;;