suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed contracts

Browse Source 
svn: r4353
This commit is contained in:
Robby Findler 2006-09-16 15:12:57 +00:00
parent 2c2cd817ec
commit 093919aaac
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/texpict/utils.ss
View File

@ -65,17 +65,25 @@
[pin-line (opt-> (pict? [pin-line (opt-> (pict?
pict? (-> pict? pict? (values number? number?)) pict? (-> pict? pict? (values number? number?))
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?)] pict?)]
[pin-arrow-line (opt-> (number? pict? [pin-arrow-line (opt-> (number? pict?
pict? (-> pict? pict? (values number? number?)) pict? (-> pict? pict? (values number? number?))
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?)] pict?)]
[pin-arrows-line (opt-> (number? pict? [pin-arrows-line (opt-> (number? pict?
pict? (-> pict? pict? (values number? number?)) pict? (-> pict? pict? (values number? number?))
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?)]) pict?)])