From 62f803617ebe694fe1e9badf2a32e68df4496cb7 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Thu, 16 Oct 2008 13:58:59 +0200
Subject: [PATCH] run the elisp test with a larger stack limit

* test-suite/tests/elisp.test: Enlarge the stack for the duration of the
  elisp test. It's a hack, but it at least allows the test to run with a
  compiled ice-9.
---
 test-suite/tests/elisp.test | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/test-suite/tests/elisp.test b/test-suite/tests/elisp.test
index 067f7b16f..28ec05412 100644
--- a/test-suite/tests/elisp.test
+++ b/test-suite/tests/elisp.test
@@ -19,6 +19,10 @@
   :use-module (test-suite lib)
   :use-module (ice-9 weak-vector))
 
+(define *old-stack-level* (and=> (memq 'stack (debug-options)) cadr))
+(if *old-stack-level*
+    (debug-set! stack (* 2 *old-stack-level*)))
+
 ;;;
 ;;; elisp
 ;;;
@@ -331,4 +335,6 @@
 
       ))
 
+(debug-set! stack *old-stack-level*)
+
 ;;; elisp.test ends here