suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: fix local struct for interpreter mode

Browse Source 
Keep in `make-struct-type` form for performance and to get names right.
This commit is contained in:
Matthew Flatt 2019-12-22 06:08:52 -07:00
parent 8a4f21c7c8
commit 73ed7141aa
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/src/schemify/schemify.rkt
View File

@ -506,9 +506,10 @@
[`(let-values ([() (begin ,rhss ... (values))]) ,bodys ...) [`(let-values ([() (begin ,rhss ... (values))]) ,bodys ...)
`(begin ,@(schemify-body rhss 'fresh) ,@(schemify-body bodys wcm-state))] `(begin ,@(schemify-body rhss 'fresh) ,@(schemify-body bodys wcm-state))]
[`(let-values ([,idss ,rhss] ...) ,bodys ...) [`(let-values ([,idss ,rhss] ...) ,bodys ...)
(or (struct-convert-local v prim-knowns knowns imports mutated simples (or (and (not (or for-interp? for-cify?))
(struct-convert-local v prim-knowns knowns imports mutated simples
(lambda (v knowns) (schemify/knowns knowns inline-fuel 'fresh v)) (lambda (v knowns) (schemify/knowns knowns inline-fuel 'fresh v))
#:unsafe-mode? unsafe-mode?) #:unsafe-mode? unsafe-mode?))
(left-to-right/let-values idss (left-to-right/let-values idss
(for/list ([rhs (in-list rhss)]) (for/list ([rhs (in-list rhss)])
(schemify rhs 'fresh)) (schemify rhs 'fresh))