Fix bug in `<<{}` function.
This commit is contained in:
parent
54d7fc5e21
commit
656009e1ff
|
|
@ -5,7 +5,7 @@
|
||||||
|| nulco [nullary] dip [true] branch
|
|| nulco [nullary] dip [true] branch
|
||||||
!- 0 >=
|
!- 0 >=
|
||||||
<{} [] swap
|
<{} [] swap
|
||||||
<<{} [] rolldown
|
<<{} [] rollup
|
||||||
abs dup 0 < [] [neg] branch
|
abs dup 0 < [] [neg] branch
|
||||||
anamorphism [pop []] swap [dip swons] genrec
|
anamorphism [pop []] swap [dip swons] genrec
|
||||||
app1 grba infrst
|
app1 grba infrst
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue