Commits

David Krentzlin committed 210c471 Draft

enabled proxy settings

Comments (0)

Files changed (1)

open-uri-http.scm

                                                   (values username password))))
       (thunk))))
 
-;; (define (wrap-proxy thunk proxy username password)
-;;   (lambda ()
-;;     (parameterize ((determine-proxy-username/password (lambda _ (values username password))))
-;;       (thunk))))
-
-(define (wrap-proxy thunk proxy username password) thunk)
+(define (wrap-proxy thunk proxy username password)
+  (lambda ()
+    (parameterize ((determine-proxy-username/password (lambda _ (values username password))))
+      (thunk))))
 
 (define (open-uri-http uri #!key (reader (cut read-all <>)) request-arguments username password proxy proxy-username proxy-password)
   (let* ((handler (lambda ()