reference to 'false' in lifted:nonstrict was unbound
svn: r3484
This commit is contained in:
parent
2bf8937e7b
commit
98620ae135
|
@ -365,7 +365,7 @@
|
||||||
clause ...
|
clause ...
|
||||||
(require (rename module tmp-name fun-name) ...)
|
(require (rename module tmp-name fun-name) ...)
|
||||||
(define (fun-name . args)
|
(define (fun-name . args)
|
||||||
(apply lift false tmp-name args))
|
(apply lift #f tmp-name args))
|
||||||
...))]
|
...))]
|
||||||
[(lifted module . ids)
|
[(lifted module . ids)
|
||||||
(with-syntax ([(fun-name ...) (syntax ids)]
|
(with-syntax ([(fun-name ...) (syntax ids)]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user