fix: len counting label leading to incorrent jmp

blspc/src/compiler/compile.rs

@@ -56,9 +56,9 @@ impl Compiler {
                                     let mut then = self.compile(cdr[1].clone())?;
                                     let mut else_ = self.compile(cdr[2].clone())?;
 
-                                    result.push(Instr::JumpIfFalse { to: then.len() + 1}); // +1 for the jump instr
+                                    result.push(Instr::JumpIfFalse { to: len(&then) + 1}); // +1 for the jump instr
                                     result.append(&mut then);
-                                    result.push(Instr::Jump { to: else_.len() });
+                                    result.push(Instr::Jump { to: len(&else_) });
                                     result.append(&mut else_);
                                 }
                                 _ => {
@@ -159,3 +159,15 @@ impl Compiler {
         Ok(result)
     }
 }
+
+fn len(vec: &Vec<Instr>) -> usize {
+    let mut result = 0;
+    for i in vec {
+        match i {
+            Instr::Comment { .. } => {},
+            Instr::Label { .. } => {},
+            _ => { result += 1; },
+        }
+    }
+    result
+}

example/if.blsp

@@ -1,4 +1,4 @@
+(fun print_true (print "True"))
+(fun print_false (print "False"))
 (fun main
-    (if true
+    (if true print_true print_false))
-        (print "True")
-        (print "False")))