From 539d34fd23c36bbd176c7b1c1bafd8069cfed1fb Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 23 Aug 2011 12:14:33 -0700 Subject: [PATCH] Fix help lint for when*,unless* --- core/kernel/kernel-docs.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/core/kernel/kernel-docs.factor b/core/kernel/kernel-docs.factor index 1fbd7c64dc..892850ad4c 100644 --- a/core/kernel/kernel-docs.factor +++ b/core/kernel/kernel-docs.factor @@ -656,14 +656,14 @@ $nl } ; HELP: when* -{ $values { "?" "a generalized boolean" } { "true" { $quotation "( cond -- ... )" } } } +{ $values { "?" "a generalized boolean" } { "true" { $quotation "( ..a ? -- ..a )" } } } { $description "Variant of " { $link if* } " with no false quotation." $nl "The following two lines are equivalent:" { $code "X [ Y ] when*" "X dup [ Y ] [ drop ] if" } } ; HELP: unless* -{ $values { "?" "a generalized boolean" } { "false" "a quotation " } } +{ $values { "?" "a generalized boolean" } { "false" { $quotation "( ..a -- ..a x )" } } { "x" object } } { $description "Variant of " { $link if* } " with no true quotation." } { $notes "The following two lines are equivalent:"