From 5ebff2fd07a71676996abf3dee899913b7a58f33 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 14 Aug 2008 19:10:21 +0000
Subject: [PATCH] now exporting white-bracket-sizing.... (duh)

svn: r11245
---
 collects/redex/pict.ss                | 4 +++-
 collects/redex/private/core-layout.ss | 1 +
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/collects/redex/pict.ss b/collects/redex/pict.ss
index f9dc0ac11b..41dc82b83c 100644
--- a/collects/redex/pict.ss
+++ b/collects/redex/pict.ss
@@ -37,7 +37,9 @@
  [non-terminal-style (parameter/c text-style/c)]
  [non-terminal-subscript-style (parameter/c text-style/c)]
  [linebreaks (parameter/c (or/c false/c (listof boolean?)))]
- [curly-quotes-for-strings (parameter/c boolean?)])
+ [curly-quotes-for-strings (parameter/c boolean?)]
+ [white-bracket-sizing (parameter/c
+                        (-> string? number? (values number? number? number? number?)))])
 
 (provide/contract
  [rule-pict-style 
diff --git a/collects/redex/private/core-layout.ss b/collects/redex/private/core-layout.ss
index 39a5caecd0..e35dd286b0 100644
--- a/collects/redex/private/core-layout.ss
+++ b/collects/redex/private/core-layout.ss
@@ -32,6 +32,7 @@
            with-compound-rewriter
            with-atomic-rewriter
            STIX?
+           white-bracket-sizing
            
            ;; for test suite
            build-lines