Mercurial > repos > tabletprog
annotate samples/compilerbug_004.tp @ 69:ba032565c7a5
Fix handling of variable style access to self and parent object messages defined with lambdas. Improve test case for this bug to include parent object access as well as self object access.
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 14 Jul 2012 19:24:04 -0700 |
parents | 38127fbf5f9d |
children |
rev | line source |
---|---|
64
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1 #{ |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
2 foo <- 42 |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
3 new <- { |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
4 #{ |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
5 bar <- foo |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
6 } |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
7 } |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
8 |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
9 main <- { |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
10 print: (string: ((new: ) bar)) . "\n" |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
11 } |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
12 |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
13 } |
38127fbf5f9d
Add sample for bug involving accesing a property of a parent object as an initial value for a new object property
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
14 |