Megatest

Diff
Login

Differences From Artifact [2029a02dc3]:

To Artifact [9cc13aa737]:


20
21
22
23
24
25
26
27
28
29
30
31
32

33
34
35
36
37

38
39

(declare (unit dbmod))

(module dbmod
	*
	
(import scheme chicken data-structures extras)
(import (prefix sqlite3 sqlite3:) posix typed-records srfi-18)

(define (just-testing)
  (print "JUST TESTING"))

;; (define (debug:print . params) #f)

;; (define (debug:print-info . params) #f)
;; 
;; (define (set-functions dbgp dbgpinfo)
;;   (set! debug:print dbgp)
;;   (set! debug:print-info dbgpinfo))


)







|
|
|
<

|
>
|
<
<
|
<
>
|

20
21
22
23
24
25
26
27
28
29

30
31
32
33


34

35
36
37

(declare (unit dbmod))

(module dbmod
	*
	
(import scheme chicken data-structures extras)
(import (prefix sqlite3 sqlite3:)
	posix typed-records srfi-18
	srfi-69)


(define (db:run-id->dbname run-id)
  (cond
   ((number? run-id)(conc run-id ".db"))


   ((not run-id)    "main.db")

   (else            run-id)))
 
)