mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

fix entity tag writing

Browse source 
* 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
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/web/http.scm
View file

@ -573,7 +573,7 @@
(string? (car val)))) (string? (car val))))
(define (write-entity-tag val port) (define (write-entity-tag val port)
(if (cdr val) (if (not (cdr val))
(display "W/" port)) (display "W/" port))
(write-qstring (car val) port)) (write-qstring (car val) port))