ref: 0d643a05fece09a79720684bc67ecd6bf035a6c1
parent: eaac150672ef7035c48d7f9f4f7e0919dcd31ab3
author: JeffBezanson <jeff.bezanson@gmail.com>
date: Mon Aug 16 22:03:11 EDT 2010
fixing small exception bug
--- a/femtolisp/flisp.c
+++ b/femtolisp/flisp.c
@@ -136,7 +136,7 @@
_ctx.sp=SP; _ctx.frame=curr_frame; _ctx.rdst=readstate; _ctx.prev=fl_ctx; \
_ctx.ngchnd = N_GCHND; fl_ctx = &_ctx; \
if (!setjmp(_ctx.buf)) \
- for (l__tr=1; l__tr; l__tr=0, (void)(fl_ctx->prev&&(fl_ctx=fl_ctx->prev)))
+ for (l__tr=1; l__tr; l__tr=0, (void)(fl_ctx=fl_ctx->prev))
#define FL_CATCH \
else \
--- a/femtolisp/flisp.h
+++ b/femtolisp/flisp.h
@@ -179,7 +179,7 @@
fl_exception_context_t _ctx; int l__tr, l__ca; \
fl_savestate(&_ctx); fl_ctx = &_ctx; \
if (!setjmp(_ctx.buf)) \
- for (l__tr=1; l__tr; l__tr=0, (void)(fl_ctx->prev&&(fl_ctx=fl_ctx->prev)))
+ for (l__tr=1; l__tr; l__tr=0, (void)(fl_ctx=fl_ctx->prev))
#define FL_CATCH_EXTERN \
else \