iris

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

commit ae5cf706da3138ad4c93b5d264e47d8165ab1dcb
parent 6a5b5c91b2947af85ffbe20b1bcb77172da77722
Author: sin <sin@2f30.org>
Date:   Wed, 14 May 2014 14:45:32 +0100

Fix c/p error

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

diff --git a/parser.c b/parser.c @@ -95,7 +95,7 @@ identifier(char *s) o = newobject(); o->type = OIdentifier; - o->d.b.v = estrdup(s); + o->d.i.s = estrdup(s); return o; } @@ -264,7 +264,7 @@ eval(struct object *o) return o; } if (o->type == OIdentifier) { - otmp = lookupsym(o->d.s.s); + otmp = lookupsym(o->d.i.s); if (!otmp) return error("unbound identifier"); }