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

added back value-nowable and behaviorof for mztake

Browse Source 
svn: r430
This commit is contained in:
Greg Cooper 2005-07-22 02:43:59 +00:00
parent b41ab5c138
commit 2608359c70
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/frtime/frtime.ss
View File

@ -3,9 +3,19 @@
(require (lib "frp-snip.ss" "frtime"))
(require (lib "ft-qq.ss" "frtime"))
(define (value-nowable? x)
#t)
(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 (all-from (lib "mzscheme-utils.ss" "frtime"))
(provide value-nowable? behaviorof
(all-from (lib "mzscheme-utils.ss" "frtime"))
(all-from (lib "lang-ext.ss" "frtime"))
(all-from (lib "frp-snip.ss" "frtime"))
(all-from (lib "ft-qq.ss" "frtime"))))