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/machine/toplevel.rs
+++ b/src/prolog/machine/toplevel.rs
@@ -934,7 +934,7 @@ impl RelationWorker {
                let mut term = *term;

                if let Term::Clause(cell, name, terms, op_spec) = term {
-                    if name.as_str() == "," {
+                    if name.as_str() == "," && terms.len() == 2 {
                        let term = Term::Clause(cell, name, terms, op_spec);
                        let mut subterms = unfold_by_str(term, ",");