diff options
| author | Andy Wingo <wingo@pobox.com> | 2013-01-21 22:13:16 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2013-01-21 22:13:30 +0100 |
| commit | 170410b607b5ea2b935dbb656c844b86720bf1ec (patch) | |
| tree | 615be53f2f9b881467e4aba7585517b521b979dc | |
| parent | 0bc37aec599e46d27689935bda761394c2de801e (diff) | |
| download | guile-170410b607b5ea2b935dbb656c844b86720bf1ec.tar.gz | |
Fix http-get* deprecation note
* module/web/client.scm (http-get*): Fix deprecation warning. Thanks to
Daniel Hartwig for the report.
| -rw-r--r-- | module/web/client.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/module/web/client.scm b/module/web/client.scm index ce93cd841..9fbb25bba 100644 --- a/module/web/client.scm +++ b/module/web/client.scm @@ -285,10 +285,9 @@ true)." (extra-headers #f) (headers (or extra-headers '())) (decode-body? #t)) "Deprecated in favor of (http-get #:streaming? #t)." - (when extra-headers - (issue-deprecation-warning - "`http-get*' has been deprecated. " - "Instead, use `http-get' with the #:streaming? #t keyword argument.")) + (issue-deprecation-warning + "`http-get*' has been deprecated. " + "Instead, use `http-get' with the #:streaming? #t keyword argument.") (http-get uri #:body body #:port port #:version version #:keep-alive? keep-alive? #:headers headers #:decode-body? #t #:streaming? #t)) |