remove unnecessary kdir global

Reference: /n/atom/patch/applied/acidkdir2
Date: Wed Feb 19 00:08:42 CET 2014
Signed-off-by: quanstro@quanstro.net

--- /sys/lib/acid/kernel	Wed Feb 19 00:08:37 2014
+++ /sys/lib/acid/kernel	Wed Feb 19 00:08:38 2014
@@ -384,8 +384,9 @@
 print("/sys/lib/acid/kernel");
 
 defn findkdir() {
-	local file, i, lastslash;
+	local file, i, lastslash, kdir;
 
+	kdir = "unknown";
 	file = pcfile(main);
 	if file != {} then {
 		lastslash = 0;
@@ -401,17 +402,20 @@
 			i = i+1;
 		}
 	}
+	return kdir;
 }
 
 		
 defn needacid(s){
+	local kdir;
+
+	kdir = findkdir();
 	print("\trc(\"cd ", kdir, "; mk ", s, ".acid\")\n");
 	print("\tinclude(\"", kdir, "/", s, ".acid\")\n");
 }
 
 defn kinit() {
 if (map()[2]) != {} then {	// map has more than two elements -> active proc
-	kdir = "unknown";
 	KZERO = kzero();
 	
 	if objtype == "386" then {
@@ -420,7 +424,6 @@
 	if objtype == "alpha" then {
 		map({"*data", KZERO, 0xffffffff, KZERO});
 	}
-	findkdir();
 	needacid("proc");
 }
 }