annotate samples/private.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 cd41f7c22fcd
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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