intended pcall test on bitwise xor will raise error

[robertlzj]

Hi~
Everything is OK, except
code assert((select(2,pcall(function() return true ~ nil end))):find'attempt to perform bitwise operation on a boolean value')
Will get:

/luasrcdiet\lparser.lua:96: (source):4: 'end' expected near '~'
stack traceback:
[C]: in function 'luasrcdiet.optlex.error'
.../luasrcdiet\lparser.lua:96: in upvalue 'errorline'
.../luasrcdiet\lparser.lua:126: in upvalue 'syntaxerror'
.../luasrcdiet\lparser.lua:130: in upvalue 'error_expected'
.../luasrcdiet\lparser.lua:173: in upvalue 'check_match'
.../luasrcdiet\lparser.lua:922: in upvalue 'body'
.../luasrcdiet\lparser.lua:660: in upvalue 'simpleexp'
.../luasrcdiet\lparser.lua:689: in upvalue 'subexpr'
.../luasrcdiet\lparser.lua:714: in upvalue 'expr'
.../luasrcdiet\lparser.lua:899: in upvalue 'explist1'
...
.../luasrcdiet\lparser.lua:936: in upvalue 'block'
.../luasrcdiet\lparser.lua:854: in upvalue 'test_then_block'
.../luasrcdiet\lparser.lua:1019: in local 'fn'
.../luasrcdiet\lparser.lua:1189: in upvalue 'stat'
.../luasrcdiet\lparser.lua:1208: in upvalue 'chunk'
.../luasrcdiet\lparser.lua:1272: in function 'luasrcdiet.lparser.parse'
...lib\luarocks\rocks-5.3\luasrcdiet\1.0.0-2\bin\luasrcdiet:413: in upvalue 'process_file'
...lib\luarocks\rocks-5.3\luasrcdiet\1.0.0-2\bin\luasrcdiet:555: in upvalue 'do_files'
...lib\luarocks\rocks-5.3\luasrcdiet\1.0.0-2\bin\luasrcdiet:643: in local 'main'
...lib\luarocks\rocks-5.3\luasrcdiet\1.0.0-2\bin\luasrcdiet:651: in main chunk
[C]: in ?