Megatest

Check-in [fca9c83d51]
Login
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: fca9c83d5196974ec2583dc568cd6d4d13373700
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
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 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)))
  
  







|







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)))