141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
|
;; tasksmod
testsmod
)
;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)
(define setenv set-environment-variable!)
(define unsetenv unset-environment-variable!)
(include "common_records.scm")
;; (include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
;; (include "test_records.scm")
(include "common.scm")
(include "db.scm")
(include "server.scm")
(include "tests.scm")
|
<
<
|
|
|
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
|
;; tasksmod
testsmod
)
;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)
(define *db* #f) ;; this is only for the repl, do not use in general!!!!
;; (include "common_records.scm")
;; (include "key_records.scm")
;; (include "db_records.scm")
(include "run_records.scm")
;; (include "test_records.scm")
(include "common.scm")
(include "db.scm")
(include "server.scm")
(include "tests.scm")
|