suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

change prop:custom-print-as-constructor to more general prop:custom-print-quotable

Browse Source 
original commit: 899e85f94f43bf4298c128505da919629dbceeee
This commit is contained in:
Matthew Flatt 2010-05-10 18:05:02 -06:00
commit dd65e681e2
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/scribble/racket.rkt
View File

@ -998,10 +998,13 @@
(prefab-struct-key v))
(andmap quotable? (vector->list (struct->vector v)))]
[(struct? v) (if (custom-write? v)
(if (and (custom-print-as-constructor? v)
(custom-print-as-constructor-accessor v))
#f
#t)
(case (or (and (custom-print-quotable? v)
(custom-print-quotable-accessor v))
'self)
[(self always) #t]
[(never) #f]
[(maybe)
(andmap quotable? (vector->list (struct->vector v)))])
#f)]
[(struct-proxy? v) #f]
[(mpair? v) #f]