fix help lint

diff --git a/basis/db/types/types-docs.factor b/basis/db/types/types-docs.factor
index 590a2e432f80eaaeb3f956e3653fd350f7f7e70c..401bbbc4d7f7de8928dc32a65d02b3fd5cf3ab73 100644 (file)
--- a/basis/db/types/types-docs.factor
+++ b/basis/db/types/types-docs.factor
@@ -102,11 +102,11 @@ HELP: URL
 HELP: VARCHAR
 { $description "The SQL varchar type.  This type can take an integer as an argument." } ;
 
-HELP: assigned-id-spec?
+HELP: user-assigned-id-spec?
 { $values
-     { "spec" null }
+     { "specs" "a sequence of sql specs" }
      { "?" "a boolean" } }
-{ $description "" } ;
+{ $description "Tests if any of the sql specs has the type " { $link +user-assigned-id+ } "." } ;
 
 HELP: bind#
 { $values
@@ -126,15 +126,15 @@ HELP: compound
 
 HELP: db-assigned-id-spec?
 { $values
-     { "spec" null }
+     { "specs" "a sequence of sql specs" }
      { "?" "a boolean" } }
-{ $description "" } ;
+{ $description "Tests if any of the sql specs has the type " { $link +db-assigned-id+ } "." } ;
 
 HELP: find-primary-key
 { $values
-     { "specs" "an array of sql-specs" }
-     { "obj" object } }
-{ $description "Returns the row from the sql-specs array." }
+     { "specs" "a sequence of sql-specs" }
+     { "seq" "a sequence of sql-specs" } }
+{ $description "Returns the rows from the sql-specs array that are part of the primary key. Composite primary keys are supported, so this word must return a sequence." }
 { $notes "This is a low-level word." } ;
 
 HELP: generator-bind
@@ -183,7 +183,9 @@ HELP: modifiers
 { $description "" } ;
 
 HELP: no-sql-type
-{ $description "" } ;
+{ $values
+     { "type" "a sql type" } }
+{ $description "Throws an error containing a sql type that is unsupported or the result of a typo." } ;
 
 HELP: normalize-spec
 { $values
@@ -250,7 +252,8 @@ HELP: sql-spec
 { $description "" } ;
 
 HELP: unknown-modifier
-{ $description "" } ;
+{ $values { "modifier" string } }
+{ $description "Throws an error containing an unknown sql modifier." } ;
 
 ARTICLE: "db.types" "Database types"
 "The " { $vocab-link "db.types" } " vocabulary maps Factor types to database types." $nl

diff --git a/basis/db/types/types.factor b/basis/db/types/types.factor
index 43feed69c82ddc9e997d4acebe91481311a94260..bc33792e52432cbc6a30cf26b62cf4f26c111d47 100755 (executable)
--- a/basis/db/types/types.factor
+++ b/basis/db/types/types.factor
@@ -65,7 +65,7 @@ ERROR: not-persistent class ;
 : db-assigned-id-spec? ( specs -- ? )
     [ primary-key>> +db-assigned-id+? ] contains? ;
 
-: assigned-id-spec? ( specs -- ? )
+: user-assigned-id-spec? ( specs -- ? )
     [ primary-key>> +user-assigned-id+? ] contains? ;
 
 : normalize-spec ( spec -- )