940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
|
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
|
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
|
ro-mode))))))
;;======================================================================
;; S U P P O R T F U N C T I O N S
;;======================================================================
(define (rmt:on-homehost? runremote)
(let* ((hh-dat (remote-hh-dat runremote)))
(if (pair? hh-dat)
(cdr hh-dat)
(begin
(debug:print-info 0 *default-log-port* "hh-dat="hh-dat)
#f))))
(define (rmt:on-homehost? #!optional (runremote-in #f))
(let* ((runremote (or runremote-in *runremote*)))
(if runremote
(let* ((hh-dat (remote-hh-dat runremote)))
(if (pair? hh-dat)
(cdr hh-dat)
(begin
(debug:print-info 0 *default-log-port* "hh-dat="hh-dat)
#f)))
#f))) ;; not true strickly speaking, might be runremote was not yet initialized.
(define (make-and-init-remote areapath)
(case (rmt:transport-mode)
((http)(make-remote))
((tcp) (tt:make-remote areapath))
(else #f)))
|