From 5dc9e2d56bfef62dca59d0a374c6eba6e48d3f8a Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <microdan@gmail.com>
Date: Sun, 9 Oct 2005 18:18:44 +0000
Subject: [PATCH] cleaner >short-array

---
 library/ui/paint.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/library/ui/paint.factor b/library/ui/paint.factor
index fc0c766057..35a89b09fd 100644
--- a/library/ui/paint.factor
+++ b/library/ui/paint.factor
@@ -176,9 +176,9 @@ M: gadget draw-gadget* ( gadget -- )
 TUPLE: polygon points ;
 
 : >short-array ( seq -- short-array )
-    dup length <short-array> over length [
-        [ tuck >r >r swap nth r> r> swap set-short-nth ] 3keep
-    ] repeat nip ;
+    dup length dup <short-array> -rot [
+        pick set-short-nth
+    ] 2each ;
 
 : polygon-x/y ( gadget polygon -- vx vy n )
     polygon-points [