Megatest

Check-in [35ec63886f]
Login
Overview
Comment:Start of v2.0 (again)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v2.001
Files: files | file ages | folders
SHA1: 35ec63886ffe7dbed427a12a62154033ede4b9c3
User & Date: matt on 2021-12-01 19:25:46
Other Links: branch diff | manifest | tags
Context
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
Changes

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