Megatest

Check-in [c7af076fb5]
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: c7af076fb5441a6521944c470fcc7eb7e2379d1a
User & Date: mrwellan on 2020-01-29 10:59:15
Other Links: branch diff | manifest | tags
Context
2020-01-29
13:39
Updated version tag to 1.65/41 check-in: 070a358879 user: jmoon18 tags: v1.65, v1.6541
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
Changes

Modified rmt.scm from [c7629a739b] to [aeb32064e1].

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







|







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 *default-log-port* "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)))