diff --git a/core/arrays/arrays-docs.factor b/core/arrays/arrays-docs.factor old mode 100644 new mode 100755 index 83a948a939..ff2a61473c --- a/core/arrays/arrays-docs.factor +++ b/core/arrays/arrays-docs.factor @@ -34,7 +34,7 @@ HELP: ( n elt -- array ) { $values { "n" "a non-negative integer" } { "elt" "an initial element" } { "array" "a new array" } } { $description "Creates a new array with the given length and all elements initially set to " { $snippet "elt" } "." } ; -{ } +{ } related-words HELP: >array diff --git a/core/quotations/quotations-docs.factor b/core/quotations/quotations-docs.factor index 3a32b63ae9..c30db0a4b8 100755 --- a/core/quotations/quotations-docs.factor +++ b/core/quotations/quotations-docs.factor @@ -27,10 +27,6 @@ HELP: callable HELP: quotation { $description "The class of quotations. See " { $link "syntax-quots" } " for syntax and " { $link "quotations" } " for general information." } ; -HELP: -{ $values { "n" "a non-negative integer" } { "quot" quotation } } -{ $description "Creates a new quotation with the given length and all elements initially set to " { $link f } "." } ; - HELP: >quotation { $values { "seq" "a sequence" } { "quot" quotation } } { $description "Outputs a freshly-allocated quotation with the same elements as a given sequence." } ; diff --git a/core/quotations/quotations.factor b/core/quotations/quotations.factor old mode 100644 new mode 100755 index 061ff04889..64bf472704 --- a/core/quotations/quotations.factor +++ b/core/quotations/quotations.factor @@ -12,9 +12,6 @@ UNION: callable quotation curry ; M: callable equal? over callable? [ sequence= ] [ 2drop f ] if ; -: ( n -- quot ) - f array>quotation ; inline - M: quotation length quotation-array length ; M: quotation nth-unsafe quotation-array nth-unsafe ;