make IFs work with undefined conditions

svn: r8834
2008-03-01 05:28:37 +00:00 · 2008-03-01 05:28:37 +00:00 · c615b88cc7
commit c615b88cc7
parent 3e77d0b60f
1 changed files with 1 additions and 1 deletions
--- a/collects/frtime/mzscheme-core.ss
+++ b/collects/frtime/mzscheme-core.ss
@ -31,7 +31,7 @@
    (if x #t #f))
  
  (define (frp:->boolean x)
-    (lift #f ->boolean x))
+    (lift #t ->boolean x))
  
  (define-syntax frp:if
    (syntax-rules ()