diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:21:16 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:21:16 +0200 |
| commit | 8517a196f4110376ce769611594cd8692f72dc7c (patch) | |
| tree | d6bf928850ffee9372d86a4587cc0bf6036b8521 /module/web | |
| parent | Limit imports in (srfi srfi-41 util). (diff) | |
| download | calp-8517a196f4110376ce769611594cd8692f72dc7c.tar.gz calp-8517a196f4110376ce769611594cd8692f72dc7c.tar.xz | |
Remove ->str and ->quoted-string.
->str as an alias of ->string is removed. ->string is however left.
->quoted-string was always weird, and was only used once.
Diffstat (limited to 'module/web')
| -rw-r--r-- | module/web/uri-query.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/module/web/uri-query.scm b/module/web/uri-query.scm index adf99803..e7cc627c 100644 --- a/module/web/uri-query.scm +++ b/module/web/uri-query.scm @@ -1,5 +1,4 @@ (define-module (web uri-query) - :use-module ((hnh util) :select (->quoted-string)) :use-module ((web uri) :select (uri-encode)) :export (encode-query-parameters) ) @@ -14,7 +13,7 @@ (map (lambda (p) (format #f "~a=~a" (car p) - (uri-encode (->quoted-string (cdr p))))) + (uri-encode (with-output-to-string (lambda () (write (cdr p))))))) parameters) "&")) |