diff options
author | Andy Wingo <wingo@pobox.com> | 2010-12-06 12:58:16 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-12-06 12:58:16 +0100 |
commit | adcd58543c110f58d681e80c8e4e76d1f7f34577 (patch) | |
tree | 379cfc14ac2c481a1d4ff84a82ca8f4447e0d2d8 /module/web/http.scm | |
parent | b500ced6b8562112a28d2015bf9af1e808caa9bf (diff) | |
download | guile-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.scm | 2 |
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)) |