• R/O
  • SSH

Joypy: Commit

Main interpreter and library.


Commit MetaInfo

Revision469c7fc24c6e04a2714180e7b45b870e4be7d5a6 (tree)
Time2019-08-12 12:45:49
AuthorSimon Forman <sforman@hush...>
CommiterSimon Forman

Log Message

Remove a cut that sucked.

Change Summary

Incremental Difference

diff -r fa6d3b3810b8 -r 469c7fc24c6e thun/gnu-prolog/defs.pl
--- a/thun/gnu-prolog/defs.pl Sun Aug 11 19:57:28 2019 -0700
+++ b/thun/gnu-prolog/defs.pl Sun Aug 11 20:45:49 2019 -0700
@@ -30,6 +30,7 @@
3030 def(ii,[[dip],dupdip,i]).
3131 def(infra,[swons,swaack,[i],dip,swaack]).
3232 def(infrst,[infra,first]).
33+def(least_fraction,[dup,[gcd],infra,[div],concat,map]).
3334 def(make_generator,[[codireco],ccons]).
3435 def(neg,[0,swap,-]).
3536 def(nullary,[[stack],dinfrirst]).
diff -r fa6d3b3810b8 -r 469c7fc24c6e thun/gnu-prolog/main.pl
--- a/thun/gnu-prolog/main.pl Sun Aug 11 19:57:28 2019 -0700
+++ b/thun/gnu-prolog/main.pl Sun Aug 11 20:45:49 2019 -0700
@@ -35,9 +35,7 @@
3535 line(NextLine), !,
3636 loop(NextLine, S, Out).
3737
38-do_line(Line, In, Out) :-
39- phrase(joy_parse(E), Line), !,
40- thun(E, In, Out).
38+do_line(Line, In, Out) :- phrase(joy_parse(E), Line), thun(E, In, Out).
4139 do_line(_Line, S, S) :- write('Err'), nl.
4240
4341 prompt :- write(`joy? `).
Show on old repository browser