r22665 - gnucash/trunk/src/scm - Drop obsolete custom hash-fold definition.
Geert Janssens
gjanssens at code.gnucash.org
Tue Dec 18 05:25:06 EST 2012
Author: gjanssens
Date: 2012-12-18 05:25:06 -0500 (Tue, 18 Dec 2012)
New Revision: 22665
Trac: http://svn.gnucash.org/trac/changeset/22665
Modified:
gnucash/trunk/src/scm/main.scm
Log:
Drop obsolete custom hash-fold definition.
hash-fold has been a built-in function at least since guile 1.6.
Modified: gnucash/trunk/src/scm/main.scm
===================================================================
--- gnucash/trunk/src/scm/main.scm 2012-12-18 06:07:46 UTC (rev 22664)
+++ gnucash/trunk/src/scm/main.scm 2012-12-18 10:25:06 UTC (rev 22665)
@@ -50,8 +50,6 @@
(export gnc:backtrace-if-exception)
(export gnc:safe-strcmp) ;; only used by aging.scm atm...
-(re-export hash-fold)
-
;; Get the Makefile.am/configure.in generated variables.
(load-from-path "build-config.scm")
@@ -83,19 +81,6 @@
(b -1)
(else 0))))
-(cond-expand
- (guile-2)
- (else
- (if (not (defined? 'hash-fold))
- (define (hash-fold proc init table)
- (for-each
- (lambda (bin)
- (for-each
- (lambda (elt)
- (set! init (proc (car elt) (cdr elt) init)))
- bin))
- (vector->list table))))))
-
(define (string-join lst joinstr)
;; This should avoid a bunch of unnecessary intermediate string-appends.
;; I'm presuming those are more expensive than cons...
More information about the gnucash-changes
mailing list