fix broken test case with correct output

Author: andrew-johnson-4

Cargo.toml

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

STDLIB/default-primitives.lm

@@ -82,6 +82,13 @@ fragment < := λ(: l LocalVariable+U64)(: r GlobalVariable+U64). (: (
    (.expression( 'jb ))
 ) BranchConditional);
 
+fragment branchtrue := λ(: _ Nil). (: (
+   (.expression( 'jmp ))
+) BranchConditional);
+fragment branchfalse := λ(: _ Nil). (: (
+   (.expression( 'nop ))
+) BranchConditional);
+
 fragment + := λ(: l LocalVariable+U8)(: r LocalVariable+U8). (: (
    (.program(
       \t 'mov \s (.expression l) \[ '%rbp \] , \s '%al \n

STDLIB/default-rules.lm

@@ -12,7 +12,15 @@ macro ('match-pats( term () remainder )) (
 );
 
 macro ('match-pats( term (ps (lhs rhs)) remainder )) (
-   remainder
+   (match-pats(
+      term
+      ps
+      (if (match-pats-condition lhs) rhs remainder)
+   ))
+);
+
+macro ('match-pats-condition any) (
+   (branchtrue())
 );
 
 #macro ('match-pats( term matched return (ps (lhs rhs)) )) (