diff --git a/collects/scribblings/inside/misc.scrbl b/collects/scribblings/inside/misc.scrbl index 79a9b49c79..cb63f087c9 100644 --- a/collects/scribblings/inside/misc.scrbl +++ b/collects/scribblings/inside/misc.scrbl @@ -340,7 +340,7 @@ Returns the string that is used as the Racket startup banner.} Returns a string for the executing version of Racket.} -@function[(Scheme_Object* scheme_get_place_table)]{ +@function[(Scheme_Hash_Table* scheme_get_place_table)]{ Returns an @racket[eq?]-based hash table that is global to the current @|tech-place|. diff --git a/src/racket/src/schemef.h b/src/racket/src/schemef.h index dd07709ee0..040b4bd845 100644 --- a/src/racket/src/schemef.h +++ b/src/racket/src/schemef.h @@ -1150,7 +1150,7 @@ MZ_EXTERN intptr_t scheme_char_strlen(const mzchar *s); MZ_EXTERN Scheme_Object *scheme_stx_extract_marks(Scheme_Object *stx); -MZ_EXTERN Scheme_Object *scheme_get_place_table(void); +MZ_EXTERN Scheme_Hash_Table *scheme_get_place_table(void); MZ_EXTERN void *scheme_register_process_global(const char *key, void *val); MZ_EXTERN Scheme_Object *scheme_malloc_key(void); diff --git a/src/racket/src/schemex.h b/src/racket/src/schemex.h index 6d808dcb9f..a3d19fef02 100644 --- a/src/racket/src/schemex.h +++ b/src/racket/src/schemex.h @@ -932,7 +932,7 @@ void (*scheme_signal_received_at)(void *); void *(*scheme_get_signal_handle)(); intptr_t (*scheme_char_strlen)(const mzchar *s); Scheme_Object *(*scheme_stx_extract_marks)(Scheme_Object *stx); -Scheme_Object *(*scheme_get_place_table)(void); +Scheme_Hash_Table *(*scheme_get_place_table)(void); void *(*scheme_register_process_global)(const char *key, void *val); Scheme_Object *(*scheme_malloc_key)(void); void (*scheme_free_key)(Scheme_Object *k); diff --git a/src/racket/src/thread.c b/src/racket/src/thread.c index 1a5916656d..0d52231b11 100644 --- a/src/racket/src/thread.c +++ b/src/racket/src/thread.c @@ -2333,11 +2333,11 @@ void scheme_init_process_globals(void) #endif } -Scheme_Object *scheme_get_place_table(void) +Scheme_Hash_Table *scheme_get_place_table(void) { if (!place_local_misc_table) place_local_misc_table = scheme_make_hash_table(SCHEME_hash_ptr); - return (Scheme_Object *)place_local_misc_table; + return place_local_misc_table; } /*========================================================================*/