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

REBOL [
    Purpose: {Test 'disarm, 'try, 'catch, & 'throw'.}
]


; Old versions just print ?object?.
; Mold in newer versions print the object values.
print disarm try [do %file_does_not_exist]


f: func [a] [if a > 2 [throw "too big"] "ok" ]
print f 2
print catch [f 2]
print catch [f 3]


f: func [a] [if a > 2 [throw/name "too big" 'big] "ok" ]
print f 2
print catch [f 2]
print catch/name [f 3] 'big

catch [
    print catch/name [f 3] 'some
    print "inner"
]
print "outter"