docs: change ``{ $quotation "( x -- y )" }`` to ``{ $quotation ( x -- y ) }``.

[factor.git] / basis / concurrency / mailboxes / mailboxes-docs.factor

diff --git a/basis/concurrency/mailboxes/mailboxes-docs.factor b/basis/concurrency/mailboxes/mailboxes-docs.factor
index 461650738ec96099a1038d35645c2156abd57a1e..41386fd82ee87f2eb693791d7cb380e86049dd71 100644 (file)
--- a/basis/concurrency/mailboxes/mailboxes-docs.factor
+++ b/basis/concurrency/mailboxes/mailboxes-docs.factor
@@ -21,7 +21,7 @@ HELP: block-unless-pred
 { $values\r
     { "mailbox" mailbox }\r
     { "timeout" "a " { $link duration } " or " { $link f } }\r
-    { "pred" { $quotation "( ... message -- ... ? )" } } \r
+    { "pred" { $quotation ( ... message -- ... ? ) } } \r
 }\r
 { $description "Block the thread if there are no items in the mailbox that return true when the predicate is called with the item on the stack." } ;\r
 \r
@@ -40,14 +40,14 @@ HELP: mailbox-get-all
 { $description "Blocks the thread if the mailbox is empty, otherwise removes all objects in the mailbox and returns an array containing the objects." } ;\r
 \r
 HELP: while-mailbox-empty\r
-{ $values { "mailbox" mailbox } \r
-          { "quot" { $quotation "( -- )" } }\r
+{ $values { "mailbox" mailbox }\r
+          { "quot" { $quotation ( -- ) } }\r
 }\r
 { $description "Repeatedly call the quotation while there are no items in the mailbox." } ;\r
 \r
 HELP: mailbox-get?\r
-{ $values { "mailbox" mailbox } \r
-          { "pred" { $quotation "( obj -- ? )" } }\r
+{ $values { "mailbox" mailbox }\r
+          { "pred" { $quotation ( obj -- ? ) } }\r
           { "obj" object }\r
 }\r
 { $description "Get the first item in the mailbox which satisfies the predicate. When the predicate returns true that item will be returned. If nothing in the mailbox satisfies the predicate then the thread will block until something does." } ;\r