(module htdp-advanced-reader mzscheme
  (require "htdp-reader.ss")
  (provide (rename -read-syntax read-syntax)
           (rename -read read))
  (define -read-syntax (make-read-syntax '(lib "htdp-advanced.ss" "lang")))
  (define -read (make-read '(lib "htdp-advanced.ss" "lang"))))