mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

run the elisp test with a larger stack limit

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2008-10-16 13:58:59 +02:00
parent cc588f740f
commit 62f803617e
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test-suite/tests/elisp.test
View file

@ -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