45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
(declare (uses commonmod))
(declare (uses apimod))
(declare (uses dbmod))
(declare (uses rmtmod))
(declare (uses servermod))
(declare (uses mtver))
(declare (uses adjutant))
;; (include "call-with-environment-variables/call-with-environment-variables.scm")
(module megatest-main
*
(import scheme
|
>
|
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
(declare (uses commonmod))
(declare (uses apimod))
(declare (uses dbmod))
(declare (uses rmtmod))
(declare (uses servermod))
(declare (uses mtver))
(declare (uses adjutant))
(declare (uses processmod))
;; (include "call-with-environment-variables/call-with-environment-variables.scm")
(module megatest-main
*
(import scheme
|
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
apimod
commonmod
dbmod
rmtmod
servermod
debugprint
)
;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)
(define setenv set-environment-variable!)
(define unsetenv unset-environment-variable!)
|
>
|
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
|
apimod
commonmod
dbmod
rmtmod
servermod
debugprint
processmod
)
;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)
(define setenv set-environment-variable!)
(define unsetenv unset-environment-variable!)
|