Fix bug in <<{} function.
This commit is contained in:
+1
-1
@@ -5,7 +5,7 @@
|
||||
|| nulco [nullary] dip [true] branch
|
||||
!- 0 >=
|
||||
<{} [] swap
|
||||
<<{} [] rolldown
|
||||
<<{} [] rollup
|
||||
abs dup 0 < [] [neg] branch
|
||||
anamorphism [pop []] swap [dip swons] genrec
|
||||
app1 grba infrst
|
||||
|
||||
Reference in New Issue
Block a user