Drop obsolete custom string-join definition.

string-join has been a built-in function at least since guile 1.8.

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

src/scm/main.scm

@@ -46,7 +46,6 @@
 (export gnc:error)
 (export gnc:msg)
 (export gnc:debug)
-(export string-join)
 (export gnc:backtrace-if-exception)
 (export gnc:safe-strcmp) ;; only used by aging.scm atm...
 
@@ -81,19 +80,6 @@
        (b -1)
        (else 0))))
 
-(define (string-join lst joinstr)
-  ;; This should avoid a bunch of unnecessary intermediate string-appends.
-  ;; I'm presuming those are more expensive than cons...
-  (if (or (not (list? lst)) (null? lst))
-      ""
-      (apply string-append
-             (car lst)
-             (let loop ((remaining-elements (cdr lst)))
-               (if (null? remaining-elements)
-                   '()
-                   (cons joinstr (cons (car remaining-elements)
-                                       (loop (cdr remaining-elements)))))))))
-
 (define (gnc:backtrace-if-exception proc . args)
   (define (dumper key . args)
     (let ((stack (make-stack #t dumper)))