diff --git a/scheme/httpd/surflets/web-server/root/surflets/add-raw.scm b/scheme/httpd/surflets/web-server/root/surflets/add-raw.scm
index c764d0c..6563ebe 100644
--- a/scheme/httpd/surflets/web-server/root/surflets/add-raw.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/add-raw.scm
@@ -22,7 +22,16 @@
(define (make-get-number-page input-text title)
(lambda (new-url)
- (let ((HTML-page (format #f "
+ (make-response
+ (status-code ok)
+ #f
+ (time)
+ "text/html"
+ '()
+ (make-writer-body
+ (lambda (out options)
+ (format #t "make-get-number-page: omitting HTML page.~%")
+ (format out "
~a
~a
@@ -39,28 +48,27 @@
"
- (if title
- (format #f "~a" title)
- "")
- (if title
- (format #f "~a
" title))
- new-url
- input-text
- )))
-
- (make-response
- (status-code ok)
- #f
- (time)
- "text/html"
- '()
- (make-writer-body
- (lambda (out options)
- (format out HTML-page))
- )))))
+ (if title
+ (format #f "~a" title)
+ "")
+ (if title
+ (format #f "~a
" title))
+ new-url
+ input-text
+ ))
+ ))))
(define (make-result-page new-url)
- (let ((HTML-page (format #f "
+ (make-response
+ (status-code ok)
+ #f
+ (time)
+ "text/html"
+ '()
+ (make-writer-body
+ (lambda (out options)
+ (format #t "make-result-page: ommiting HTML page~%")
+ (format out "
Result
@@ -74,18 +82,9 @@
Close this session
"
- (number->string (+ (get-number1) (get-number2)))
- new-url)))
- (make-response
- (status-code ok)
- #f
- (time)
- "text/html"
- '()
- (make-writer-body
- (lambda (out options)
- (format out HTML-page)))
- )))
+ (number->string (+ (get-number1) (get-number2)))
+ new-url)))
+ ))
(define (get-number input-text . maybe-title)
(let* ((title (if (pair? maybe-title) (car maybe-title) #f))