fix quotability annotation on HtDP-language structs

Merge to 5.0.2 (cherry picked from commit 9f959f247e)
2010-10-17 19:24:40 -07:00 · 2010-10-17 19:24:40 -07:00 · 478425520f
commit 478425520f
parent 81a6c4ff43
1 changed files with 2 additions and 0 deletions
--- a/collects/lang/private/teach.rkt
+++ b/collects/lang/private/teach.rkt
@ -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