Hi all,<br><br>I am not sure if the term &quot;current context&quot; is what it should be. Anyway, here is what I like to accomplish:<br><br>(define (suspend func) <br>&nbsp;&nbsp;&nbsp; (call/cc <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (lambda (k)&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (save-k)<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (func)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (exit-current-context))))<br><br>(define (run)<br>&nbsp;&nbsp; (suspend my-func)&nbsp; ;; (run) should return here, as a result of (exit-current-context)<br>&nbsp;&nbsp; ;; When continuation saved by (suspend) is invoked, (run) should resume at (do-something).<br>
&nbsp;&nbsp; (do-something))<br><br>How can I implement (exit-current-context)?? <br><br>Thanks in advance,<br><br>-- Vijay<br>