1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
|
#f
(conc "http://" (car hostport) ":" (cadr hostport))))
;;======================================================================
;; S E R V E R
;; ======================================================================
;; (define (http-get-function fnkey)
;; (hash-table-ref/default *http-functions* fnkey (lambda () "nothing here yet")))
;;======================================================================
;; C L I E N T S
;;======================================================================
|
>
>
>
|
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
|
#f
(conc "http://" (car hostport) ":" (cadr hostport))))
;;======================================================================
;; S E R V E R
;; ======================================================================
(define (rmt:get-servers-info apath)
(rmt:send-receive 'get-servers-info #f `(,apath)))
;; (define (http-get-function fnkey)
;; (hash-table-ref/default *http-functions* fnkey (lambda () "nothing here yet")))
;;======================================================================
;; C L I E N T S
;;======================================================================
|