codegen bug fix.

diff --git a/src/l2/codegen.rs b/src/l2/codegen.rs
index 1ffb2e068b59f9c3a28dda7df35a9145a6cdedad..e17a4900dc7a0a5c0be5ec78602260e191c57cf0 100644 (file)
--- a/src/l2/codegen.rs
+++ b/src/l2/codegen.rs
@@ -432,6 +432,8 @@ impl<'a> CodeGenerator<'a> {
     }
 
     pub fn compile_fact(&mut self, term: &'a Term) -> Code {
+        self.marker.advance(term);
+        
         let mut compiled_fact = vec![Line::Fact(self.compile_target(term))];
         let proceed = Line::Control(ControlInstruction::Proceed);
 
@@ -440,6 +442,8 @@ impl<'a> CodeGenerator<'a> {
     }
 
     pub fn compile_query(&mut self, term: &'a Term) -> Code {
+        self.marker.advance(term);
+        
         let mut compiled_query = vec![Line::Query(self.compile_target(term))];
 
         match term {