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

Faster constructor for record types

Browse source 
TODO: validate number of args passed to record type constructor
This commit is contained in:
Justin Ethier 2019-11-06 13:30:36 -05:00
parent 26b426c307
commit 734d40a44d
1 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
scheme/base.sld
View file

@ -1957,19 +1957,19 @@
(,_type_slot_offset ,name ',(car f))))))
fields)
;; constructor
(,_define ,make
(,_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))))
; (,_let ((%make (,(rename 'make-constructor/args)
; ,(symbol->string make) ;(identifier->symbol make))
; ,name)))
; (,_lambda ,make-fields
; (%make ,@make-fields))))
; Alternate version that inlines make-constructor/args
(,_define ,make
(,_lambda ,make-fields
(,(rename 'vector)
',record-marker
,name
(,(rename 'vector)
,@make-fields))))
)))))
))