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

Fixed an internal function contract

Browse Source
This commit is contained in:
Neil Toronto 2012-02-26 16:22:20 -07:00
parent 6edf9c16d4
commit bf97780eda
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/plot/common/ticks.rkt
View File

@ -700,7 +700,7 @@
[(m . = . 1) (filter pre-tick-major? ts)]
[else (list (collapse-equiv-ticks (filter pre-tick-major? ts) near-format-string))])))))
(defproc (pre-tick-inexact->exact [t tick?]) tick?
(defproc (pre-tick-inexact->exact [t pre-tick?]) pre-tick?
(match-define (pre-tick x major?) t)
(pre-tick (inexact->exact x) major?))