further allocation fixes.

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
     }
 

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 {