Paste: url > string

Author: rand
Mode: factor
Date: Fri, 11 Jun 2010 13:22:35
Plain Text |
    
: url>string ( url -- str )
    dup url? [ [ protocol>> "://" append ] [ host>> ] [  path>> ] tri 3append ] when ;
    

New Annotation

Summary:
Author:
Mode:
Body: