Changeset 80 for trunk/orca
- Timestamp:
- 03/08/06 17:12:20 (3 years ago)
- Files:
-
- 1 modified
-
trunk/orca/tests/working/remove-each.r (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/orca/tests/working/remove-each.r
r77 r80 29 29 print [m "result" mold head res] 30 30 31 ; 32 ; rebol does this right, my version not 33 ; no idea how to do it correctly and fast. 34 ; 35 ; commented out to avoid flagging errors in regression-test 36 ; but keep in mind. 37 ; 38 /do[ 39 print "nested remove, practical use?" 40 blk: "123456" 31 print "nested remove block, practical use?" 32 blk: [1 2 3 4 5 6] 41 33 remove-each val blk[ 42 34 print "-" 43 35 remove-each val2 blk[ 44 print["inner" #"3" '= val #"2"'= val2 mold blk]45 val2 = #"2"36 print["inner" 2 '= val 3 '= val2 mold blk] 37 val2 = 3 46 38 ] 47 val = #"3"39 val = 2 48 40 ] 49 41 print ["res=" mold blk] 50 42 51 print "nested remove 2, practical use?"43 print "nested remove string, practical use?" 52 44 blk: "123456" 53 45 remove-each val blk[ … … 60 52 ] 61 53 print ["res=" mold blk] 54 55 print "^/nested remove string, practical use?" 56 blk: "123456" 57 remove-each val blk[ 58 print "-" 59 remove-each val2 blk[ 60 print["inner" #"2" '= val #"3" '= val2 mold blk] 61 val2 = #"3" 62 ] 63 val = #"2" 62 64 ] 65 print ["res=" mold blk] 66
