Remove scheme/bool dependency

This commit is contained in:
Patrick Mahoney 2012-08-03 16:58:35 -04:00 committed by Gregory Cooper
parent 1e98b644f2
commit f32aa2081c

View File

@ -1,6 +1,5 @@
#lang racket/base #lang racket/base
(require frtime/core/frp (require frtime/core/frp
scheme/bool
scheme/list scheme/list
(only-in mzlib/etc (only-in mzlib/etc
rec identity) rec identity)
@ -152,7 +151,7 @@
new-clause ...) new-clause ...)
)])) )]))
(define undefined?/lifted (lambda (arg) (lift false undefined? arg))) (define undefined?/lifted (lambda (arg) (lift #f undefined? arg)))
(define (event? v) (define (event? v)
(and (signal? v) (and (signal? v)