blob: af13f7875ff7fc8bc8aae49c1181efd6d2155f37 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
;;; -*- 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.")
|
