(require-extension http-client)

(define (planets) (with-input-from-request "http://swapi.co/api/planets" '(headers: ((user-agent swapi-scheme) (accept application/json) (content-type application/json))) read-string))



#;2> (load "testing.scm")
; loading testing.scm ...
#;3> (planets)

Error: (match) no matching pattern

	Call history:

	uri-generic.scm:412: g2644
	uri-generic.scm:415: failure2666
	uri-generic.scm:412: g2644
	uri-generic.scm:415: failure2666
	uri-generic.scm:1020: uri-char-list->string
	uri-generic.scm:1030: fold
	uri-generic.scm:1029: reverse-list->string
	http-client.scm:699: intarweb#request?
	http-client.scm:701: intarweb#make-request
	intarweb.scm:555: ##sys#get-keyword
	intarweb.scm:555: ##sys#get-keyword
	intarweb.scm:555: ##sys#get-keyword
	intarweb.scm:555: ##sys#get-keyword
	intarweb.scm:555: old-make
	http-client.scm:705: any
	http-client.scm:717: uri-common#form-urlencode