beta 2011.07.13 20:14

1 files changed, 20 insertions, 10 deletions

diff --git a/tex/context/base/meta-ini.lua b/tex/context/base/meta-ini.lua
index 6e7053667..5b1f89463 100644
--- a/tex/context/base/meta-ini.lua
+++ b/tex/context/base/meta-ini.lua
@@ -13,20 +13,30 @@ metapost = metapost or { }
 
 -- for the moment downward compatible
 
-local report_metapost    = logs.reporter ("metapost")
+local report_metapost = logs.reporter ("metapost")
 local status_metapost = logs.messenger("metapost")
 
 local patterns = { "meta-imp-%s.mkiv", "meta-imp-%s.tex", "meta-%s.mkiv", "meta-%s.tex" } -- we are compatible
 
-function metapost.uselibrary(name)
-    commands.uselibrary(name,patterns,function(name,foundname)
-        context.startreadingfile()
-        status_metapost("loaded: library '%s'",name)
-        context.input(foundname)
-        context.stopreadingfile()
-    end, function(name)
-        report_metapost("unknown: library '%s'",name)
-    end)
+local function action(name,foundname)
+    status_metapost("loaded: library '%s'",name)
+    context.startreadingfile()
+    context.input(foundname)
+    context.stopreadingfile()
+end
+
+local function failure(name)
+    report_metapost("unknown: library '%s'",name)
+end
+
+function commands.useMPlibrary(name)
+    commands.uselibrary {
+        name     = name,
+        patterns = patterns,
+        action   = action,
+        failure  = failure,
+        onlyonce = true,
+    }
 end
 
 -- experimental