From 3f398e3ba7d2d8614015af9cd7b871433604bf90 Mon Sep 17 00:00:00 2001 From: sperber Date: Wed, 15 Jan 2003 11:00:22 +0000 Subject: [PATCH] Re-indent. --- scheme/lib/url.scm | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/scheme/lib/url.scm b/scheme/lib/url.scm index f17eba6..2446467 100644 --- a/scheme/lib/url.scm +++ b/scheme/lib/url.scm @@ -61,16 +61,16 @@ (colon2 (string-index uhs #\: (or at 0)))) ; Host:port colon, if any. (make-server (if at - (unescape-uri uhs 0 (or colon1 at)) - (server-user default)) - (if colon1 - (unescape-uri uhs (+ colon1 1) at) - (server-password default)) - (unescape-uri uhs (if at (+ at 1) 0) - (or colon2 uhs-len)) - (if colon2 - (unescape-uri uhs (+ colon2 1) uhs-len) - (server-port default)))) + (unescape-uri uhs 0 (or colon1 at)) + (server-user default)) + (if colon1 + (unescape-uri uhs (+ colon1 1) at) + (server-password default)) + (unescape-uri uhs (if at (+ at 1) 0) + (or colon2 uhs-len)) + (if colon2 + (unescape-uri uhs (+ colon2 1) uhs-len) + (server-port default)))) (fatal-syntax-error "URL must begin with //..." path)))