# HG changeset patch
# User Adam Chlipala <adamc@hcoop.net>
# Date 1258826881 18000
# Node ID f87d0fedc54c13c8147cc43a92d32af4d30eb6f1
# Parent  a779402841f65510a078ceccf11352e28bf0e2e4
Fix for lack of 'apply' method of IE6 native functions

diff -r a779402841f6 -r f87d0fedc54c lib/js/urweb.js
--- a/lib/js/urweb.js	Tue Nov 17 12:44:14 2009 -0500
+++ b/lib/js/urweb.js	Sat Nov 21 13:08:01 2009 -0500
@@ -891,8 +891,27 @@
       case "f":
         fr.args[fr.pos++] = v;
         if (fr.a == null) {
+          var res;
           stack = stack.next;
-          e = {c: "c", v: fr.f.apply(null, fr.args)};
+
+          if (fr.f.apply)
+            res = fr.f.apply(null, fr.args);
+          else if (fr.args.length == 0)
+            res = fr.f();
+          else if (fr.args.length == 1)
+            res = fr.f(fr.args[0]);
+          else if (fr.args.length == 2)
+            res = fr.f(fr.args[0], fr.args[1]);
+          else if (fr.args.length == 3)
+            res = fr.f(fr.args[0], fr.args[1], fr.args[2]);
+          else if (fr.args.length == 4)
+            res = fr.f(fr.args[0], fr.args[1], fr.args[2], fr.args[3]);
+          else if (fr.args.length == 5)
+            res = fr.f(fr.args[0], fr.args[1], fr.args[2], fr.args[3], fr.args[4]);
+          else
+            whine("Native function has " + fr.args.length + " args, but there is no special case for that count.");
+
+          e = {c: "c", v: res};
           if (usedK) return null;
         } else {
           e = fr.a.data;