Megatest

Artifact 6a790429a2116a730a98635a93a1dacc959d39cc:

• 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]

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

)