From 1bc39df8386ae0a17da4d54f285f7da111102727 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.(none)>
Date: Tue, 26 May 2009 12:01:28 -0500
Subject: [PATCH] fix using, make sure article-only title sort works

---
 basis/sorting/human/human.factor       | 3 ++-
 basis/sorting/title/title-tests.factor | 6 ++++++
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/basis/sorting/human/human.factor b/basis/sorting/human/human.factor
index 56de7f2f48..7487f559ed 100644
--- a/basis/sorting/human/human.factor
+++ b/basis/sorting/human/human.factor
@@ -1,6 +1,7 @@
 ! Copyright (C) 2008 Doug Coleman, Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: math.parser peg.ebnf sorting.functor ;
+USING: accessors kernel math math.order math.parser peg.ebnf
+sequences sorting.functor ;
 IN: sorting.human
 
 : find-numbers ( string -- seq )
diff --git a/basis/sorting/title/title-tests.factor b/basis/sorting/title/title-tests.factor
index 65a58e463d..1e978838c5 100644
--- a/basis/sorting/title/title-tests.factor
+++ b/basis/sorting/title/title-tests.factor
@@ -8,6 +8,9 @@ IN: sorting.title.tests
         "The Beatles"
         "A river runs through it"
         "Another"
+        "The"
+        "A"
+        "Los"
         "la vida loca"
         "Basketball"
         "racquetball"
@@ -21,6 +24,7 @@ IN: sorting.title.tests
     } ;
 [
     {
+        "A"
         "Another"
         "Basketball"
         "The Beatles"
@@ -29,10 +33,12 @@ IN: sorting.title.tests
         "for the horde"
         "Los Fujis"
         "los Fujis"
+        "Los"
         "of mice and men"
         "on belay"
         "racquetball"
         "A river runs through it"
+        "The"
         "la vida loca"
     }
 ] [