$ csi CHICKEN (c) 2008-2014, The Chicken Team (c) 2000-2007, Felix L. Winkelmann Version 4.9.0rc1 (rev 3cf1967) linux-unix-gnu-x86-64 [ 64bit manyargs dload ptables ] compiled 2014-04-17 on hd-t1179cl (Linux) ; loading /home/local/andyjpb/.csirc ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/parley.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/chicken.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/data-structures.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/extras.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/ports.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/posix.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/srfi-1.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/srfi-13.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/srfi-18.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/stty.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/srfi-69.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/foreign.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/foreigners.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/parley.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/stty.so ... #;1> (use http-client uri-common intarweb rest-bind medea) ; loading /usr/local/chicken-4.9.0/lib/chicken/7/http-client.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/lolevel.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/files.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/tcp.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/intarweb.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/srfi-14.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/irregex.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/base64.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/defstruct.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/uri-common.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/matchable.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/uri-generic.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/srfi-4.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/message-digest.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/message-digest-primitive.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/type-checks.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/type-errors.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/message-digest-type.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/blob-hexadecimal.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/to-hex.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/string-hexadecimal.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/message-digest-parameters.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/variable-item.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/message-digest-bv.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/message-digest-support.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/message-digest-int.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/blob-set-int.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/message-digest-srfi-4.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/message-digest-update-item.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/miscmacros.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/message-digest-item.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/md5.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/string-utils.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/memoized-string.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/lookup-table.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/record-variants.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/unicode-utils.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/sendfile.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/rest-bind.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/medea.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/lazy-seq.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/comparse.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/latch.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/trie.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/http-client.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/intarweb.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/base64.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/defstruct.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/uri-common.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/matchable.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/uri-generic.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/message-digest.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/message-digest-primitive.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/type-checks.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/type-errors.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/message-digest-type.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/blob-hexadecimal.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/to-hex.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/string-hexadecimal.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/message-digest-parameters.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/variable-item.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/message-digest-bv.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/message-digest-support.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/message-digest-int.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/blob-set-int.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/message-digest-srfi-4.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/message-digest-update-item.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/message-digest-item.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/md5.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/string-utils.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/memoized-string.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/lookup-table.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/unicode-utils.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/sendfile.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/openssl.import.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/openssl.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/rest-bind.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/medea.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/lazy-seq.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/comparse.so ... ; loading /usr/local/chicken-4.9.0/lib/chicken/7/trie.so ... #;2> (pp (define-method (account/info (path (lambda (arg) (string-append "hello-" path)))) "https://api.dropbox.com/1/account/info" #f read-json)) (define account/info (let* ((writer #f) (uri/req "https://api.dropbox.com/1/account/info") (uri (cond ((request? uri/req) (request-uri uri/req)) ((uri? uri/req) uri/req) (else (uri-reference uri/req)))) (req (cond ((request? uri/req) uri/req) (else (make-request method: (if writer 'POST 'GET)))))) (lambda (path) (let* ((path ((lambda (arg) (string-append "hello-" path)) path)) (uri (update-uri uri path: (append (uri-path uri) (map ->string (list path))))) (req (update-request req uri: uri))) (fprintf (current-error-port) "\n\n\nREQUEST\n") (write-request (update-request req port: (current-error-port))) (fprintf (current-error-port) "\n") (receive (reader uri response) (call-with-input-request req #f read-json) (values reader (list uri response))))))) #;3>