From 016a0d52ec14e92e0ab6a91b69902210eb2fafe0 Mon Sep 17 00:00:00 2001
From: John Clements <clements@racket-lang.org>
Date: Thu, 4 Jun 2009 05:36:51 +0000
Subject: [PATCH] looks like a simple type error

svn: r15075
---
 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 beda946401..c9394f272f 100644
--- a/collects/plot/view.ss
+++ b/collects/plot/view.ss
@@ -111,7 +111,7 @@
       ;set-line-color : symbol -> nothing
       (define (set-line-color color)
         (let ((index (cond [(assq color colors ) => cadr]
-                           [else (error (string-append "color \"" color "\" not found"))])))
+                           [else (error (format "color ~v not found" color))])))
           (pl-select-colormap0-index index)))
 
       ; start the plot