Remove scheme/bool dependency
This commit is contained in:
parent
1e98b644f2
commit
f32aa2081c
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user