;All this so I can include from the Chicken lib repo

(use posix data-structures srfi-13 files utils setup-api)

(define (rplc-script nm)
  (map
    (lambda (s)
      (if (irregex-search "run\\.scm" s)
          (let-values (((dir fnm ext) (decompose-pathname s)))
            (make-pathname dir nm ext) )
          s ) )
    (argv)))

(handle-exceptions exn
    (exit 1)
  (system* (string-concatenate (intersperse (rplc-script "byte-levtst") " "))) )

(when (version>=? (chicken-version) "4.7.2")
  ; we gots to instantiate functors so need impl mods src
  (setenv "CHICKEN_INCLUDE_PATH" (repository-path))
  (handle-exceptions exn
      (exit 1)
    (system* (string-concatenate (intersperse (rplc-script "levtst") " "))) ) )