diff options
author | Andy Wingo <wingo@pobox.com> | 2008-10-31 14:07:11 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2008-10-31 14:07:11 +0100 |
commit | eb5f05c3209530792ddbd81a8afadaed3836b168 (patch) | |
tree | 986986e09d6886c834cbf2ca35e0a607d7d6b52d | |
parent | 03fa04dfe13512d37e0f19ffd0e6c7f5db8f466f (diff) | |
download | guile-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.scm | 4 |
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) |