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

(require (for-syntax "flickr-syntax.ss"
                     "flickr-method-info.ss"
                     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)