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

fix custom printer attached to *SL structure types

Browse Source
This commit is contained in:
Matthew Flatt 2010-08-24 06:23:22 -06:00
parent 31f6a0da4e
commit 0955ed6e8b
1 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -821,16 +821,20 @@
#`(recur (raw-generic-access r #,i)))
fields))))
(cons prop:custom-write
(let ((n (string->symbol (string-append "struct:"
(symbol->string 'name_)))))
(lambda (r port write?)
(let ((v (vector n
#,@(map-with-index (lambda (i _)
#`(raw-generic-access r #,i))
fields))))
(if write?
(write v port)
(display v port))))))
;; Need a transparent-like printer, but hide auto field.
;; This simplest way to do that is to create an instance
;; of a transparet structure with the same name and field values.
(let-values ([(struct:plain make-plain plain? plain-ref plain-set)
(make-struct-type 'name_ #f #,field-count 0 #f null #f)])
(lambda (r port mode)
(let ((v (make-plain
#,@(map-with-index (lambda (i _)
#`(raw-generic-access r #,i))
fields))))
(cond
[(eq? mode #t) (write v port)]
[(eq? mode #f) (display v port)]
[else (print v port mode)])))))
(cons prop:equal+hash
(list
(lambda (r1 r2 equal?)