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

fix a type name

Browse Source 
Closes PR 12297

Merge to 5.2
This commit is contained in:
Matthew Flatt 2011-10-17 06:55:04 -07:00
parent 7bff0e888d
commit 099e4d7dad
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -300,6 +300,9 @@ scheme_init_type ()
set_name(scheme_place_type, "<place>"); set_name(scheme_place_type, "<place>");
set_name(scheme_place_async_channel_type, "<place-half-channel>"); set_name(scheme_place_async_channel_type, "<place-half-channel>");
set_name(scheme_place_bi_channel_type, "<place-channel>"); set_name(scheme_place_bi_channel_type, "<place-channel>");
set_name(scheme_place_dead_type, "<place-dead-evt>");
set_name(scheme_resolved_module_path_type, "<resolve-module-path>");
#ifdef MZ_GC_BACKTRACE #ifdef MZ_GC_BACKTRACE
set_name(scheme_rt_meta_cont, "<meta-continuation>"); set_name(scheme_rt_meta_cont, "<meta-continuation>");
@ -388,9 +391,14 @@ Scheme_Type scheme_make_type(const char *name)
char *scheme_get_type_name(Scheme_Type t) char *scheme_get_type_name(Scheme_Type t)
{ {
char *s;
if (t < 0 || t >= maxtype) if (t < 0 || t >= maxtype)
return "<bad-value>"; return "<bad-value>";
return type_names[t]; s = type_names[t];
if (!s)
return "???";
else
return s;
} }
void scheme_install_type_reader(Scheme_Type t, Scheme_Type_Reader f) void scheme_install_type_reader(Scheme_Type t, Scheme_Type_Reader f)