Skip to content

Instantly share code, notes, and snippets.

@takikawa

takikawa/gist:3217754

Created July 31, 2012 15:19
Show Gist options
  • Save takikawa/3217754 to your computer and use it in GitHub Desktop.
Save takikawa/3217754 to your computer and use it in GitHub Desktop.
Download ZIP
call/ec
Raw
gistfile1.rkt
#lang racket
(define pt (make-continuation-prompt-tag))
(+ 5
(call-with-continuation-prompt
(lambda ()
(call-with-continuation-barrier
(lambda ()
(call/ec
(lambda (k)
(k "foo"))))))
pt
(lambda args 5)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment