From d2c64216cfb778f80fce5516f2523126554d33fb Mon Sep 17 00:00:00 2001 From: slava Date: Sun, 17 Dec 2006 21:31:03 +0000 Subject: [PATCH] Load order fix --- core/help/markup.factor | 6 ++++++ core/help/topics.factor | 6 ------ 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/core/help/markup.factor b/core/help/markup.factor index 3f9c8a49f3..bf74290b97 100644 --- a/core/help/markup.factor +++ b/core/help/markup.factor @@ -262,3 +262,9 @@ M: f print-element drop ; [ dup article-title 2array ] map [ [ second ] 2apply <=> ] sort 0 ; + +: error? ( word -- ? ) + \ $error-description swap word-help elements empty? not ; + +: all-errors ( -- seq ) + all-words [ error? ] subset sort-articles ; diff --git a/core/help/topics.factor b/core/help/topics.factor index 32645c4cdc..fda7892e0f 100644 --- a/core/help/topics.factor +++ b/core/help/topics.factor @@ -35,12 +35,6 @@ M: f article-content drop \ f article-content ; articles get hash-keys all-words [ word-help ] subset append ; -: error? ( word -- ? ) - \ $error-description swap word-help elements empty? not ; - -: all-errors ( -- seq ) - all-words [ error? ] subset natural-sort ; - GENERIC: elements* ( elt-type element -- ) : elements ( elt-type element -- seq ) [ elements* ] { } make ;