make IFs work with undefined conditions
svn: r8834
This commit is contained in:
parent
3e77d0b60f
commit
c615b88cc7
|
@ -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 ()
|
||||||
|
|
Loading…
Reference in New Issue
Block a user