diff options
author | Andy Wingo <wingo@pobox.com> | 2017-05-22 13:36:42 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2017-05-22 13:36:42 +0200 |
commit | c248ea10beb2afa4c113dbc6dc707bed5dbfc92e (patch) | |
tree | db395a46941c1a13096f9b49dd6b1405fd38dfc7 /module/web | |
parent | 8f4597d1da371c23e19721c2fdb3177c3ae73f14 (diff) | |
download | guile-c248ea10beb2afa4c113dbc6dc707bed5dbfc92e.tar.gz |
Remove all deprecated code
* module/ice-9/debug.scm:
* module/ice-9/mapping.scm:
* module/ice-9/syncase.scm: Delete these deprecated files.
* module/Makefile.am: Remove deleted files.
* libguile/deprecated.c:
* libguile/deprecated.h:
* libguile/backtrace.c:
* libguile/goops.c:
* libguile/numbers.c:
* libguile/socket.c:
* libguile/srfi-13.c:
* module/ice-9/deprecated.scm:
* module/ice-9/format.scm:
* module/oop/goops.scm:
* module/statprof.scm:
* module/texinfo/reflection.scm:
* module/web/client.scm:
* module/web/uri.scm: Remove deprecated code.
Diffstat (limited to 'module/web')
-rw-r--r-- | module/web/client.scm | 24 | ||||
-rw-r--r-- | module/web/uri.scm | 9 |
2 files changed, 2 insertions, 31 deletions
diff --git a/module/web/client.scm b/module/web/client.scm index 3b7ea5156..c13117dd2 100644 --- a/module/web/client.scm +++ b/module/web/client.scm @@ -48,7 +48,6 @@ #:export (current-http-proxy open-socket-for-uri http-get - http-get* http-head http-post http-put @@ -381,9 +380,7 @@ as is the case by default with a request returned by `build-request'." (body #f) (port (open-socket-for-uri uri)) (version '(1 . 1)) (keep-alive? #f) - ;; #:headers is the new name of #:extra-headers. - (extra-headers #f) (headers (or extra-headers '())) - (decode-body? #t) (streaming? #f)) + (headers '()) (decode-body? #t) (streaming? #f)) "Connect to the server corresponding to URI and ask for the resource, using the ‘GET’ method. If you already have a port open, pass it as PORT. The port will be closed at the end of the @@ -410,30 +407,11 @@ response body has been read. Returns two values: the response read from the server, and the response body as a string, bytevector, #f value, or as a port (if STREAMING? is true)." - (when extra-headers - (issue-deprecation-warning - "The #:extra-headers argument to http-get has been renamed to #:headers. " - "Please update your code.")) (request uri #:method 'GET #:body body #:port port #:version version #:keep-alive? keep-alive? #:headers headers #:decode-body? decode-body? #:streaming? streaming?)) -(define* (http-get* uri #:key - (body #f) - (port (open-socket-for-uri uri)) - (version '(1 . 1)) (keep-alive? #f) - ;; #:headers is the new name of #:extra-headers. - (extra-headers #f) (headers (or extra-headers '())) - (decode-body? #t)) - "Deprecated in favor of (http-get #:streaming? #t)." - (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)) - (define-syntax-rule (define-http-verb http-verb method doc) (define* (http-verb uri #:key (body #f) diff --git a/module/web/uri.scm b/module/web/uri.scm index 5b01aa41f..4c6fa5051 100644 --- a/module/web/uri.scm +++ b/module/web/uri.scm @@ -75,14 +75,7 @@ (define (uri? obj) (and (uri-reference? obj) - (if (include-deprecated-features) - (begin - (unless (uri-scheme obj) - (issue-deprecation-warning - "Use uri-reference? instead of uri?; in the future, uri? -will require that the object not be a relative-ref.")) - #t) - (uri-scheme obj)) + (uri-scheme obj) #t)) ;;; RFC 3986, #4.2. |