unbreak no-places, no-futures build

This commit is contained in:
Matthew Flatt 2015-10-17 07:00:37 -06:00
parent c50c23c134
commit e803a3c15e
2 changed files with 2 additions and 0 deletions

View File

@ -6150,6 +6150,7 @@ static void mark_pruned_prefixes(struct NewGC *gc) XFORM_SKIP_PROC
cl->vals[closure_size-1] = (Scheme_Object *)pf;
} else {
MZ_ASSERT(0);
next = NULL;
}
clo = (Scheme_Object *)GC_resolve2(next, gc);
}

View File

@ -183,6 +183,7 @@ 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);
THREAD_LOCAL_DECL(extern struct Scheme_Prefix *scheme_inc_prefix_finalize);
int scheme_num_types(void);