From 3b49b428124d668c085134c682c6a0b5008be1a7 Mon Sep 17 00:00:00 2001 From: Derek Atkins Date: Tue, 9 Jul 2002 19:53:35 +0000 Subject: [PATCH] * "global-replace for-each-in-order for-each" because the former does not exist in current guiles. Fixes bugID 87693 git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7104 57a11ea4-9604-0410-9ed3-97b8803252fd --- ChangeLog | 5 +++++ src/import-export/qif-import/qif-dialog-utils.scm | 2 +- src/report/standard-reports/average-balance.scm | 2 +- 3 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 718a897ce0..c5eed3d2b4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2002-07-09 Derek Atkins + + * "global-replace for-each-in-order for-each" because the former + does not exist in current guiles. Fixes bugID 87693 + 2002-07-08 Derek Atkins * kvp-option-registry.scm: create a registry of kvp-options diff --git a/src/import-export/qif-import/qif-dialog-utils.scm b/src/import-export/qif-import/qif-dialog-utils.scm index 745b41788f..f6a957bafc 100644 --- a/src/import-export/qif-import/qif-dialog-utils.scm +++ b/src/import-export/qif-import/qif-dialog-utils.scm @@ -725,7 +725,7 @@ (define (qif-import:refresh-match-selection matches item) (if (> item -1) (let ((i 0)) - (for-each-in-order + (for-each (lambda (match) (if (= i item) (if (cdr match) diff --git a/src/report/standard-reports/average-balance.scm b/src/report/standard-reports/average-balance.scm index 7acefddcd2..7f4d303e85 100644 --- a/src/report/standard-reports/average-balance.scm +++ b/src/report/standard-reports/average-balance.scm @@ -477,7 +477,7 @@ (let ((table (gnc:make-html-table))) (gnc:html-table-set-col-headers! table columns) - (for-each-in-order + (for-each (lambda (row) (gnc:html-table-append-row! table row)) data)