From 7cb7beae276fe9644b117712d12ff32b58f8aa82 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 30 Dec 2012 10:02:18 -0600
Subject: [PATCH] fix non-JIT build

Fix a reference to a function that is only available when the JIT is
enabled.
---
 src/racket/src/fun.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/racket/src/fun.c b/src/racket/src/fun.c
index 69678a72b2..1e46f822b8 100644
--- a/src/racket/src/fun.c
+++ b/src/racket/src/fun.c
@@ -2407,9 +2407,12 @@ int scheme_closure_preserves_marks(Scheme_Object *p)
   Scheme_Type type = SCHEME_TYPE(p);
   Scheme_Closure_Data *data;
 
+#ifdef MZ_USE_JIT
   if (type == scheme_native_closure_type)
     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);
   } else if (type == scheme_unclosed_procedure_type) {
     data = (Scheme_Closure_Data *)p;