altos/lisp: Sort frames by atom

[fw/altos] / src / lisp / ao_lisp_mem.c

diff --git a/src/lisp/ao_lisp_mem.c b/src/lisp/ao_lisp_mem.c
index e8907cf622ef0b7ca20805d1d67bcae4c1618f58..1f09ede826e749781a822f3b35a42b2986c22dad 100644 (file)
--- a/src/lisp/ao_lisp_mem.c
+++ b/src/lisp/ao_lisp_mem.c
@@ -218,9 +218,11 @@ static const void ** const ao_lisp_cache[] = {
        (const void **) &ao_lisp_frame_free_list[1],
        (const void **) &ao_lisp_frame_free_list[2],
        (const void **) &ao_lisp_frame_free_list[3],
+       (const void **) &ao_lisp_frame_free_list[4],
+       (const void **) &ao_lisp_frame_free_list[5],
 };
 
-#if AO_LISP_FRAME_FREE != 4
+#if AO_LISP_FRAME_FREE != 6
 #error Unexpected AO_LISP_FRAME_FREE value
 #endif