summaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
Diffstat (limited to 'module')
-rw-r--r--module/system/base/compile.scm7
-rw-r--r--module/system/base/syntax.scm3
-rw-r--r--module/system/vm/assemble.scm2
3 files changed, 6 insertions, 6 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))))
;;;
diff --git a/module/system/base/syntax.scm b/module/system/base/syntax.scm
index fba21679c..bcc926bee 100644
--- a/module/system/base/syntax.scm
+++ b/module/system/base/syntax.scm
@@ -20,10 +20,9 @@
;;; Code:
(define-module (system base syntax)
- :use-module (ice-9 match)
:use-module (ice-9 receive)
:use-module (ice-9 and-let-star)
- :export (stack-catch match syntax-error receive and-let*))
+ :export (stack-catch receive and-let*))
;;;
diff --git a/module/system/vm/assemble.scm b/module/system/vm/assemble.scm
index 36dd24ae4..726312ac6 100644
--- a/module/system/vm/assemble.scm
+++ b/module/system/vm/assemble.scm
@@ -27,7 +27,7 @@
:use-module (ice-9 match)
:use-module (ice-9 regex)
:use-module (ice-9 common-list)
- :export (assemble))
+ :export (preprocess assemble))
(define (assemble glil env . opts)
(codegen (preprocess glil #f) #t))