Commits

Richo Healey committed cfae433

Try this again

  • Participants
  • Parent commits 55f8ec3
  • Branches trash/heroku/current

Comments (0)

Files changed (1)

   (lambda (response port)
     (let ((status-code (number->string (cadr (assoc 'status response))))
           (status-name (cdr (lookup-status-code (cadr (assoc 'status response))))))
-    (display (string-append "HTTP/1.0 " status-code " " status-name nl nl) port)
+    (display (string-append "HTTP/1.0 " status-code " " status-name nl) port)
     ; (for-each (lambda (el)
     ;             (cond ((string? el)
     ;                      (let ((header (car el)) (value (cdr el)))
     ;                        (display (string-append header ": " value nl) port)))))
     ;           response)
-    ; (display nl port)
+    (display nl port)
     ; (display (cdr (assoc 'body response)) port))))
     )))