--- a/etng-r2/etng-parser.g Sat May 23 20:14:15 2009 +0100
+++ b/etng-r2/etng-parser.g Sun Jul 05 15:06:54 2009 +0100
@@ -30,7 +30,8 @@
grouping =
{#paren expr:e ~_ -> e}
- | {#brack methods:ms -> `(object ,@ms)}
+ | #rec {#brace methods:ms -> `(object self ,@ms)}
+ | #rec :selfid {#brace methods:ms -> `(object ,selfid ,@ms)}
| {#brace methods:ms -> `(function ,@ms)}
;
@@ -131,7 +132,7 @@
{#paren quote :n -> `(lit ,n)}
| {#paren pattern-tuple:p ~_ -> p}
| {#brace -> (error 'object-matching-not-supported)}
- | {#brack -> (error 'function-matching-not-supported)}
+ | {#brack -> (error 'list-matching-not-supported)}
;
semis = (:x ?(eq? x SEMI))*;