close seems to work

Author: andrew-johnson-4

Cargo.toml

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

STDLIB/default-instruction-set.lm

@@ -58,9 +58,9 @@ fragment pop := λ(: src LocalVariable+Sized<size>). (: (
    )))
 ) Nil);
 
-fragment mov := λ(: src LocalVariable+Sized<size>)(: index Literal+Constant)(: dst LocalVariable+x[]). (: (
+fragment mov := λ(: src LocalVariable+Sized<size>)(: index Literal+Constant)(: dst Reg64+x[]). (: (
    (.program (
-      (\t 'mov \s (.expression dst) \[ '%rbp \] , \s '%r14 \n)
+      (\t 'mov \s '% (.expression dst) , \s '%r14 \n)
       (for word-offset in (range( 0 (/( size 8 )) )) (
          \t 'movq \s (+( (.expression src) (*( word-offset 8 )) )) \[ '%rbp \] , \s '%r15 \n
          \t 'movq \s '%r15 , \s (*( word-offset 8 )) \[ '%r14 \] \n

STDLIB/default-stdlib.lm

@@ -5,8 +5,9 @@ type S (SNil)
      | (SPointer( ?[] ));
 
 close := λ(: x S). (: (tail(
-   (mov( (malloc(sizeof S)) R15 ))
-   (as R15 S[])
+   (mov( (malloc(sizeof S)) R8 ))
+   (mov( x 0u64 (as R8 S[]) ))
+   (as R8 S[])
 )) S[]);
 
 print := λ(: x S). (: (tail(