Matt Wette <matt.we...@gmail.com> writes: > On 7/19/19 3:51 PM, zelphirkaltstahl wrote: >> (module-define! (current-module) >> ;; `route` should be `/container/json` for example. >> route > > (quote route)
Yes, or equivalently: 'route As an aside, is there a reason to not define it more simply as follows? Mark --8<---------------cut here---------------start------------->8--- (define-syntax define-api-route (syntax-rules () [(define-api-route route http-method my-content-type) ;; `route` should be `/container/json` for example. (define* (route docker-socket #:key (data #f)) (call-with-values (lambda () ;; Here the route needs to be given as a string to `http-get`. (http-get (variable-name->string route) #:port docker-socket #:version '(1 . 1) #:keep-alive? #f ;; Why is my quasiquote not working as expected? #:headers `((host . ("localhost" . #f)) (content-type . (,my-content-type (charset . "utf-8")))) #:body (scm->json-string data) #:decode-body? #t #:streaming? #f)) (lambda (response response-text) (let ([resp-text-as-string (bytevector->string response-text "utf-8")]) (cons response resp-text-as-string)))))])) --8<---------------cut here---------------end--------------->8---