[Gnucash-changes] r13456 - gnucash/trunk/src - Remove two slightly different definitions of

[Chris Shoemaker]

Author: chris
Date: 2006-03-03 19:08:16 -0500 (Fri, 03 Mar 2006)
New Revision: 13456
Trac: http://svn.gnucash.org/trac/changeset/13456

Modified:
   gnucash/trunk/src/engine/engine-utilities.scm
   gnucash/trunk/src/engine/engine.scm
   gnucash/trunk/src/engine/gw-engine-spec.scm
   gnucash/trunk/src/report/report-system/report-utilities.scm
Log:
   Remove two slightly different definitions of
   gnc:transaction-map-splits, both unused.
   Remove g-wrapped versions of functions being removed:
      gnc:account-fix-split-date-order,
      gnc:trans-fix-split-date-order



Modified: gnucash/trunk/src/engine/engine-utilities.scm
===================================================================
--- gnucash/trunk/src/engine/engine-utilities.scm	2006-03-03 23:40:43 UTC (rev 13455)
+++ gnucash/trunk/src/engine/engine-utilities.scm	2006-03-04 00:08:16 UTC (rev 13456)
@@ -39,15 +39,6 @@
     (or result
         (begin (gnc:session-destroy session) #f))))
 
-(define (gnc:transaction-map-splits thunk transaction)
-  (let ((retval '()))
-    (let loop ((splits (or (gnc:transaction-get-splits transaction) '())))
-      (if (not (null? splits))
-          (begin 
-            (set! retval (cons (thunk (car splits)) retval))
-            (loop (cdr splits)))))
-    (reverse retval)))
-
 (define (gnc:group-map-all-accounts thunk group)
   (let ((accounts (or (gnc:group-get-subaccounts group) '())))
     (map thunk accounts)))

Modified: gnucash/trunk/src/engine/engine.scm
===================================================================
--- gnucash/trunk/src/engine/engine.scm	2006-03-03 23:40:43 UTC (rev 13455)
+++ gnucash/trunk/src/engine/engine.scm	2006-03-04 00:08:16 UTC (rev 13456)
@@ -45,7 +45,6 @@
 (export gnc:commodity-is-currency?)
 
 (export gnc:url->loaded-session)
-(export gnc:transaction-map-splits)
 (export gnc:group-map-all-accounts)
 (export gnc:group-map-accounts)
 

Modified: gnucash/trunk/src/engine/gw-engine-spec.scm
===================================================================
--- gnucash/trunk/src/engine/gw-engine-spec.scm	2006-03-03 23:40:43 UTC (rev 13455)
+++ gnucash/trunk/src/engine/gw-engine-spec.scm	2006-03-04 00:08:16 UTC (rev 13456)
@@ -722,24 +722,6 @@
  "Insert the split s into account a. If the split already belongs
 to another account, it will be removed from that account first.")
 
-(gw:wrap-function
- ws
- 'gnc:account-fix-split-date-order
- '<gw:void>
- "xaccAccountFixSplitDateOrder"
- '((<gnc:Account*> a) (<gnc:Split*> s))
- "Check to see if split s is in proper sorted date order with respect
-to the other splits in account a.")
-
-(gw:wrap-function
- ws
- 'gnc:trans-fix-split-date-order
- '<gw:void>
- "xaccTransFixSplitDateOrder"
- '((<gnc:Transaction*> t))
- "Check to see if all of the splits in transaction t are in proper
-date order.")
-
 ;; (gw:wrap-function
 ;;  ws
 ;;  'gnc:account-order

Modified: gnucash/trunk/src/report/report-system/report-utilities.scm
===================================================================
--- gnucash/trunk/src/report/report-system/report-utilities.scm	2006-03-03 23:40:43 UTC (rev 13455)
+++ gnucash/trunk/src/report/report-system/report-utilities.scm	2006-03-04 00:08:16 UTC (rev 13456)
@@ -191,16 +191,6 @@
       (gnc:account-get-children a)))
    accountlist))
 
-
-(define (gnc:transaction-map-splits thunk transaction)
-  (let loop ((num-splits (gnc:transaction-get-split-count transaction))
-             (i 0))
-    (if (< i num-splits)
-        (cons
-         (thunk (gnc:transaction-get-split transaction i))
-         (loop num-splits (+ i 1)))
-        '())))
-
 ;;; Here's a statistics collector...  Collects max, min, total, and makes
 ;;; it easy to get at the mean.