Megatest

m2.scm at [39f1ace0d3]
Login

File testbuild/m2.scm artifact 6a790429a2 part of check-in 39f1ace0d3


;; 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)))

)