cocoa.apple-script: fix help-lint

diff --git a/basis/cocoa/apple-script/apple-script-docs.factor b/basis/cocoa/apple-script/apple-script-docs.factor
index b0872170f2ddd029153459fd01b9adbbc36d41b0..5b4bf14833f0fc7a103d997cb7e89cb0d596102c 100644 (file)
--- a/basis/cocoa/apple-script/apple-script-docs.factor
+++ b/basis/cocoa/apple-script/apple-script-docs.factor
@@ -1,8 +1,8 @@
 USING: help.markup help.syntax strings ;
 IN: cocoa.apple-script
 
-HELP: quote-apple-script 
-{ $values { "str" string } }
+HELP: quote-apple-script
+{ $values { "str" string } { "str'" string } }
 { $description "Escape special characters in a string to make it suitable as a literal string in AppleScript code." } ;
 
 HELP: run-apple-script