next case to print SAtom

Author: andrew-johnson-4

STDLIB/default-stdlib.lm

@@ -5,16 +5,15 @@ type S (SNil)
      | (SPointer( ?[] ));
 
 print := λ(: x S). (: (tail(
-#   (if (==( (.0 x) 3u64 )) (
+   (if (==( (.0 x) 3u64 )) (
       (print '\[\]_s)
-#   ) (
-#      (print 'NotNil_s)
-   #   (if (==( (.0 x) 2u64 )) (
-   #      (print (.1 (as x SAtom)))
-   #   ) (
-   #      (print 'TODO-print-S_s)
-   #   ))
-#   ))
+   ) (
+      (if (==( (.0 x) 2u64 )) (
+         (print (.1 (as x SAtom)))
+      ) (
+         (print (.0 x))
+      ))
+   ))
    ()
 )) Nil);
 

STRICT/cli.lm

@@ -13,7 +13,7 @@ config-mode              := Compile;
 
 main := λ(: argc U64)(: argv U8[][]).(tail(
    (let argi 0u64)
-   (let input SNil)
+   (let input (SAtom( 'test_s )))
    (while (<( argi argc )) (
        (print input)
 #      (if (==( ([]( argv argi )) '--tokenize_s )) (