Megatest

Diff
Login

Differences From Artifact [05b9c5420a]:

To Artifact [e7487d8749]:


337
338
339
340
341
342
343

344
345
346
347
348
349
350
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351







+







      (conc "http://" 
	    (http-transport:server-dat-get-iface vec)
	    ":"
	    (http-transport:server-dat-get-port  vec))
      #f))

(define (http-transport:server-dat-update-last-access vec)
  (BB> "entered http-transport:server-dat-update-last-access vec="vec)
  (if (vector? vec)
      (vector-set! vec 5 (current-seconds))
      (begin
	(print-call-chain (current-error-port))
	(debug:print-error 0 *default-log-port* "call to http-transport:server-dat-update-last-access with non-vector!!"))))

;;