suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added frtime-no-mred.ss

Browse Source 
svn: r5086
This commit is contained in:
Greg Cooper 2006-12-12 06:02:20 +00:00
parent cfd0e35fce
commit 75d82fb969
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/frtime/frtime-no-mred.ss Normal file
View File

@ -0,0 +1,22 @@
(module frtime-no-mred (lib "mzscheme-utils.ss" "frtime")
(require (lib "lang-ext.ss" "frtime"))
(require (lib "ft-qq.ss" "frtime"))
(require (as-is:unchecked (lib "frp-core.ss" "frtime")
event-cons? signal-value))
(define (value-nowable? x)
(or (not (signal? x))
(not (event-cons? (signal-value x)))))
(define ((behaviorof pred) x)
(let ([v (value-now x)])
(or (undefined? v)
(pred v))))
;(provide-for-syntax (rename (lib "mzscheme-utils.ss" "frtime") syntax->list syntax->list))
(provide value-nowable? behaviorof
(all-from (lib "mzscheme-utils.ss" "frtime"))
(all-from-except (lib "lang-ext.ss" "frtime") lift)
(all-from (lib "ft-qq.ss" "frtime"))))