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

Noted TODO

Browse source
This commit is contained in:
Justin Ethier 2015-12-16 23:07:14 -05:00
parent 0e8129f5e6
commit 7c795f1534
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
scheme/base.sld
View file

@ -109,17 +109,19 @@
(> (vector-length obj) 0) (> (vector-length obj) 0)
(equal? 'cyc-thread-obj (vector-ref obj 0)))) (equal? 'cyc-thread-obj (vector-ref obj 0))))
;; TODO: does not compile. I suspect the let is not getting expanded for some reason...
(define (make-thread thunk . name) (define (make-thread thunk . name)
; (let ((name-str (if (pair? name) (let ((name-str (if (pair? name)
; (car name) (car name)
; ""))) "")))
(vector 'cyc-thread-obj thunk #f name-str #f)))
;; Fields supported so far: ;; Fields supported so far:
;; - type marker (implementation-specific) ;; - type marker (implementation-specific)
;; - thunk ;; - thunk
;; - internal thread id (implementation-specific) ;; - internal thread id (implementation-specific)
;; - name ;; - name
;; - specific ;; - specific
(vector 'cyc-thread-obj thunk #f name #f)) ; (vector 'cyc-thread-obj thunk #f name #f))
; (vector 'cyc-thread-obj thunk #f 'name-str #f))) ; (vector 'cyc-thread-obj thunk #f 'name-str #f)))
(define (thread-name t) (vector-ref t 3)) (define (thread-name t) (vector-ref t 3))