suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

minor adjustments

Browse Source 
SGC header correction plus extra assert.
This commit is contained in:
Matthew Flatt 2015-07-31 07:32:34 -06:00
parent a1f04604df
commit 1f2e0dacb3
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/racket/sgc/sgc.h
View File

@ -20,8 +20,8 @@ extern "C" {
SGC_EXTERN void GC_add_roots(void *start, void *end);
SGC_EXTERN void (*GC_start_collect_callback)(void);
SGC_EXTERN void (*GC_end_collect_callback)(void);
SGC_EXTERN void (*GC_collect_start_callback)(void);
SGC_EXTERN void (*GC_collect_end_callback)(void);
SGC_EXTERN void (*GC_custom_finalize)(void);
SGC_EXTERN void (*GC_out_of_memory)(void);

1
racket/src/racket/src/syntax.c
View File

@ -3911,6 +3911,7 @@ Scheme_Object *scheme_stx_lookup_w_nominal(Scheme_Object *o, Scheme_Object *phas
int cache_pos;
STX_ASSERT(SCHEME_STXP(o));
STX_ASSERT(nominal_name || (!src_phase && !nominal_src_phase));
orig_name = SCHEME_STX_VAL(o);