Fixed the predicate name when error is thrown
This commit is contained in:
@@ -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))
|
||||
).
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user