From: handa <handa>
Date: Mon, 20 Jul 2009 07:05:30 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bd5f98006cb88fd945b577160b259b6c2889f5db;p=m17n%2Fm17n-lib-cs.git

*** empty log message ***
---

diff --git a/MExpression.cs b/MExpression.cs
index 3c43747..588a5dc 100644
--- 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)