don't compile is instruction if bound to anonymous variable (#1974)

src/codegen.rs

@@ -804,6 +804,7 @@ impl<'b> CodeGenerator<'b> {
             &Term::Var(ref vr, ref name) => {
                 let var_num = name.to_var_num().unwrap();
 
+                if self.marker.var_data.records[var_num].num_occurrences > 1 {
                     self.marker.mark_var::<QueryInstruction>(
                         var_num,
                         Level::Shallow,
@@ -813,6 +814,17 @@ impl<'b> CodeGenerator<'b> {
                     );
 
                     self.marker.mark_safe_var_unconditionally(var_num);
+                } else {
+                    if self.marker.in_tail_position {
+                        if self.marker.var_data.allocates {
+                            code.push_back(instr!("deallocate"));
+                        }
+
+                        code.push_back(instr!("proceed"));
+                    }
+
+                    return Ok(());
+                }
 
                 compile_expr!(self, &terms[1], term_loc, code)
             }