X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;f=cll1.h;h=0ad5db9e0d0d67a0f2ddb15ffa42327051956708;hb=e0467a3b7ccda77d1a75405e21c9723c72d33002;hp=d38f2cd5c11f4cadd323522a94340707dbf0bd5b;hpb=24cfa6bd1046afbbe6049d9b463cf76c97d5e7d4;p=svn%2FCll1h%2F.git

diff --git a/cll1.h b/cll1.h
index d38f2cd..0ad5db9 100644
--- a/cll1.h
+++ b/cll1.h
@@ -85,6 +85,7 @@ extern  unsigned RANDOM_SEED;
 #define or ||
 #define TRUE 1
 #define FALSE 0
+#define PI 3.141592654
 #define WEIRDINT (1<<(sizeof(int)*8-1))
 #define btoa(EXPR) ((EXPR)?"TRUE":"FALSE")
 #define coalesce(VAR,EXPR) (VAR?VAR:(EXPR))
@@ -192,7 +193,7 @@ extern  unsigned RANDOM_SEED;
 /* variable declarators */
 #define Get_obj(ID,MEM,...) MEM ID=get_obj(MEM,__VA_ARGS__)
 #define Get_obj_as(ID,COMMUNITY,MEM,...) MEM ID=get_obj_as(COMMUNITY,MEM,INTERFACE,__VA_ARGS__)
-#define I_am(MEM) MEM self=(MEM)community
+#define I_am(SELF,MEM) MEM SELF=(MEM)community
 /* .----------------------------------------------------------------------.
   /  9. implementation of C<<1 library functions, updated 2008-01-26 xCh.
  '----------------------------------------------------------------------- */