diff --git a/src/prolog/debray_allocator.rs b/src/prolog/debray_allocator.rs index 92b475a0..05892d8c 100644 --- a/src/prolog/debray_allocator.rs +++ b/src/prolog/debray_allocator.rs @@ -33,7 +33,7 @@ impl DebrayAllocator { } fn is_in_use(&self, r: usize) -> bool { - let in_use_range = r < self.arity && r > self.arg_c; + let in_use_range = r < self.arity && r >= self.arg_c; self.in_use.contains(&r) || in_use_range } diff --git a/src/prolog/io.rs b/src/prolog/io.rs index 4a6e2497..70f7be5a 100644 --- a/src/prolog/io.rs +++ b/src/prolog/io.rs @@ -601,7 +601,7 @@ pub fn compile_listing(wam: &mut Machine, src_str: &str) -> EvalSession let mut worker = TopLevelWorker::new(src_str.as_bytes(), wam.atom_tbl()); - + let tls = try_eval_session!(worker.parse_batch(&mut op_dir)); for tl in tls {