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

fix GC registration for scheme_unsafe_poller_proc

Browse Source
This commit is contained in:
Matthew Flatt 2019-07-21 16:27:31 -06:00
parent 23cb7c6a1a
commit 91f5ec3c9b
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -306,6 +306,7 @@ scheme_init_struct (Scheme_Startup_Env *env)
/* Add poller structure: */
REGISTER_SO(poller_struct);
poller_struct = scheme_make_struct_type_from_string("unsafe-poller", NULL, 1, NULL, NULL, 1);
REGISTER_SO(scheme_unsafe_poller_proc);
scheme_unsafe_poller_proc = make_struct_proc((Scheme_Struct_Type *)poller_struct, "unsafe-poller", SCHEME_CONSTR, 1);
REGISTER_SO(write_property);