Another definition for while.

This commit is contained in:
Simon Forman 2018-07-06 14:19:00 -07:00
parent ab8ec6c95d
commit 531e215ffd
1 changed files with 3 additions and 0 deletions

View File

@ -129,6 +129,9 @@ make_generator == [codireco] ccons
# ifte == [nullary] dipd swap branch
# 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
##unit == [] cons
##second == rest first