Fixed bug in STRING-CONCATENATE-REVERSE/SHARED reported by Francisco

Solsona at srfi-13@srfi.schemers.org on 12 Feb 2004.
2004-02-17 07:47:41 +00:00 · 2004-02-17 07:47:41 +00:00 · f344e2be87
parent e603ebb626
commit f344e2be87
1 changed files with 1 additions and 1 deletions
--- a/scheme/srfi/srfi-13.scm
+++ b/scheme/srfi/srfi-13.scm
@ -1713,7 +1713,7 @@
    ;; string starts.
    (let lp ((len 0) (nzlist #f) (lis string-list))
      (if (pair? lis)
-	  (let ((slen (string-length (car string-list))))
+	  (let ((slen (string-length (car lis))))
 	    (lp (+ len slen)
 		(if (or nzlist (zero? slen)) nzlist lis)
 		(cdr lis)))