iris

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

commit c23b9a1cd6cd36e10dad31137f16b77eb710036b
parent 21a40ab0d84135e5e763e99205cb0a5a39984c40
Author: sin <sin@2f30.org>
Date:   Thu, 15 May 2014 11:41:16 +0100

We already have the macros so use them

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

diff --git a/parser.c b/parser.c @@ -301,8 +301,8 @@ evaldefine(struct object *o) ocar = car(o); if (ocar->type == OIdentifier && strcmp(ocar->d.i.s, "define") == 0) { - var = car(cdr(o)); - val = eval(car(cdr(cdr(o)))); + var = cadr(o); + val = eval(caddr(o)); if (var->type != OIdentifier) return error("expected an identifier"); addsym(var->d.i.s, val);