Fix mezz function ARRAY
Fix mezz function ARRAY

The refinement argument is unset! when the refinement is not requested:

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

draegtun/ren-c,draegtun/ren-c,draegtun/ren-c,codebybrett/ren-c,kealist/ren-c,codebybrett/ren-c,kealist/ren-c,draegtun/ren-c,draegtun/ren-c,rgchris/ren-c,codebybrett/ren-c,draegtun/ren-c,hostilefork/rebol,hostilefork/rebol,giuliolunati/ren-c,codebybrett/ren-c,giuliolunati/ren-c,rgchris/ren-c,giuliolunati/ren-c,rgchris/ren-c,kealist/ren-c,hostilefork/rebol,rgchris/ren-c,kealist/ren-c,kealist/ren-c,codebybrett/ren-c,hostilefork/rebol,codebybrett/ren-c,giuliolunati/ren-c,rgchris/ren-c,giuliolunati/ren-c,hostilefork/rebol,hostilefork/rebol,kealist/ren-c