fix tests broken by singleton
This commit is contained in:
@@ -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),
|
||||||
|
|||||||
Reference in New Issue
Block a user