Megatest

Differences From Artifact [c83ce77437]:

• File db.scm (unpublished)— part of check-in [28303029ea] at 2021-02-25 16:24:03 on branch v1.6569-new-diet — begin diet From: badd71f3b34a7dc4f4bdf120b79438d403fd0733 User: matt (user: matt, size: 214005) [annotate] [blame] [check-ins using] [more...]

To Artifact [6137084de2]:

• File db.scm (unpublished)— part of check-in [d192708007] at 2021-02-25 16:25:14 on branch v1.6569-new-diet — Moved sauth files to subdir. Improved show-uncalled-procedures output. Removed few unused procedures. From: c9e2628a917d4690ad4ffc35a95f5d5000c90cc5 User: matt (user: matt, size: 214007) [annotate] [blame] [check-ins using]

2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261
2262

	(lambda (runname)
	  (set! res runname))
	db
	"SELECT runname FROM runs WHERE id=?;"
	run-id)
       res))))

(define (db:get-run-key-val dbstruct run-id key)
  (db:with-db
   dbstruct
   #f
   #f
   (lambda (db)
     (let ((res #f))
       (sqlite3:for-each-row

|

2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261
2262

	(lambda (runname)
	  (set! res runname))
	db
	"SELECT runname FROM runs WHERE id=?;"
	run-id)
       res))))

#;(define (db:get-run-key-val dbstruct run-id key)
  (db:with-db
   dbstruct
   #f
   #f
   (lambda (db)
     (let ((res #f))
       (sqlite3:for-each-row