Another definition for while.

2018-07-06 14:19:00 -07:00
parent ab8ec6c95d
commit 531e215ffd
1 changed files with 3 additions and 0 deletions
@@ -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