"end" in a token seen as END

[normrubin]

Given this fragment shader

SHADER fragment frag GLSL
#version 450
#extension GL_ARB_separate_shader_objects : enable
#def RENDERX XXX
void main() {;}
END

amber sees the RENDERX as R END ERX ( the call to extractToNext does not make sure this is a full token)
it does wait for an uppercase END so this mostly messes up with macros

example_4_bad: 16: SHADER missing END command

Is is kind of an odd error message as well since its actually an extra END