mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

Remove all deprecated code

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2017-05-22 13:36:42 +02:00
parent 8f4597d1da
commit c248ea10be
18 changed files with 10 additions and 1649 deletions
Download patch file Download diff file Expand all files Collapse all files

24
module/web/client.scm
View file

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