From f8389e889ee96a2060dee53e21dbee334836ddd4 Mon Sep 17 00:00:00 2001 From: Mark Thom Date: Thu, 8 Mar 2018 12:51:06 -0700 Subject: [PATCH] further allocation fixes. --- src/prolog/debray_allocator.rs | 2 +- src/prolog/io.rs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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 { -- 2.54.0