mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

remove syntax-error and call-with-compile-error-catch from compile.scm

Browse source 
* module/system/base/compile.scm: Remove unused syntax-error and
  call-with-compile-error-catch exports.
This commit is contained in:
Andy Wingo 2010-11-16 02:55:46 +01:00
parent 1811d0332f
commit 6cb423613e
1 changed files with 2 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

26
module/system/base/compile.scm
View file

@ -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
;;;