From 6906fad725e0e9f7ad737e875e6db8fdb3588273 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 30 Jan 2009 03:45:39 -0600
Subject: [PATCH] Fixing help-lint issues

---
 basis/colors/colors-docs.factor | 2 +-
 basis/colors/colors.factor      | 6 +++---
 basis/opengl/opengl-docs.factor | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/basis/colors/colors-docs.factor b/basis/colors/colors-docs.factor
index be700c90da..bd7da76234 100644
--- 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 612b180572..89f2dd1cd4 100644
--- 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 cb656a3b24..1338cd842d 100644
--- 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