reflect bsl, etc. printer options for external use

This commit is contained in:
Matthew Flatt 2010-08-24 21:10:08 -06:00
parent a19899898f
commit a662c679dc
3 changed files with 4 additions and 1 deletions

View File

@ -1,4 +1,5 @@
#lang s-exp htdp/bsl/reader
lang/htdp-intermediate-lambda
'(abbreviate-cons-as-list
read-accept-quasiquote)
read-accept-quasiquote
show-sharing)

View File

@ -14,6 +14,7 @@
#:info (make-info options)
#:language-info (make-language-info options)
(provide options)
(define options opts)))
(define (wrap-reader read-proc options)

View File

@ -28,6 +28,7 @@
;; Set pretty-print options:
(pretty-print-show-inexactness #t)
(pretty-print-exact-as-decimal #t)
(show-sharing (memq 'show-sharing options))
;; Set print handlers to use print-convert and pretty-write:
(current-print