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

added racket/struct with make-constructor-style-printer

Browse Source
This commit is contained in:
Ryan Culpepper 2015-08-12 17:39:24 -04:00
parent 0f6e2f8029
commit aee93fb200
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/collects/racket/struct.rkt Normal file
View File

@ -0,0 +1,8 @@
#lang racket/base
(require "private/custom-write.rkt"
racket/contract/base)
(provide (contract-out
[make-constructor-style-printer
(-> (-> any/c (or/c symbol? string?))
(-> any/c sequence?)
(-> any/c output-port? (or/c #t #f 0 1) void?))]))

10
racket/collects/unstable/custom-write.rkt
View File

@ -1,13 +1,11 @@
#lang racket/base #lang racket/base
(require racket/pretty (require racket/struct
racket/pretty
racket/match racket/match
racket/sequence racket/sequence
racket/contract/base) racket/contract/base)
(provide (contract-out (provide make-constructor-style-printer
[make-constructor-style-printer (contract-out
(-> (-> any/c (or/c symbol? string?))
(-> any/c sequence?)
(-> any/c output-port? (or/c #t #f 0 1) void?))]
[prop:auto-custom-write [prop:auto-custom-write
(struct-type-property/c 'constructor)])) (struct-type-property/c 'constructor)]))