From c054c8028a480465f2c9eafbfd57da202ba2671b Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 7 Jan 2009 12:18:30 -0600
Subject: [PATCH] Clean up some code in help.crossref

---
 basis/help/crossref/crossref.factor | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/basis/help/crossref/crossref.factor b/basis/help/crossref/crossref.factor
index 84348d7fb5..b791a4b124 100644
--- a/basis/help/crossref/crossref.factor
+++ b/basis/help/crossref/crossref.factor
@@ -27,11 +27,13 @@ M: link uses
 : unxref-article ( topic -- )
     >link unxref ;
 
+: prev/next ( obj seq n -- obj' )
+    [ [ index dup ] keep ] dip swap
+    '[ _ + _ ?nth ] when ;
+
 : prev/next-article ( article n -- article' )
     [ dup article-parent dup ] dip
-    '[ article-children [ index _ + ] keep ?nth ]
-    [ 2drop f ]
-    if ;
+    '[ article-children _ prev/next ] [ 2drop f ] if ;
 
 : prev-article ( article -- prev ) -1 prev/next-article ;