Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 21:59:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing string-copy!

Browse source
This commit is contained in:
Alex Shinn 2012-11-01 22:41:47 +09:00
parent c8b5e7343f
commit c8f3ba78a8
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lib/scheme/extras.scm
View file

@ -190,10 +190,11 @@
;; Never use this! ;; Never use this!
(define (string-copy! to at from . o) (define (string-copy! to at from . o)
(let ((start (if (pair? o) (car o) 0)) (let* ((start (if (pair? o) (car o) 0))
(end (if (and (pair? o) (pair? (cdr o))) (cadr o) (string-length from)))) (end (if (and (pair? o) (pair? (cdr o))) (cadr o) (string-length from)))
(do ((i at (+ i 1)) (j start (+ i 1))) (limit (min end (+ start (- (string-length to) at)))))
((>= j end)) (do ((i at (+ i 1)) (j start (+ j 1)))
((>= j limit))
(string-set! to i (string-ref from j))))) (string-set! to i (string-ref from j)))))
(define truncate-quotient quotient) (define truncate-quotient quotient)