shithub: femtolisp

Download patch

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 \