From b25ef2d5f75a243bdaf977ed65d9da13f01f0f25 Mon Sep 17 00:00:00 2001 From: Simon Forman Date: Mon, 12 Aug 2019 19:25:13 -0700 Subject: [PATCH] Oops! Regression. --- thun/gnu-prolog/parser.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/thun/gnu-prolog/parser.pl b/thun/gnu-prolog/parser.pl index a0a9e72..f25d5d0 100644 --- a/thun/gnu-prolog/parser.pl +++ b/thun/gnu-prolog/parser.pl @@ -43,8 +43,8 @@ line(-1, [eof]) :- !. % break on EOF line(X, [X|Line]) :- get_code(Y), !, line(Y, Line). -chars([Ch|Rest]) --> char(Ch), !, chars(Rest). -chars([]) --> []. +chars([Ch|Rest]) --> char(Ch), chars(Rest). +chars([Ch]) --> char(Ch). char(Ch) --> [Ch], { Ch \== 0'[, Ch \== 0'], between(33, 126, Ch) }.