From 093919aaac8b57c36f119b74cd1a886d19386514 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 16 Sep 2006 15:12:57 +0000 Subject: [PATCH] fixed contracts svn: r4353 --- collects/texpict/utils.ss | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/collects/texpict/utils.ss b/collects/texpict/utils.ss index a8a3eef616..9b92ed8419 100644 --- a/collects/texpict/utils.ss +++ b/collects/texpict/utils.ss @@ -65,17 +65,25 @@ [pin-line (opt-> (pict? pict? (-> pict? pict? (values number? number?)) pict? (-> pict? pict? (values number? number?))) - (number? string? boolean?) + ((union false/c number?) + (union false/c string?) + boolean?) pict?)] [pin-arrow-line (opt-> (number? pict? pict? (-> pict? pict? (values number? number?)) pict? (-> pict? pict? (values number? number?))) - (number? string? boolean? boolean?) + ((union false/c number?) + (union false/c string?) + boolean? + boolean?) pict?)] [pin-arrows-line (opt-> (number? pict? pict? (-> pict? pict? (values number? number?)) pict? (-> pict? pict? (values number? number?))) - (number? string? boolean? boolean?) + ((union false/c number?) + (union false/c string?) + boolean? + boolean?) pict?)])