From 0e2687cceefdf3d0e14a9bddadc2eeef8aa7eac6 Mon Sep 17 00:00:00 2001 From: Bernd Jendrissek Date: Thu, 31 Jan 2008 23:02:01 +0000 Subject: [PATCH] Evaluate arguments to user-defined functions. --- lisp/lisp.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/lisp.c b/lisp/lisp.c index 2177155..5fc6f9b 100644 --- a/lisp/lisp.c +++ b/lisp/lisp.c @@ -400,7 +400,8 @@ union value_pointer builtin_eval(struct environment *env, args = lisp_cons(builtin_eval(env, subeval_arg), lisp_pair(NULL)); - if (lisp_car(lisp_car(args)).vp_opaque == opaque_builtin_function) { + if (lisp_car(lisp_car(args)).vp_opaque == opaque_builtin_function || + lisp_car(lisp_car(args)).vp_opaque == opaque_user_function) { arglink = &get_pair(args)->cdr; for (list = get_pair(list->cdr); list != NULL; list = get_pair(list->cdr)) { -- 2.11.4.GIT