@@ -725,10 +725,24 @@ (define (rmt:no-sync-del! var) (rmt:send-receive 'no-sync-del! #f `(,var))) (define (rmt:no-sync-get-lock keyname) (rmt:send-receive 'no-sync-get-lock #f `(,keyname))) + +;; process registration + +(define (rmt:register-process host port pid starttime status purpose dbname mtversion) + #f) + +(define (rmt:set-process-done host pid reason) + #f) + +(define (rmt:set-process-status host pid newstatus) + #f) + +(define (rmt:get-process-options purpose dbname) + #f) ;;====================================================================== ;; A R C H I V E S ;;======================================================================