remove MY-REPORTED-PORT (relict of old URL parser)

scheme/httpd/core.scm

@@ -160,8 +160,6 @@
 			    (enum exception os-error))));;?? ->
 	     ;;which cases is this supposed to catch excactly? broken
 	     ;;connection to client? If so, does it work?
-
-	     ;; try to send bug report to client
 	     (values #f
 		     (apply make-error-response (status-code internal-error) 
 			    #f		; don't know
@@ -181,7 +179,7 @@
 		     (socket:inport sock))))
 		  ((nph-response? response)
 		   (values req response))
-		  ((eq? (response-code response) (status-code redirect))
+		  ((eq? (response-code response) (status-code redirect));internal redirect
 		   (redirect-loop (redirect-request req response sock options)))
 		  (else
 		   (values req response)))))))))
@@ -340,7 +338,3 @@
 	      (write-crlf port))
 	    headers))
 
-(define (my-reported-port addr)
-  (receive (ip-addr portnum) (socket-address->internet-address addr)
-    portnum))
-