Fix another bug in same-host?

db4
Slava Pestov 2008-09-23 14:06:36 -05:00
parent 88c59b1639
commit a2a1a51765
1 changed files with 6 additions and 2 deletions
basis/furnace

View File

@ -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 )