diff options
-rw-r--r-- | src/scm/webid-oidc/client/application.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/scm/webid-oidc/client/application.scm b/src/scm/webid-oidc/client/application.scm index 58d1dad..bbc39fb 100644 --- a/src/scm/webid-oidc/client/application.scm +++ b/src/scm/webid-oidc/client/application.scm @@ -483,14 +483,14 @@ (slot-set! ret 'page (add-link (page ret) (string->uri target) key value)) ret)) -(define-method (set-page-uri (state <application-state>) uri) +(define-method (set-page-uri (state <application-state>) page-uri) (let ((ret (shallow-clone state)) (new-page (make <loading-page> - #:uri uri))) + #:uri page-uri))) (slot-set! ret 'page new-page) (add-job ret - (format #f (G_ "Loading ~a...") (uri->string uri)) + (format #f (G_ "Loading ~a...") (uri->string (uri new-page))) (lambda () (declare-link-header!) (let ((account (main-account state)) @@ -509,7 +509,7 @@ (slot-set! ret 'page (if (eqv? (response-code response) 200) (make <loaded-page> - #:uri uri + #:uri (uri new-page) #:etag (match (response-etag response) ((value . #f) value) @@ -522,7 +522,7 @@ (or (false-if-exception (bytevector->string response-body)) response-body)) (make <error-page> - #:uri uri + #:uri (uri new-page) #:code (response-code response) #:reason-phrase (response-reason-phrase response))))) ret))))))))) |