Fixed the predicate name when error is thrown

2020-04-18 15:21:19 +02:00
parent f28e87b240
commit 196d74c3a0
1 changed files with 1 additions and 1 deletions
--- a/src/prolog/lib/charsio.pl
+++ b/src/prolog/lib/charsio.pl
@@ -61,7 +61,7 @@ get_single_char(C) :-
    (  var(C) -> '$get_single_char'(C)
    ;  C == end_of_file  -> '$get_single_char'(C)
    ;  atom_length(C, 1) -> '$get_single_char'(C)
-    ;  throw(error(domain_error(in_character, C), get_char/1))
+    ;  throw(error(domain_error(in_character, C), get_single_char/1))
    ).