Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 04:55:04 +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

24
scheme/base.sld
View file

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