summaryrefslogtreecommitdiff
path: root/module/web/http.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-12-06 12:58:16 +0100
committerAndy Wingo <wingo@pobox.com>2010-12-06 12:58:16 +0100
commitadcd58543c110f58d681e80c8e4e76d1f7f34577 (patch)
tree379cfc14ac2c481a1d4ff84a82ca8f4447e0d2d8 /module/web/http.scm
parentb500ced6b8562112a28d2015bf9af1e808caa9bf (diff)
downloadguile-adcd58543c110f58d681e80c8e4e76d1f7f34577.tar.gz
fix entity tag writing
* module/web/http.scm (write-entity-tag): Fix writing of entity tags (strong versus weak).
Diffstat (limited to 'module/web/http.scm')
-rw-r--r--module/web/http.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/web/http.scm b/module/web/http.scm
index 2ebdb3bf6..bf54b239b 100644
--- 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))