X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_make_const.c;h=de9c57251bc954378b00bd2f134e69f445a1f468;hb=8bf6b8989a4f365467fae38a03570d277f362ac2;hp=495e48cd2e5f5656642ec8ba3a14e82b049b0c52;hpb=498f1e8fd2bfdee5069508ef8fa570f944883011;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_make_const.c b/src/lisp/ao_lisp_make_const.c
index 495e48cd..de9c5725 100644
--- a/src/lisp/ao_lisp_make_const.c
+++ b/src/lisp/ao_lisp_make_const.c
@@ -71,6 +71,7 @@ struct builtin_func funcs[] = {
 	{ .name = "led",	.args = AO_LISP_FUNC_F_LEXPR,	.func = builtin_led },
 	{ .name = "save",	.args = AO_LISP_FUNC_F_LAMBDA,	.func = builtin_save },
 	{ .name = "restore",	.args = AO_LISP_FUNC_F_LAMBDA,	.func = builtin_restore },
+	{ .name = "call/cc",	.args = AO_LISP_FUNC_F_LAMBDA,	.func = builtin_call_cc },
 };
 
 #define N_FUNC (sizeof funcs / sizeof funcs[0])
@@ -358,7 +359,7 @@ main(int argc, char **argv)
 	/* Reduce to referenced values */
 	ao_lisp_collect(AO_LISP_COLLECT_FULL);
 
-	for (f = 0; f < ao_lisp_frame_num(ao_lisp_frame_global); f++) {
+	for (f = 0; f < ao_lisp_frame_global->num; f++) {
 		val = ao_has_macro(ao_lisp_frame_global->vals[f].val);
 		if (val != AO_LISP_NIL) {
 			printf("error: function %s contains unresolved macro: ",