rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
toplevel.pl: fix arity mismatch in read_input/2
This commit is contained in:
Mark Thom
2024-11-15 05:50:51 +01:00
committed by GitHub
parent e8ef9bc33a e78914219e
commit 9f6bbe949c
1 changed files with 27 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/toplevel.pl
View File

@@ -352,32 +352,33 @@ read_input(LeafAnswer, Stop) :-
( member(C, ['\n', .]) -> ( member(C, ['\n', .]) ->
nl, write('; ... .'), nl, nl, write('; ... .'), nl,
Stop = stop 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) read_input(LeafAnswer, Stop)
; C = p -> ; C = p ->
nl, nl,
write(' '), write(' '),
write_leaf_answer(LeafAnswer, [depth(shallow)]), write_leaf_answer(LeafAnswer, [depth(shallow)]),
read_input(LeafAnswer) read_input(LeafAnswer, Stop)
; 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('; '),
Stop = continue
; C = f -> ; C = f ->
bb_get('$answer_count', Count), bb_get('$answer_count', Count),
More is 5 - Count mod 5, More is 5 - Count mod 5,
bb_put('$report_n_more', More), bb_put('$report_n_more', More),
nl, write('; ') nl, write('; '),
; read_input(LeafAnswer) Stop = continue
) ; read_input(LeafAnswer, Stop)
). ).
needs_bracketing(Value, Op) :- needs_bracketing(Value, Op) :-