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

fix rename-transformer-target for chaperoned structs

Browse Source
This commit is contained in:
Matthew Flatt 2014-08-11 07:41:47 +01:00
parent 5ef75682d7
commit 2bdb8c1de5
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkgs/racket-pkgs/racket-test/tests/racket/macro.rktl
View File

@ -1126,4 +1126,14 @@
;; ----------------------------------------
(let ()
(struct foo (id)
#:property prop:rename-transformer 0)
(test 'x syntax-e
(rename-transformer-target
(chaperone-struct (foo #'x) foo-id (lambda (f x) x)))))
;; ----------------------------------------
(report-errs)

2
racket/src/racket/src/struct.c
View File

@ -1799,7 +1799,7 @@ Scheme_Object *scheme_rename_transformer_id(Scheme_Object *o)
v = scheme_struct_type_property_ref(rename_transformer_property, o);
if (SCHEME_BOXP(v)) v = SCHEME_BOX_VAL(v);
if (SCHEME_INTP(v)) {
v = ((Scheme_Structure *)o)->slots[SCHEME_INT_VAL(v)];
v = scheme_struct_ref(o, SCHEME_INT_VAL(v));
if (!is_stx_id(v)) {
v = scheme_datum_to_syntax(scheme_intern_symbol("?"), scheme_false, scheme_false, 0, 0);
}