toplevel.pl: attempt to fix continue/stop logic

Signed-off-by: Stephan Renatus <[email protected]>

diff --git a/src/toplevel.pl b/src/toplevel.pl
index a96172527c12cab2e32a15421b83ebd5560854c7..9d0b497f47dab45bb10b709165079d5f2c8c64ef 100644 (file)
--- a/src/toplevel.pl
+++ b/src/toplevel.pl
@@ -352,8 +352,7 @@ read_input(LeafAnswer, Stop) :-
     (  member(C, ['\n', .]) ->
        nl, write(';  ... .'), nl,
        Stop = stop
-    ;  Stop = continue,
-       (  C = w ->
+    ;  (  C = w ->
           nl,
           write('   '),
           write_leaf_answer(LeafAnswer, [depth(deep)]),
@@ -364,6 +363,7 @@ read_input(LeafAnswer, Stop) :-
           write_leaf_answer(LeafAnswer, [depth(shallow)]),
           read_input(LeafAnswer, Stop)
        ;  member(C, [';', ' ', n]) ->
+          Stop = continue,
           nl, write(';  ')
        ;  C = h ->
           help_message,