!

[Bard Bloom <bard@THEORY.LCS.MIT.EDU>]

   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?