;;; -*- scheme -*-

#+chicken (import (r7rs))

(let loop ((load-files '("fff.parse"
                         "fff.read"
                         "fff.json")))
  (if (null? load-files)
      #t
      (let ((this (car load-files)))
        (load (string-append (car load-files) ".sld"))
        ;; (eval `(import ,(map string->symbol (string-split this "."))))
        (load (string-append (car load-files) ".ss"))
        (loop (cdr load-files)))))

(define input (call-with-input-file "test.fff" read-port))

(print "Ready.")