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

minor cleanup

Browse Source
This commit is contained in:
Simon Forman
2019-08-20 22:00:27 -07:00
parent 6e646c012f
commit 558f45bf47
5 changed files with 32 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
thun/gnu-prolog/parser.pl
+2 -4
View File
@@ -38,6 +38,8 @@ num(N) --> number_digits(Codes), { number_codes(N, Codes) }.
number_digits(Codes) --> signed_float_or_integer(Codes), !, end_num.
% At the end of a number look ahead one character for a space
% or '[' character, or the end of the code list.
end_num, [Ch] --> [Ch], { [Ch] = "[" ; is_space(Ch) }.
end_num([], []).
@@ -54,7 +56,6 @@ format_state(Stack, Expression, Codes) :-
phrase(format_joy(Expression), ExpressionCodes),
append(RStackCodes, [32, 46, 32|ExpressionCodes], Codes).
frump(Stack, Expression) :-
format_state(Stack, Expression, Codes),
maplist(put_code, Codes), nl.
@@ -64,8 +65,6 @@ print_stack(Stack) :-
phrase(format_joy(RStack), Codes),
maplist(put_code, Codes).
% Print Joy expressions as text.
format_joy(Tail) --> {var(Tail)}, !, [46, 46, 46].
@@ -79,4 +78,3 @@ 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.