;; -*-theme-d-*-

;; Copyright (C) 2015 Tommi Höynälänmaa
;; Distributed under GNU General Public License version 3,
;; see file doc/GPL-3.

;; Expected results: compilation OK


(define-body (tests test323)

  (import (standard-library core)
	  (standard-library string-utilities))

  (define-simple-proc my-substring
      (((str <string>) (i-start <integer>) (i-end <integer>))
       <string>
       force-pure)
    (let-mutable ((result <string> ""))
      (do ((i <integer> i-start (+ i 1))) ((>= i i-end))
	(set! result (string-append result (string (string-ref str i)))))
      result))

  )