Remove a cut that sucked.

2019-08-11 20:45:49 -07:00
parent 40148fced9
commit 222c472449
2 changed files with 2 additions and 3 deletions
@@ -30,6 +30,7 @@ def(ifte,[[nullary],dipd,swap,branch]).
 def(ii,[[dip],dupdip,i]).
 def(infra,[swons,swaack,[i],dip,swaack]).
 def(infrst,[infra,first]).
+def(least_fraction,[dup,[gcd],infra,[div],concat,map]).
 def(make_generator,[[codireco],ccons]).
 def(neg,[0,swap,-]).
 def(nullary,[[stack],dinfrirst]).