From dc453704122ce8be178e0912640b8c5bb85b0bde Mon Sep 17 00:00:00 2001 From: Geert Janssens Date: Tue, 18 Dec 2012 10:25:18 +0000 Subject: [PATCH] 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 | 14 -------------- 1 file changed, 14 deletions(-) diff --git a/src/scm/main.scm b/src/scm/main.scm index 75731f9b69..2212ab16c3 100644 --- a/src/scm/main.scm +++ b/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)))