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

Experiment with putting logic vars on the stack.

Browse Source
This commit is contained in:
Simon Forman
2019-08-11 21:30:02 -07:00
parent 222c472449
commit 2e1f598aa2
4 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
thun/gnu-prolog/parser.pl
+4 -2
View File
@@ -100,8 +100,10 @@ format_joy([T]) --> format_term(T), !.
format_joy([T|S]) --> format_term(T), " ", format_joy(S).
format_joy([]) --> [].
format_term(N) --> {number(N), number_codes(N, Codes)}, Codes.
format_term(A) --> { atom(A), atom_codes(A, Codes)}, Codes.
format_term(N) --> {number(N), number_codes(N, Codes)}, Codes.
format_term(A) --> { atom(A), atom_codes(A, Codes)}, Codes.
format_term(V) --> { var(V), write_to_codes(Codes, V)}, Codes.
format_term([A|As]) --> "[", format_joy([A|As]), "]".
format_term(F) --> { write_to_codes(Codes, F)}, Codes.