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

fix non-JIT build

Browse Source 
Fix a reference to a function that is only available when the JIT is
enabled.
This commit is contained in:
Matthew Flatt 2012-12-30 10:02:18 -06:00
parent 8b7379a7ad
commit 7cb7beae27
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/racket/src/fun.c
View File

@ -2407,9 +2407,12 @@ int scheme_closure_preserves_marks(Scheme_Object *p)
Scheme_Type type = SCHEME_TYPE(p); Scheme_Type type = SCHEME_TYPE(p);
Scheme_Closure_Data *data; Scheme_Closure_Data *data;
#ifdef MZ_USE_JIT
if (type == scheme_native_closure_type) if (type == scheme_native_closure_type)
return scheme_native_closure_preserves_marks(p); return scheme_native_closure_preserves_marks(p);
else if (type == scheme_closure_type) { #endif
if (type == scheme_closure_type) {
data = SCHEME_COMPILED_CLOS_CODE(p); data = SCHEME_COMPILED_CLOS_CODE(p);
} else if (type == scheme_unclosed_procedure_type) { } else if (type == scheme_unclosed_procedure_type) {
data = (Scheme_Closure_Data *)p; data = (Scheme_Closure_Data *)p;