make a good test for struct initialization

Author: andrew-johnson-4

Makefile

@@ -1,6 +1,6 @@
 
 nostd: prod
-	./production --nostd -o tmp.s STRICT/cli.lm
+	./production --nostd -o tmp.s tests/strict/cc2.lm
 	as -o tmp.o tmp.s
 	ld -o tmp tmp.o
 	./tmp && echo $?

tests/strict/cc2.lm

@@ -0,0 +1,17 @@
+
+import STDLIB/default-instruction-set.lm;
+import STDLIB/default-primitives.lm;
+import STDLIB/default-rules.lm;
+import STDLIB/default-stdlib.lm;
+
+echo := λ(: x U64). (: (
+   x
+) U64);
+
+main := (
+   (let x (SCons(
+      (close(SAtom( 'an-atom_s )))
+      (close(SNil))
+   )))
+   (print x)
+);