diff --git a/src/racket/src/eval.c b/src/racket/src/eval.c index 34abd44f37..6190ebce05 100644 --- a/src/racket/src/eval.c +++ b/src/racket/src/eval.c @@ -164,6 +164,7 @@ THREAD_LOCAL_DECL(static Scheme_Object *quick_stx); THREAD_LOCAL_DECL(int scheme_continuation_application_count); THREAD_LOCAL_DECL(static int generate_lifts_count); THREAD_LOCAL_DECL(int scheme_overflow_count); +THREAD_LOCAL_DECL(Scheme_Prefix *scheme_prefix_finalize); int scheme_get_overflow_count() { return scheme_overflow_count; } /* read-only globals */ diff --git a/src/racket/src/schpriv.h b/src/racket/src/schpriv.h index 9f314421d2..56f962112b 100644 --- a/src/racket/src/schpriv.h +++ b/src/racket/src/schpriv.h @@ -106,6 +106,7 @@ THREAD_LOCAL_DECL(extern int scheme_current_place_id); THREAD_LOCAL_DECL(extern intptr_t scheme_total_gc_time); THREAD_LOCAL_DECL(extern int scheme_cont_capture_count); THREAD_LOCAL_DECL(extern int scheme_continuation_application_count); +THREAD_LOCAL_DECL(extern struct Scheme_Prefix *scheme_prefix_finalize); int scheme_num_types(void);