iris

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

commit 50ab31181588006ba4e2f1e3d3ad56d8d57d24e3
parent b0dcd29a3dcc9e1262e19d6683db213c43e5c071
Author: sin <sin@2f30.org>
Date:   Thu, 15 May 2014 10:45:29 +0100

Make error message more explicit

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

diff --git a/parser.c b/parser.c @@ -270,7 +270,9 @@ eval(struct object *o) case OString: return o; } - if (o->type == OIdentifier && builtin(o->d.i.s) == 0) { + if (o->type == OIdentifier) { + if (builtin(o->d.i.s) == 1) + return error("cannot eval builtin in this context"); otmp = lookupsym(o->d.i.s); if (!otmp) return error("unbound identifier");