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

schemify: repair after adding 'source-name property

Browse Source
This commit is contained in:
Matthew Flatt 2018-10-05 20:53:02 -06:00
parent 64e12d8965
commit b57b9be2f8
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/schemify/interpret.rkt
View File

@ -170,7 +170,7 @@
(compile-assignment id rhs env stack-depth)]
[`(define-values ,ids ,rhs)
(define gen-ids (for/list ([id (in-list ids)])
(gensym id)))
(gensym (unwrap id))))
(compile-expr `(call-with-values (lambda () ,rhs)
(lambda ,gen-ids
,@(if (null? ids)

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

@ -297,7 +297,7 @@
;; of `make-struct-type`:
(simple-mutated-state? (hash-ref mutated (unwrap struct:) #f)))
(define can-impersonate? (not (struct-type-info-authentic? sti)))
(define raw-s? (if can-impersonate? (gensym s?) s?))
(define raw-s? (if can-impersonate? (gensym (unwrap s?)) s?))
`(begin
(define ,struct:s (make-record-type-descriptor ',(struct-type-info-name sti)
,(schemify (struct-type-info-parent sti))
@ -333,7 +333,7 @@
null)
,@(for/list ([acc/mut (in-list acc/muts)]
[make-acc/mut (in-list make-acc/muts)])
(define raw-acc/mut (if can-impersonate? (gensym acc/mut) acc/mut))
(define raw-acc/mut (if can-impersonate? (gensym (unwrap acc/mut)) acc/mut))
(match make-acc/mut
[`(make-struct-field-accessor ,(? (lambda (v) (wrap-eq? v -ref))) ,pos ,_)
(define raw-def `(define ,raw-acc/mut (record-accessor ,struct:s ,pos)))