Function Relative-Url

Part of:

package tinaa
( relative-url < url > )
Returns a URL that points to the same things as `url` but relative to (url *current-part*)