Changeset 154 for trunk/orca/context.c

Timestamp:

05/17/06 15:48:03 (3 years ago)

Author:

krobillard

Message:

Orca - Replaced atom variables with fixed atom defines.

Files:

• trunk/orca/context.c (modified) (3 diffs)

trunk/orca/context.c

@@ -23 +23 @@
 #include "ovalue.h"
 #include "internal.h"
+#include "orca_atoms.h"
 
 
@@ -321 +322 @@
     // Intern words.
     it = pblk->values + blkI;
-    orInternA( wblk, orEnv->atom_self );
+    orInternA( wblk, OR_ATOM_SELF );
     internSetWords( ctx, it, end );
 
@@ -572 +573 @@
             (it->type == OT_GETWORD) )
         {
-            if( (orAtom(it) == orEnv->atom_func) ||
-                (orAtom(it) == orEnv->atom_does) )
+            if( (orAtom(it) == OR_ATOM_FUNC) ||
+                (orAtom(it) == OR_ATOM_DOES) )
                 return 1;
         }