jmp is not safe to use in if statements

Author: andrew-johnson-4

Cargo.toml

@@ -1,6 +1,6 @@
 [package]
 name = "lambda_mountain"
-version = "1.11.87"
+version = "1.11.88"
 authors = ["Andrew <andrew@subarctic.org>"]
 license = "MIT"
 description = "Lambda Mountain"

STDLIB/default-stdlib.lm

@@ -194,17 +194,15 @@ print := λ(: x I8). (: (tail(
    (label start )
    (mov( R8 0u64 c1 ))
    (mov( R9 0u64 c2 ))
-   (if (==( c1 c2 )) () (jmp end-false))
-   (if (==( c1 0u8 )) () (jmp end-true))
+   (if (==( c1 c2 )) (mov( 1u64 RAX )) (mov( 0u64 RAX )) )
+   (cmp( 0u64 RAX ))
+   (je end)
+   (if (==( c1 0u8 )) (mov( 1u64 RAX )) (mov( 0u64 RAX )) )
+   (cmp( 1u64 RAX ))
+   (je end)
    (inc R8)
    (inc R9)
    (jmp start)
-   (label end-true)
-   (mov( 1u64 RAX ))
-   (jmp( end ))
-   (label end-false)
-   (mov( 0u64 RAX ))
-   (jmp( end ))
    (label end)
    (as RAX U64)
 )) U64);

tests/strict/match7.lm

@@ -6,9 +6,13 @@ import STDLIB/default-stdlib.lm;
 
 import STRICT/utility.lm;
 
-config-preprocess            := 1u8;
+config-preprocess            := 2u8;
 
 main := λ(: argc U64)(: argv U8[][]).(tail(
+   (print( (==( '--macro_s '--macro_s )) ))
+   (print( (==( '--macro_s '--nomacro_s )) ))
+   (print( (==( '--nomacro_s '--macro_s )) ))
+   (print( (==( '--nomacro_s '--nomacro_s )) ))
    (match '--nomacro_s (
       ()
       ('--macro_s (set config-preprocess 1u8))