blob: 1c161d1884b9bc4212cebdee53cc1e550892d470 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
;;; -*- 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.")
|
