circular: use <array> instead of { } new-sequence.

diff --git a/basis/circular/circular.factor b/basis/circular/circular.factor
index a634b326aa9212d20f786782429c6586f27466a4..c49d20aa22c834bad229c10edafb79a60bef3efa 100644 (file)
--- a/basis/circular/circular.factor
+++ b/basis/circular/circular.factor
@@ -1,7 +1,6 @@
 ! Copyright (C) 2005, 2006 Alex Chapman, Daniel Ehrenberg
 ! See http://factorcode.org/license.txt for BSD license
-USING: kernel sequences math sequences.private strings
-accessors locals fry ;
+USING: accessors arrays fry kernel math sequences strings ;
 IN: circular
 
 TUPLE: circular { seq read-only } { start integer } ;
@@ -54,7 +53,7 @@ PRIVATE>
     [ [ 1 + ] change-length set-last ] if ;
 
 : <growing-circular> ( capacity -- growing-circular )
-    { } new-sequence 0 0 growing-circular boa ; inline
+    f <array> 0 0 growing-circular boa ; inline
 
 TUPLE: circular-iterator
     { circular read-only } { n integer } { last-start integer } ;