steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove useless <quotation> word

db4
Slava Pestov 2007-12-25 23:45:04 -05:00
parent 3d784c7927
commit 500ec89b56
3 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/arrays/arrays-docs.factor Normal file → Executable file
View File

@ -34,7 +34,7 @@ HELP: <array> ( n elt -- array )
{ $values { "n" "a non-negative integer" } { "elt" "an initial element" } { "array" "a new 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" } "." } ; { $description "Creates a new array with the given length and all elements initially set to " { $snippet "elt" } "." } ;
{ <array> <quotation> <string> <sbuf> <vector> <byte-array> <bit-array> } { <array> <string> <sbuf> <vector> <byte-array> <bit-array> }
related-words related-words
HELP: >array HELP: >array

4
core/quotations/quotations-docs.factor
View File

@ -27,10 +27,6 @@ HELP: callable
HELP: quotation HELP: quotation
{ $description "The class of quotations. See " { $link "syntax-quots" } " for syntax and " { $link "quotations" } " for general information." } ; { $description "The class of quotations. See " { $link "syntax-quots" } " for syntax and " { $link "quotations" } " for general information." } ;
HELP: <quotation>
{ $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 HELP: >quotation
{ $values { "seq" "a sequence" } { "quot" quotation } } { $values { "seq" "a sequence" } { "quot" quotation } }
{ $description "Outputs a freshly-allocated quotation with the same elements as a given sequence." } ; { $description "Outputs a freshly-allocated quotation with the same elements as a given sequence." } ;

3
core/quotations/quotations.factor Normal file → Executable file
View File

@ -12,9 +12,6 @@ UNION: callable quotation curry ;
M: callable equal? M: callable equal?
over callable? [ sequence= ] [ 2drop f ] if ; over callable? [ sequence= ] [ 2drop f ] if ;
: <quotation> ( n -- quot )
f <array> array>quotation ; inline
M: quotation length quotation-array length ; M: quotation length quotation-array length ;
M: quotation nth-unsafe quotation-array nth-unsafe ; M: quotation nth-unsafe quotation-array nth-unsafe ;