steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/furnace/furnace.factor
View File

@ -99,8 +99,12 @@ M: object modify-form drop ;
: same-host? ( url -- ? ) : same-host? ( url -- ? )
dup [ dup [
url get url get [
[ [ protocol>> ] [ host>> ] [ port>> ] tri 3array ] bi@ = [ protocol>> ]
[ host>> ]
[ port>> remap-port ]
tri 3array
] bi@ =
] when ; ] when ;
: cookie-client-state ( key request -- value/f ) : cookie-client-state ( key request -- value/f )