reference to 'false' in lifted:nonstrict was unbound

svn: r3484
This commit is contained in:
Greg Cooper 2006-06-26 22:49:10 +00:00
parent 2bf8937e7b
commit 98620ae135

View File

@ -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)]