cleaner >short-array

2005-10-09 18:18:44 +00:00 · 2005-10-09 18:18:44 +00:00 · 5dc9e2d56b
parent 732b269933
commit 5dc9e2d56b
1 changed files with 3 additions and 3 deletions
--- 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 [