Overview
Comment: | fixed a few exception |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65 |
Files: | files | file ages | folders |
SHA1: |
c8b69bc77f121376922659f8a45b8502 |
User & Date: | bjbarcla on 2017-12-29 15:15:21 |
Other Links: | branch diff | manifest | tags |
Context
2017-12-29
| ||
15:23 | fixed problem with subrun:set-state-status check-in: 441e299543 user: bjbarcla tags: v1.65 | |
15:15 | fixed a few exception check-in: c8b69bc77f user: bjbarcla tags: v1.65 | |
15:05 | fixed problem with logs of subrun execution check-in: a354b5c1cb user: bjbarcla tags: v1.65 | |
Changes
Modified common.scm from [8bf15b5849] to [7529d3d14d].
︙ | |||
2653 2654 2655 2656 2657 2658 2659 | 2653 2654 2655 2656 2657 2658 2659 2660 2661 2662 2663 2664 2665 | + + + - + + | (define (common:join-backgrounded-threads) ;; may need to trap and ignore exceptions -- dunno how atomic threads are... (for-each (lambda (thread-name) (let* ((thread (hash-table-ref/default *common:thread-punchlist* thread-name #f))) (if thread (handle-exceptions exn #t ;; just ignore it, it might have died in the meantime so joining it will throw an exception |
Modified subrun.scm from [59afc64e7d] to [47342ae6dc].
︙ | |||
85 86 87 88 89 90 91 | 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 | - + | (configf:write-alist testconfig "testconfig.subrun"))) (define (subrun:set-state-status test-run-dir state status new-state-status) (if (and (not (subrun:subrun-removed? test-run-dir)) (subrun:subrun-test-initialized? test-run-dir)) (let* ((log-prefix (subrun:sanitize-path (conc "set-state-status="new-state-status |
︙ |