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

Cleanup error message on invalid type

Browse source
This commit is contained in:
Justin Ethier 2020-08-17 18:15:44 -04:00
parent ed167c71c1
commit 36b9489507
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

@ -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