Commits

Richo Healey  committed 7831802

Style and formatting

  • Participants
  • Parent commits f90a084

Comments (0)

Files changed (2)

File lib/response.scm

   (lambda ()
     ; Note to self. This object is immutable. Subseqent calls to set-foo return a mutated but new object.
     '((status 200)
-      (body "")
-      )))
+      (body ""))))
 
 (define set-response-body
   (lambda (body response)
       (write-response
         (cond ((string=? request-path "/")
              (set-response-header "Content-Type" "text/html"
-               (set-response-body "<html><body><b>Got root?</b></body></html>" response)))
+             (set-response-body "<html><body><b>Got root?</b></body></html>" response)))
             ((string=? request-path "/rawr")
              (set-response-body "got rawr?" response))
             (else
              (set-response-body "No such page mang" response))
-            ) out)))
+            )
+        out)))
       (close-input-port in)
-      (close-output-port out)
-      )
-  ))
+      (close-output-port out))))
 
 (define handle
   (if threaded?