fix return type of scheme_get_place_table()

This commit is contained in:
Matthew Flatt 2011-05-13 11:15:57 -06:00
parent a613e81fcd
commit 343568fd84
4 changed files with 5 additions and 5 deletions

View File

@ -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|.

View File

@ -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);

View File

@ -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);

View File

@ -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;
}
/*========================================================================*/