Megatest

m1.scm at [31c178ba40]
Login

File testbuild/m1.scm artifact 7d00309785 part of check-in 31c178ba40


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