1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
|
(define (rdb:test-data-rollup db test-id status)
(if *runremote*
(let ((host (vector-ref *runremote* 0))
(port (vector-ref *runremote* 1)))
((rpc:procedure 'rdb:test-data-rollup host port) test-id status))
(db:test-data-rollup db test-id status)))
(define (rdb:test-get-paths-matching db keynames target)
(if *runremote*
(let ((host (vector-ref *runremote* 0))
(port (vector-ref *runremote* 1)))
((rpc:procedure 'rdb:test-get-paths-matching host port) keynames target))
(db:test-get-paths-matching db keynames target)))
|
|
|
|
|
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
|
(define (rdb:test-data-rollup db test-id status)
(if *runremote*
(let ((host (vector-ref *runremote* 0))
(port (vector-ref *runremote* 1)))
((rpc:procedure 'rdb:test-data-rollup host port) test-id status))
(db:test-data-rollup db test-id status)))
(define (rdb:test-get-paths-matching db keynames target fname)
(if *runremote*
(let ((host (vector-ref *runremote* 0))
(port (vector-ref *runremote* 1)))
((rpc:procedure 'rdb:test-get-paths-matching host port) keynames target fname))
(db:test-get-paths-matching db keynames target fname)))
|