Overview
| Comment: | fixed wrong use of double quotes |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 | v1.6004 |
| Files: | files | file ages | folders |
| SHA1: |
17cd0fbe3eae09c2c1a48a5962860bcd |
| User & Date: | mrwellan on 2014-10-21 14:18:17 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-10-21
| ||
| 23:14 | Fixed issue with get pid. Reworked task killing code (again). check-in: a89fd0fb73 user: matt tags: v1.60 | |
| 14:18 | fixed wrong use of double quotes check-in: 17cd0fbe3e user: mrwellan tags: v1.60, v1.6004 | |
| 14:02 | fix for typo check-in: 4496ba9a2a user: mrwellan tags: v1.60 | |
Changes
Modified tasks.scm from [74341b76b3] to [8cb4a3c00e].
| ︙ | ︙ | |||
645 646 647 648 649 650 651 | #t) (process-signal (string->number pid) signal/int) (thread-sleep! 5) (process-signal (string->number pid) signal/kill))) ;; (call-with-environment-variables (let ((old-targethost (getenv "TARGETHOST"))) (setenv "TARGETHOST" hostname) | | | 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 |
#t)
(process-signal (string->number pid) signal/int)
(thread-sleep! 5)
(process-signal (string->number pid) signal/kill)))
;; (call-with-environment-variables
(let ((old-targethost (getenv "TARGETHOST")))
(setenv "TARGETHOST" hostname)
(system (conc "nbfake kill " pid))
(if old-targethost (setenv "TARGETHOST" old-targethost)))))
(debug:print 0 "ERROR: no record or improper record for " target "/" run-name " in tasks_queue in monitor.db"))))
records)))
;;======================================================================
;; The routines to process tasks
|
| ︙ | ︙ |