Intern symbols when passed to Eval extension method (thanks 2bt)

git-svn-id: https://ironscheme.svn.codeplex.com/svn@113114 2327b42d-5241-43d6-9e2a-de5ac946f064
IronScheme · Mar 3, 2015 · 2716cab · 2716cab
1 parent a87c1de
commit 2716cab
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/IronScheme/IronScheme/RuntimeExtensions.cs b/IronScheme/IronScheme/RuntimeExtensions.cs
@@ -79,7 +79,15 @@ public static object EvalWithEnvironment(this string expr, string importspec, pa
       for (int i = 0; i < args.Length; i++)
       {
         var arg = vars[i];
-        Builtins.SetSymbolValueFast(SymbolTable.StringToObject(arg), args[i]);
+        var rarg = args[i];
+
+        // intern symbols
+        if (rarg is SymbolId)
+        {
+          rarg = SymbolTable.Intern((SymbolId)rarg);
+        }
+
+        Builtins.SetSymbolValueFast(SymbolTable.StringToObject(arg), rarg);
         assigns[i] = string.Format("(define {0} (symbol-value '{0}))", arg);
       }