Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!bloom-beacon!POLYA.STANFORD.EDU!shap
From: shap@POLYA.STANFORD.EDU (Jonathan S. Shapiro)
Newsgroups: comp.lang.scheme
Subject: My force example
Message-ID: <8904072211.AA23851@polya.Stanford.EDU>
Date: 7 Apr 89 22:11:41 GMT
Sender: daemon@bloom-beacon.MIT.EDU
Organization: The Internet
Lines: 14

Should have read

	   (define escape^ )
	   (set! expr (delay (if get-out (escape^ #f) #t)))
	   (call/cc (lambda (cont)
		      (set! escape^ cont)
		      (set! get-out #t)
		      (force expr)))
	   (set! get-out #f)
	   (force expr)

Apologies for the inconvenience of redistribution...

Jon