X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_eval.c;h=6eef1f23d148f08c1b5ac4c094be412b472ef209;hb=71bf5774083e7f0d87ea609a73d6cfb7f60de9d9;hp=2374fdb2139fadfcaa61bd230fbe01c04c600f67;hpb=d134a38c57429070ee5d4f74dafca4489e4b1443;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_eval.c b/src/lisp/ao_lisp_eval.c
index 2374fdb2..6eef1f23 100644
--- a/src/lisp/ao_lisp_eval.c
+++ b/src/lisp/ao_lisp_eval.c
@@ -91,7 +91,7 @@ ao_lisp_eval(ao_poly v)
 		case AO_LISP_STRING:
 			break;
 		case AO_LISP_ATOM:
-			v = ao_lisp_poly_atom(v)->val;
+			v = ao_lisp_atom_get(v);
 			break;
 		}
 
@@ -187,6 +187,9 @@ ao_lisp_eval(ao_poly v)
 				DBG("stack pop: actuals"); DBG_CONS(actuals); DBG("\n");
 				DBG("stack pop: formals"); DBG_CONS(formals); DBG("\n");
 			} else {
+				actuals = 0;
+				formals = 0;
+				formals_tail = 0;
 				DBG("done func\n");
 				break;
 			}