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

Types are not quotable.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-06-24 16:47:25 -04:00
parent 5b1118d514
commit 40ca16bc30
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/typed-scheme/utils/utils.rkt
View File

@ -152,9 +152,10 @@ at least theoretically.
(syntax-parse stx (syntax-parse stx
[(form name (flds ...) printer:expr) [(form name (flds ...) printer:expr)
#`(define-struct name (flds ...) #`(define-struct name (flds ...)
#:property prop:custom-print-quotable 'never
#:property prop:custom-write #:property prop:custom-write
(lambda (a b c) (if (custom-printer) (printer a b c) (pseudo-printer a b c))) (lambda (a b c) (if (custom-printer) (printer a b c) (pseudo-printer a b c)))
#:inspector #f)])) #:transparent)]))
;; turn contracts on and off - off by default for performance. ;; turn contracts on and off - off by default for performance.