fix entity tag writing

* module/web/http.scm (write-entity-tag): Fix writing of entity tags
  (strong versus weak).

diff --git a/module/web/http.scm b/module/web/http.scm
index 2ebdb3b..bf54b23 100644 (file)
--- a/module/web/http.scm
+++ b/module/web/http.scm
@@ -573,7 +573,7 @@
        (string? (car val))))
 
 (define (write-entity-tag val port)
-  (if (cdr val)
+  (if (not (cdr val))
       (display "W/" port))
   (write-qstring (car val) port))