Special-case arrow-based words not recognized in set-word! or refinement! form

[rebolbot]

Submitted by: BrianH

The special-case words < > <> <= >= << >> are not recognized in set-word! form. They are recognized in word!, get-word! and lit-word! form as of alpha 97. but not yet set-word! form. They aren't recognized in refinement! form either.

Admittedly these words don't often get set or used as options in normal REBOL code, but this could be an issue for dialects and consistency.

>> to-set-word quote <
== <:
>> quote <:
** Syntax error: invalid "tag" -- "<:"
** Near: (line 1) quote <:
>> quote <>:
** Syntax error: invalid "word" -- "<>:"
** Near: (line 1) quote <>:
>> quote <<:
** Syntax error: invalid "word" -- "<<:"
** Near: (line 1) quote <<:
>> quote >>:
** Syntax error: invalid "word" -- ">>:"
** Near: (line 1) quote >>:
>> quote >:
** Syntax error: invalid "word" -- ">:"
** Near: (line 1) quote >:
>> quote >=:
** Syntax error: invalid "word" -- ">=:"
** Near: (line 1) quote >=:
>> quote <=:
** Syntax error: invalid "word" -- "<=:"
** Near: (line 1) quote <=:

>> /<
** Syntax error: invalid "refine" -- "/<"
** Near: (line 1) /<
>> />
** Syntax error: invalid "refine" -- "/>"
** Near: (line 1) />
>> /<>
** Syntax error: invalid "refine" -- "/<"
** Near: (line 1) /<>
>> /<=
** Syntax error: invalid "refine" -- "/<"
** Near: (line 1) /<=
>> />=
** Syntax error: invalid "refine" -- "/>"
** Near: (line 1) />=
>> /<<
** Syntax error: invalid "refine" -- "/<"
** Near: (line 1) /<<
>> />>
** Syntax error: invalid "refine" -- "/>"
** Near: (line 1) />>

^{CC - Data [ Version: alpha 97 Type: Bug Platform: All Category: Syntax Reproduce: Always Fixed-in:none ]}