Another definition for while.
This commit is contained in:
parent
ab8ec6c95d
commit
531e215ffd
|
|
@ -129,6 +129,9 @@ make_generator == [codireco] ccons
|
||||||
# ifte == [nullary] dipd swap branch
|
# ifte == [nullary] dipd swap branch
|
||||||
# genrec == [[genrec] cons cons cons cons] nullary swons concat ifte
|
# genrec == [[genrec] cons cons cons cons] nullary swons concat ifte
|
||||||
|
|
||||||
|
# Another definition for while. FWIW
|
||||||
|
# while == over [[i] dip nullary] ccons [nullary] dip loop
|
||||||
|
|
||||||
##ccons == cons cons
|
##ccons == cons cons
|
||||||
##unit == [] cons
|
##unit == [] cons
|
||||||
##second == rest first
|
##second == rest first
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue