Removed a check in get_single_char

This commit is contained in:
notoria
2020-04-18 18:28:26 +02:00
parent 988366e37f
commit 2e15ab44ab

View File

@@ -59,7 +59,6 @@ extend_var_list_([V|Vs], N, VarList, NewVarList, VarType) :-
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_single_char/1))
).