(module binding mzscheme
  (require (planet "with-bindings.ss" ("jaymccarthy" "with-bindings.plt")))
  
  (provide current-bindings
           (all-from (planet "with-bindings.ss" ("jaymccarthy" "with-bindings.plt"))))
  
  (define current-bindings (make-parameter '())))