Experiment with putting logic vars on the stack.

2019-08-11 21:30:02 -07:00
parent 222c472449
commit 2e1f598aa2
4 changed files with 7 additions and 2 deletions
@@ -30,6 +30,7 @@ grba == [stack popd] dip
 hypot == [sqr] ii + sqrt
 ifte == [nullary] dipd swap branch
 ii == [dip] dupdip i
+infer == thunk dup rollup infra
 infra == swons swaack [i] dip swaack
 infrst == infra first
 least_fraction == dup [gcd] infra [div] concat map