OpenEuphoria

The following code causes a crash when translated:

procedure xor_test() 
	sequence x = {0, 1, 2, 3, 4, 5} 
	sequence y = {1, 0, 1, 1, 0, 0} 
    
	if not equal(x xor y, y xor x) then 
		test_fail("sanity basic sequence xor test") 
	end if 
	if compare({{1,1,0,0,1,1}}, {x} xor {y}) != 0 then 
		test_fail("sanity comparison sequence xor test") 
	end if 
end procedure 
xor_test() 

Found in sanity.ex, added to t_sequence.e