From bf97780eda024124acd374e91481661df9169b97 Mon Sep 17 00:00:00 2001 From: Neil Toronto Date: Sun, 26 Feb 2012 16:22:20 -0700 Subject: [PATCH] Fixed an internal function contract --- collects/plot/common/ticks.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/plot/common/ticks.rkt b/collects/plot/common/ticks.rkt index 3f21a145c1..1b952943f2 100644 --- a/collects/plot/common/ticks.rkt +++ b/collects/plot/common/ticks.rkt @@ -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?))