Megatest

Artifact 7d003097852d22783709b56bb5122fb5e6d8f83b:

• File testbuild/m1.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: 325) [annotate] [blame] [check-ins using]

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