sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove a cut that sucked.

This commit is contained in:
Simon Forman 2019-08-11 20:45:49 -07:00
parent 40148fced9
commit 222c472449
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
thun/gnu-prolog/defs.pl
View File

@ -30,6 +30,7 @@ def(ifte,[[nullary],dipd,swap,branch]).
def(ii,[[dip],dupdip,i]). def(ii,[[dip],dupdip,i]).
def(infra,[swons,swaack,[i],dip,swaack]). def(infra,[swons,swaack,[i],dip,swaack]).
def(infrst,[infra,first]). def(infrst,[infra,first]).
def(least_fraction,[dup,[gcd],infra,[div],concat,map]).
def(make_generator,[[codireco],ccons]). def(make_generator,[[codireco],ccons]).
def(neg,[0,swap,-]). def(neg,[0,swap,-]).
def(nullary,[[stack],dinfrirst]). def(nullary,[[stack],dinfrirst]).

4
thun/gnu-prolog/main.pl
View File

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