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

fix quotability annotation on HtDP-language structs

Browse Source 
Merge to 5.0.2
(cherry picked from commit 9f959f247e)
This commit is contained in:
Matthew Flatt 2010-10-17 19:24:40 -07:00 committed by Ryan Culpepper
parent 81a6c4ff43
commit 478425520f
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/lang/private/teach.rkt
View File

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