fixed a nasty bug with push fragments not pushing

Author: andrew-johnson-4

Cargo.toml

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

STDLIB/default-instruction-set.lm

@@ -54,15 +54,26 @@ fragment push := λ(: src GlobalVariable+Sized<size>). (: (
    ))
 ) Nil);
 fragment push := λ(: src LocalVariable+Sized<size>). (: (
-   (.program ( for word-offset in (range( 0 (/( size 8 )) )) (
-      \t 'pushq \s (+(
-         (.expression src)
-         (+(
-            (+( size '-8 ))
-            (inv(*( word-offset 8 )))
-         ))
-      )) \[ '%rbp \] \n
-   )))
+   (.program (
+      (for word-offset in (range( 0 (/( size 8 )) )) (
+         \t 'pushq \s (+(
+            (.expression src)
+            (+(
+               (+( size '-8 ))
+               (inv(*( word-offset 8 )))
+            ))
+         )) \[ '%rbp \] \n
+     ))
+      (if-eq size 4 (
+         \t 'pushq \s (.expression src) \[ '%rbp \] \n
+      ))
+      (if-eq size 2 (
+         \t 'pushq \s (.expression src) \[ '%rbp \] \n
+      ))
+      (if-eq size 1 (
+         \t 'pushq \s (.expression src) \[ '%rbp \] \n
+      ))
+   ))
 ) Nil);
 fragment pop := λ(: src LocalVariable+Sized<size>). (: (
    (.program ( for word-offset in (range( 1 (+( (/( size 8 )) 1 )) )) (

tests/strict/ifeq.lm

@@ -14,6 +14,7 @@ main := (tail(
       (print x)(print y)(print \n_s)
       (if (==( x y )) (print 'Failure\n_s) (print 'ZeroNotEqualOne\n_s) )
    ))
+   ()
    (tail(
       (let x 0u16)
       (let y 0u16)

tests/strict/ifeq.lm.out

@@ -0,0 +1,32 @@
+00
+ZeroEqZero
+01
+ZeroNotEqualOne
+00
+ZeroEqZero
+01
+ZeroNotEqualOne
+00
+ZeroEqZero
+01
+ZeroNotEqualOne
+00
+ZeroEqZero
+01
+ZeroNotEqualOne
+00
+ZeroEqZero
+01
+ZeroNotEqualOne
+00
+ZeroEqZero
+01
+ZeroNotEqualOne
+00
+ZeroEqZero
+01
+ZeroNotEqualOne
+00
+ZeroEqZero
+01
+ZeroNotEqualOne