Differences From Artifact [9e9aa983e6]:
- File testbuild/m2.scm — part of check-in [49214f61e2] at 2021-11-13 21:17:57 on branch v1.6584-nanomsg — Added minimal example of how build works (user: matt, size: 172) [annotate] [blame] [check-ins using]
To Artifact [6a790429a2]:
- File testbuild/m2.scm — part of check-in [39f1ace0d3] at 2021-11-14 15:33:22 on branch v1.6584-nanomsg — Added -M to obj build to fix issue with dashboard not starting (user: matt, size: 421) [annotate] [blame] [check-ins using]
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | 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)))
)
|