make IFs work with undefined conditions

svn: r8834
This commit is contained in:
Greg Cooper 2008-03-01 05:28:37 +00:00
parent 3e77d0b60f
commit c615b88cc7

View File

@ -31,7 +31,7 @@
(if x #t #f)) (if x #t #f))
(define (frp:->boolean x) (define (frp:->boolean x)
(lift #f ->boolean x)) (lift #t ->boolean x))
(define-syntax frp:if (define-syntax frp:if
(syntax-rules () (syntax-rules ()