*** empty log message ***

diff --git a/MExpression.cs b/MExpression.cs
index 3c43747..588a5dc 100644 (file)
--- a/MExpression.cs
+++ b/MExpression.cs
@@ -7,7 +7,7 @@ using M17N.Core;
 
 namespace M17N.Core
 {
-  public delegate object MEvaluator (MExpression args);
+  public delegate object MEvaluator (MExpression args, MPlist bindings);
 
   public class MFunction
   {
@@ -16,7 +16,7 @@ namespace M17N.Core
     public static Dictionary<MSymbol, MFunction> CommonTable
       = new Dictionary<MSymbol, MFunction> ();
 
-    public MFunction (MSymbol name, MEvaluator evaluator)
+    internal MFunction (MSymbol name, MEvaluator evaluator)
     {
       this.evaluator = evaluator;
       CommonTable[name] = this;
@@ -29,9 +29,9 @@ namespace M17N.Core
       dict[name] = this;
     }
 
-    public object Call (MExpression args)
+    public object Call (MExpression args, MPlist bindings)
     {
-      return evaluator (args);
+      return evaluator (args, bindings);
     }
 
     private object plus (MExpression args)