[comp.lang.smalltalk] Smalltalk/V for PM V1.0 bug fixes & enhancements Part 4

cowan@marob.masa.com (John Cowan) (07/27/90)

" Purpose of CATCH.ST - provide a catch method for
OneArgumentBlocks. See method comment."

! OneArgumentBlock methods !
catch
        "Evaluate the receiver.  The receiver is given
        a single argument, which can be evaluated
        at any time.  If the argument is evaluated
        with value:, the receiver is immediately exited
        with the specified value."
    ^self value: [:return | ^return]! !

-- 
cowan@marob.masa.com			(aka ...!hombre!marob!cowan)
			e'osai ko sarji la lojban