added never-e to lang-ext.ss
svn: r463
This commit is contained in:
parent
321af63518
commit
84db00645b
|
@ -128,7 +128,9 @@
|
||||||
(emit (value-now b))))
|
(emit (value-now b))))
|
||||||
b))
|
b))
|
||||||
|
|
||||||
|
(define never-e
|
||||||
|
(changes #f))
|
||||||
|
|
||||||
|
|
||||||
; when-e : behavior[bool] -> event
|
; when-e : behavior[bool] -> event
|
||||||
(define (when-e b)
|
(define (when-e b)
|
||||||
|
@ -683,6 +685,7 @@
|
||||||
merge-e
|
merge-e
|
||||||
once-e
|
once-e
|
||||||
changes
|
changes
|
||||||
|
never-e
|
||||||
when-e
|
when-e
|
||||||
while-e
|
while-e
|
||||||
==>
|
==>
|
||||||
|
|
Loading…
Reference in New Issue
Block a user