From 3e63d3eb0197f71d59049499692a52ab38a87f0e Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <littledan@Macintosh-122.local>
Date: Wed, 18 Mar 2009 20:02:03 -0500
Subject: [PATCH] Fixing Unicode docs

---
 basis/unicode/data/data-docs.factor     | 7 ++-----
 basis/unicode/script/script-docs.factor | 6 +++++-
 2 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/basis/unicode/data/data-docs.factor b/basis/unicode/data/data-docs.factor
index 55fed31386..0123c98a67 100644
--- a/basis/unicode/data/data-docs.factor
+++ b/basis/unicode/data/data-docs.factor
@@ -1,3 +1,5 @@
+! Copyright (C) 2009 Daniel Ehrenberg
+! See http://factorcode.org/license.txt for BSD license.
 USING: help.syntax help.markup strings ;
 IN: unicode.data
 
@@ -5,7 +7,6 @@ ABOUT: "unicode.data"
 
 ARTICLE: "unicode.data" "Unicode data tables"
 "The " { $vocab-link "unicode.data" "unicode.data" } " vocabulary contains core Unicode data tables and code for parsing this from files."
-{ $subsection load-script }
 { $subsection canonical-entry }
 { $subsection combine-chars }
 { $subsection combining-class }
@@ -14,10 +15,6 @@ ARTICLE: "unicode.data" "Unicode data tables"
 { $subsection char>name }
 { $subsection property? } ;
 
-HELP: load-script
-{ $values { "filename" string } { "table" "an interval map" } }
-{ $description "This loads a file that looks like Script.txt in the Unicode Character Database and converts it into an efficient interval map, where the keys are characters and the values are strings for the properties." } ;
-
 HELP: canonical-entry
 { $values { "char" "a code point" } { "seq" string } }
 { $description "Finds the canonical decomposition (NFD) for a code point" } ;
diff --git a/basis/unicode/script/script-docs.factor b/basis/unicode/script/script-docs.factor
index 6612825c21..730c361fb9 100644
--- a/basis/unicode/script/script-docs.factor
+++ b/basis/unicode/script/script-docs.factor
@@ -1,6 +1,10 @@
-USING: help.syntax help.markup ;
+! Copyright (C) 2009 Daniel Ehrenberg
+! See http://factorcode.org/license.txt for BSD license.
+USING: help.syntax help.markup strings ;
 IN: unicode.script
 
+ABOUT: script-of
+
 HELP: script-of
 { $values { "char" "a code point" } { "script" "a symbol" } }
 { $description "Gets a symbol representing the code point of a given character. The word name of the symbol is the same as the one " } ;