Fixes to v-checkbox

diff --git a/basis/validators/validators-docs.factor b/basis/validators/validators-docs.factor
index 67c9f4fcebd79569f5ade9f20718ade9f0020b3e..8f5a5875690d03eba157b689178510c967948a2d 100644 (file)
--- a/basis/validators/validators-docs.factor
+++ b/basis/validators/validators-docs.factor
@@ -3,7 +3,7 @@ strings math regexp regexp.backend ;
 IN: validators
 
 HELP: v-checkbox
-{ $values { "str" string } }
+{ $values { "str" string } {  "?" "a boolean" } }
 { $description "Converts the string value of a checkbox component (either \"on\" or \"off\") to a boolean value." } ;
 
 HELP: v-captcha

diff --git a/basis/validators/validators.factor b/basis/validators/validators.factor
index 04c85cd6db602fc48ebdad30602c7b534ff249d8..e49f608e946c0c679efc0c6039ebb27c266a10dc 100644 (file)
--- a/basis/validators/validators.factor
+++ b/basis/validators/validators.factor
@@ -2,11 +2,11 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel continuations sequences math namespaces make sets
 math.parser math.ranges assocs regexp unicode.categories arrays
-hashtables words classes quotations xmode.catalog ;
+hashtables words classes quotations xmode.catalog unicode.case ;
 IN: validators
 
 : v-checkbox ( str -- ? )
-    "on" = ;
+    >lower "on" = ;
 
 : v-default ( str def -- str/def )
     over empty? spin ? ;