From dc6382cee9135cf0d617e52a3cb3aec5bffe58e5 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 13 Jul 2014 07:16:14 -0500 Subject: [PATCH] add contract to cellophane --- pkgs/pict-pkgs/pict-lib/pict/main.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/pkgs/pict-pkgs/pict-lib/pict/main.rkt b/pkgs/pict-pkgs/pict-lib/pict/main.rkt index e1186c6ff8..93055bf736 100644 --- 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]