Robert Graham Merkel's patch for g-wrap 0.9.4.

Bump up the guile stack limit.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2536 57a11ea4-9604-0410-9ed3-97b8803252fd

ChangeLog

@@ -1,11 +1,19 @@
 2000-07-04  Dave Peticolas  <dave@krondo.com>
 
+	* src/scm/bootstrap.scm.in: bump up the stack limit
+
 	* src/engine/date.c (xaccValidateDate): move this function from
 	src/register/datecell.c to here, so it can be used elsewhere.
 
 	* src/gnome/gnc-dateedit.c: make the widget respond to the same
 	accelerators as the register date cell.
 
+2000-07-03  Robert Graham Merkel  <rgmerk@mira.net>
+
+	* src/scm/c-interface.scm: Added scheme definition for
+	pointer-token-null? if not already defined by g-wrap. Fixes bug
+	when compiling with g-wrap >= 0.9.4.
+
 2000-06-28  Dave Peticolas  <dave@krondo.com>
 
 	* src/gnome/dialog-budget.c (entry_down_button_clicked): bug fix.

src/scm/bootstrap.scm.in

@@ -111,6 +111,9 @@
 (debug-enable 'debug)
 (read-enable 'positions)
 
+(debug-set! maxdepth 100000)
+(debug-set! stack    2000000)
+
 (gnc:setup-debugging)
 
 

src/scm/c-interface.scm

@@ -17,6 +17,12 @@
 
 (require 'hash-table)
 
+
+;; Provides pointer-token-null? if needed (g-wrap >= 0.9.4 doesn't provide)
+(if (not (defined? 'pointer-token-null?))
+   (define (pointer-token-null? ptr)
+     (eq? ptr #f)))
+
 (define (gnc:error->string tag args)
   (define (write-error port)
     (if (and (list? args) (not (null? args)))