Removed $raw_input_read_char

2020-04-18 13:54:18 +02:00
parent fb5ee5e190
commit 3f578e24b5
3 changed files with 3 additions and 61 deletions
--- a/src/prolog/toplevel.pl
+++ b/src/prolog/toplevel.pl
@@ -146,7 +146,7 @@
    ).

 '$read_input'(ThreadedGoals, NewVarList) :-
-    '$raw_input_read_char'(C),
+    '$get_single_char'(C),
    (  C == w ->
       nl,
       write('   '),
@@ -162,8 +162,9 @@
    ;  C == h ->
       '$help_message',
       '$read_input'(ThreadedGoals, NewVarList)
-    ;  C == '.',
+    ;  C == '.' ->
       nl, write(';  ...'), nl
+    ; '$read_input'(ThreadedGoals, NewVarList)
    ).

 '$help_message' :-