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

Revert previous change

Browse source
This commit is contained in:
Justin Ethier 2019-02-27 16:03:19 -05:00
parent 1f8a824bda
commit d9f63a85b4
1 changed files with 16 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
scheme/base.sld
View file

@ -1841,6 +1841,8 @@
(lambda args
(let* ((field-tags (vector-ref name 2))
(field-values (list->vector args)))
(when (not (equal? (length field-tags) (length args)))
(error "invalid number of arguments passed to record type constructor" args))
(vector record-marker name field-values))))
(define (type-slot-offset name sym)
(let ((field-tags (vector-ref name 2)))
@ -1939,10 +1941,18 @@
fields)
;; constructor
(,_define ,make
(,_lambda ,make-fields
(,(rename 'vector)
',record-marker
,name
(,(rename 'vector)
,@make-fields)))))))))
(,_let ((%make (,(rename 'make-constructor/args)
,(symbol->string make) ;(identifier->symbol make))
,name)))
(,_lambda ,make-fields
(%make ,@make-fields))))
; Possible alternate version that inlines make-constructor/args
;(,_define ,make
; (,_lambda ,make-fields
; (,(rename 'vector)
; ',record-marker
; ,name
; (,(rename 'vector)
; ,@make-fields))))
)))))
))