properly handle cuts in conditionals

2018-04-08 00:33:54 -06:00
parent 273e0a0b94
commit a7445e856a
4 changed files with 147 additions and 134 deletions
--- a/src/prolog/io.rs
+++ b/src/prolog/io.rs
@@ -540,8 +540,6 @@ fn compile_query(terms: Vec<QueryTerm>, queue: Vec<TopLevel>, code_size: usize,
    let query_info = QueryInfo {};
    query_info.label_clauses(code_size, code_dir, &mut code);

-    print_code(&code);
-    
    Ok((code, cg.take_vars()))
 }

@@ -573,8 +571,6 @@ fn compile_decl(wam: &mut Machine, tl: TopLevel, queue: Vec<TopLevel>) -> EvalSe

            decl_info.label_clauses(wam.code_size(), &mut wam.code_dir, &mut code);

-            print_code(&code);
-            
            if !code.is_empty() {
                wam.add_user_code(name, tl.arity(), code, tl.as_predicate().ok().unwrap())
            } else {