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

Allow module to compile

Browse source
This commit is contained in:
Justin Ethier 2015-12-20 00:31:50 -05:00
parent 00210623d7
commit aad3cebd7a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/base.sld
View file

@ -9,7 +9,7 @@
thread-specific-set! thread-specific-set!
thread-start! thread-start!
thread-yield! thread-yield!
thread-terminate! ; thread-terminate!
;; END threads ;; END threads
; TODO: need filter for the next two. also, they really belong in SRFI-1, not here ; TODO: need filter for the next two. also, they really belong in SRFI-1, not here
;delete ;delete
@ -685,6 +685,6 @@
(mutator-id (Cyc-spawn-thread! thunk))) (mutator-id (Cyc-spawn-thread! thunk)))
(vector-set! t 2 mutator-id))) (vector-set! t 2 mutator-id)))
(define (thread-yield!) (thread-sleep! 1)) (define (thread-yield!) (thread-sleep! 1))
(define (thread-terminate!) (Cyc-end-thread!)) ; (define (thread-terminate!) (Cyc-end-thread!))
;; TODO: thread-join! ;; TODO: thread-join!
)) ))