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

Implement getter/setter

Browse source
This commit is contained in:
Justin Ethier 2016-02-04 22:45:00 -05:00
parent 4fbd1bf1da
commit 5bb51a851a
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
srfi/9.sld
View file

@ -45,9 +45,11 @@
(let ((vec obj)) ;; TODO: get actual slots from obj (let ((vec obj)) ;; TODO: get actual slots from obj
(vector-set! (vector-ref vec 2) idx val))) (vector-set! (vector-ref vec 2) idx val)))
(define (make-getter sym name idx) (define (make-getter sym name idx)
'TODO) ;; return the getter function (lambda (obj)
(vector-ref (vector-ref obj 2) idx)))
(define (make-setter sym name idx) (define (make-setter sym name idx)
'TODO) ;; return the setter function (lambda (obj val)
(vector-set! (vector-ref obj 2) idx val)))
(define-syntax define-record-type (define-syntax define-record-type
(er-macro-transformer (er-macro-transformer