fix tests broken by singleton

This commit is contained in:
Mark
2024-02-07 21:46:32 -07:00
parent 8e323b9dfa
commit 539a1aee2c

View File

@@ -153,7 +153,7 @@ char_type(Char, Type) :-
max_char_code(Max) :- max_char_code(Max) :-
catch((length(_, Code), catch((length(_, Code),
catch(char_code(Char, Code), catch(char_code(_Char, Code),
error(representation_error(_),_), error(representation_error(_),_),
throw(max_char_code(Code))), throw(max_char_code(Code))),
false), false),