1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00

fix entity tag writing

* module/web/http.scm (write-entity-tag): Fix writing of entity tags
  (strong versus weak).
This commit is contained in:
Andy Wingo 2010-12-06 12:58:16 +01:00
parent b500ced6b8
commit adcd58543c

View file

@ -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))