From 17a50c649bbde9959f585e3bff3f5d0a3ad3294c Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 24 Jul 2012 14:40:36 -0700
Subject: [PATCH] vocabs: enforce sorting of keyed vocabs.

---
 basis/help/vocabs/vocabs.factor | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/basis/help/vocabs/vocabs.factor b/basis/help/vocabs/vocabs.factor
index 2fe1321050..5827a3749a 100644
--- a/basis/help/vocabs/vocabs.factor
+++ b/basis/help/vocabs/vocabs.factor
@@ -254,8 +254,10 @@ C: <vocab-author> vocab-author
     } cleave ;
 
 : keyed-vocabs ( str quot -- seq )
-    [ all-vocabs-recursive ] 2dip
-    '[ [ _ swap @ member? ] filter no-prefixes ] assoc-map ; inline
+    [ all-vocabs-recursive ] 2dip '[
+        [ _ swap @ member? ] filter no-prefixes
+        [ name>> ] sort-with
+    ] assoc-map ; inline
 
 : tagged ( tag -- assoc )
     [ vocab-tags ] keyed-vocabs ;