From ed1bf2c85c9db33512cea48e0aac14854c70fab7 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Thu, 10 Dec 2009 20:26:13 +0100
Subject: [PATCH] if we have no eval.go, load no .go

* libguile/load.c (scm_init_eval_in_scheme): If we have no eval.go, null
  out the load-compiled path so that we load no compiled code. Prevents
  partially compiled Guile from turning tail-calls into stack-munching
  calls.
---
 libguile/load.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/libguile/load.c b/libguile/load.c
index c150030b1..83fb35340 100644
--- a/libguile/load.c
+++ b/libguile/load.c
@@ -851,6 +851,9 @@ scm_init_eval_in_scheme (void)
   if (scm_is_true (eval_scm) && scm_is_true (eval_go)
       && compiled_is_fresh (eval_scm, eval_go))
     scm_load_compiled_with_vm (eval_go);
+  else
+    /* if we have no eval.go, we shouldn't load any compiled code at all */
+    *scm_loc_load_compiled_path = SCM_EOL;
 }