r22666 - gnucash/trunk/src/scm - Drop obsolete custom string-join definition.

[Geert Janssens]

Author: gjanssens
Date: 2012-12-18 05:25:18 -0500 (Tue, 18 Dec 2012)
New Revision: 22666
Trac: http://svn.gnucash.org/trac/changeset/22666

Modified:
   gnucash/trunk/src/scm/main.scm
Log:
Drop obsolete custom string-join definition.

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

Modified: gnucash/trunk/src/scm/main.scm
===================================================================
--- gnucash/trunk/src/scm/main.scm	2012-12-18 10:25:06 UTC (rev 22665)
+++ gnucash/trunk/src/scm/main.scm	2012-12-18 10:25:18 UTC (rev 22666)
@@ -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)))