Mercurial > repos > tabletprog
annotate samples/compilerbug_004.tp @ 220:a1a80af71b05
Implement onePlus macro. Fix some bugs in the other matching macros. Implement integer literal parsing rules.
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 23 Dec 2013 14:44:31 -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 |