Commits

Richo Healey committed 9b69d7e

Keep dorking things out till it works

Comments (0)

Files changed (1)

     (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)
-    (for-each (lambda (el)
-                (cond ((string? el)
-                         (let ((header (car el)) (value (cdr el)))
-                           (display (string-append header ": " value nl) port)))))
-              response)
+    ; (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 (cdr (assoc 'body response)) port))))