Source

racket-bertrpc / encodes.rkt

Diff from to

encodes.rkt

+; Author: Yasir M. Arsanukaev <yarsanukaev AT gmail DOT com>
+; License: The 2-clause BSD license. See LICENSE for details.
+
 #lang racket
 
 (require racket/serialize)
 
-(require bert)
+(require (prefix-in bert: (planet yasir/racket-bert:1)))
 
 (require "errors.ss")
 
     (bertrpc-raise-exn level (cons code message) klass backtrace)))
 
 (define (encode-scheme-request scheme-request)
-  (bert-encode scheme-request))
+  (bert:encode scheme-request))
 
 (define (decode-bert-response bert-response)
-  (let* ((scheme-response (bert-decode bert-response))
+  (let* ((scheme-response (bert:decode bert-response))
          (vect-get-elem (lambda (n) (vector-ref scheme-response n)))
          (resp-kind (vect-get-elem 0)))
     (cond 
        (error-rpc (vect-get-elem 1)))
       (else
        (bertrpc-error "Invalid response received from server.")))))
+