1 files changed, 17 insertions, 0 deletions

@@ -0,0 +1,17 @@
+;;; -*- scheme -*-
+
+#+chicken (import (r7rs))
+
+(let loop ((load-files '("fff.parse"
+                         "fff.read")))
+  (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.")