From bbdc84312284873d5dc4e3cdb4cd6292f1981a33 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 22 Sep 2008 17:01:41 -0500
Subject: [PATCH] Forgot to remap port

---
 basis/furnace/furnace.factor | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/basis/furnace/furnace.factor b/basis/furnace/furnace.factor
index 4f0189e3f4..efd730c26c 100644
--- a/basis/furnace/furnace.factor
+++ b/basis/furnace/furnace.factor
@@ -4,7 +4,7 @@ USING: namespaces make assocs sequences kernel classes splitting
 vocabs.loader accessors strings combinators arrays
 continuations present fry
 urls html.elements
-http http.server http.server.redirection ;
+http http.server http.server.redirection http.server.remapping ;
 IN: furnace
 
 : nested-responders ( -- seq )
@@ -91,7 +91,8 @@ M: object modify-form drop ;
 
 : referrer ( -- referrer )
     #! Typo is intentional, its in the HTTP spec!
-    "referer" request get header>> at >url ;
+    "referer" request get header>> at
+    >url [ remap-port ] change-port ;
 
 : user-agent ( -- user-agent )
     "user-agent" request get header>> at "" or ;