Overview
Comment: | Tidy up of mtut formating |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65-multi-db |
Files: | files | file ages | folders |
SHA1: |
e52f8b2513cf17879f6a00d912aa445b |
User & Date: | matt on 2019-02-07 10:19:15 |
Other Links: | branch diff | manifest | tags |
Context
2019-02-09
| ||
20:55 | progress Leaf check-in: adbeb66c05 user: matt tags: v1.65-multi-db | |
2019-02-07
| ||
10:19 | Tidy up of mtut formating check-in: e52f8b2513 user: matt tags: v1.65-multi-db | |
2019-02-06
| ||
22:24 | outline of the task dispatcher coded check-in: 0c8e6ec6fd user: matt tags: v1.65-multi-db | |
Changes
Modified mtut.scm from [b8b7168231] to [e0feef8240].
︙ | |||
1640 1641 1642 1643 1644 1645 1646 | 1640 1641 1642 1643 1644 1645 1646 1647 1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660 1661 1662 1663 1664 1665 1666 1667 | - + - + - - - | (set! *time-to-exit* #t) (debug:print-error 0 *default-log-port* "Received signal " signum " sending email befor exiting !!") (let ((email-body (mtut:stml->string (s:body (s:p (conc "Received signal " signum ". Lister has been terminated on host " (get-environment-variable "HOST") ". ")))))) (sendmail contact "Listner has been terminated." email-body use_html: #t)) (exit))) |
︙ |