root/trunk/orca/tests/working/parse3.r

Revision 1, 231 bytes (checked in by krobillard, 3 years ago)

Import orca & thune.

Line 
1REBOL []
2
3todo: done: part: 0
4
5t: {  [X]   ==}
6
7probe parse/all t [
8      to "[ ]" (print 1 todo: todo + 1)
9    | to "[/]" (print 2 part: part + 1)
10    | to "[X]" (print 3 done: done + 1)
11    | to "[f]" (print 4 done: done + 1)
12]
13
Note: See TracBrowser for help on using the browser.