X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_frame.c;h=9d17f6fa37d12946e3d12952c127996d243fb5c6;hb=500dc096e326e25f186bea1ff59f027a63974237;hp=052d27d7246f83228de8c9a9d5785cc39eced6de;hpb=08abafbc7f0919384bf0b79a80eca958dac413fd;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_frame.c b/src/lisp/ao_lisp_frame.c
index 052d27d7..9d17f6fa 100644
--- a/src/lisp/ao_lisp_frame.c
+++ b/src/lisp/ao_lisp_frame.c
@@ -186,8 +186,6 @@ ao_lisp_frame_mark(struct ao_lisp_frame *frame)
 {
 	if (!frame)
 		return AO_LISP_NIL;
-	if (frame->_num == 0xff)
-		ao_lisp_abort();
 	frame->_num |= AO_LISP_FRAME_MARK;
 	return ao_lisp_frame_poly(frame);
 }