Mercurial > repos > tabletprog

annotate samples/testdict.tp @ 253:697c2c562af2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix infinite loop in hash dict
author Michael Pavone <pavone@retrodev.com>
date Sat, 31 May 2014 21:27:03 -0700
parents 6735db9b44ba
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
94
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
1 #{
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
2 main <- {
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
3 foo <- dict linear:
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
4 foo set: "key1" "val1"
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
5 foo set: "key2" "val2"
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
6 foreach: foo :k :v {
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
7 print: k . ", " . v . "\n"
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
8 }
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
9
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
10 }
6735db9b44ba Fixed my foreach on dict. Added test for it.
William Morgan <bill@mrgn.org>
parents:
diff changeset
11 }