Megatest

Differences From Artifact [b43d33931c]:

• File db.scm — part of check-in [1dabfeb322] at 2021-02-25 15:49:39 on branch v1.6569-newdiet — Sort danglers by name if same count. Few more orpaned functions commented out From: 4f82003dc0af1a95e10a23cc60a91b9b5ce9b461 User: matt (user: matt, size: 218994) [annotate] [blame] [check-ins using]

To Artifact [373c9e3316]:

• File db.scm — part of check-in [433155d663] at 2021-02-25 15:50:27 on branch v1.6569-newdiet — Moved sauth files to subdir. Improved show-uncalled-procedures output. Removed few unused procedures. From: c9e2628a917d4690ad4ffc35a95f5d5000c90cc5 User: matt (user: matt, size: 218996) [annotate] [blame] [check-ins using]

2300
2301
2302
2303
2304
2305
2306
2307
2308
2309
2310
2311
2312
2313
2314

	(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

|

2300
2301
2302
2303
2304
2305
2306
2307
2308
2309
2310
2311
2312
2313
2314

	(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