From ce4486d00f69705bf378ad9d55e8c444e82c52dc Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <wayo.cavazos@gmail.com>
Date: Sat, 29 Sep 2007 13:28:09 -0500
Subject: [PATCH] Update benchmark.mandel for new colors.hsv

---
 extra/benchmark/mandel/mandel.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/benchmark/mandel/mandel.factor b/extra/benchmark/mandel/mandel.factor
index 5099a5e0a7..0ad7c5e26d 100644
--- a/extra/benchmark/mandel/mandel.factor
+++ b/extra/benchmark/mandel/mandel.factor
@@ -19,8 +19,8 @@ math.functions math.parser io.files colors.hsv ;
 
 : <color-map> ( nb-cols -- map )
     dup [
-        360 * swap 1+ / 360 / sat val
-        hsv>rgb scale-rgb
+        360 * swap 1+ / sat val
+        3array hsv>rgb first3 scale-rgb
     ] curry* map ;
 
 : iter ( c z nb-iter -- x )