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

fix printed form of place channels

Browse Source
This commit is contained in:
Matthew Flatt 2011-08-31 06:37:37 -06:00
parent 5978717fa3
commit d75aaa3c0e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/racket/src/type.c
View File

@ -297,12 +297,13 @@ scheme_init_type ()
set_name(_scheme_values_types_, "<resurrected>"); set_name(_scheme_values_types_, "<resurrected>");
set_name(_scheme_compiled_values_types_, "<internal>"); set_name(_scheme_compiled_values_types_, "<internal>");
set_name(scheme_place_type, "<place>");
set_name(scheme_place_async_channel_type, "<place-half-channel>");
set_name(scheme_place_bi_channel_type, "<place-channel>");
#ifdef MZ_GC_BACKTRACE #ifdef MZ_GC_BACKTRACE
set_name(scheme_rt_meta_cont, "<meta-continuation>"); set_name(scheme_rt_meta_cont, "<meta-continuation>");
#endif #endif
set_name(scheme_place_type, "<place>");
set_name(scheme_place_async_channel_type, "<place_async_channel>");
set_name(scheme_place_bi_channel_type, "<place_bidirectional_channel>");
} }
Scheme_Type scheme_make_type(const char *name) Scheme_Type scheme_make_type(const char *name)