diff options
author | Andy Wingo <wingo@pobox.com> | 2010-11-16 02:55:46 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-11-16 02:57:27 +0100 |
commit | 6cb423613ebf6103d15be355041bdd789c3cb05a (patch) | |
tree | cbf161043674a7dd4abdf54877ffd68ba9dfe553 | |
parent | 1811d0332f145f8e393c790cf21529c92626bf3e (diff) | |
download | guile-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.scm | 26 |
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 ;;; |