X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_lambda.c;h=b164cd66421056662fc72f301c6f81efe3bd8b11;hb=85db6d68a273859482e036b60fec7e2b84e9c262;hp=67ad24ee69296942dc0e8a240eee8c9d0e84ef66;hpb=ecef616599d5ec4fd5d42e67d0dc779a0630079b;p=fw%2Faltos diff --git a/src/lisp/ao_lisp_lambda.c b/src/lisp/ao_lisp_lambda.c index 67ad24ee..b164cd66 100644 --- a/src/lisp/ao_lisp_lambda.c +++ b/src/lisp/ao_lisp_lambda.c @@ -77,9 +77,6 @@ ao_lisp_lambda_alloc(struct ao_lisp_cons *code, int args) if (!lambda) return AO_LISP_NIL; - if (!code->cdr) - return ao_lisp_error(AO_LISP_INVALID, "missing parameters to lambda"); - if (!ao_lisp_check_argt(_ao_lisp_atom_lambda, code, 0, AO_LISP_CONS, 1)) return AO_LISP_NIL; f = 0;