#lang scheme
;; This module implements flickr.* using reflection.

(require (planet cce/scheme:7/planet)
         (for-syntax (this-package-in flickr-syntax)
                     (this-package-in flickr-method-info)
                     scheme/promise)
         "method.ss")
         
(provide (all-defined-out)
         (all-from-out "method.ss"))

(define current-api-key (make-parameter "123"))  ;; A bogus API key.
(define current-sec-key (make-parameter "456"))  ;; A bogus secret key.
(define signed? (make-parameter #f))

(define-syntax (bind-flickr stx)
  (datum->syntax stx
                 (list* 'begin 
                        (map make-method-definition 
                             (force all-method-infos)))))


(bind-flickr)