Changeset 310 for trunk/thune/tests
- Timestamp:
- 11/20/06 03:13:29 (2 years ago)
- Files:
-
- 1 modified
-
trunk/thune/tests/working/context.t (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/thune/tests/working/context.t
r210 r310 16 16 'b c3 get . 17 17 ;'c1 get . ; lit-word! are currently unbound. 18 19 20 /* 21 "--- clone deep ---" print 22 context! [ 23 0 :val 24 [a b] :blk 25 [n] [n :val] func :f 26 [val . blk .] proc :dmp 27 ] make :c4 28 c4 [blk 'new-a 1 poke] make :c5 29 5 c4/f 30 2 c5/f 31 c4 . 32 c5 . 33 c5/dmp 34 c4/dmp 35 */
