and_or_tailcall_test.js

'use strict';

var Mt = require("./mt.js");
var Block = require("../../lib/js/block.js");

function f(b, _, _n) {
  while(true) {
    var n = _n;
    if (n > 100000) {
      return /* false */0;
    } else if (b) {
      _n = n + 1 | 0;
      continue ;
      
    } else {
      return /* false */0;
    }
  };
}

function or_f(b, _, _n) {
  while(true) {
    var n = _n;
    if (n > 100000) {
      return /* false */0;
    } else if (b) {
      return /* true */1;
    } else {
      _n = n + 1 | 0;
      continue ;
      
    }
  };
}

var suites_000 = /* tuple */[
  "and_tail",
  (function () {
      return /* Eq */Block.__(0, [
                /* false */0,
                f(/* true */1, 1, 0)
              ]);
    })
];

var suites_001 = /* :: */[
  /* tuple */[
    "or_tail",
    (function () {
        return /* Eq */Block.__(0, [
                  /* false */0,
                  or_f(/* false */0, 1, 0)
                ]);
      })
  ],
  /* [] */0
];

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

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

exports.f = f;
exports.or_f = or_f;
exports.suites = suites;
/*  Not a pure module */