title: call/cc implementation?
body: <p>I'm trying to find how call/cc is implemented. The best I've found is this Haskell snippet:</p>
  
  <pre><code>callCC f = Cont $ \k -&gt; runCont (f (\a -&gt; Cont $ \_ -&gt; k a)) k
  </code></pre>
  
  <p>Although this is not as simple as I want due to the <code>Cont</code> and <code>runCont</code>. I've also found descriptions of what it does, although never as clear as actual code.</p>
  
  <p>So how is it implemented in its simplest form? I am tagging this with Scheme and Haskell as those are two languages I prefer.</p>