iris

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:
M
parser.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);