reshape for h_left and friends

This commit is contained in:
Sven M. Hallberg 2013-05-20 14:44:18 +02:00
parent 745aaebe02
commit 31256ba867
3 changed files with 31 additions and 2 deletions

View file

@ -17,9 +17,11 @@ static HParseResult* parse_whitespace(void* env, HParseState *state) {
static const char SPACE_CHRS[6] = {' ', '\f', '\n', '\r', '\t', '\v'};
static const HParsedToken *h_act_last(const HParseResult *p) {
// XXX to be consolidated with glue.c when merged upstream
const HParsedToken *h_act_last(const HParseResult *p) {
assert(p->ast);
assert(p->ast->token_type == TT_SEQUENCE);
assert(p->ast->seq->used > 0);
return p->ast->seq->elements[p->ast->seq->used-1];
}