working ok

Author: andrew-johnson-4

STDLIB/default-stdlib.lm

@@ -18,16 +18,17 @@ print := λ(: x S). (: (tail(
          (print (.1 (as x SAtom)))
       ) (
          (if (==( (.0 x) 1u64 )) (tail(
-            (let c SNil)
+#            (let c SNil)
             (print '\[_s)
-            (print( (as (.1 (as x SCons)) U64) ))
-            (mov( (.1 (as x SCons)) 0u64 c ))
-            (print c)
+#            (print( (as (.1 (as x SCons)) U64) ))
+#            (mov( (.1 (as x SCons)) 0u64 c ))
+#            (print c)
             (print '\s_s)
-            (print( (as (.2 (as x SCons)) U64) ))
-            (mov( (.2 (as x SCons)) 0u64 c ))
-            (print c)
+#            (print( (as (.2 (as x SCons)) U64) ))
+#            (mov( (.2 (as x SCons)) 0u64 c ))
+#            (print c)
             (print '\]_s)
+            ()
          )) (tail(
             (print '[_s)
             (print (as (.1 (as x SPointer)) U64))