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

-redefined value-nowable to exclude signals whose content is an event-cons

Browse Source 
svn: r595
This commit is contained in:
Greg Cooper 2005-08-14 19:26:33 +00:00
parent 075413bebd
commit c9be867969
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/frtime/frtime.ss
View File

@ -1,10 +1,13 @@
(module frtime (lib "mzscheme-utils.ss" "frtime") (module frtime (lib "mzscheme-utils.ss" "frtime")
(require (lib "lang-ext.ss" "frtime")) (require (lib "lang-ext.ss" "frtime"))
(require (lib "frp-snip.ss" "frtime")) (require (lib "frp-snip.ss" "frtime"))
(require (lib "ft-qq.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) (define (value-nowable? x)
#t) (or (not (signal? x))
(not (event-cons? (signal-value x)))))
(define ((behaviorof pred) x) (define ((behaviorof pred) x)
(let ([v (value-now x)]) (let ([v (value-now x)])