Skip to content

Commit

Permalink
Fixes to prop:rename-transformer
Browse files Browse the repository at this point in the history
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.
  • Loading branch information
takikawa authored and mflatt committed Aug 25, 2015
1 parent d86ccb1 commit fadcb78
Showing 1 changed file with 1 addition and 2 deletions.
3 changes: 1 addition & 2 deletions racket/src/racket/src/struct.c
Original file line number Diff line number Diff line change
Expand Up @@ -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)) {
Expand All @@ -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);
}

Expand Down

0 comments on commit fadcb78

Please sign in to comment.