From 6662637374d03fd98262dba1c2406123bde4c687 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Mon, 27 Mar 2006 00:13:34 +0000
Subject: [PATCH] Documentation fixes and bootstrap fix

---
 library/alien/c-types.facts | 6 +++---
 library/words.factor        | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/library/alien/c-types.facts b/library/alien/c-types.facts
index aa6e39c831..8c844ddda8 100644
--- a/library/alien/c-types.facts
+++ b/library/alien/c-types.facts
@@ -56,21 +56,21 @@ HELP: alien>string "( c-ptr -- string )"
 HELP: <malloc-array> "( n type -- alien )"
 { $values { "n" "a non-negative integer" } { "type" "a string" } { "alien" "an alien address" } }
 { $description "Allocates an unmanaged memory block large enough to hold " { $snippet "n" } " values of a C type." }
-{ $warning "You must free blocks with a call to " { $link free } " when they are no longer needed." }
+{ $warning "Don't forget to deallocate the memory with a call to  " { $link free } "." }
 { $errors "Throws an error if the type does not exist, if the requested size is negative, or if memory allocation fails." }
 { $see-also <c-array> } ;
 
 HELP: <malloc-object> "( type -- alien )"
 { $values { "type" "a string" } { "alien" "an alien address" } }
 { $description "Allocates an unmanaged memory block large enough to hold a value of a C type." }
-{ $warning "You must free blocks with a call to " { $link free } " when they are no longer needed." }
+{ $warning "Don't forget to deallocate the memory with a call to  " { $link free } "." }
 { $errors "Throws an error if the type does not exist or if memory allocation fails." } 
 { $see-also <c-object> } ;
 
 HELP: <malloc-string> "( string -- alien )"
 { $values { "string" "a string" } { "alien" "an alien address" } }
 { $description "Copies a string to an unmanaged memory block large enough to hold a copy of the string in 8-bit ASCII encoding, with a trailing null byte." }
-{ $warning "You must free blocks with a call to " { $link free } " when they are no longer needed." }
+{ $warning "Don't forget to deallocate the memory with a call to  " { $link free } "." }
 { $errors "Throws an error if memory allocation fails." }
 { $see-also string>alien } ;
 
diff --git a/library/words.factor b/library/words.factor
index 409c8787e6..b495089158 100644
--- a/library/words.factor
+++ b/library/words.factor
@@ -46,7 +46,7 @@ SYMBOL: crossref
 : (add-crossref) crossref get [ dupd nest set-hash ] bind ;
 
 : add-crossref ( word -- )
-    crossref get over interned? and [
+    crossref get over word-vocabulary and [
         dup dup uses [ (add-crossref) ] each-with
     ] when drop ;