rewrote io.open because it was bad

module/io.lua

@@ -31,35 +31,34 @@ function io.newfd() -- creates a new file descriptor and returns it plus its ID
  fd[nfd] = {}
  return nfd,fd[nfd]
 end
-function io.open(f,m) -- opens file *f* with mode *m*
+local function fdfile(f,m) -- create a fd from a file
- local t={["close"]=fdc}
+ local e,fobj = pcall(fs.open,f,m)
- if type(f) == "string" then
+ if e and fobj then
-  local e,fobj=pcall(fs.open,f,m)
+  local fdi, fdo =io.newfd()
-  if not e then return false, fobj end
+  if fobj.read then
-  if fobj then
+   function fdo.read(d)
-   local fdi,nfd = io.newfd()
-   f=fdi
-   if fobj.write then
-    function nfd.write(d)
-     fobj:write(d)
-    end
-   elseif fobj.read then
-    function nfd.read(d)
     return fobj:read(d)
    end
+  elseif fobj.write then
+   function fdo.write(d)
+    return fobj:write(d)
    end
-   function nfd.close()
+  end
+  function fdo.close()
    fobj:close()
   end
+  return fdi
  end
+ return false
+end
+function io.open(f,m) -- opens file or file descriptor *f* with mode *m*
+ if type(f) == "string" then
+  f = fdfile(f,m)
  end
- if fd[f].read then
+ if fd[f] then
-  t.read = fdr
+  local t = {["close"]=fdc,["read"]=fdr,["write"]=fdw,["fd"]=f,["mode"]=m}
- end
- if fd[f].write then
-  t.write = fdw
- end
- t.fd = f
   return t
+ end
+ return false
 end
 end