javascript: inline isNull
commit84db89c7d244facd668a9062d27451f0dd962976
authorraichoo <raichoo@googlemail.com>
dateSat 15 Feb 2014, 22:13 (13 years ago)
parentfa3cca0
jsrts/Runtime-common.js−4
@@ -37,7 +37,3 @@ var __IDRRT__tailcall = function(k) {
3737
3838 return ret;
3939};
40−
41−var __IDRRT__isNull = function(s) {
42− return s == null;
43−};
src/IRTS/CodegenJavaScript.hs+1−1
@@ -1848,7 +1848,7 @@ translateExpression (SForeign _ _ "putStr" [(FString, var)]) =
18481848 jsCall (idrRTNamespace ++ "print") [JSVar var]
18491849
18501850translateExpression (SForeign _ _ "isNull" [(FPtr, var)]) =
1851− jsCall (idrRTNamespace ++ "isNull") [JSVar var]
1851+ JSBinOp "==" (JSVar var) JSNull
18521852
18531853translateExpression (SForeign _ _ fun args) =
18541854 ffi fun (map generateWrapper args)