Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-18 21:29:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove damn quasi-quote, do more work

Browse source
This commit is contained in:
Justin Ethier 2016-01-16 22:19:30 -05:00
parent 079c6f4390
commit 308d1ce206
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
examples/threading/producer-consumer.scm
View file

@ -15,10 +15,11 @@
(define *queue* (->heap (list)))
(define (producer)
(let loop ((n 10))
(let loop ((n 100))
(cond
((> n 0)
(mutex-lock! *lock*)
(write (cons 'a *queue*))
(set! *queue* (->heap (cons (->heap n) *queue*)))
(mutex-unlock! *lock*)
(loop (- n 1)))
@ -39,7 +40,7 @@
;; - try compiling this but commenting out the Cyc_mutex_lock
;; code in the C. there is a gc_move bag tag error at runtime
;; also get the same result by using read-char below... WTF?
(read-char) ;(mutex-lock! *lock*)`
(mutex-lock! *lock*)
(cond
((not (null? *queue*))
(write (car *queue*))
@ -52,7 +53,9 @@
(loop)
))
;(thread-start! (make-thread producer))
;(producer)
(thread-start! (make-thread producer))
(thread-start! (make-thread producer))
(thread-start! (make-thread producer))
(producer)
(consumer)
;(read)