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

added contract to scale

Browse Source
This commit is contained in:
Robby Findler 2010-09-26 09:24:15 -05:00
parent c0e34a7166
commit 827679e9db
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/texpict/utils.rkt
View File

@ -47,7 +47,6 @@
color-series
scale-color
scale
scale/improve-new-text
cellophane
@ -56,7 +55,7 @@
clip
hyperlinkize)
(define (pict-path? p)
(or (pict? p)
(and (pair? p)
@ -64,6 +63,8 @@
(andmap pict? p))))
(provide/contract
[scale (case-> (-> pict? number? number? pict?)
(-> pict? number? pict?))]
[pin-line (->* (pict?
pict-path? (-> pict? pict-path? (values number? number?))
pict-path? (-> pict? pict-path? (values number? number?)))