diff options
Diffstat (limited to 'module/system')
-rw-r--r-- | module/system/base/compile.scm | 7 | ||||
-rw-r--r-- | module/system/base/syntax.scm | 3 | ||||
-rw-r--r-- | module/system/vm/assemble.scm | 2 |
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)) |