Skip to content

Instantly share code, notes, and snippets.

@cryks

cryks/segv2.scm

Created May 31, 2012 16:14
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save cryks/2844488 to your computer and use it in GitHub Desktop.
Save cryks/2844488 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
segv2.scm
(use control.thread-pool)
(use gauche.threads)
(let ([t (thread-start! (make-thread (cut undefined)))]
[pool (make-thread-pool 10)])
(terminate-all! pool)
(thread-terminate! t))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment