;; $Id: reader.rkt,v 1.10 2009/05/23 18:16:13 neilpair Exp $

#lang s-exp syntax/module-reader

#:language (cond ((with-handlers ((exn? (lambda (x) #f)))
                    (this-package-version))
                  => (lambda (planet-version)
                       ;; TODO: !!! Is this giving an exact minor version?
                       `(planet "main.ss" ,planet-version)))
                 (else '(lib "main.ss" "sicp")))

#:wrapper1 (lambda (proc)
             (parameterize ((read-accept-infix-dot        #f)
                            (read-case-sensitive          #f)
                            (read-curly-brace-as-paren    #f)
                            (read-square-bracket-as-paren #t))
               (proc)))

(require planet/util)