Skip to content

Instantly share code, notes, and snippets.

@takikawa

takikawa/gist:3626051

Created September 4, 2012 20:25
Show Gist options
  • Save takikawa/3626051 to your computer and use it in GitHub Desktop.
Save takikawa/3626051 to your computer and use it in GitHub Desktop.
Download ZIP
thread default abort handler
Raw
gistfile1.rkt
#lang racket
(thread
(lambda ()
(displayln "hi")
(dynamic-wind
void
(lambda ()
(abort-current-continuation
(default-continuation-prompt-tag) 5))
(lambda () (displayln "post")))
(displayln "bye")))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment