Commits

Richo Healey committed 55f8ec3

heroku wat r u doin heroku stahp

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) port)
+    (display (string-append "HTTP/1.0 " status-code " " status-name nl nl) port)
     ; (for-each (lambda (el)
     ;             (cond ((string? el)
     ;                      (let ((header (car el)) (value (cdr el)))