From c9be8679696ac96cd2901935d8c6408d18c318f4 Mon Sep 17 00:00:00 2001 From: Greg Cooper Date: Sun, 14 Aug 2005 19:26:33 +0000 Subject: [PATCH] -redefined value-nowable to exclude signals whose content is an event-cons svn: r595 --- collects/frtime/frtime.ss | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/collects/frtime/frtime.ss b/collects/frtime/frtime.ss index 836c82e4ca..5326932e07 100644 --- a/collects/frtime/frtime.ss +++ b/collects/frtime/frtime.ss @@ -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 "frp-snip.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) - #t) + (or (not (signal? x)) + (not (event-cons? (signal-value x))))) (define ((behaviorof pred) x) (let ([v (value-now x)])