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

WIP

Browse source
This commit is contained in:
Justin Ethier 2016-01-16 22:51:14 -05:00
parent 308d1ce206
commit fef18d014a
1 changed files with 2 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -30,13 +30,7 @@
(let loop () (let loop ()
;(write (list (null? *queue*) *queue*)) ;(write (list (null? *queue*) *queue*))
(define sleep? #f) (define sleep? #f)
;; looks like the main issue is a macro expansion problem, because cond never expands below. WTF? ;; issues here:
;; above named let works fine, and this one does too if expressions are removed or re-ordered
;; between the named let and the cond.
;;
;; 2 issues here:
;; - the mutex-lock seems to skip over cond; there is some kind of
;; control flow problem
;; - try compiling this but commenting out the Cyc_mutex_lock ;; - try compiling this but commenting out the Cyc_mutex_lock
;; code in the C. there is a gc_move bag tag error at runtime ;; 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? ;; also get the same result by using read-char below... WTF?
@ -56,6 +50,6 @@
(thread-start! (make-thread producer)) (thread-start! (make-thread producer))
(thread-start! (make-thread producer)) (thread-start! (make-thread producer))
(thread-start! (make-thread producer)) (thread-start! (make-thread producer))
(producer) ;(producer)
(consumer) (consumer)
;(read) ;(read)