(import (rnrs)
        (mk-r6rs))

(define src
  (map (lambda (x)
         (string-append "../src/" x))
       (list "collection.scm"
             "constants.scm"
             "extend-all.scm"
             "random.scm"
             "range.scm"
             "recv.scm"
             "score.scm"
             "sndfile.scm"
             "spec.scm"
             "splice.scm"
             "warp.scm"
             "wavetable.scm")))

(mk-r6rs '(rsc3-lang)
         src
	 (string-append (list-ref (command-line) 1)
                        "/rsc3-lang.ikarus.sls")
	 '((rnrs)
	   (rhs)
           (sosc)
	   (rsc3))
	 '()
	 '())

(exit)