mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

fix bug in define-scheme-translator

Browse source 
* module/language/scheme/translate.scm (define-scheme-translator): Fix a
  bug in this macro for the syntax-error case.
This commit is contained in:
Andy Wingo 2008-10-31 14:07:11 +01:00
parent 03fa04dfe1
commit eb5f05c320
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/scheme/translate.scm
View file

@ -50,6 +50,8 @@
;; Looks up transformers relative to the current module at ;; Looks up transformers relative to the current module at
;; compilation-time. See also the discussion of ghil-lookup in ghil.scm. ;; compilation-time. See also the discussion of ghil-lookup in ghil.scm.
;;
;; FIXME shadowing lexicals?
(define (lookup-transformer head retrans) (define (lookup-transformer head retrans)
(let* ((mod (current-module)) (let* ((mod (current-module))
(val (and (symbol? head) (val (and (symbol? head)
@ -130,7 +132,7 @@
(pmatch (cdr exp) (pmatch (cdr exp)
,@clauses ,@clauses
(else (else
(syntax-error loc (format #f "bad ~A" ',sym exp))))))) (syntax-error l (format #f "bad ~A" ',sym) exp))))))
(define-scheme-translator quote (define-scheme-translator quote
;; (quote OBJ) ;; (quote OBJ)