lang/reader.ss
;; $Id: reader.ss,v 1.9 2009/05/05 07:47:56 neilpair Exp $

#lang s-exp syntax/module-reader

#:language (cond ((with-handlers ((exn? (lambda (x) #f)))
                    (this-package-version))
                  => (lambda (planet-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 #f))
               (proc)))

(require planet/util)