Oops! Regression.
This commit is contained in:
@@ -43,8 +43,8 @@ line(-1, [eof]) :- !. % break on EOF
|
|||||||
line(X, [X|Line]) :- get_code(Y), !, line(Y, Line).
|
line(X, [X|Line]) :- get_code(Y), !, line(Y, Line).
|
||||||
|
|
||||||
|
|
||||||
chars([Ch|Rest]) --> char(Ch), !, chars(Rest).
|
chars([Ch|Rest]) --> char(Ch), chars(Rest).
|
||||||
chars([]) --> [].
|
chars([Ch]) --> char(Ch).
|
||||||
|
|
||||||
char(Ch) --> [Ch], { Ch \== 0'[, Ch \== 0'], between(33, 126, Ch) }.
|
char(Ch) --> [Ch], { Ch \== 0'[, Ch \== 0'], between(33, 126, Ch) }.
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user