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

Fixes to prop:rename-transformer

Browse Source 
The error message for the guard used an incorrect contract.
Also removed an unused line that allows a box value in the
property. I don't think it was possible to trigger this line
anyway because of the dynamic check.
This commit is contained in:
Asumu Takikawa 2015-08-18 21:12:07 -04:00 committed by Matthew Flatt
parent d86ccb1330
commit fadcb78ffa
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1875,7 +1875,6 @@ Scheme_Object *scheme_rename_transformer_id(Scheme_Object *o)
if (SCHEME_CHAPERONE_STRUCTP(o)) {
Scheme_Object *v;
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_struct_ref(o, SCHEME_INT_VAL(v));
if (!is_stx_id(v)) {
@ -1891,7 +1890,7 @@ static Scheme_Object *check_rename_transformer_property_value_ok(int argc, Schem
{
return check_indirect_property_value_ok("guard-for-prop:rename-transformer",
is_stx_id, 0,
"(or/c exact-nonnegative-integer? (boxof exact-nonnegative-integer?))",
"(or/c exact-nonnegative-integer? identifier?)",
argc, argv);
}