uri.dylan

  let scheme = "";
  let host = "";
  let port = #f;
  let start = 0;
  unless (uri[0] == '/')
    let (_scheme, scheme-end) = parse-scheme();
    let (_host, host-end) = parse-host(scheme-end);
    let (_port, port-end) = parse-port(host-end);
    scheme := _scheme;
    host := _host;
    port := _port;
    start := port-end;
  end;
  let (path, path-end) = parse-path(start);
  let (query, query-end) = parse-query(path-end);
  let fragment = parse-fragment(query-end);

  let userinfo = "";