Function Base-Url!

Part of:

package kmrcl
( base-url! < url > )