diff --git a/basis/sequences/generalizations/generalizations-docs.factor b/basis/sequences/generalizations/generalizations-docs.factor index 09e9cad940..6ec9d11176 100644 --- a/basis/sequences/generalizations/generalizations-docs.factor +++ b/basis/sequences/generalizations/generalizations-docs.factor @@ -115,7 +115,7 @@ HELP: nmap-reduce { $description "A generalization of " { $link map-reduce } " that can be applied to any number of sequences." } ; HELP: nall? -{ $values { "seqs... " { $snippet "n" } " sequences on the datastack" } { "quot" { $quotation "( element... - ? )" } } { "n" integer } } +{ $values { "seqs..." { $snippet "n" } " sequences on the datastack" } { "quot" { $quotation "( element... - ? )" } } { "n" integer } { "?" boolean } } { $description "A generalization of " { $link all? } " that can be applied to any number of sequences." } ; ARTICLE: "sequences.generalizations" "Generalized sequence words" diff --git a/basis/sequences/generalizations/generalizations.factor b/basis/sequences/generalizations/generalizations.factor index 3a1f8b2784..a722760fcf 100644 --- a/basis/sequences/generalizations/generalizations.factor +++ b/basis/sequences/generalizations/generalizations.factor @@ -122,5 +122,5 @@ MACRO: nmap-reduce ( map-quot reduce-quot n -- quot ) _ _ (neach) (each-integer) ] ; -: nall? ( seqs... quot n -- ) +: nall? ( seqs... quot n -- ? ) (neach) all-integers? ; inline