Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

dispatch waits by joining the dispatcher thread for the given ID (tha…

…nks to Hugo Arregui), release 0.5
  • Loading branch information...
commit 527114ceeaf69e9be6ce0b8a43be850511bfba1a 1 parent 438d793
@bunny351 bunny351 authored
View
6 cncb.scm
@@ -64,7 +64,7 @@
(define (dispatcher id)
(let ((box (list #f)))
- (define (dthread) (make-thread (cut dispatch-loop box)))
+ (define (dthread) (make-thread (cut dispatch-loop box) id))
(or (hash-table-ref/default dispatcher-table id #f)
(let ((disp (create-dispatcher id (dthread))))
(set-car! box disp)
@@ -72,9 +72,7 @@
disp))))
(define (dispatch #!optional (id 'default))
- (let-values (((in1 out1) (create-pipe))
- ((in2 out2) (create-pipe)))
- (dispatch-loop (list (make-dispatcher id (current-thread) '() in1 out1 in2 out2)))))
+ (thread-join! (dispatcher-thread (dispatcher id))))
(define (dispatcher-add! disp name cb)
(dispatcher-callbacks-set!
View
1  concurrent-native-callbacks.release-info
@@ -4,3 +4,4 @@
(release "0.2")
(release "0.3")
(release "0.4")
+(release "0.5")
View
2  concurrent-native-callbacks.setup
@@ -8,4 +8,4 @@
"concurrent-native-callbacks.import.so"
"concurrent-native-callbacks-compile-time.so"
"concurrent-native-callbacks-compile-time.import.so")
- '((version 0.4)))
+ '((version 0.5)))
Please sign in to comment.
Something went wrong with that request. Please try again.