closing atoms is bugged

stdlib/helpers.lm

@@ -101,13 +101,13 @@
 ::yield-cons := λhead tail. (
    head                        # this is head
    ::close-this
-   \t mov %r8, %r9          \n # %r9  is head
+   \t mov %r8, %rax         \n # %rax  is head
 
    tail                        # this is tail
    ::close-this                # %r8  is tail
 
    \t mov $0, %r12          \n # this.atom is NULL
-   \t mov %r9, %r13         \n # this.head is head
+   \t mov %rax, %r13        \n # this.head is head
    \t mov %r8, %r14         \n # this.tail is tail
    \t mov $0, %r15          \n # this.flags is 0
 );

stdlib/prelude.lm

@@ -37,24 +37,17 @@
    \t cmp $0, %r14              \n
    \t je __print_this_nil       \n
 
-   ::show-cons
-   ::push-this
-   ::pop-this
-   ::show-cons
-
    # print head
    ::push-this
    \t mov %r13, %r8             \n
    ::open-this
-   ::show-cons
    \t call __print_this         \n
    ::pop-this
 
    # print tail
    ::push-this
    \t mov %r14, %r8             \n
    ::open-this
-   ::show-cons
    \t call __print_this         \n
    ::pop-this
 

tests/cons.lm

@@ -1,5 +1,5 @@
 
 main := (
-   print-s (() ())
+   print-s (() 123)
 #   print-s (123 () 456)
 );