Fix mezz function ARRAY

zsx · zsx · commit 19cc56f805df · 2015-12-16T11:17:47.000-05:00
The refinement argument is unset! when the refinement is not requested:

&gt;&gt; array 5
** Script error: value has no value
** Where: case array
** Near: block: make block! size case [
    block? :rest [
            lo...

** Note: use WHY? for more error information
diff --git a/src/mezz/mezz-series.r b/src/mezz/mezz-series.r
@@ -114,9 +114,9 @@ array: func [
         any-function? :value [ ; So value can be a thunk :)
             loop size [block: insert/only block value] ; Called every time
         ]
-        true [
-            insert/dup block value size
-        ]
+	true [
+            insert/dup block either initial [value][none] size
+	]
     ]
     head block
 ]

Original file line number	Diff line number	Diff line change
`@@ -114,9 +114,9 @@ array: func [`
`114`	`114`	`any-function? :value [ ; So value can be a thunk :)`
`115`	`115`	`loop size [block: insert/only block value] ; Called every time`
`116`	`116`	`]`
`117`		`- true [`
`118`		`- insert/dup block value size`
`119`		`- ]`
	`117`	`+ true [`
	`118`	`+ insert/dup block either initial [value][none] size`
	`119`	`+ ]`
`120`	`120`	`]`
`121`	`121`	`head block`
`122`	`122`	`]`