From 41040c6a7b2a75093d2a5229f1e98f36a0f4cbfe Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Sat, 12 Aug 2006 21:02:14 +0000
Subject: [PATCH] apropos now prints the score

---
 library/tools/word-tools.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/library/tools/word-tools.factor b/library/tools/word-tools.factor
index 2d300dcc83..c1aef3287c 100644
--- a/library/tools/word-tools.factor
+++ b/library/tools/word-tools.factor
@@ -99,6 +99,8 @@ math namespaces prettyprint sequences strings styles ;
 : apropos ( str -- )
     completions [
         first3 dup presented associate [
-            word-name fuzzy. drop
+            dup word-vocabulary write bl word-name fuzzy.
+            " (score: " swap >fixnum number>string ")" append3
+            write
         ] with-nesting terpri
     ] each ;