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

Merge branch 'master' of github.com:justinethier/cyclone

Browse source
This commit is contained in:
Justin Ethier 2020-08-18 22:14:24 -04:00
commit e257b009c4
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
CHANGELOG.md
View file

@ -1,5 +1,11 @@
# Changelog # Changelog
## 0.21 - TBD
Bug Fixes
- Add type checking to record type accessor functions. We now raise an error if the passed object is of the wrong record type.
## 0.20 - August 14, 2020 ## 0.20 - August 14, 2020
Features Features

4
scheme/base.sld
View file

@ -2005,12 +2005,12 @@
(lambda (obj) (lambda (obj)
(if (eq? (vector-ref obj 1) name) (if (eq? (vector-ref obj 1) name)
(vector-ref (vector-ref obj 2) idx) (vector-ref (vector-ref obj 2) idx)
(error "Invalid type" obj "expected" name)))) (error "Invalid type" obj 'expected name))))
(define (make-setter sym name idx) (define (make-setter sym name idx)
(lambda (obj val) (lambda (obj val)
(if (eq? (vector-ref obj 1) name) (if (eq? (vector-ref obj 1) name)
(vector-set! (vector-ref obj 2) idx val) (vector-set! (vector-ref obj 2) idx val)
(error "Invalid type" obj "expected" name)))) (error "Invalid type" obj 'expected name))))
;; Find index of element in list, or #f if not found ;; Find index of element in list, or #f if not found
(define _list-index (define _list-index