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

fixed default value of parameter

Browse Source 
svn: r6234
This commit is contained in:
Robby Findler 2007-05-19 23:05:09 +00:00
parent c481e1bb59
commit 3d4f153275
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/pretty.ss
View File

@ -78,7 +78,7 @@
symbols like-symbols)
(make-pretty-print-style-table new-ht))))
(define pretty-print-abbreviate-read-macros (make-parameter #f))
(define pretty-print-abbreviate-read-macros (make-parameter #t))
(define pretty-print-current-style-table
(make-parameter

8
collects/tests/mzscheme/pretty.ss
View File

@ -73,6 +73,14 @@
ht))
(parameterize ([pretty-print-abbreviate-read-macros #f])
(test "(quote a)" pretty-format ''a)
(test "(quasiquote a)" pretty-format '`a)
(test "(unquote a)" pretty-format ',a)
(test "(unquote-splicing a)" pretty-format ',@a)
(test "(syntax a)" pretty-format '#'a))
(test "(1\n 2)" pretty-format '(1 2) 2)
(test "(1 2)" pretty-format '(1 2) 'infinity)