scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Solsona at srfi-13@srfi.schemers.org on 12 Feb 2004.
This commit is contained in:
mainzelm 2004-02-17 07:47:41 +00:00
parent e603ebb626
commit f344e2be87
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/srfi/srfi-13.scm
View File

@ -1713,7 +1713,7 @@
;; string starts. ;; string starts.
(let lp ((len 0) (nzlist #f) (lis string-list)) (let lp ((len 0) (nzlist #f) (lis string-list))
(if (pair? lis) (if (pair? lis)
(let ((slen (string-length (car string-list)))) (let ((slen (string-length (car lis))))
(lp (+ len slen) (lp (+ len slen)
(if (or nzlist (zero? slen)) nzlist lis) (if (or nzlist (zero? slen)) nzlist lis)
(cdr lis))) (cdr lis)))