From 722b0c632007ac6ea178b05695974e447b4288a3 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sun, 29 Jul 2012 12:54:17 -0400
Subject: Removed evaluation of js function name strings. (from Vladimir
 Shabanov)

---
 lib/js/urweb.js | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/js')

diff --git a/lib/js/urweb.js b/lib/js/urweb.js
index 1beb63c3..4ef77599 100644
--- a/lib/js/urweb.js
+++ b/lib/js/urweb.js
@@ -1711,10 +1711,10 @@ function exec1(env, stack, e) {
             break;
         case "f":
             if (e.a == null)
-                e = {c: "c", v: (eval(e.f))()};
+                e = {c: "c", v: e.f()};
             else {
                 var args = [];
-                stack = cons({c: "f", f: eval(e.f), args: args, pos: 0, a: e.a.next}, stack);
+                stack = cons({c: "f", f: e.f, args: args, pos: 0, a: e.a.next}, stack);
                 if (!e.a.data.c) alert("[2] fr.f = " + e.f + "; 0 = " + e.a.data);
                 e = e.a.data;
             }
-- 
cgit v1.2.3