Implement Parcel & Nil

sorear · Jul 20, 2010 · e06200c · e06200c
1 parent 29b9da5
commit e06200c
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/setting b/setting
@@ -429,6 +429,25 @@ my class Iterator {
 
 my class EMPTY { }
 
+my class Parcel {
+    # $!ll
+}
+
+sub infix:<,>(*@bits) {
+    my @r := Parcel.RAWCREATE("ll", Q:CgOp { (varattr rest (@ (l @v))) });
+    @r;
+}
+
+# Maybe this should be a constant, but constants are currently forced to
+# scalar-nature (TODO)
+sub Nil {
+    state @n;
+    START {
+        @n := Parcel.RAWCREATE("ll", LLArray.new);
+    }
+    @n;
+}
+
 my class List is Cool {
     # low level, so not declared yet
     # @!items @!rest $!flat