allow pict-pat on pin-arrow-line, etc. (PR 9934): should merge to 4.1.5

svn: r14126
This commit is contained in:
Matthew Flatt 2009-03-16 13:13:34 +00:00
parent 499464527e
commit 1547638f3b

View File

@ -56,19 +56,25 @@
clip
hyperlinkize)
(define (pict-path? p)
(or (pict? p)
(and (pair? p)
(list? p)
(andmap pict? p))))
(provide/contract
[pin-line (->* (pict?
pict? (-> pict? pict? (values number? number?))
pict? (-> pict? pict? (values number? number?)))
pict-path? (-> pict? pict-path? (values number? number?))
pict-path? (-> pict? pict-path? (values number? number?)))
((or/c false/c number?)
(or/c false/c string?)
boolean?)
pict?)]
[pin-arrow-line (->* (number?
pict?
pict? (-> pict? pict? (values number? number?))
pict? (-> pict? pict? (values number? number?)))
pict-path? (-> pict? pict-path? (values number? number?))
pict-path? (-> pict? pict-path? (values number? number?)))
((or/c false/c number?)
(or/c false/c string?)
boolean?
@ -76,8 +82,8 @@
#:hide-arrowhead? any/c)
pict?)]
[pin-arrows-line (->* (number? pict?
pict? (-> pict? pict? (values number? number?))
pict? (-> pict? pict? (values number? number?)))
pict-path? (-> pict? pict-path? (values number? number?))
pict-path? (-> pict? pict-path? (values number? number?)))
((or/c false/c number?)
(or/c false/c string?)
boolean?