From 84db00645b6b72fbf6b2b1f730d694d536d38b42 Mon Sep 17 00:00:00 2001
From: Greg Cooper <greg@cs.brown.edu>
Date: Wed, 27 Jul 2005 16:10:42 +0000
Subject: [PATCH] added never-e to lang-ext.ss

svn: r463
---
 collects/frtime/lang-ext.ss | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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
            ==>