From: Mark <markjordanthom@gmail.com>
Date: Thu, 8 Feb 2024 04:46:32 +0000 (-0700)
Subject: fix tests broken by singleton
X-Git-Tag: v0.9.4~8
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=539a1aee2c61ffb4e6357d98d2550ecbef266db8;p=scryer-prolog.git

fix tests broken by singleton
---

diff --git a/src/lib/charsio.pl b/src/lib/charsio.pl
index 7a4186a5..afe745a2 100644
--- 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),