mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-09 21:40:33 +02:00
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.
This commit is contained in:
parent
cc588f740f
commit
62f803617e
1 changed files with 6 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue