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
@@ -28,6 +28,7 @@ def(grba,[[stack,popd],dip]).
 def(hypot,[[sqr],ii,+,sqrt]).
 def(ifte,[[nullary],dipd,swap,branch]).
 def(ii,[[dip],dupdip,i]).
+def(infer,[thunk,dup,rollup,infra]).
 def(infra,[swons,swaack,[i],dip,swaack]).
 def(infrst,[infra,first]).
 def(least_fraction,[dup,[gcd],infra,[div],concat,map]).