]> gitweb.factorcode.org Git - factor.git/commitdiff
morse: fix help lint
authorSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Mon, 20 Apr 2009 09:25:11 +0000 (04:25 -0500)
committerSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Mon, 20 Apr 2009 09:25:11 +0000 (04:25 -0500)
extra/morse/morse-docs.factor

index 93350ad02d3da97bb49ad328bd43ca864e6dd8db..e2fab1528b519c0c321e468abc55affa16e639e6 100644 (file)
@@ -5,7 +5,7 @@ IN: morse
 
 HELP: ch>morse
 { $values
-    { "ch" "A character that has a morse code translation" } { "str" "A string consisting of zero or more dots and dashes" } }
+    { "ch" "A character that has a morse code translation" } { "morse" "A string consisting of zero or more dots and dashes" } }
 { $description "If the given character has a morse code translation, then return that translation, otherwise return a ? character." } ;
 
 HELP: morse>ch
@@ -15,12 +15,12 @@ HELP: morse>ch
 
 HELP: >morse
 { $values
-    { "str" "A string of ASCII characters which can be translated into morse code" } { "str" "A string in morse code" } }
+    { "str" "A string of ASCII characters which can be translated into morse code" } { "newstr" "A string in morse code" } }
 { $description "Translates ASCII text into morse code, represented by a series of dots, dashes, and slashes." }
 { $see-also morse> ch>morse } ;
 
 HELP: morse>
-{ $values { "str" "A string of morse code, in which the character '.' represents dots, '-' dashes, ' ' spaces between letters, and ' / ' spaces between words." } { "str" "The ASCII translation of the given string" } }
+{ $values { "morse" "A string of morse code, in which the character '.' represents dots, '-' dashes, ' ' spaces between letters, and ' / ' spaces between words." } { "plain" "The ASCII translation of the given string" } }
 { $description "Translates morse code into ASCII text" }
 { $see-also >morse morse>ch } ;