--- a/etng-r2/etng-pass-common.g Sun Jan 18 00:25:01 2009 +0000
+++ b/etng-r2/etng-pass-common.g Sun Jan 18 00:26:10 2009 +0000
@@ -15,8 +15,13 @@
| {#function method*:methods ~_} -> `(function ,@methods)
| {#tuple expr*:elts ~_} -> `(tuple ,@elts)
| {#send expr:receiver expr:message ~_} -> `(send ,receiver ,message)
+ | {#assemble {assemble-binding*}:bindings {assemble-clause*}:clauses}
+ -> `(assemble ,bindings ,clauses)
;
+assemble-binding = {:name expr:init} -> `(,name ,init);
+assemble-clause = {:language :item} -> `(,language ,item);
+
method =
{#method {pattern*}:patterns expr:body ~_} -> `(method ,patterns ,body)
;