fix tests broken by singleton

2024-02-07 21:46:32 -07:00
parent 8e323b9dfa
commit 539a1aee2c
1 changed files with 1 additions and 1 deletions
--- a/src/lib/charsio.pl
+++ b/src/lib/charsio.pl
@@ -153,7 +153,7 @@ char_type(Char, Type) :-

 max_char_code(Max) :-
        catch((length(_, Code),
-               catch(char_code(Char, Code),
+               catch(char_code(_Char, Code),
                     error(representation_error(_),_),
                     throw(max_char_code(Code))),
               false),