Fixing help-lint issues

diff --git a/basis/colors/colors-docs.factor b/basis/colors/colors-docs.factor
index be700c90da42845bf757d68be6609fc15d1ec69b..bd7da7623452a56a8435768692612a19823bf33c 100644 (file)
--- a/basis/colors/colors-docs.factor
+++ b/basis/colors/colors-docs.factor
@@ -2,7 +2,7 @@ IN: colors
 USING: accessors help.markup help.syntax ;
 
 HELP: color
-{ $class-description "The class of colors. Implementations include " { $link rgba } ", " { $link "colors.gray" } " and " { $link "colors.hsv" } "." } ;
+{ $class-description "The class of colors. Implementations include " { $link rgba } ", " { $link "colors.gray" } " and " { $vocab-link "colors.hsv" } "." } ;
 
 HELP: rgba
 { $class-description "The class of colors with red, green, blue and alpha channel components. The slots store color components, which are real numbers in the range 0 to 1, inclusive." } ;

diff --git a/basis/colors/colors.factor b/basis/colors/colors.factor
index 612b18057237cb6e81da36d9317c0405c36b4ffc..89f2dd1cd4a75c1d56fb6352efa9d458a259e36d 100644 (file)
--- a/basis/colors/colors.factor
+++ b/basis/colors/colors.factor
@@ -10,13 +10,13 @@ TUPLE: rgba < color red green blue alpha ;
 
 C: <rgba> rgba
 
-GENERIC: >rgba ( object -- rgba )
+GENERIC: >rgba ( color -- rgba )
 
 M: rgba >rgba ( rgba -- rgba ) ;
 
-M: color red>> ( color -- red   ) >rgba red>> ;
+M: color red>> ( color -- red ) >rgba red>> ;
 M: color green>> ( color -- green ) >rgba green>> ;
-M: color blue>> ( color -- blue  ) >rgba blue>> ;
+M: color blue>> ( color -- blue ) >rgba blue>> ;
 
 : >rgba-components ( object -- r g b a )
     >rgba { [ red>> ] [ green>> ] [ blue>> ] [ alpha>> ] } cleave ; inline

diff --git a/basis/opengl/opengl-docs.factor b/basis/opengl/opengl-docs.factor
index cb656a3b248a132389652a086d197161886e55d5..1338cd842dd7b975620ddfaa07754c5ce224b2fb 100644 (file)
--- a/basis/opengl/opengl-docs.factor
+++ b/basis/opengl/opengl-docs.factor
@@ -62,7 +62,7 @@ HELP: do-attribs
 { $description "Wraps a quotation in " { $link glPushAttrib } "/" { $link glPopAttrib } " calls." } ;
 
 HELP: make-texture
-  { $values { "dim" "a pair of integers" } { "pixmap" c-ptr } { "type" "an OpenGL texture type" } { "id" "an OpenGL texture ID" } }
+{ $values { "dim" "a pair of integers" } { "pixmap" c-ptr } { "format" "an OpenGL texture format, for example " { $link GL_UNSIGNED_BYTE } } { "type" "an OpenGL texture type, for example " { $link GL_RGBA } } { "id" "an OpenGL texture ID" } }
 { $description "Creates a new OpenGL texture from a pixmap image whose dimensions are equal to " { $snippet "dim" } "." } ;
   
 HELP: gen-dlist