add contract to cellophane

2014-07-13 07:16:14 -05:00 · 2014-07-13 07:16:14 -05:00 · dc6382cee9
commit dc6382cee9
parent 3e5ba1b51a
1 changed files with 3 additions and 2 deletions
--- a/pkgs/pict-pkgs/pict-lib/pict/main.rkt
+++ b/pkgs/pict-pkgs/pict-lib/pict/main.rkt
@ -18,9 +18,10 @@
             hc-append
             hb-append
             htl-append
-             hbl-append)
+             hbl-append
+             cellophane)
 (contract-out
-  
+  [cellophane (-> pict? (real-in 0 1) pict?)]
  [vl-append *-append/c]
  [vc-append *-append/c]
  [vr-append *-append/c]