beta 2013.01.27 21:24

1 files changed, 18 insertions, 0 deletions

diff --git a/tex/context/base/l-file.lua b/tex/context/base/l-file.lua
index 2a3d6991e..e91eeac4c 100644
--- a/tex/context/base/l-file.lua
+++ b/tex/context/base/l-file.lua
@@ -11,6 +11,24 @@ if not modules then modules = { } end modules ['l-file'] = {
 file       = file or { }
 local file = file
 
+if not lfs then
+    lfs = {
+        getcurrentdir = function()
+            return "."
+        end,
+        attributes = function()
+            return nil
+        end,
+        isfile = function(name)
+            local f = io.open(name,'rb')
+            if f then
+                f:close()
+                return true
+            end
+        end,
+    }
+end
+
 local insert, concat = table.insert, table.concat
 local match = string.match
 local lpegmatch = lpeg.match