Use strict module, but still allow for extending the scm interface

Signed-off-by: Tobias Ulmer <tu@emlix.com>

diff --git a/local/scm.lua b/local/scm.lua
index db23a82d08a5156bc95edbbdbdca999651a70abc..5a195aaacd97584769dd84dfdc659efa2bb18360 100644 (file)
--- a/local/scm.lua
+++ b/local/scm.lua
@@ -26,9 +26,10 @@
 ]]
 
 local scm = {}
-local err = require("err")
 local e2lib = require("e2lib")
+local err = require("err")
 local environment = require("environment")
+local strict = require("strict")
 
 -- scm modules
 local scms = {}
@@ -87,7 +88,12 @@ function scm.register_interface(name)
 
     -- we have lots of calls like scm.<function>(...). Register the interface
     -- function in the scm module to support those calls.
-    scm[name] = func
+    if strict.islocked(scm) then
+        strict.declare(scm, {[name]=func})
+    else
+        scm[name] = func
+    end
+
     return true, nil
 end
 
@@ -263,6 +269,6 @@ scm.register_interface("working_copy_available")
 scm.register_interface("display")
 scm.register_interface("has_working_copy")
 
-return scm
+return strict.lock(scm)
 
 -- vim:sw=4:sts=4:et: