Ticket #1590: srfi-13.patch

File srfi-13.patch, 1.5 KB (added by Diego, 9 months ago)
Line 
1*** /tmp/srfi-13/srfi-13.scm    2021-02-26 21:02:34.548224172 -0500
2--- /home/dieggsy/.cache/chicken-install/srfi-13/srfi-13.scm    2021-02-26 21:02:49.951557564 -0500
3***************
4*** 1935,1948 ****
5             (nleft (- total-chars ncopied))      ; # chars left to copy.
6             (nspans (quotient nleft slen)))      ; # whole spans to copy
7 
8!       ;; Copy the whole spans in the middle.
9!       (do ((i (+ tstart ncopied) (+ i slen))    ; Current target index.
10!            (nspans nspans (- nspans 1)))        ; # spans to copy
11!           ((zero? nspans)
12!            ;; Copy the partial-span @ the end & we're done.
13!            (%string-copy! target i s start (+ start (- total-chars (- i tstart)))))
14 
15!         (%string-copy! target i s start end))))); Copy a whole span.
16 
17 
18 
19--- 1935,1950 ----
20             (nleft (- total-chars ncopied))      ; # chars left to copy.
21             (nspans (quotient nleft slen)))      ; # whole spans to copy
22 
23!       (if (negative? nleft) ;; Total length is shorter that original string
24!           target
25!           ;; Copy the whole spans in the middle.
26!           (do ((i (+ tstart ncopied) (+ i slen))    ; Current target index.
27!                (nspans nspans (- nspans 1)))        ; # spans to copy
28!               ((zero? nspans)
29!                ;; Copy the partial-span @ the end & we're done.
30!                (%string-copy! target i s start (+ start (- total-chars (- i tstart)))))
31 
32!             (%string-copy! target i s start end)))))); Copy a whole span.
33 
34 
35