O'k! I am unshure how in this case the works 'err! Is the refinement /local err is for generating error messages?
brgds Janeks On 17 Mar 2005 at 22:18, Anton Rolls wrote: > > Hmm.. If you needed to do that several times within the > repend block, then I would make a nice function to help. > DEFAULT was somebody else's idea, I think it went > something like this: > > default: func [ > code [block!] fault [block!] > /local err > ][ > either error? set/any 'err try code fault [err] > ] > > Examples: > > default [join "apples" "pears"]["no good"] > ;== "applespears" > > default [join "apples" "pears" / 0]["no good"] > ;== "no good" > > repend result [ > default [ > read aDirectory/:fileName/:chapter-info > ][ > join "Couldn't read: " copy/part fileName back tail fileName > ] > ... > ] > > Anton. > > > What if I want to place under repend result [ ] > > following statement: > > > > if error? try [ > > repend result read to-file join aDirectory join fileName > > form chapter- > > info > > ][ > > repend result copy/part fileName back tail fileName > > ] > > > > is it possible only with: > > > > either error? try [ > > read to-file join aDirectory join fileName form chapter-info > > ][ > > copy/part fileName back tail fileName > > ][ > > read to-file join aDirectory join fileName form chapter-info > > ] > > > > ? > > > > Janeks > > -- > To unsubscribe from the list, just send an email to > lists at rebol.com with unsubscribe as the subject. > -- To unsubscribe from the list, just send an email to lists at rebol.com with unsubscribe as the subject.
