remove SCCCutPolicy panic, revise (;)/2 so that comma'ed cuts are handled properly (#361)

2020-04-18 20:10:53 -06:00
parent 3438f88c1e
commit 9daf290432
6 changed files with 45 additions and 21 deletions
--- a/src/prolog/toplevel.pl
+++ b/src/prolog/toplevel.pl
@@ -1,14 +1,14 @@

-:- module('$toplevel', [repl/1, consult/1, use_module/1, use_module/2]).
+:- module('$toplevel', ['$repl'/1, consult/1, use_module/1, use_module/2]).

 :- use_module(library(charsio)).
 :- use_module(library(lists)).
 :- use_module(library(si)).

-repl([_|Args]) :-
+'$repl'([_|Args]) :-
    maplist(use_list_of_modules, Args),
    false.
-repl(_) :- repl.
+'$repl'(_) :- repl.

 use_list_of_modules(Mod0) :-
    atom_chars(Mod, Mod0),