From 4ad97e8ea72fb69c10c67e189f89a19b189822b4 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Sun, 20 Jul 2008 04:56:22 -0500
Subject: [PATCH] math.geometry.rect: fix using

---
 extra/math/geometry/rect/rect.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/math/geometry/rect/rect.factor b/extra/math/geometry/rect/rect.factor
index c04d4011b2..862d50c5cd 100644
--- a/extra/math/geometry/rect/rect.factor
+++ b/extra/math/geometry/rect/rect.factor
@@ -1,11 +1,11 @@
 
-USING: kernel arrays math.vectors math.geometry ;
+USING: kernel arrays sequences math.vectors math.geometry accessors ;
 
 IN: math.geometry.rect
 
 TUPLE: rect loc dim ;
 
-: init-rect ( rect -- rect ) { 0 0 } clone { 0 0 } clone <rect> ;
+: init-rect ( rect -- rect ) { 0 0 } clone >>loc { 0 0 } clone >>dim ;
 
 : <rect> ( loc dim -- rect ) rect boa ;