1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
;; a module used only by the command line executable
;;
(declare (unit m2))
(module m2
*
(import scheme
chicken.base
)
(define (b)
(print "I'm from module m2"))
)
|
>
>
>
>
>
>
>
>
>
>
>
>
>
|
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
|
;; a module used only by the command line executable
;;
(declare (unit m2))
(declare (uses m1))
(declare (uses m1.import))
(module m2
*
(import scheme
chicken.base
m1
srfi-69
)
(define (b)
(print "I'm from module m2"))
(define (try-an-eval)
(let* ((ht (make-hash-table)))
(do-an-eval "(lambda (ht)(import srfi-69 m1)
(a)
(hash-table-set! ht \"a\" 123))" ht)
(hash-table->alist ht)))
)
|