converted box_* integer functions to use vm (x86 windows)

[factor.git] / vm / alien.cpp

diff --git a/vm/alien.cpp b/vm/alien.cpp
index e2298630e1d96096a248f71e9348fb3f4362879d..6c83f87182174e86f363d63adbaff0b74d155b9c 100755 (executable)
--- a/vm/alien.cpp
+++ b/vm/alien.cpp
@@ -103,14 +103,12 @@ void *alien_pointer()
 #define DEFINE_ALIEN_ACCESSOR(name,type,boxer,to) \
        PRIMITIVE(alien_##name) \
        { \
-               factorvm *myvm = PRIMITIVE_GETVM(); \
-               myvm->boxer(*(type*)myvm->alien_pointer());     \
+               PRIMITIVE_GETVM()->boxer(*(type*)PRIMITIVE_GETVM()->alien_pointer());   \
        } \
        PRIMITIVE(set_alien_##name) \
        { \
-               factorvm *myvm = PRIMITIVE_GETVM(); \
-               type *ptr = (type *)myvm->alien_pointer(); \
-               type value = myvm->to(dpop()); \
+               type *ptr = (type *)PRIMITIVE_GETVM()->alien_pointer(); \
+               type value = PRIMITIVE_GETVM()->to(dpop()); \
                *ptr = value; \
        }