iris

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

commit 6c977b947bfd7986d1f0daf541bcd40abc949b91
parent 3bf505874b1285e0e9b91dafb755dfbaaa0d88bb
Author: sin <sin@2f30.org>
Date:   Thu, 15 May 2014 12:21:54 +0100

Do not allow multiple arguments to define

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

diff --git a/parser.c b/parser.c @@ -306,6 +306,8 @@ evaldefine(struct object *o) return error("expected identifier"); if (!caddr(o)) return error("expected sexpression"); + if (cadddr(o)) + return error("multiple arguments to define"); val = eval(caddr(o)); if (val->type == OError) return val;