Overview
| Comment: | corrected match-let args in server:kill |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80-tcp-inmem |
| Files: | files | file ages | folders |
| SHA1: |
8a443df8a9249599a0088486c9fa8116 |
| User & Date: | mmgraham on 2023-02-20 22:58:06 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-02-21
| ||
| 17:02 | merged fork check-in: d8fae05b29 user: matt tags: v1.80-tcp-inmem | |
|
2023-02-20
| ||
| 22:58 | corrected match-let args in server:kill check-in: 8a443df8a9 user: mmgraham tags: v1.80-tcp-inmem | |
|
2023-02-17
| ||
| 16:27 | Fixed megatest -list-servers. Handled the changes in the server info list returned by choose-server check-in: c9e2a1cd70 user: mmgraham tags: v1.80-tcp-inmem | |
Changes
Modified server.scm from [5eef4f0a57] to [f00716e3bf].
| ︙ | ︙ | |||
653 654 655 656 657 658 659 |
(define (server:kill servr)
(handle-exceptions
exn
(begin
(debug:print-info 0 *default-log-port* "Unable to get host and/or port from " servr ", exn=" exn)
#f)
| | | 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 |
(define (server:kill servr)
(handle-exceptions
exn
(begin
(debug:print-info 0 *default-log-port* "Unable to get host and/or port from " servr ", exn=" exn)
#f)
(match-let (((hostname port start-time server-id pid)
servr))
(tasks:kill-server hostname pid))))
;; called in megatest.scm, host-port is string hostname:port
;;
;; NOTE: This is NOT called directly from clients as not all transports support a client running
;; in the same process as the server.
|
| ︙ | ︙ |