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

fix chaperone bug in `checked-procedure-check-and-extract'

Browse Source
This commit is contained in:
Matthew Flatt 2010-12-01 11:10:38 -07:00
parent 082515d6db
commit 391adfcd3a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1754,7 +1754,8 @@ Scheme_Object *scheme_extract_checked_procedure(int argc, Scheme_Object **argv)
return NULL; return NULL;
} }
if (SCHEME_CHAPERONE_STRUCTP(v) && scheme_is_struct_instance((Scheme_Object *)stype, v)) { /* let chaperones use the slow path, for now */
if (SCHEME_STRUCTP(v) && scheme_is_struct_instance((Scheme_Object *)stype, v)) {
checker = ((Scheme_Structure *)v)->slots[0]; checker = ((Scheme_Structure *)v)->slots[0];
proc = ((Scheme_Structure *)v)->slots[1]; proc = ((Scheme_Structure *)v)->slots[1];