added never-e to lang-ext.ss

svn: r463
2005-07-27 16:10:42 +00:00 · 2005-07-27 16:10:42 +00:00 · 84db00645b
commit 84db00645b
parent 321af63518
1 changed files with 4 additions and 1 deletions
--- a/collects/frtime/lang-ext.ss
+++ b/collects/frtime/lang-ext.ss
@ -128,6 +128,8 @@
         (emit (value-now b))))
     b))
  
+  (define never-e
+    (changes #f))
    
  
  ; when-e : behavior[bool] -> event
@ -683,6 +685,7 @@
           merge-e
           once-e
           changes
+	   never-e
           when-e
           while-e
           ==>