Overview
Comment: | missing field in print |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65 |
Files: | files | file ages | folders |
SHA1: |
fca9c83d5196974ec2583dc568cd6d4d |
User & Date: | mrwellan on 2020-01-29 10:24:42 |
Other Links: | branch diff | manifest | tags |
Context
2020-01-29
| ||
10:59 | missing field in print check-in: c7af076fb5 user: mrwellan tags: v1.65 | |
10:24 | missing field in print check-in: fca9c83d51 user: mrwellan tags: v1.65 | |
2020-01-28
| ||
21:34 | Moved delay in rmt:send-receive earlier check-in: 00f6f2a2c3 user: matt tags: v1.65 | |
Changes
Modified rmt.scm from [ae92864096] to [c7629a739b].
︙ | ︙ | |||
61 62 63 64 65 66 67 | (define (rmt:send-receive cmd rid params #!key (attemptnum 1)(area-dat #f)) ;; start attemptnum at 1 so the modulo below works as expected #;(common:telemetry-log (conc "rmt:"(->string cmd)) payload: `((rid . ,rid) (params . ,params))) (if (> attemptnum 2) | | | 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 | (define (rmt:send-receive cmd rid params #!key (attemptnum 1)(area-dat #f)) ;; start attemptnum at 1 so the modulo below works as expected #;(common:telemetry-log (conc "rmt:"(->string cmd)) payload: `((rid . ,rid) (params . ,params))) (if (> attemptnum 2) (debug:print *default-log-port* 0 "INFO: attemptnum in rmt:send-receive is " attemptnum)) (cond ((> attemptnum 2) (thread-sleep! 0.05)) ((> attemptnum 10) (thread-sleep! 0.5)) ((> attemptnum 20) (thread-sleep! 1))) |
︙ | ︙ |