From fbe6dd9b63106583f00aeab6fc65d6ef462f2251 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 1 Sep 2008 22:44:43 -0500
Subject: [PATCH] new accessors

---
 basis/ui/gadgets/packs/packs.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/ui/gadgets/packs/packs.factor b/basis/ui/gadgets/packs/packs.factor
index ed64c1e990..207708afdf 100755
--- a/basis/ui/gadgets/packs/packs.factor
+++ b/basis/ui/gadgets/packs/packs.factor
@@ -32,7 +32,7 @@ TUPLE: pack < gadget
 : pack-layout ( pack sizes -- )
     round-dims over children>>
     >r dupd packed-dims r> 2dup [ (>>dim) ] 2each
-    >r packed-locs r> [ set-rect-loc ] 2each ;
+    >r packed-locs r> [ (>>loc) ] 2each ;
 
 : <pack> ( orientation -- pack )
     pack new-gadget