Index: process.c
===================================================================
RCS file: /cvsroot/neko/libs/std/process.c,v
retrieving revision 1.12
diff -u -r1.12 process.c
--- process.c	17 Oct 2008 10:44:32 -0000	1.12
+++ process.c	20 Feb 2009 22:34:23 -0000
@@ -373,6 +373,14 @@
 	return val_null;
 }
 
+static value process_current_pid() {
+#	ifdef NEKO_WINDOWS
+	return alloc_int(GetCurrentProcessId());
+#	else
+	return alloc_int(getpid());
+#	endif
+}
+
 DEFINE_PRIM(process_run,2);
 DEFINE_PRIM(process_stdout_read,4);
 DEFINE_PRIM(process_stderr_read,4);
@@ -381,5 +389,6 @@
 DEFINE_PRIM(process_exit,1);
 DEFINE_PRIM(process_pid,1);
 DEFINE_PRIM(process_close,1);
+DEFINE_PRIM(process_current_pid, 0);
 
 /* ************************************************************************ */