1 files changed, 29 insertions, 0 deletions

@@ -0,0 +1,29 @@
+;;; -*- scheme -*-
+
+#+chicken (import (r7rs))
+
+(import (scheme file))
+
+;;; Load libraries
+
+(let loop ((load-files '("yolk.common"
+                         "yolk.colors"
+                         "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.")