fix quotability annotation on HtDP-language structs

Merge to 5.0.2
This commit is contained in:
Matthew Flatt 2010-10-17 19:24:40 -07:00
parent bb799ee9ee
commit 9f959f247e

View File

@ -824,6 +824,8 @@
#,@(map-with-index (lambda (i _)
#`(recur (raw-generic-access r #,i)))
fields))))
(cons prop:custom-print-quotable
'never)
(cons prop:custom-write
;; Need a transparent-like printer, but hide auto field.
;; This simplest way to do that is to create an instance