ari_regress_test.js

// Generated CODE, PLEASE EDIT WITH CARE
'use strict';

var Mt         = require("./mt");
var Caml_curry = require("../runtime/caml_curry");

var g = 7;

var h = [0];

function gg(x, y) {
  var u = x + y | 0;
  return function (z) {
    return u + z | 0;
  };
}

function g1(x, y) {
  var u = x + y | 0;
  h[0] = h[0] + 1 | 0;
  return function (xx, yy) {
    return (xx + yy | 0) + u | 0;
  };
}

var x = gg(3, 5)(6);

var partial_arg = g1(3, 4);

function v(param) {
  return partial_arg(6, param);
}

var suites_000 = /* tuple */[
  "curry",
  function () {
    return /* Eq */{
            0: g,
            1: 7,
            length: 2,
            tag: 0
          };
  }
];

var suites_001 = /* :: */[
  /* tuple */[
    "curry2",
    function () {
      return /* Eq */{
              0: 14,
              1: (Caml_curry.app1(v, 1), Caml_curry.app1(v, 1)),
              length: 2,
              tag: 0
            };
    }
  ],
  /* :: */[
    /* tuple */[
      "curry3",
      function () {
        return /* Eq */{
                0: x,
                1: 14,
                length: 2,
                tag: 0
              };
      }
    ],
    /* :: */[
      /* tuple */[
        'File "ari_regress_test.ml", line 20, characters 4-11',
        function () {
          return /* Eq */{
                  0: h[0],
                  1: 1,
                  length: 2,
                  tag: 0
                };
        }
      ],
      /* [] */0
    ]
  ]
];

var suites = /* :: */[
  suites_000,
  suites_001
];

Mt.from_pair_suites("ari_regress_test.ml", suites);

/* x Not a pure module */