Artifact
624c900b717305213240359f052abb89441bf96a:
0000: 3b 3b 20 61 20 6d 6f 64 75 6c 65 20 75 73 65 64 ;; a module used
0010: 20 62 79 20 62 6f 74 68 20 63 6f 6d 6d 61 6e 64 by both command
0020: 20 6c 69 6e 65 20 28 63 6c 2e 73 63 6d 29 20 61 line (cl.scm) a
0030: 6e 64 20 67 75 69 20 28 67 75 69 2e 73 63 6d 29 nd gui (gui.scm)
0040: 0a 0a 28 64 65 63 6c 61 72 65 20 28 75 6e 69 74 ..(declare (unit
0050: 20 6d 31 29 29 0a 0a 28 6d 6f 64 75 6c 65 20 6d m1))..(module m
0060: 31 0a 09 2a 0a 0a 28 69 6d 70 6f 72 74 20 73 63 1..*..(import sc
0070: 68 65 6d 65 0a 09 63 68 69 63 6b 65 6e 2e 62 61 heme..chicken.ba
0080: 73 65 0a 09 29 0a 0a 28 64 65 66 69 6e 65 20 28 se..)..(define (
0090: 61 29 0a 20 20 28 70 72 69 6e 74 20 22 49 27 6d a). (print "I'm
00a0: 20 66 72 6f 6d 20 6d 6f 64 75 6c 65 20 6d 31 22 from module m1"
00b0: 29 29 0a 0a 29 0a 09 0a ))..)...