qkbox: toot: Rename procedures.

1 files changed, 7 insertions, 7 deletions

diff --git a/qkbox/toot.scm b/qkbox/toot.scm
index e774d8b..e433df8 100644
--- a/qkbox/toot.scm
+++ b/qkbox/toot.scm
@@ -248,13 +248,13 @@
       (hash-set! avatar-static-hash url pict)
       pict))))
 
-(define*-public (status id #:key (authorization? #t))
+(define*-public (fetch-status id #:key (authorization? #t))
   (receive (res body)
       (/api/v1/statuses/:id id #:authorization? authorization?)
     (case (response-code res)
       ((200) (make-status body))
       (else
-       (error "status: failed" res body)))))
+       (error "fetch-status: failed" res body)))))
 
 (define* (/api/v1/statuses/:id id #:key (authorization? #t))
   (request
@@ -380,19 +380,19 @@
         (values res (json-string->scm (utf8->string body)))
         (values res body))))
 
-(define*-public (account id)
+(define*-public (fetch-account id)
   (receive (res body)
       (/api/v1/accounts/:id id)
     (case (response-code res)
       ((200) (make-account body))
       ((401)
-       (error "account: Unauthorized" id))
+       (error "fetch-account: Unauthorized" id))
       ((404)
-       (error "account: Not Found" id))
+       (error "fetch-account: Not Found" id))
       ((410)
-       (error "account: Account is suspended" id))
+       (error "fetch-account: Account is suspended" id))
       (else
-       (error "account: failed"
+       (error "fetch-account: failed"
               (response-code res)
               (utf8->string body))))))