Path: utzoo!mnetor!uunet!lll-winken!lll-lcc!ames!aurora!labrea!agate!ucbvax!THEORY.LCS.MIT.EDU!bard
From: bard@THEORY.LCS.MIT.EDU (Bard Bloom)
Newsgroups: comp.lang.scheme
Subject: !
Message-ID: <8802090251.AA01964@RAVEN.LCS.MIT.EDU>
Date: 9 Feb 88 02:51:32 GMT
References: <323426.880208.JAR@AI.AI.MIT.EDU>
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 25


   Date: Mon,  8 Feb 88 17:44:38 EST
   From: Alan@AI.AI.MIT.EDU
   Sender: JAR@AI.AI.MIT.EDU

   (define (make-cell)
     (call-with-current-continuation
       (lambda (return-from-make-cell)
	 (letrec ((state
		    (call-with-current-continuation
		      (lambda (return-new-state)
			(return-from-make-cell
			  (lambda (op)
			    (case op
			      ((set)
			       (lambda (value)
				 (call-with-current-continuation
				   (lambda (return-from-access)
				     (return-new-state
				       (list value return-from-access))))))
			      ((get) (car state)))))))))
	   ((cadr state) 'done)))))



What the hey is this?