suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

reflect bsl, etc. printer options for external use

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/htdp/asl/lang/reader.rkt
View File

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

1
collects/htdp/bsl/reader.rkt
View File

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

1
collects/htdp/bsl/runtime.rkt
View File

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