1312
1313
1314
1315
1316
1317
1318
|
(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)))
|
>
>
>
>
>
>
>
>
>
|
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
|
(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)))
|