From 1c3e4f070a01ea8316d0886695d7760e9a7ef164 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 28 Nov 2008 02:31:21 -0600
Subject: [PATCH] I accidentally the UI

---
 basis/ui/gadgets/gadgets-tests.factor | 7 +++++++
 basis/ui/gadgets/gadgets.factor       | 2 +-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/basis/ui/gadgets/gadgets-tests.factor b/basis/ui/gadgets/gadgets-tests.factor
index 01d695c281..c3a7216910 100644
--- a/basis/ui/gadgets/gadgets-tests.factor
+++ b/basis/ui/gadgets/gadgets-tests.factor
@@ -152,6 +152,13 @@ M: mock-gadget ungraft*
     { { f f } { f t } { t f } { t t } } [ notify-combo ] assoc-each
 ] with-string-writer print
 
+[ { { 10 30 } } ] [
+    <gadget> { 0 1 } >>orientation
+    { { 10 20 } }
+    { { 100 30 } }
+    orient
+] unit-test
+
 \ <gadget> must-infer
 \ unparent must-infer
 \ add-gadget must-infer
diff --git a/basis/ui/gadgets/gadgets.factor b/basis/ui/gadgets/gadgets.factor
index a1386eef53..51c8f07225 100644
--- a/basis/ui/gadgets/gadgets.factor
+++ b/basis/ui/gadgets/gadgets.factor
@@ -93,7 +93,7 @@ M: gadget children-on nip children>> ;
 : dim-sum ( seq -- dim ) { 0 0 } [ v+ ] reduce ;
 
 : orient ( gadget seq1 seq2 -- seq )
-    rot orientation>> '[ [ _ ] 2dip set-axis ] 2map ;
+    rot orientation>> '[ _ set-axis ] 2map ;
 
 : each-child ( gadget quot -- )
     [ children>> ] dip each ; inline