diff --git a/collects/frtime/lang-ext.ss b/collects/frtime/lang-ext.ss index 9d2876e9e9..d0e1a8f475 100644 --- a/collects/frtime/lang-ext.ss +++ b/collects/frtime/lang-ext.ss @@ -128,7 +128,9 @@ (emit (value-now b)))) b)) - + (define never-e + (changes #f)) + ; when-e : behavior[bool] -> event (define (when-e b) @@ -683,6 +685,7 @@ merge-e once-e changes + never-e when-e while-e ==>