basket/basket.scm

(define-module (basket)
               #:use-module (cairo))

(export
  curry
  render-image
  save-ctx)

(map (lambda (x)
       (module-use! (module-public-interface (current-module)) (resolve-interface x)))
     (list '(basket vec)
           '(basket poly)
           '(basket line)
           '(basket path)
           '(basket rect)
           '(basket color)
           '(basket cairo)))

(define (curry f . a) (lambda (. b) (apply f (append a b))))