;;;; simple-thread-test.scm


(import chicken.random srfi-18)


(define (spin)
  (do ((i 0 (add1 i)))
      ((>= i 10))
    (print (current-thread) " sleeps ...")
    (thread-sleep! (pseudo-random-integer 3)))
  (print (current-thread) " finished."))

(print "simple-thread-test.scm")
(thread-start! spin)
(thread-start! spin)
(spin)
(print (current-thread) " waits ...")
(thread-sleep! 3)
(print "end.")