1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
;; a module used by both command line (cl.scm) and gui (gui.scm)
(declare (unit m1))
(module m1
*
(import scheme
chicken.base
)
(define (a)
(print "I'm from module m1"))
)
|
>
>
>
>
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
;; a module used by both command line (cl.scm) and gui (gui.scm)
(declare (unit m1))
(module m1
*
(import scheme
chicken.base
chicken.port
)
(define (a)
(print "I'm from module m1"))
(define (do-an-eval thestring ht)
(with-input-from-string
thestring
(lambda ()
((eval (read)) ht))))
)
|