Set maxdepth debug option only in guile 1.8 and before

This parameter no longer exists in guile 2.0

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@21538 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Geert Janssens
2011-11-08 21:31:14 +00:00
parent 3f73ffdb20
commit e234a388a0

View File

@@ -74,7 +74,9 @@
(debug-enable 'backtrace)
(read-enable 'positions)
(debug-set! maxdepth 100000)
;; maxdepth doesn't exist in guile 2 and onwards:
(if (< (string->number (major-version)) 2)
(debug-set! maxdepth 100000))
(debug-set! stack 200000)
;;(use-modules (ice-9 statprof))