From fadcb78ffa719f84453e36d99db2b9cd20ddddce Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Tue, 18 Aug 2015 21:12:07 -0400 Subject: [PATCH] Fixes to prop:rename-transformer 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. --- racket/src/racket/src/struct.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/racket/src/racket/src/struct.c b/racket/src/racket/src/struct.c index 958ce74892..a99eccc902 100644 --- a/racket/src/racket/src/struct.c +++ b/racket/src/racket/src/struct.c @@ -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); }