From fd740ee042d2fad35aaa80fa9cc1ce65e8de7bab Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Tue, 1 Aug 2006 21:41:10 +0000
Subject: [PATCH] Bootstrap fixes

---
 doc/handbook/alien.facts          |  3 ++-
 doc/handbook/handbook.facts       | 12 +++++++-----
 library/syntax/early-parser.facts |  2 +-
 library/tools/memory.facts        |  2 +-
 4 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/doc/handbook/alien.facts b/doc/handbook/alien.facts
index a502ac526d..a0046d8963 100644
--- a/doc/handbook/alien.facts
+++ b/doc/handbook/alien.facts
@@ -1,4 +1,5 @@
-USING: alien arrays help libc math ;
+IN: alien
+USING: arrays errors help libc math ;
 
 ARTICLE: "alien" "C library interface"
 "Factor can directly call C functions in native libraries. It is also possible to compile callbacks which run Factor code, and pass them to native libraries as function pointers."
diff --git a/doc/handbook/handbook.facts b/doc/handbook/handbook.facts
index 2a93d063e9..f672dd875a 100644
--- a/doc/handbook/handbook.facts
+++ b/doc/handbook/handbook.facts
@@ -1,5 +1,7 @@
-USING: generic hashtables help inspector modules namespaces
-parser prettyprint sequences words ;
+USING: alien errors generic hashtables help inference inspector
+io-internals io libc math-internals modules namespaces parser
+prettyprint queues sequences sequences-internals test words 
+kernel generic ;
 
 ARTICLE: "handbook" "Factor documentation"
 { $subsection "changes" }
@@ -41,7 +43,7 @@ ARTICLE: "handbook" "Factor documentation"
 { $subsection "primitive-index" }
 { $subsection "error-index" }
 { $subsection "type-index" }
-{ $subsection "class-index" };
+{ $subsection "class-index" } ;
 
 ARTICLE: "article-index" "Article index"
 { $outliner [ articles get hash-keys ] } ;
@@ -59,14 +61,15 @@ ARTICLE: "error-index" "Type index"
 { $subsection c-stream-error             }
 { $subsection c-string-error.            }
 { $subsection callstack-overflow.        }
+{ $subsection check-closed               }
 { $subsection check-create               }
 { $subsection check-method               }
 { $subsection check-ptr                  }
+{ $subsection check-tuple                }
 { $subsection check-vocab                }
 { $subsection condition                  }
 { $subsection datastack-overflow.        }
 { $subsection datastack-underflow.       }
-{ $subsection duplex-closed              }
 { $subsection empty-queue                }
 { $subsection expired-error.             }
 { $subsection ffi-error.                 }
@@ -83,7 +86,6 @@ ARTICLE: "error-index" "Type index"
 { $subsection retainstack-underflow.     }
 { $subsection signal-error.              }
 { $subsection slice-error                }
-{ $subsection tuple-class-error          }
 { $subsection type-check-error.          }
 { $subsection undefined-symbol-error.    }
 { $subsection undefined-word-error.      }
diff --git a/library/syntax/early-parser.facts b/library/syntax/early-parser.facts
index 19f33c9844..c357dd6a0c 100644
--- a/library/syntax/early-parser.facts
+++ b/library/syntax/early-parser.facts
@@ -14,7 +14,7 @@ HELP: in f
 HELP: check-vocab "( name -- vocab )"
 { $values { "name" "a string" } { "vocab" "a hashtable or " { $link f } } }
 { $description "Outputs a named vocabulary. If the vocabulary does not exist, throws a restartable " { $link check-vocab } " error. If the user invokes the restart, this word outputs " { $link f } "." }
-{ $error-description "Thrown by " { $link POSTPONE: USE: } " and " { $link POSTPONE: USING: } " when a given vocabulary does not exist. Vocabularies must be created by " { $link POSTPONE: IN: } " before being used." }
+{ $error-description "Thrown by " { $link POSTPONE: USE: } " and " { $link POSTPONE: USING: } " when a given vocabulary does not exist. Vocabularies must be created by " { $link POSTPONE: IN: } " before being used." } ;
 
 HELP: use+ "( vocab -- )"
 { $values { "vocab" "a string" } }
diff --git a/library/tools/memory.facts b/library/tools/memory.facts
index 3a96418baf..3ca47aae7c 100644
--- a/library/tools/memory.facts
+++ b/library/tools/memory.facts
@@ -1,5 +1,5 @@
 IN: memory
-USING: help test ;
+USING: errors help test ;
 
 HELP: address "( obj -- n )"
 { $values { "obj" "an object" } { "n" "a memory address" } }