18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
-
-
-
+
+
+
|
;; (include "common.scm")
;; (include "megatest-version.scm")
;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)
(use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (prefix base64 base64:)
readline apropos json http-client directory-utils typed-records
http-client srfi-18 extras format)
(use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case
srfi-69 (prefix base64 base64:) readline apropos json http-client
directory-utils typed-records http-client srfi-18 extras format tcp6)
;; Added for csv stuff - will be removed
;;
(use sparse-vectors)
(declare (uses mtargs))
(declare (uses mtconfigf))
|