From 9399bf93977f37817517775026e7b25ce91a685f Mon Sep 17 00:00:00 2001
From: vibr <vibr>
Date: Tue, 5 Apr 2005 18:45:02 +0000
Subject: [PATCH] remove MY-REPORTED-PORT (relict of old URL parser)

---
 scheme/httpd/core.scm | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/scheme/httpd/core.scm b/scheme/httpd/core.scm
index f4eedc3..614fd95 100644
--- a/scheme/httpd/core.scm
+++ b/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))
-