From: Simon Forman Date: Thu, 17 Feb 2022 18:57:10 +0000 (-0800) Subject: Minor cleanup X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=05fff04fba5a87f3bc7672708037c0aec7a48ea3;p=joypy%2FThun.git Minor cleanup --- diff --git a/implementations/Prolog/source/thun.pl b/implementations/Prolog/source/thun.pl index 462d4d3..04db828 100644 --- a/implementations/Prolog/source/thun.pl +++ b/implementations/Prolog/source/thun.pl @@ -138,7 +138,7 @@ joy_parse([J|Js]) --> joy_term(J), !, joy_parse(Js). joy_parse([]) --> []. joy_term(list(J)) --> [lbracket], !, joy_parse(J), [rbracket]. -joy_term(Atomic) --> [tok(Codes)], {joy_token(Atomic, Codes)}. +joy_term(Token) --> [tok(Codes)], {joy_token(Token, Codes)}. joy_token(int(I), Codes) :- number(I, Codes, []), !. % See dcg/basics. joy_token(bool(true), `true`) :- !.