Remove a cut that sucked.

thun/gnu-prolog/defs.pl

@@ -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]).

thun/gnu-prolog/main.pl

@@ -35,9 +35,7 @@ loop( Line, In, Out) :-
   line(NextLine), !,
   loop(NextLine, S, Out).
 
-do_line(Line, In, Out) :-
-    phrase(joy_parse(E), Line), !,
-    thun(E, In, Out).
+do_line(Line, In, Out) :- phrase(joy_parse(E), Line), thun(E, In, Out).
 do_line(_Line, S,   S) :- write('Err'), nl.
 
 prompt :- write(`joy? `).