From aee93fb20042f7f1cdaf4a8009cad227a74f6a95 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Wed, 12 Aug 2015 17:39:24 -0400 Subject: [PATCH] added racket/struct with make-constructor-style-printer --- racket/collects/racket/struct.rkt | 8 ++++++++ racket/collects/unstable/custom-write.rkt | 10 ++++------ 2 files changed, 12 insertions(+), 6 deletions(-) create mode 100644 racket/collects/racket/struct.rkt diff --git a/racket/collects/racket/struct.rkt b/racket/collects/racket/struct.rkt new file mode 100644 index 0000000000..765e6bca5e --- /dev/null +++ b/racket/collects/racket/struct.rkt @@ -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?))])) diff --git a/racket/collects/unstable/custom-write.rkt b/racket/collects/unstable/custom-write.rkt index fb85bfb655..de68d943f9 100644 --- a/racket/collects/unstable/custom-write.rkt +++ b/racket/collects/unstable/custom-write.rkt @@ -1,13 +1,11 @@ #lang racket/base -(require racket/pretty +(require racket/struct + racket/pretty racket/match racket/sequence 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?))] +(provide make-constructor-style-printer + (contract-out [prop:auto-custom-write (struct-type-property/c 'constructor)]))