From 5bb5c7aee7ddc4b48aa1154a5b108d99ca0759cb Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 29 Jul 2005 13:13:55 +0000
Subject: [PATCH] fixed fill, as reported on plt-scheme list 7/28/05

svn: r496
---
 collects/plot/view.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/plot/view.ss b/collects/plot/view.ss
index 7a3518cc0d..40ef5eccbb 100644
--- a/collects/plot/view.ss
+++ b/collects/plot/view.ss
@@ -233,7 +233,7 @@
       
       ; fill : (list-of number) (list-of number) -> void
       (define (fill xs ys)
-        (pl-fill (length xs) xs ys))
+        (pl-fill xs ys))
       
       ; plot-y-errors (listof (vector x y-min y-max)) ->nothing
       ; plots y error bars given a vector containing the x y and z (error magnitude) points