[REBOL] Re: Some other questions
From: AJMartin:orcon at: 24-Dec-2003 22:49
Carl Read wrote:
> I only get your result with View 1.2.10. With 1.2.1 and 1.2.5 I get the
above.
> So, has the spec changed, or has a bug been added? (Or removed;)
Or removed. :)
; Replacement 'array function that copies objects and series.
array: func [
"Makes and initializes a series of a given size."
size [integer! block!] "Size or block of sizes for each dimension"
/initial "Specify an initial value for all elements"
value "Initial value"
/local block rest
][
if not initial [value: none]
if block? size [
rest: next size
if tail? rest [rest: none]
size: first size
if not integer? size [make error! "Integer size required"]
]
block: make block! size
either not rest [
any [
if series? value [
loop size [insert/only block copy/deep value]
]
if object? value [
loop size [insert/only block make value []]
]
insert/dup block value size
]
] [
loop size [
any [
if series? value [
value: copy/deep value
]
if object? value [
value: make value []
]
]
block: insert/only block array/initial rest value
]
]
head block
]
Andrew J Martin
Speaking in tongues and performing miracles.
ICQ: 26227169
http://www.rebol.it/Valley/
http://valley.orcon.net.nz/
http://Valley.150m.com/
