Remove scheme/bool dependency

2012-08-03 16:58:35 -04:00 · 2012-08-03 16:58:35 -04:00 · f32aa2081c
commit f32aa2081c
parent 1e98b644f2
1 changed files with 1 additions and 2 deletions
--- a/collects/frtime/lang-ext.rkt
+++ b/collects/frtime/lang-ext.rkt
@ -1,6 +1,5 @@
 #lang racket/base
 (require frtime/core/frp
-         scheme/bool
         scheme/list
         (only-in mzlib/etc
                  rec identity)
@ -152,7 +151,7 @@
          new-clause ...)
       )]))

-(define undefined?/lifted (lambda (arg) (lift false undefined? arg)))
+(define undefined?/lifted (lambda (arg) (lift #f undefined? arg)))

 (define (event? v)
  (and (signal? v)