Reindent.

2003-01-17 17:48:20 +00:00 · 2003-01-17 17:48:20 +00:00 · 104802b3ae
parent 4183ec85ce
commit 104802b3ae
1 changed files with 17 additions and 16 deletions
--- a/scheme/httpd/surflets/web-server/root/surflets/add-html.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/add-html.scm
@ -8,7 +8,8 @@

    (define (get-number input-text . maybe-title)
      (let* ((title (if (pair? maybe-title) (car maybe-title) #f))
-	     (result (send-html/suspend
+	     (result 
+	      (send-html/suspend
 	       (lambda (new-url)
 		 `(html ,(if title
 			     `(title ,title)  '())