address issues #114, #115

2019-04-25 09:10:52 -06:00
parent 18a9a6434f
commit b07a19fc47
5 changed files with 52 additions and 34 deletions
--- a/src/prolog/lib/builtins.pl
+++ b/src/prolog/lib/builtins.pl
@@ -769,6 +769,7 @@ char_code(Char, Code) :-

 get_char(C) :-
    (  var(C) -> '$get_char'(C)
+    ;  C == end_of_file  -> '$get_char'(C)
    ;  atom_length(C, 1) -> '$get_char'(C)
    ;  throw(error(type_error(in_character, C), get_char/1))
    ).