From ecbb36ad8012458116e43e68578619163b5e6f73 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 27 Jan 2009 01:37:04 -0600 Subject: [PATCH] Fix assocs help-lint --- core/assocs/assocs-docs.factor | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/core/assocs/assocs-docs.factor b/core/assocs/assocs-docs.factor index e9269373b0..3d8e516cdf 100644 --- a/core/assocs/assocs-docs.factor +++ b/core/assocs/assocs-docs.factor @@ -405,11 +405,12 @@ HELP: search-alist { $values { "key" object } { "alist" "an array of key/value pairs" } { "pair/f" "a key/value pair" } { "i/f" integer } } -{ $description "Performs an in-order traversal of a " { $snippet "alist" } " and stops when the key is matched or the end of the " { $snippet "alist" } " has been reached. If there is no match, both outputs are " { $link f } "." } -{ $examples { $example "USING: prettyprint assocs kernel ;" +{ $description "Iterates over " { $snippet "alist" } " and stops when the key is matched or the end of the " { $snippet "alist" } " has been reached. If there is no match, both outputs are " { $link f } "." } +{ $notes "This word is used to implement " { $link at* } " and " { $link set-at } " on sequences, and should not be called direclty." } +{ $examples { $example "USING: prettyprint assocs.private kernel ;" "3 { { 1 2 } { 3 4 } } search-alist [ . ] bi@" "{ 3 4 }\n1" - } { $example "USING: prettyprint assocs kernel ;" + } { $example "USING: prettyprint assocs.private kernel ;" "6 { { 1 2 } { 3 4 } } search-alist [ . ] bi@" "f\nf" }