iris

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

commit 9c7e1299c8ab117b928e3b53570b33fcdbd8c735
parent a26726a18cdf3c3ce6beefa11650dc3847cdedda
Author: sin <sin@2f30.org>
Date:   Wed, 14 May 2014 11:52:48 +0100

Remove dead code

Diffstat:
Mparser.c | 4++--
1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/parser.c b/parser.c @@ -164,6 +164,7 @@ sexpression(FILE *in) default: return error("unhandled token"); } + /* not reachable */ return NULL; } @@ -171,8 +172,7 @@ struct object * eval(struct object *o) { struct object *otmp; - if (!o) - return error("asked to eval nil-object"); + if (o->type == OIdentifier) { otmp = lookupsym(o->d.s.s); if (!otmp)