Megatest

Diff
Login

Differences From Artifact [624c900b71]:

To Artifact [7d00309785]:


1
2
3
4
5
6
7
8
9

10
11
12
13
14






15
16
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23









+





+
+
+
+
+
+


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