Hello,
This is 'same-host?' from the furnace vocabulary:
: same-host? ( url -- ? )
request get url>>
[ [ protocol>> ] [ host>> ] [ port>> ] tri 3array ] bi@ = ;
It could be written using 1arr as follows:
: same-host? ( url -- ? )
request get url>>
[ { protocol>> host>> port>> } 1arr ] bi@ = ;
Right now 1arr is called '<arr>'. It should be renamed and the other arity
variants should be defined.
Ed
-------------------------------------------------------------------------
Sponsored by: SourceForge.net Community Choice Awards: VOTE NOW!
Studies have shown that voting for your favorite open source project,
along with a healthy diet, reduces your potential for chronic lameness
and boredom. Vote Now at http://www.sourceforge.net/community/cca08
_______________________________________________
Factor-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk
