;;; -*- scheme -*-

#+chicken (import (r7rs))

(import (scheme file))

;;; Load libraries

(let loop ((load-files '("yolk.common"
                         "yolk.attrs"
                         "yolk.cursor"
                         "yolk.erase"
                         "yolk.xterm")))
  (if (null? load-files)
      #t
      (let* ((this (car load-files))
             (ss (string-append (car load-files) ".ss"))
             (sld (string-append (car load-files) ".sld")))
        (and (file-exists? ss)
             (load ss))
        ;(eval `(import ,(map string->symbol (string-split this "."))))
        (and (file-exists? sld)
             (load sld))
        (loop (cdr load-files)))))

;;; Set up a test environment

;;; Done.
(print "Ready.")