suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

addressing issue 50 with regards to ie compatibility

Browse Source
This commit is contained in:
Danny Yoo 2011-09-29 17:20:56 -04:00
parent a1009db26e
commit fbcbe4fa6f
4 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
js-assembler/assemble.rkt
View File

@ -591,7 +591,7 @@ EOF
(cond (cond
#;[(current-emit-debug-trace?) #;[(current-emit-debug-trace?)
(string-append (string-append
(format "if(typeof(window.console)!=='undefined'&&typeof(console.log)==='function'){console.log(~s);\n}" (format "if(typeof(window.console)!=='undefined'&&typeof(window.console.log)==='function'){window.console.log(~s);\n}"
(format "~a" stmt)) (format "~a" stmt))
assembled)] assembled)]
[else [else

2
js-assembler/package.rkt
View File

@ -516,7 +516,7 @@ EOF
EOF EOF
(if manifest (format "manifest=~s" (path->string manifest)) "") (if manifest (format "manifest=~s" (path->string manifest)) "")
(if with-legacy-ie-support? (if with-legacy-ie-support?
"<!--[if IE]><meta http-equiv='X-UA-Compatible' content='IE=edge,chrome=1'><![endif]--><!--lt IE 9?><script src='excanvas.js' type='text/javascript'></script><script src='canvas.text.js'></script><script src='optimer-normal-normal.js'></script><!endif?-->" "<!--[if IE]><meta http-equiv='X-UA-Compatible' content='IE=7,chrome=1'><![endif]--><!--lt IE 9?><script src='excanvas.js' type='text/javascript'></script><script src='canvas.text.js'></script><script src='optimer-normal-normal.js'></script><!endif?-->"
"") "")
title title
(string-join (map (lambda (js) (string-join (map (lambda (js)

4
js-assembler/runtime-src/baselib-primitives.js
View File

@ -791,7 +791,7 @@
var i; var i;
var result = NULL; var result = NULL;
for (i = str.length - 1; i >= 0; i--) { for (i = str.length - 1; i >= 0; i--) {
result = makePair(baselib.chars.makeChar(str[i]), result); result = makePair(baselib.chars.makeChar(str.charAt(i)), result);
} }
return result; return result;
}); });
@ -1022,7 +1022,7 @@
var index = baselib.numbers.toFixnum( var index = baselib.numbers.toFixnum(
checkNaturalInRange(M, 'string-ref', 1, checkNaturalInRange(M, 'string-ref', 1,
0, firstArg.length)); 0, firstArg.length));
return baselib.chars.makeChar(firstArg[index]); return baselib.chars.makeChar(firstArg.charAt(index));
}); });

6
world/kernel.js
View File

@ -132,7 +132,11 @@ var adaptWorldFunction = function(worldFunction) {
}, },
function(err) { function(err) {
// FIXME: do error trapping // FIXME: do error trapping
console.log(err); if (window.console && window.console.log) {
window.console.log(err);
} else {
throw err;
}
}].concat([].slice.call(arguments, 0, arguments.length - 1))); }].concat([].slice.call(arguments, 0, arguments.length - 1)));
}; };
}; };