X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_stack.c;fp=src%2Flisp%2Fao_lisp_stack.c;h=729a63bafab1a57b8f9c8335fe1db8f65d951102;hb=b3b4731fcb89cb404433f37a7704a503567c43bd;hp=53adf43204bfcafa6622f64d00bcd04e39cc03bb;hpb=bd881a5b85d7cd4fb82127f92f32e089499b50cb;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_stack.c b/src/lisp/ao_lisp_stack.c
index 53adf432..729a63ba 100644
--- a/src/lisp/ao_lisp_stack.c
+++ b/src/lisp/ao_lisp_stack.c
@@ -241,7 +241,7 @@ ao_lisp_stack_eval(void)
  * it a single argument which is the current continuation
  */
 ao_poly
-ao_lisp_call_cc(struct ao_lisp_cons *cons)
+ao_lisp_do_call_cc(struct ao_lisp_cons *cons)
 {
 	struct ao_lisp_stack	*new;
 	ao_poly			v;