summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-11-16 02:55:46 +0100
committerAndy Wingo <wingo@pobox.com>2010-11-16 02:57:27 +0100
commit6cb423613ebf6103d15be355041bdd789c3cb05a (patch)
treecbf161043674a7dd4abdf54877ffd68ba9dfe553
parent1811d0332f145f8e393c790cf21529c92626bf3e (diff)
downloadguile-6cb423613ebf6103d15be355041bdd789c3cb05a.tar.gz
remove syntax-error and call-with-compile-error-catch from compile.scm
* module/system/base/compile.scm: Remove unused syntax-error and call-with-compile-error-catch exports.
-rw-r--r--module/system/base/compile.scm26
1 files changed, 2 insertions, 24 deletions
diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index 29c8d522e..7c83fd7f5 100644
--- a/module/system/base/compile.scm
+++ b/module/system/base/compile.scm
@@ -26,36 +26,14 @@
#:use-module (ice-9 regex)
#:use-module (ice-9 optargs)
#:use-module (ice-9 receive)
- #:export (syntax-error
- compiled-file-name
+ #:export (compiled-file-name
compile-file
compile-and-load
read-and-compile
compile
- decompile)
- #:export-syntax (call-with-compile-error-catch))
+ decompile))
-;;;
-;;; Compiler environment
-;;;
-
-(define (syntax-error loc msg exp)
- (throw 'syntax-error-compile-time loc msg exp))
-(define-macro (call-with-compile-error-catch thunk)
- `(catch 'syntax-error-compile-time
- ,thunk
- (lambda (key loc msg exp)
- (if (pair? loc)
- (let ((file (or (assq-ref loc 'filename) "unknown file"))
- (line (assq-ref loc 'line))
- (col (assq-ref loc 'column)))
- (format (current-error-port)
- "~A:~A:~A: ~A: ~A~%" file line col msg exp))
- (format (current-error-port)
- "unknown location: ~A: ~S~%" msg exp)))))
-
-
;;;
;;; Compiler
;;;