From 31abed7557df15283a04407b7e4004ca84a59ac3 Mon Sep 17 00:00:00 2001
From: Dave Peticolas <dave@krondo.com>
Date: Mon, 9 Apr 2001 06:07:07 +0000
Subject: [PATCH] 	* src/scm/report/taxtxf.scm: don't use deprecated
 calls

	* src/guile/gnc.gwp: wrap xaccAccountGetSplitList

	* src/engine/Query-xml-parser-v1.c
	(qrestore_datepred_start_handler): use g_new0 instead of bzero --
	more portable


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@3910 57a11ea4-9604-0410-9ed3-97b8803252fd
---
 ChangeLog                          |  4 ++++
 src/engine/sixtp-xml-write-utils.c |  2 +-
 src/scm/report/taxtxf.scm          | 14 +++-----------
 3 files changed, 8 insertions(+), 12 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index ef8718b7d2..f2c9a4f650 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2001-04-08  Dave Peticolas  <dave@krondo.com>
 
+	* src/scm/report/taxtxf.scm: don't use deprecated calls
+
+	* src/guile/gnc.gwp: wrap xaccAccountGetSplitList
+
 	* src/engine/Query-xml-parser-v1.c
 	(qrestore_datepred_start_handler): use g_new0 instead of bzero --
 	more portable
diff --git a/src/engine/sixtp-xml-write-utils.c b/src/engine/sixtp-xml-write-utils.c
index a54d80f164..c48c9117ac 100644
--- a/src/engine/sixtp-xml-write-utils.c
+++ b/src/engine/sixtp-xml-write-utils.c
@@ -21,7 +21,7 @@
  *                                                                  *
  ********************************************************************/
 
-#include <config.h>
+#include "config.h"
 
 #define _GNU_SOURCE
 
diff --git a/src/scm/report/taxtxf.scm b/src/scm/report/taxtxf.scm
index 2dcaf67cd2..d68df79630 100644
--- a/src/scm/report/taxtxf.scm
+++ b/src/scm/report/taxtxf.scm
@@ -47,17 +47,9 @@
 
   ;; This and the next function are the same as in transaction-report.scm
   (define (make-split-list account split-filter-pred)
-    (let ((num-splits (gnc:account-get-split-count account)))
-      (let loop ((index 0)
-                 (split (gnc:account-get-split account 0))
-                 (slist '()))
-        (if (= index num-splits)
-            (reverse slist)
-            (loop (+ index 1)
-                  (gnc:account-get-split account (+ index 1))
-                  (if (split-filter-pred split)
-                      (cons split slist)
-                      slist))))))
+    (filter split-filter-pred
+            (gnc:glist->list (gnc:account-get-split-list account)
+                             <gnc:Split*>)))
 
   ;; returns a predicate that returns true only if a split is
   ;; between early-date and late-date