untitled1 x 1 |
ctx here
|
JsInterpreter.jsJsInterpreter.pseudoJsInterpreter.ml xxxxxxxxxx 6707 1 var JsInterpreter = (function() { 2 with (Datatypes) { 3 with (JsCommon) { 4 with (JsCommonAux) { 5 with (JsInit) { 6 with (JsInterpreterMonads) { 7 with (JsSyntax) { 8 with (JsSyntaxAux) { 9 with (LibList) { 10 with (LibOption) { 11 with (LibProd) { 12 with (Shared) { 13 14 var equality_test_for_same_type = function (ty, v1, v2) { 15 switch (ty) { 16 case Type_undef: 17 return (true); 18 case Type_null: 19 return (true); 20 case Type_bool: 21 return (value_compare(v1, v2)); 22 case Type_number: 23 switch (v1) { 24 case Value_undef: 25 return (false); 26 case Value_null: |