Megatest

Differences From Artifact [5c6c187295]:

• File db.scm — part of check-in [badd71f3b3] at 2021-01-15 22:46:24 on branch v1.6569-diet — begin diet (user: matt, size: 214266) [annotate] [blame] [check-ins using]

To Artifact [a9d288c6b2]:

• File db.scm — part of check-in [c9e2628a91] at 2021-01-16 22:59:02 on branch v1.6569-diet — Moved sauth files to subdir. Improved show-uncalled-procedures output. Removed few unused procedures. (user: matt, size: 214268) [annotate] [blame] [check-ins using]

2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257

	(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

|

2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257

	(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