lang/reader.ss
#lang s-exp syntax/module-reader
;; Note: This file was cloned from PLT 4.1.5 "collects/r5rs/lang/reader.ss".

sicp

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

                            ;; TODO: Should these be here?
                            ;; (print-mpair-curly-braces #f)
                            ;; (print-pair-curly-braces  #t)
                            
                            )
               (t)))