Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!yale!cmcl2!phri!marob!cowan
From: cowan@marob.masa.com (John Cowan)
Newsgroups: comp.lang.smalltalk
Subject: Smalltalk/V for PM V1.0 bug fixes & enhancements Part 4
Message-ID: <26B04CD5.4E13@marob.masa.com>
Date: 27 Jul 90 14:16:52 GMT
Sender: cowan@marob.masa.com
Reply-To: cowan@marob.masa.com (John Cowan)
Organization: ESCC,  New York City
Lines: 16


" 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