Megatest

Changes On Branch 35ec63886ffe7dbe
Login

Changes In Branch v2.001 Through [35ec63886f] Excluding Merge-Ins

This is equivalent to a diff from 3ebb15bd95 to 35ec63886f

2021-12-04
19:20
Added some build info check-in: 3d879e05f7 user: matt tags: v2.001
2021-12-01
19:25
Start of v2.0 (again) check-in: 35ec63886f user: matt tags: v2.001
2021-11-29
18:41
Corrected - but not quite - the calls to get-inmem Leaf check-in: 3ebb15bd95 user: matt tags: v1.6584-nanomsg
09:38
wip check-in: 31c178ba40 user: matt tags: v1.6584-nanomsg

Modified rmtmod.scm from [db7ecb31bf] to [7c7b81e269].

297
298
299
300
301
302
303
304

305
306
307
308
309
310
311
     

     )))

;;======================================================================

;; FOR DEBUGGING SET TO #t
(define *localmode* #t)

(define *dbstruct* (make-dbr:dbstruct))

;; Defaults to current area
;;
(define (rmt:send-receive cmd rid params #!key (attemptnum 1)(area-dat #f))
  (if (not *rmt:remote*)(set! *rmt:remote* (make-rmt:remote)))
  (let* ((apath      *toppath*)







|
>







297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
     

     )))

;;======================================================================

;; FOR DEBUGGING SET TO #t
;; (define *localmode* #t)
(define *localmode* #f)
(define *dbstruct* (make-dbr:dbstruct))

;; Defaults to current area
;;
(define (rmt:send-receive cmd rid params #!key (attemptnum 1)(area-dat #f))
  (if (not *rmt:remote*)(set! *rmt:remote* (make-rmt:remote)))
  (let* ((apath      *toppath*)