Overview
| Comment: | Remove on exit cleanup. All finalization is done automaticaly apparently |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
92586d64ab5c85954c837275c428b1e9 |
| User & Date: | mrwellan on 2014-10-27 11:13:55 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-10-27
| ||
| 20:17 | Backed out mutex and locking on sync and moved busy handler ahead of db initialize check-in: ce3b49f7c4 user: mrwellan tags: v1.60 | |
| 11:13 | Remove on exit cleanup. All finalization is done automaticaly apparently check-in: 92586d64ab user: mrwellan tags: v1.60 | |
| 00:03 | Added blocking of db sync when shutting down check-in: 0ac041efe1 user: matt tags: v1.60 | |
Changes
Modified megatest.scm from [237c56ca49] to [3a1b995ec4].
| ︙ | ︙ | |||
367 368 369 370 371 372 373 |
(if (args:get-arg "-itempatt")
(let ((newval (conc (args:get-arg "-testpatt") "/" (args:get-arg "-itempatt"))))
(debug:print 0 "WARNING: -itempatt has been deprecated, please use -testpatt testpatt/itempatt method, new testpatt is "newval)
(hash-table-set! args:arg-hash "-testpatt" newval)
(hash-table-delete! args:arg-hash "-itempatt")))
| | | 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 |
(if (args:get-arg "-itempatt")
(let ((newval (conc (args:get-arg "-testpatt") "/" (args:get-arg "-itempatt"))))
(debug:print 0 "WARNING: -itempatt has been deprecated, please use -testpatt testpatt/itempatt method, new testpatt is "newval)
(hash-table-set! args:arg-hash "-testpatt" newval)
(hash-table-delete! args:arg-hash "-itempatt")))
;; (on-exit std-exit-procedure)
;;======================================================================
;; Misc general calls
;;======================================================================
(if (args:get-arg "-env2file")
(begin
|
| ︙ | ︙ |