string-fill!   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/init.xtm

Implementation

(define (string-fill! s e)
  (let ((n (string-length s)))
    (let loop ((i 0))
      (if (= i n)
          s
          (begin (string-set! s i e) (loop (succ i)))))))


Back to Index