Mercurial > repos > tabletprog
annotate samples/private.tp @ 161:fc8eecad71e6
Fix variable name collision in integer objects
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 10 Aug 2013 18:26:33 -0700 |
parents | cd41f7c22fcd |
children |
rev | line source |
---|---|
47
cd41f7c22fcd
Remove compiled hello and private samples and add source
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1 #{ |
cd41f7c22fcd
Remove compiled hello and private samples and add source
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
2 makeobj <- { |
cd41f7c22fcd
Remove compiled hello and private samples and add source
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
3 foo <- 40 |
cd41f7c22fcd
Remove compiled hello and private samples and add source
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
4 #{ |
cd41f7c22fcd
Remove compiled hello and private samples and add source
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
5 bar <- { |
cd41f7c22fcd
Remove compiled hello and private samples and add source
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
6 foo |
cd41f7c22fcd
Remove compiled hello and private samples and add source
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
7 } |
cd41f7c22fcd
Remove compiled hello and private samples and add source
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
8 inc <- { |
cd41f7c22fcd
Remove compiled hello and private samples and add source
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
9 foo <- foo + 1 |
cd41f7c22fcd
Remove compiled hello and private samples and add source
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
10 1 |
cd41f7c22fcd
Remove compiled hello and private samples and add source
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
11 } |
cd41f7c22fcd
Remove compiled hello and private samples and add source
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
12 } |
cd41f7c22fcd
Remove compiled hello and private samples and add source
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
13 } |
cd41f7c22fcd
Remove compiled hello and private samples and add source
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
14 main <- { |
cd41f7c22fcd
Remove compiled hello and private samples and add source
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
15 baz <- makeobj: |
cd41f7c22fcd
Remove compiled hello and private samples and add source
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
16 inc: baz |
cd41f7c22fcd
Remove compiled hello and private samples and add source
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
17 inc: baz |
cd41f7c22fcd
Remove compiled hello and private samples and add source
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
18 bar: baz |
cd41f7c22fcd
Remove compiled hello and private samples and add source
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
19 } |
cd41f7c22fcd
Remove compiled hello and private samples and add source
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
20 } |
cd41f7c22fcd
Remove compiled hello and private samples and add source
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
21 |