iris

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

commit 489b9ef2bdc8f84fa6f30e4f84eea475847d8506
parent 5d7bc37c68d7b4e225a34df53302363b6732a4cb
Author: sin <sin@2f30.org>
Date:   Wed, 14 May 2014 15:37:35 +0100

Rename local var

Diffstat:
Mdebug.c | 28++++++++++++++--------------
1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/debug.c b/debug.c @@ -7,48 +7,48 @@ void printtok(struct tok *t) { - char *s; + char *l; - s = lexeme(t); - if (!s) + l = lexeme(t); + if (!l) return; switch (t->type) { case TError: - printf("token: error, value: '%s'", s); + printf("token: error, value: '%s'", l); break; case TEof: printf("token: eof"); break; case TIdentifier: - printf("token: identifier, value: '%s'", s); + printf("token: identifier, value: '%s'", l); break; case TBoolean: - printf("token: boolean, value: '%s'", s); + printf("token: boolean, value: '%s'", l); break; case TNumber: - printf("token number, value: '%s'", s); + printf("token number, value: '%s'", l); break; case TCharacter: - printf("token character, value: '%s'", s); + printf("token character, value: '%s'", l); break; case TString: - printf("token string, value: '%s'", s); + printf("token string, value: '%s'", l); break; case TLparen: - printf("token: lparen, value: '%s'", s); + printf("token: lparen, value: '%s'", l); break; case TRparen: - printf("token rparen, value: '%s'", s); + printf("token rparen, value: '%s'", l); break; case TQuote: - printf("token quote, value: '%s'", s); + printf("token quote, value: '%s'", l); break; case TDot: - printf("token dot, value: '%s'", s); + printf("token dot, value: '%s'", l); break; default: printf("unknown token type: %d", t->type); break; } - free(s); + free(l); }