Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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
> 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