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

Fix slot-ref

Browse source
This commit is contained in:
Justin Ethier 2018-02-01 13:25:19 -05:00
parent f3d2cd8176
commit 1d91ace450
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scheme/base.sld
View file

@ -1806,9 +1806,12 @@
(let ((vec obj)) ;; TODO: get actual slots from obj
(vector-set! (vector-ref vec 2) idx val)))
(define (slot-ref name obj field)
;; TODO: type check
;; TODO: support field as number or symbol
(vector-ref (vector-ref obj 2) field))
(let* ((idx (cond
((symbol? field)
(type-slot-offset name field))
(else
field)))) ;; Assumes field is a number
(vector-ref (vector-ref obj 2) idx)))
(define (make-getter sym name idx)
(lambda (obj)
(vector-ref (vector-ref obj 2) idx)))