From 062dd4a1aacedc33c2cd3445223506d12774c6c3 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Fri, 19 May 2006 02:02:20 +0000
Subject: [PATCH] Better word comparison

---
 library/words.factor | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/library/words.factor b/library/words.factor
index b832adb72c..5c7acd9cd4 100644
--- a/library/words.factor
+++ b/library/words.factor
@@ -4,7 +4,12 @@ IN: words
 USING: errors graphs hashtables kernel kernel-internals
 math namespaces sequences strings vectors ;
 
-M: word <=> [ word-name ] 2apply <=> ;
+M: word <=>
+    2dup [ word-vocabulary ] 2apply <=> dup zero? [
+        drop [ word-name ] 2apply <=>
+    ] [
+        2nip
+    ] if ;
 
 GENERIC: definer ( word -- word )