From 827679e9db2ead226368375453b7872ff4d406d0 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sun, 26 Sep 2010 09:24:15 -0500
Subject: [PATCH] added contract to scale

---
 collects/texpict/utils.rkt | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/collects/texpict/utils.rkt b/collects/texpict/utils.rkt
index 121568d159..506549ef46 100644
--- a/collects/texpict/utils.rkt
+++ b/collects/texpict/utils.rkt
@@ -47,7 +47,6 @@
            
            color-series
            scale-color
-	   scale
 	   scale/improve-new-text
            
            cellophane
@@ -56,7 +55,7 @@
            clip
 
 	   hyperlinkize)
-
+  
   (define (pict-path? p)
     (or (pict? p) 
         (and (pair? p)
@@ -64,6 +63,8 @@
              (andmap pict? p))))
   
   (provide/contract 
+   [scale (case-> (-> pict? number? number? pict?)
+                  (-> pict? number? pict?))]
    [pin-line (->* (pict?
                    pict-path? (-> pict? pict-path? (values number? number?))
                    pict-path? (-> pict? pict-path? (values number? number?)))