iris

small scheme interpreter
git clone git://git.2f30.org/iris
Log | Files | Refs | LICENSE

commit 09230fe8689b1495740433e4845b0b3c38fe1cc9
parent d6ad4d53dceda07f082f57c68440e5f02b3b99e2
Author: sin <sin@2f30.org>
Date:   Fri,  9 May 2014 13:49:47 +0100

Eat space

Diffstat:
Mlexer.c | 3+++
1 file changed, 3 insertions(+), 0 deletions(-)

diff --git a/lexer.c b/lexer.c @@ -39,6 +39,9 @@ gettok(struct lexerctx *ctx, const char *buf, size_t len) while (ctx->e < &buf[len]) { switch (state) { case State_Se: + if (*ctx->e == ' ' || *ctx->e == '\t' || + *ctx->e == '\n') + break; if (isalpha(*ctx->e) != 0) state = State_Identifier; else if (*ctx->e == '#')