r21538 - gnucash/trunk/src/scm - Set maxdepth debug option only in guile 1.8 and before

[Geert Janssens]

Author: gjanssens
Date: 2011-11-08 16:31:14 -0500 (Tue, 08 Nov 2011)
New Revision: 21538
Trac: http://svn.gnucash.org/trac/changeset/21538

Modified:
   gnucash/trunk/src/scm/main.scm
Log:
Set maxdepth debug option only in guile 1.8 and before
This parameter no longer exists in guile 2.0

Modified: gnucash/trunk/src/scm/main.scm
===================================================================
--- gnucash/trunk/src/scm/main.scm	2011-11-08 19:07:23 UTC (rev 21537)
+++ gnucash/trunk/src/scm/main.scm	2011-11-08 21:31:14 UTC (rev 21538)
@@ -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))