Fix another bug in same-host?

2008-09-23 14:06:36 -05:00 · 2008-09-23 14:06:36 -05:00 · a2a1a51765
parent 88c59b1639
commit a2a1a51765
1 changed files with 6 additions and 2 deletions
--- a/basis/furnace/furnace.factor
+++ b/basis/furnace/furnace.factor
@ -99,8 +99,12 @@ M: object modify-form drop ;

 : same-host? ( url -- ? )
    dup [
-        url get
-        [ [ protocol>> ] [ host>> ] [ port>> ] tri 3array ] bi@ =
+        url get [
+            [ protocol>> ]
+            [ host>> ]
+            [ port>> remap-port ]
+            tri 3array
+        ] bi@ =
    ] when ;

 : cookie-client-state ( key request -- value/f )