changeset 438748ae49e1 in joypy/Joypy details: http://hg.osdn.jp/view/joypy/Joypy?cmd=changeset;node=438748ae49e1 user: Simon Forman <sform****@hushm*****> date: Tue Aug 13 11:58:31 2019 -0700 description: minor cleanup diffstat: thun/gnu-prolog/DCG_basics.pl | 6 ++---- 1 files changed, 2 insertions(+), 4 deletions(-) diffs (14 lines): diff -r 535eb7f5821e -r 438748ae49e1 thun/gnu-prolog/DCG_basics.pl --- a/thun/gnu-prolog/DCG_basics.pl Tue Aug 13 11:51:41 2019 -0700 +++ b/thun/gnu-prolog/DCG_basics.pl Tue Aug 13 11:58:31 2019 -0700 @@ -52,8 +52,6 @@ is_glyph(Ch) :- Ch =\= 0'[, Ch =\= 0'], between(0'!, 0'~, Ch). is_space(Ch) :- Ch =:= 32 ; between(9, 13, Ch). -one_or_more(E, List) --> one_or_more_(List, E). +one_or_more(P, [Ch|Rest]) --> call(P, Ch), one_or_more(P, Rest). +one_or_more(P, [Ch] ) --> call(P, Ch). -one_or_more_([Ch|Rest], P) --> call(P, Ch), one_or_more_(Rest, P). -one_or_more_([Ch], P) --> call(P, Ch). -
Fork