Remove mzlib opt-lambda uses

Racket's lambda provides optional args. Use this in favour of the
mzlib/etc opt-lambda.
This commit is contained in:
Patrick Mahoney 2012-08-21 14:45:00 -04:00 committed by Gregory Cooper
parent 4ecc0525e7
commit a02d53130e

View File

@ -5,7 +5,6 @@
(require (only-in racket/list cons? first second rest empty empty?)
(only-in racket/base vector-ref build-vector build-list)
(only-in racket/function identity)
(only-in mzlib/etc opt-lambda)
(only-in frtime/core/frp super-lift undefined undefined? behavior? do-in-manager-after do-in-manager proc->signal set-signal-thunk! register unregister iq-enqueue value-now/no-copy
signal? signal-depth signal:switching? signal-value value-now signal:compound? signal:compound-content signal:switching-current signal:switching-trigger set-cell!)
(only-in frtime/lang-ext lift new-cell switch ==> changes deep-value-now))
@ -107,7 +106,7 @@
new-clause ...))]))
(define any-nested-reactivity?
(opt-lambda (obj [mem empty])
(lambda (obj [mem empty])
(with-handlers ((exn:fail?
(lambda (e)
(eprintf
@ -181,7 +180,7 @@
(deep-value-now obj empty)))
(define any-spinal-reactivity?
(opt-lambda (lst [mem empty])
(lambda (lst [mem empty])
(cond
[(memq lst mem) #f]
[(behavior? lst) #t]