root/trunk/orca/tests/working/remove-each.r

rebol[
]
print m:"remove-each, block, head:"
res: remove-each val probe blk: [1 2 3 4 5][
 prin[m "testing" mold val "->" mold blk]
 probe 4 = val
]
print [m "result" mold head res]

print m:"remove-each, block, non-head:"
res: remove-each val next next probe blk: [1 2 3 4 5][
 prin[m "testing" mold val "->" mold blk]
 probe 4 = val
]
print [m "result" mold head res]

print m:"remove-each, string, head:"
res: remove-each val probe blk: "12345"[
 prin[m "testing" mold val "->" mold blk]
 probe #"4" = val
]
print [m "result" mold head res]

print m:"remove-each, string, non-head:"
res: remove-each val next next probe blk: "12345"[
 prin[m "testing" mold val "->" mold blk]
 probe #"4" = val
]
print [m "result" mold head res]

print "nested remove block, practical use?"
blk: [1 2 3 4 5 6]
remove-each val blk[
 print "-"
 remove-each val2 blk[
  print["inner" 2 '= val 3 '= val2 mold blk]
  val2 = 3
 ]
 val = 2
]
print ["res=" mold blk]

print "nested remove string, practical use?"
blk: "123456"
remove-each val blk[
 print "-"
 remove-each val2 blk[
  print["inner" #"2" '= val #"3" '= val2 mold blk]
  val2 = #"3"
 ]
 val = #"2"
]
print ["res=" mold blk]

print "^/nested remove string, practical use?"
blk: "123456"
remove-each val blk[
 print "-"
 remove-each val2 blk[
  print["inner" #"2" '= val #"3" '= val2 mold blk]
  val2 = #"3"
 ]
 val = #"2"
]
print ["res=" mold blk]