Merge pull request #2653 from srenatus/sr/issue-2650

toplevel.pl: fix arity mismatch in read_input/2

src/toplevel.pl

@@ -352,32 +352,33 @@ read_input(LeafAnswer, Stop) :-
     (  member(C, ['\n', .]) ->
        nl, write(';  ... .'), nl,
        Stop = stop
-    ;  Stop = continue,
+    ;  C = w ->
-       (  C = w ->
+       nl,
-          nl,
+       write('   '),
-          write('   '),
+       write_leaf_answer(LeafAnswer, [depth(deep)]),
-          write_leaf_answer(LeafAnswer, [depth(deep)]),
+       read_input(LeafAnswer, Stop)
-          read_input(LeafAnswer)
+    ;  C = p ->
-       ;  C = p ->
+       nl,
-          nl,
+       write('   '),
-          write('   '),
+       write_leaf_answer(LeafAnswer, [depth(shallow)]),
-          write_leaf_answer(LeafAnswer, [depth(shallow)]),
+       read_input(LeafAnswer, Stop)
-          read_input(LeafAnswer)
+    ;  member(C, [';', ' ', n]) ->
-       ;  member(C, [';', ' ', n]) ->
+       nl, write(';  '),
-          nl, write(';  ')
+       Stop = continue
-       ;  C = h ->
+    ;  C = h ->
-          help_message,
+       help_message,
-          read_input(LeafAnswer)
+       read_input(LeafAnswer, Stop)
-       ;  C = a ->
+    ;  C = a ->
-          bb_put('$report_all', true),
+       bb_put('$report_all', true),
-          nl, write(';  ')
+       nl, write(';  '),
-       ;  C = f ->
+       Stop = continue
-          bb_get('$answer_count', Count),
+    ;  C = f ->
-          More is 5 - Count mod 5,
+       bb_get('$answer_count', Count),
-          bb_put('$report_n_more', More),
+       More is 5 - Count mod 5,
-          nl, write(';  ')
+       bb_put('$report_n_more', More),
-       ;  read_input(LeafAnswer)
+       nl, write(';  '),
-       )
+       Stop = continue
+    ;  read_input(LeafAnswer, Stop)
     ).
 
 needs_bracketing(Value, Op) :-