Drop obsolete custom hash-fold definition.

hash-fold has been a built-in function at least since guile 1.6.

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

src/scm/main.scm

@@ -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...