1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
(declare (unit debugprint))
(declare (uses margsmod))
(module debugprint
*
;;(import scheme chicken data-structures extras files ports)
(import scheme chicken)
(import margsmod)
(use data-structures extras files ports)
;; (use
;; (prefix base64 base64:)
;; (prefix sqlite3 sqlite3:)
;; (srfi 18)
;; (prefix dbi dbi:)
;; directory-utils
;; format
;; matchable
;; md5
;; message-digest
;; pkts
;; posix
;; regex
;; regex-case
;; sparse-vectors
;; srfi-1
;; srfi-13
;; srfi-69
;; stack
;; stml2
;; typed-records
;; z3
;; )
;;======================================================================
;; debug stuff
;;======================================================================
(define verbosity (make-parameter '()))
;;======================================================================
;; (define (debug:print . params) #f)
;; (define (debug:print-info . params) #f)
;;
;; (define (set-functions dbgp dbgpinfo)
;; (set! debug:print dbgp)
|
|
|
<
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
(declare (unit debugprint))
(declare (uses margsmod))
(module debugprint
*
;;(import scheme chicken data-structures extras files ports)
(import scheme chicken)
(import margsmod)
(use data-structures extras files ports)
(use
;; (prefix base64 base64:)
;; (prefix sqlite3 sqlite3:)
;; (srfi 18)
;; (prefix dbi dbi:)
;; directory-utils
;; format
;; matchable
;; md5
;; message-digest
;; pkts
;; posix
;; regex
;; regex-case
;; sparse-vectors
srfi-1
;; srfi-13
;; srfi-69
;; stack
;; stml2
;; typed-records
;; z3
)
;;======================================================================
;; debug stuff
;;======================================================================
(define verbosity (make-parameter '()))
(define *default-log-port* (current-error-port))
;;======================================================================
;; (define (debug:print . params) #f)
;; (define (debug:print-info . params) #f)
;;
;; (define (set-functions dbgp dbgpinfo)
;; (set! debug:print dbgp)
|