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

Avoid computing (length args) twice

Browse source
This commit is contained in:
Justin Ethier 2019-11-06 12:07:42 -05:00
parent 92bc0b6bdc
commit 838240fceb
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/base.sld
View file

@ -1864,7 +1864,7 @@
(lambda args
(let* ((field-tags (vector-ref name 2))
(field-values (list->vector args)))
(when (not (equal? (length field-tags) (length args)))
(when (not (equal? (length field-tags) (vector-length field-values)))
(error "invalid number of arguments passed to record type constructor" args))
(vector record-marker name field-values))))
(define (type-slot-offset name sym)