fixed a bug in using a precompiled variable transformers.
This commit is contained in:
parent
ad0612905a
commit
858198b886
|
@ -1 +1 @@
|
||||||
1858
|
1859
|
||||||
|
|
|
@ -2713,7 +2713,6 @@
|
||||||
(lambda (p e r) (do-macro-call (local-macro-transformer p) e r)))
|
(lambda (p e r) (do-macro-call (local-macro-transformer p) e r)))
|
||||||
|
|
||||||
(define (chi-global-macro p e r)
|
(define (chi-global-macro p e r)
|
||||||
;;; FIXME: does not handle macro!?
|
|
||||||
(let ((lib (car p))
|
(let ((lib (car p))
|
||||||
(loc (cdr p)))
|
(loc (cdr p)))
|
||||||
(unless (eq? lib '*interaction*)
|
(unless (eq? lib '*interaction*)
|
||||||
|
@ -2722,6 +2721,10 @@
|
||||||
(let ((transformer
|
(let ((transformer
|
||||||
(cond
|
(cond
|
||||||
((procedure? x) x)
|
((procedure? x) x)
|
||||||
|
((and (pair? x)
|
||||||
|
(eq? (car x) 'macro!)
|
||||||
|
(procedure? (cdr x)))
|
||||||
|
(cdr x))
|
||||||
(else (assertion-violation 'chi-global-macro
|
(else (assertion-violation 'chi-global-macro
|
||||||
"BUG: not a procedure" x)))))
|
"BUG: not a procedure" x)))))
|
||||||
(do-macro-call transformer e r)))))
|
(do-macro-call transformer e r)))))
|
||||||
|
|
Loading…
Reference in New Issue