summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2008-10-31 14:07:11 +0100
committerAndy Wingo <wingo@pobox.com>2008-10-31 14:07:11 +0100
commiteb5f05c3209530792ddbd81a8afadaed3836b168 (patch)
tree986986e09d6886c834cbf2ca35e0a607d7d6b52d
parent03fa04dfe13512d37e0f19ffd0e6c7f5db8f466f (diff)
downloadguile-eb5f05c3209530792ddbd81a8afadaed3836b168.tar.gz
fix bug in define-scheme-translator
* module/language/scheme/translate.scm (define-scheme-translator): Fix a bug in this macro for the syntax-error case.
-rw-r--r--module/language/scheme/translate.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/module/language/scheme/translate.scm b/module/language/scheme/translate.scm
index a6a8e20eb..c5671260d 100644
--- a/module/language/scheme/translate.scm
+++ b/module/language/scheme/translate.scm
@@ -50,6 +50,8 @@
;; Looks up transformers relative to the current module at
;; compilation-time. See also the discussion of ghil-lookup in ghil.scm.
+;;
+;; FIXME shadowing lexicals?
(define (lookup-transformer head retrans)
(let* ((mod (current-module))
(val (and (symbol? head)
@@ -130,7 +132,7 @@
(pmatch (cdr exp)
,@clauses
(else
- (syntax-error loc (format #f "bad ~A" ',sym exp)))))))
+ (syntax-error l (format #f "bad ~A" ',sym) exp))))))
(define-scheme-translator quote
;; (quote OBJ)