Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added a note

Browse source
This commit is contained in:
Justin Ethier 2016-03-01 23:53:09 -05:00
parent 3b2061450b
commit 9720387420
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/base.sld
View file

@ -735,6 +735,8 @@
(loop (+ i-at 1) (+ i-from 1))))))) (loop (+ i-at 1) (+ i-from 1)))))))
(loop at start))) (loop at start)))
(define (string-fill! str fill . opts) (define (string-fill! str fill . opts)
;; TODO: technically this is not per spec, because end references len.
;; Should change to use letrec*
(letrec ((len (string-length str)) (letrec ((len (string-length str))
(start (if (> (length opts) 0) (car opts) 0)) (start (if (> (length opts) 0) (car opts) 0))
(end (if (> (length opts) 1) (cadr opts) len)) (end (if (> (length opts) 1) (cadr opts) len))