Merge pull request #1120 from triska/char_type_correction

ENHANCED: Correct type error for char_type/2.
2021-11-29 19:38:30 -05:00
parent e47aef5615 79a50de697
commit 7abdade7c1
1 changed files with 2 additions and 5 deletions
--- a/src/lib/charsio.pl
+++ b/src/lib/charsio.pl
@@ -66,8 +66,7 @@ extend_var_list_([V|Vs], N, VarList, NewVarList, VarType) :-


 char_type(Char, Type) :-
-    (   var(Char) -> instantiation_error(char_type/2)
-    ;   atom_length(Char, 1) ->
+        must_be(character, Char),
        (   ground(Type) ->
            (   ctype(Type) ->
                '$char_type'(Char, Type)
@@ -75,9 +74,7 @@ char_type(Char, Type) :-
            )
        ;   ctype(Type),
            '$char_type'(Char, Type)
-        )
-    ;   type_error(in_character, Char, char_type/2)
-    ).
+        ).


 ctype(alnum).