Megatest

Diff
Login

Differences From Artifact [043beb90c3]:

To Artifact [1c8d71a217]:


19
20
21
22
23
24
25



26
27
28
29






30
31
32
33
34
35
36
19
20
21
22
23
24
25
26
27
28




29
30
31
32
33
34
35
36
37
38
39
40
41







+
+
+
-
-
-
-
+
+
+
+
+
+







;;======================================================================

(declare (unit dbmod))

(module dbmod
	*
	
(import
 scheme
 chicken.string
(import scheme chicken data-structures extras)
(import (prefix sqlite3 sqlite3:)
	posix typed-records srfi-18
	srfi-69)
 ;; chicken data-structures extras
 (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)))