bugfix repeat,for_range + 2 new demos

[svn/Cll1h/.git] / cll1.h

diff --git a/cll1.h b/cll1.h
index 47e7024ad68dab47de88c825cf6575d69cc8f3b5..cb66f6fda918bfbc6616a772c6df17e1d58b6d63 100644 (file)
--- a/cll1.h
+++ b/cll1.h
@@ -58,8 +58,8 @@
 /* 3. C<<1 iterators - updated 2008-01-07 by xCh.                      */
 /* ------------------------------------------------------------------- */
 #define loop while(TRUE)
-#define repeat(N) _NEW_I for_range(_I,1,N)
-#define for_range(VAR,FROM,TO) for(VAR=FROM; FROM<=TO?VAR<=TO:VAR>=TO; FROM<=TO?VAR++:VAR--)
+#define repeat(N) if(N>0) _NEW_I for_range(_I,1,N)
+#define for_range(VAR,FROM,TO) for( VAR=FROM ; FROM<=TO?(VAR<=TO):(VAR>=TO) ; FROM<=TO?(VAR++):(VAR--))
 #define for_each(A,B) for(A=B; A; A=A->_next)
 #define for_search(A,B,C) for_each(A,B) if(C)
 /*to do: #define for_file_lines(STR,F) _NEW_F for() */