mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-21 22:59:16 +02:00
25 lines
492 B
Scheme
25 lines
492 B
Scheme
;; Simple example demonstrating many threads concurrently writing data to stdout
|
|
(import
|
|
(scheme base)
|
|
(scheme read)
|
|
(scheme write)
|
|
(srfi 18))
|
|
|
|
(define (write-forever val)
|
|
(write val)
|
|
(write-forever val))
|
|
|
|
(define (make-writer val)
|
|
(lambda () (write-forever val)))
|
|
|
|
(thread-start!
|
|
(make-thread
|
|
(make-writer "thread 1")))
|
|
(thread-start!
|
|
(make-thread
|
|
(make-writer 'thread-2)))
|
|
(thread-start!
|
|
(make-thread
|
|
(make-writer 'thread-3)))
|
|
((make-writer 'main))
|
|
;(read)
|