smalltalk-tng
view etng-r2/etng-convert-constant-methods-pass.g @ 321:c4a0718c2d3c
Sketch of dependencies
| author | Tony Garnock-Jones <tonygarnockjones@gmail.com> |
|---|---|
| date | Sat Oct 08 15:36:03 2011 -0400 (7 months ago) |
| parents | 9b22b7a23e39 |
| children |
line source
1 -- -*- text -*-
3 pass = toplevel;
5 expr =
6 {#object :selfid method*:methods ~_} ->
7 (convert-constant-methods `(object ,selfid) methods)
8 | {#function method*:methods ~_} ->
9 (convert-constant-methods '(function) methods)
10 ;
12 method =
13 {#constant-method {pattern*}:patterns expr:body ~_} -> `(constant-method ,patterns ,body)
14 ;