   (assert (= (stream :eat) :sub))
 
   (let [identifier (parse-ident stream)
-        param-list (parse-param-list stream)
+        param-list (parse-var-list stream)
         block      (parse-block stream)]
     [:sub identifier param-list block]
     )


    )
  )

;;
;; Anything of the form: DO expression_list... DONE


    (= obj "DONE")
    :done

    (= obj "(")
    :open-paren
