Moved PRIMITIVE and PRIMITIVE_FORWARDs to primitives.[ch]pp

[factor.git] / vm / os-windows.cpp

diff --git a/vm/os-windows.cpp b/vm/os-windows.cpp
index c4b011417d98ad002dccebc9abfb09e8e71f56b3..0dfaecab697cf54242b9c3cfba519d7a388edc58 100755 (executable)
--- a/vm/os-windows.cpp
+++ b/vm/os-windows.cpp
@@ -90,14 +90,12 @@ const vm_char *factor_vm::vm_executable_path()
        return safe_strdup(full_path);
 }
 
-inline void factor_vm::primitive_existsp()
+void factor_vm::primitive_existsp()
 {
        vm_char *path = untag_check<byte_array>(dpop())->data<vm_char>();
        box_boolean(windows_stat(path));
 }
 
-PRIMITIVE_FORWARD(existsp)
-
 segment::segment(factor_vm *myvm_, cell size_)
 {
        myvm = myvm_;