Mercurial > repos > tabletprog
annotate samples/compilerbug_004.tp @ 219:b70be565d54c
Fix check of return value from env.find in symbol.quote so that falsey found values do not cause trouble.
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 23 Dec 2013 14:22:20 -0800 |
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 |