smalltalk: chunk-stream parser + pragmas + 21 tests

lib/smalltalk/tests/parse.sx

@@ -314,6 +314,7 @@
    :selector "factorial"
    :params (list)
    :temps (list)
+   :pragmas (list)
    :body (list
            {:type "return"
             :expr {:type "send"
@@ -335,6 +336,7 @@
    :selector "+"
    :params (list "other")
    :temps (list)
+   :pragmas (list)
    :body (list {:type "return" :expr {:type "lit-string" :value "plus"}})})
 
 (st-test
@@ -344,6 +346,7 @@
    :selector "at:put:"
    :params (list "i" "v")
    :temps (list)
+   :pragmas (list)
    :body (list {:type "return" :expr {:type "ident" :name "v"}})})
 
 (st-test
@@ -353,6 +356,7 @@
    :selector "twice:"
    :params (list "x")
    :temps (list "t")
+   :pragmas (list)
    :body (list
            {:type "assign"
             :name "t"