fix return type of scheme_get_place_table()
This commit is contained in:
parent
a613e81fcd
commit
343568fd84
|
@ -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|.
|
||||
|
|
|
@ -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);
|
||||
|
|
|
@ -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);
|
||||
|
|
|
@ -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;
|
||||
}
|
||||
|
||||
/*========================================================================*/
|
||||
|
|
Loading…
Reference in New Issue
Block a user