nullzero

Untitled

Jan 16th, 2016
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. define(["trove/arrays",
  2. "trove/error",
  3. "trove/lists",
  4. "trove/option",
  5. "trove/sets"],function($arrays20,$error21,$lists22,$option23,$sets24) {
  6. return function(R,NAMESPACE) {
  7. if(R.modules["$tests/pyret/tests/test$tail$call.arr19"]) {
  8. return R.modules["$tests/pyret/tests/test$tail$call.arr19"];
  9. } else {
  10. var G = R.getFieldLoc;
  11. var U = function(loc,name) {
  12. R.ffi.throwUninitializedIdMkLoc(loc,name)};
  13. var M = "tests/pyret/tests/test-tail-call.arr";
  14. var D = R.undefined;
  15. var L = [[M,26,2,438,26,8,444],
  16. [M,27,2,447,27,31,476],
  17. [M,27,13,458,27,17,462],
  18. [M,27,24,469,27,30,475],
  19. [M,27,4,449,27,31,476],
  20. [M,28,2,479,28,31,508],
  21. [M,28,13,490,28,17,494],
  22. [M,28,24,501,28,30,507],
  23. [M,28,4,481,28,31,508],
  24. [M,29,2,511,29,33,542],
  25. [M,29,15,524,29,19,528],
  26. [M,29,26,535,29,32,541],
  27. [M,29,4,513,29,33,542],
  28. [M,25,0,425,30,3,546],
  29. [M,35,8,668,35,12,672],
  30. [M,38,8,732,40,11,802],
  31. [M,39,20,780,39,30,790],
  32. [M,41,16,819,41,28,831],
  33. [M,38,13,737,38,34,758],
  34. [M,38,13,737,38,29,753],
  35. [M,37,8,709,37,22,723],
  36. [M,36,8,688,36,17,697],
  37. [M,36,6,686,41,29,832],
  38. [M,44,13,884,44,34,905],
  39. [M,45,12,919,45,17,924],
  40. [M,49,16,985,49,28,997],
  41. [M,44,13,884,44,29,900],
  42. [M,42,8,841,42,17,850],
  43. [M,42,6,839,49,29,998],
  44. [M,51,25,1047,51,46,1068],
  45. [M,51,48,1070,51,53,1075],
  46. [M,51,16,1038,51,65,1087],
  47. [M,51,25,1047,51,41,1063],
  48. [M,50,8,1007,50,19,1018],
  49. [M,50,6,1005,51,66,1088],
  50. [M,34,4,644,52,7,1096],
  51. [M,33,53,632,33,59,638],
  52. [M,34,11,651,34,15,655],
  53. [M,33,29,608,33,33,612],
  54. [M,33,42,621,33,48,627],
  55. [M,33,13,592,53,5,1102],
  56. [M,32,23,571,32,29,577],
  57. [M,54,2,1105,54,12,1115],
  58. [M,32,14,562,32,18,566],
  59. [M,32,0,548,60,3,1349],
  60. [M,25,0,425,60,3,1349],
  61. [M,56,2,1125,56,14,1137],
  62. [M,56,2,1125,56,9,1132],
  63. [M,56,13,1136,56,14,1137],
  64. [M,57,2,1140,58,69,1344],
  65. [M,57,2,1140,57,136,1274],
  66. [M,57,4,1142,57,135,1273],
  67. [M,57,8,1146,57,130,1268],
  68. [M,57,12,1150,57,125,1263],
  69. [M,57,16,1154,57,120,1258],
  70. [M,57,20,1158,57,115,1253],
  71. [M,57,26,1164,57,110,1248],
  72. [M,57,32,1170,57,106,1244],
  73. [M,57,36,1174,57,102,1240],
  74. [M,57,40,1178,57,98,1236],
  75. [M,57,46,1184,57,94,1232],
  76. [M,57,50,1188,57,90,1228],
  77. [M,57,56,1194,57,86,1224],
  78. [M,57,60,1198,57,82,1220],
  79. [M,57,64,1202,57,78,1216],
  80. [M,58,7,1282,58,69,1344],
  81. [M,58,40,1315,58,68,1343],
  82. [M,58,8,1283,58,35,1310]];
  83. var $type$Number1 = NAMESPACE.get("$type$Number");
  84. var num$modulo2 = NAMESPACE.get("num-modulo");
  85. var equal$always3 = NAMESPACE.get("equal-always");
  86. var _minus4 = NAMESPACE.get("_minus");
  87. var _plus5 = NAMESPACE.get("_plus");
  88. var nothing6 = NAMESPACE.get("nothing");
  89. var builtins7 = NAMESPACE.get("builtins");
  90. return R.loadModulesNew(NAMESPACE,[$arrays20,$error21,$lists22,$option23,$sets24],function($arrays20,$error21,$lists22,$option23,$sets24) {
  91. var arrays9 = R.getField($arrays20,"values");
  92. var error10 = R.getField($error21,"values");
  93. var lists11 = R.getField($lists22,"values");
  94. var option12 = R.getField($option23,"values");
  95. var sets13 = R.getField($sets24,"values");
  96. var arrays14 = R.getField($arrays20,"types");
  97. var error15 = R.getField($error21,"types");
  98. var lists16 = R.getField($lists22,"types");
  99. var option17 = R.getField($option23,"types");
  100. var sets18 = R.getField($sets24,"types");
  101. NAMESPACE = R.addModuleToNamespace(NAMESPACE,["array-to-list-now","array-length","array-get-now","array-set-now","array-of","is-array","array-from-list","build-array","array"],["Array"],$arrays20);
  102. NAMESPACE = R.addModuleToNamespace(NAMESPACE,[],[],$error21);
  103. NAMESPACE = R.addModuleToNamespace(NAMESPACE,["index","fold4","fold3","fold2","fold","each4_n","each3_n","each2_n","each_n","each4","each3","each2","each","map4_n","map3_n","map2_n","map_n","map4","map3","map2","map","find","any","split-at","partition","filter","repeat","range-by","range","link","empty","is-link","is-empty","is-List","list"],["List"],$lists22);
  104. NAMESPACE = R.addModuleToNamespace(NAMESPACE,["some","none","is-some","is-none","is-Option","Option"],["Option"],$option23);
  105. NAMESPACE = R.addModuleToNamespace(NAMESPACE,["list-to-tree-set","list-to-list-set","list-to-set","empty-tree-set","empty-list-set","empty-set","list-set","tree-set","set"],["Set"],$sets24);
  106. var list8 = NAMESPACE.get("list");
  107. var $toplevel26 = function($$resumer30) {
  108. var $step25 = 0;
  109. var $ans28 = D;
  110. var $al29 = L[45];
  111. try {
  112. if(R.isActivationRecord($$resumer30)) {
  113. $step25 = $$resumer30.step;
  114. $al29 = $$resumer30.from;
  115. $ans28 = $$resumer30.ans;
  116. $resumer30 = $$resumer30.args[0];
  117. provides226 = $$resumer30.vars[0];
  118. anf_method_obj220 = $$resumer30.vars[1];
  119. result$after$checks1227 = $$resumer30.vars[2];
  120. f150 = $$resumer30.vars[3];
  121. three92 = $$resumer30.vars[4];
  122. is$three90 = $$resumer30.vars[5];
  123. two88 = $$resumer30.vars[6];
  124. is$two86 = $$resumer30.vars[7];
  125. one84 = $$resumer30.vars[8];
  126. is$one82 = $$resumer30.vars[9];
  127. zero80 = $$resumer30.vars[10];
  128. is$zero78 = $$resumer30.vars[11];
  129. is$Test76 = $$resumer30.vars[12];
  130. Test74 = $$resumer30.vars[13];
  131. Test47 = $$resumer30.vars[14];
  132. }
  133. while(true) {
  134. switch($step25) {
  135. case 0: if(--R.GAS <= 0) {
  136. R.EXN_STACKHEIGHT = 0;
  137. throw R.makeCont();
  138. }
  139. var TestT31 = R.namedBrander("Test");
  140. var Test47 = R.makeBranderAnn(TestT31,"Test");
  141. var Test72 = {"$var":D};
  142. var Test74 = {"$var":D};
  143. var is$Test76 = {"$var":D};
  144. var is$zero78 = {"$var":D};
  145. var zero80 = {"$var":D};
  146. var is$one82 = {"$var":D};
  147. var one84 = {"$var":D};
  148. var is$two86 = {"$var":D};
  149. var two88 = {"$var":D};
  150. var is$three90 = {"$var":D};
  151. var three92 = {"$var":D};
  152. var f150 = {"$var":D};
  153. var $zero_getfields37 = function(f) {
  154. return f();
  155. };
  156. var $zero_getfieldsref35 = function(f) {
  157. return f();
  158. };
  159. var $zero_mutablemask36 = [];
  160. var $zero$base32 = {"_match":R.makeMatch("zero",0)};
  161. var $zero$brands34 = {"$brand$zero":true};
  162. $zero$brands34[TestT31._brand] = true;
  163. var $one_getfields44 = function(f) {
  164. return f(this.dict["e"],this.dict["n"]);
  165. };
  166. var $one_getfieldsref42 = function(f,refmask) {
  167. return f(R.derefField(this.dict["e"],false,refmask[0]),R.derefField(this.dict["n"],false,refmask[1]));
  168. };
  169. var $one_mutablemask43 = [false,false];
  170. var $one$base39 = {"$fieldNames":["e","n"],
  171. "_match":R.makeMatch("one",2)};
  172. var $one$brands41 = {"$brand$one":true};
  173. $one$brands41[TestT31._brand] = true;
  174. var one46 = R.makeVariantConstructor(L[4],function() {
  175. return [Test47,$type$Number1];
  176. },["e48","n49"],[L[2],L[3]],[false,false],["e48","n49"],$one_mutablemask43,$one$base39,$one$brands41,"one",$one_getfieldsref42,$one_getfields44,$one$base39);
  177. var $two_getfields55 = function(f) {
  178. return f(this.dict["e"],this.dict["n"]);
  179. };
  180. var $two_getfieldsref53 = function(f,refmask) {
  181. return f(R.derefField(this.dict["e"],false,refmask[0]),R.derefField(this.dict["n"],false,refmask[1]));
  182. };
  183. var $two_mutablemask54 = [false,false];
  184. var $two$base50 = {"$fieldNames":["e","n"],
  185. "_match":R.makeMatch("two",2)};
  186. var $two$brands52 = {"$brand$two":true};
  187. $two$brands52[TestT31._brand] = true;
  188. var two57 = R.makeVariantConstructor(L[8],function() {
  189. return [Test47,$type$Number1];
  190. },["e58","n59"],[L[6],L[7]],[false,false],["e58","n59"],$two_mutablemask54,$two$base50,$two$brands52,"two",$two_getfieldsref53,$two_getfields55,$two$base50);
  191. var $three_getfields65 = function(f) {
  192. return f(this.dict["e"],this.dict["n"]);
  193. };
  194. var $three_getfieldsref63 = function(f,refmask) {
  195. return f(R.derefField(this.dict["e"],false,refmask[0]),R.derefField(this.dict["n"],false,refmask[1]));
  196. };
  197. var $three_mutablemask64 = [false,false];
  198. var $three$base60 = {"$fieldNames":["e","n"],
  199. "_match":R.makeMatch("three",2)};
  200. var $three$brands62 = {"$brand$three":true};
  201. $three$brands62[TestT31._brand] = true;
  202. var three67 = R.makeVariantConstructor(L[12],function() {
  203. return [Test47,$type$Number1];
  204. },["e68","n69"],[L[10],L[11]],[false,false],["e68","n69"],$three_mutablemask64,$three$base60,$three$brands62,"three",$three_getfieldsref63,$three_getfields65,$three$base60);
  205. var anf_assign71 = R.makeObject({"Test":R.makeFunction(function($val70) {
  206. var $l = arguments.length;
  207. if($l !== 1) {
  208. var $t = new Array($l);
  209. for(var $i = 0;$i < $l;++$i) {
  210. $t[$i] = arguments[$i];
  211. }
  212. R.checkArityC(L[13],1,$t);
  213. }
  214. return R.makeBoolean(R.hasBrand($val70,TestT31._brand));
  215. }),
  216. "is-zero":R.makeFunction(function($val38) {
  217. var $l = arguments.length;
  218. if($l !== 1) {
  219. var $t = new Array($l);
  220. for(var $i = 0;$i < $l;++$i) {
  221. $t[$i] = arguments[$i];
  222. }
  223. R.checkArityC(L[0],1,$t);
  224. }
  225. return R.makeBoolean(R.hasBrand($val38,"$brand$zero"));
  226. }),
  227. "zero":R.makeDataValue($zero$base32,$zero$brands34,"zero",$zero_getfieldsref35,$zero_getfields37,-1,$zero_mutablemask36,$zero$base32),
  228. "is-one":R.makeFunction(function($val45) {
  229. var $l = arguments.length;
  230. if($l !== 1) {
  231. var $t = new Array($l);
  232. for(var $i = 0;$i < $l;++$i) {
  233. $t[$i] = arguments[$i];
  234. }
  235. R.checkArityC(L[1],1,$t);
  236. }
  237. return R.makeBoolean(R.hasBrand($val45,"$brand$one"));
  238. }),
  239. "one":one46,
  240. "is-two":R.makeFunction(function($val56) {
  241. var $l = arguments.length;
  242. if($l !== 1) {
  243. var $t = new Array($l);
  244. for(var $i = 0;$i < $l;++$i) {
  245. $t[$i] = arguments[$i];
  246. }
  247. R.checkArityC(L[5],1,$t);
  248. }
  249. return R.makeBoolean(R.hasBrand($val56,"$brand$two"));
  250. }),
  251. "two":two57,
  252. "is-three":R.makeFunction(function($val66) {
  253. var $l = arguments.length;
  254. if($l !== 1) {
  255. var $t = new Array($l);
  256. for(var $i = 0;$i < $l;++$i) {
  257. $t[$i] = arguments[$i];
  258. }
  259. R.checkArityC(L[9],1,$t);
  260. }
  261. return R.makeBoolean(R.hasBrand($val66,"$brand$three"));
  262. }),
  263. "three":three67});
  264. Test72.$var = anf_assign71;
  265. var anf_assign73 = G(Test72.$var,"Test",L[13]);
  266. Test74.$var = anf_assign73;
  267. var anf_assign75 = G(Test72.$var,"Test",L[13]);
  268. is$Test76.$var = anf_assign75;
  269. var anf_assign77 = G(Test72.$var,"is-zero",L[0]);
  270. is$zero78.$var = anf_assign77;
  271. var anf_assign79 = G(Test72.$var,"zero",L[0]);
  272. zero80.$var = anf_assign79;
  273. var anf_assign81 = G(Test72.$var,"is-one",L[1]);
  274. is$one82.$var = anf_assign81;
  275. var anf_assign83 = G(Test72.$var,"one",L[1]);
  276. one84.$var = anf_assign83;
  277. var anf_assign85 = G(Test72.$var,"is-two",L[5]);
  278. is$two86.$var = anf_assign85;
  279. var anf_assign87 = G(Test72.$var,"two",L[5]);
  280. two88.$var = anf_assign87;
  281. var anf_assign89 = G(Test72.$var,"is-three",L[9]);
  282. is$three90.$var = anf_assign89;
  283. var anf_assign91 = G(Test72.$var,"three",L[9]);
  284. three92.$var = anf_assign91;
  285. var $temp_lam94 = function($t95) {
  286. var $step93 = 0;
  287. var $ans96 = D;
  288. var $al97 = L[44];
  289. try {
  290. if(R.isActivationRecord($t95)) {
  291. $step93 = $t95.step;
  292. $al97 = $t95.from;
  293. $ans96 = $t95.ans;
  294. t95 = $t95.args[0];
  295. ann_check_temp147 = $t95.vars[0];
  296. } else {
  297. var $l = arguments.length;
  298. if($l !== 1) {
  299. var $t = new Array($l);
  300. for(var $i = 0;$i < $l;++$i) {
  301. $t[$i] = arguments[$i];
  302. }
  303. R.checkArityC(L[44],1,$t);
  304. }
  305. var t95 = $t95;
  306. }
  307. while(true) {
  308. switch($step93) {
  309. case 0: if(--R.GAS <= 0) {
  310. R.EXN_STACKHEIGHT = 0;
  311. throw R.makeCont();
  312. }
  313. $step93 = 1;
  314. $al97 = L[43];
  315. R._checkAnn(L[43],Test47,t95);
  316. break;
  317. case 1: var help110 = {"$var":D};
  318. var $temp_lam99 = function($t100,$acc101) {
  319. var $step98 = 0;
  320. var $ans102 = D;
  321. var $al103 = L[40];
  322. try {
  323. if(R.isActivationRecord($t100)) {
  324. $step98 = $t100.step;
  325. $al103 = $t100.from;
  326. $ans102 = $t100.ans;
  327. t100 = $t100.args[0];
  328. acc101 = $t100.args[1];
  329. ann_check_temp144 = $t100.vars[0];
  330. cases104 = $t100.vars[1];
  331. } else {
  332. var $l = arguments.length;
  333. if($l !== 2) {
  334. var $t = new Array($l);
  335. for(var $i = 0;$i < $l;++$i) {
  336. $t[$i] = arguments[$i];
  337. }
  338. R.checkArityC(L[40],2,$t);
  339. }
  340. var t100 = $t100;
  341. var acc101 = $acc101;
  342. }
  343. while(true) {
  344. switch($step98) {
  345. case 0: if(--R.GAS <= 0) {
  346. R.EXN_STACKHEIGHT = 0;
  347. throw R.makeCont();
  348. }
  349. $step98 = 1;
  350. $al103 = L[38];
  351. R._checkAnn(L[38],Test47,t100);
  352. break;
  353. case 1: $step98 = 2;
  354. $al103 = L[39];
  355. R._checkAnn(L[39],$type$Number1,acc101);
  356. break;
  357. case 2: var cases104 = t100;
  358. $step98 = 3;
  359. $al103 = L[37];
  360. R._checkAnn(L[37],Test47,cases104);
  361. break;
  362. case 3: var $cases_dispatch143 = {"zero":4,
  363. "one":5,
  364. "two":6,
  365. "three":7};
  366. $al103 = L[35];
  367. $step98 = $cases_dispatch143[cases104.$name] || 8;
  368. break;
  369. case 4: if(cases104.$arity !== -1) {
  370. R.ffi.throwCasesSingletonErrorC(L[14],false);
  371. }
  372. $step98 = 9;
  373. $ans102 = acc101;
  374. break;
  375. case 5: if(cases104.$arity >= 0) {
  376. if(2 !== cases104.$arity) {
  377. R.ffi.throwCasesArityErrorC(L[21],2,cases104.$arity);
  378. }
  379. } else {
  380. R.ffi.throwCasesSingletonErrorC(L[21],true);
  381. }
  382. $step98 = 9;
  383. $al103 = L[22];
  384. var $temp_branch114 = function($e111,$n105) {
  385. var $step115 = 0;
  386. var $ans116 = D;
  387. var $al117 = L[20];
  388. try {
  389. if(R.isActivationRecord($e111)) {
  390. $step115 = $e111.step;
  391. $al117 = $e111.from;
  392. $ans116 = $e111.ans;
  393. e111 = $e111.args[0];
  394. n105 = $e111.args[1];
  395. to$add108 = $e111.vars[0];
  396. } else {
  397. var e111 = $e111;
  398. var n105 = $n105;
  399. }
  400. while(true) {
  401. switch($step115) {
  402. case 0: if(--R.GAS <= 0) {
  403. R.EXN_STACKHEIGHT = 0;
  404. throw R.makeCont();
  405. }
  406. var to$add108 = {"$var":n105};
  407. $step115 = 1;
  408. $al117 = L[19];
  409. if(!(R.isFunction(num$modulo2))) {
  410. R.ffi.throwNonFunApp($al117,num$modulo2);
  411. }
  412. $ans116 = num$modulo2.app(n105,(2));
  413. break;
  414. case 1: var anf_arg106 = $ans116;
  415. $step115 = 2;
  416. $al117 = L[18];
  417. if(!(R.isFunction(equal$always3))) {
  418. R.ffi.throwNonFunApp($al117,equal$always3);
  419. }
  420. $ans116 = equal$always3.app(anf_arg106,(0));
  421. break;
  422. case 2: var anf_arg107 = $ans116;
  423. $al117 = L[15];
  424. var anf_if113 = R.checkWrapBoolean(anf_arg107);
  425. if(R.isPyretTrue(anf_if113)) {
  426. $step115 = 3;
  427. } else {
  428. $step115 = 5;
  429. }
  430. break;
  431. case 3: $step115 = 4;
  432. $al117 = L[16];
  433. if(!(R.isFunction(_minus4))) {
  434. R.ffi.throwNonFunApp($al117,_minus4);
  435. }
  436. $ans116 = _minus4.app((0),to$add108.$var);
  437. break;
  438. case 4: var anf_assign109 = $ans116;
  439. to$add108.$var = anf_assign109;
  440. $step115 = 6;
  441. $ans116 = nothing6;
  442. break;
  443. case 5: $step115 = 6;
  444. $ans116 = nothing6;
  445. break;
  446. case 6: $step115 = 7;
  447. $al117 = L[17];
  448. if(!(R.isFunction(_plus5))) {
  449. R.ffi.throwNonFunApp($al117,_plus5);
  450. }
  451. $ans116 = _plus5.app(acc101,to$add108.$var);
  452. break;
  453. case 7: var anf_arg112 = $ans116;
  454. $step115 = 0;
  455. e111 = e111;
  456. n105 = anf_arg112;
  457. continue;
  458. case 8: ++R.GAS;
  459. return $ans116;
  460. default: throw "No case numbered " + $step115 + " in $temp_branch114";
  461. }
  462. }
  463. } catch($e118) {
  464. if(R.isCont($e118) && ($step115 !== 8)) {
  465. $e118.stack[R.EXN_STACKHEIGHT++] = R.makeActivationRecord($al117,$temp_branch114,$step115,[e111,n105],[to$add108]);
  466. }
  467. if(R.isPyretException($e118)) {
  468. $e118.pyretStack.push($al117);
  469. }
  470. throw $e118;
  471. }
  472. };
  473. $ans102 = cases104.$app_fields($temp_branch114,[false,false]);
  474. break;
  475. case 6: if(cases104.$arity >= 0) {
  476. if(2 !== cases104.$arity) {
  477. R.ffi.throwCasesArityErrorC(L[27],2,cases104.$arity);
  478. }
  479. } else {
  480. R.ffi.throwCasesSingletonErrorC(L[27],true);
  481. }
  482. $step98 = 9;
  483. $al103 = L[28];
  484. var $temp_branch126 = function($e123,$n119) {
  485. var $step127 = 0;
  486. var $ans128 = D;
  487. var $al129 = L[26];
  488. try {
  489. if(R.isActivationRecord($e123)) {
  490. $step127 = $e123.step;
  491. $al129 = $e123.from;
  492. $ans128 = $e123.ans;
  493. e123 = $e123.args[0];
  494. n119 = $e123.args[1];
  495. } else {
  496. var e123 = $e123;
  497. var n119 = $n119;
  498. }
  499. while(true) {
  500. switch($step127) {
  501. case 0: if(--R.GAS <= 0) {
  502. R.EXN_STACKHEIGHT = 0;
  503. throw R.makeCont();
  504. }
  505. $step127 = 1;
  506. $al129 = L[26];
  507. if(!(R.isFunction(num$modulo2))) {
  508. R.ffi.throwNonFunApp($al129,num$modulo2);
  509. }
  510. $ans128 = num$modulo2.app(n119,(2));
  511. break;
  512. case 1: var anf_arg120 = $ans128;
  513. $step127 = 2;
  514. $al129 = L[23];
  515. if(!(R.isFunction(equal$always3))) {
  516. R.ffi.throwNonFunApp($al129,equal$always3);
  517. }
  518. $ans128 = equal$always3.app(anf_arg120,(0));
  519. break;
  520. case 2: var anf_arg121 = $ans128;
  521. $al129 = L[23];
  522. var anf_if125 = R.checkWrapBoolean(anf_arg121);
  523. if(R.isPyretTrue(anf_if125)) {
  524. $step127 = 3;
  525. } else {
  526. $step127 = 4;
  527. }
  528. break;
  529. case 3: $step127 = 5;
  530. $al129 = L[24];
  531. if(!(R.isFunction(_minus4))) {
  532. R.ffi.throwNonFunApp($al129,_minus4);
  533. }
  534. $ans128 = _minus4.app((0),n119);
  535. break;
  536. case 4: $step127 = 5;
  537. $ans128 = n119;
  538. break;
  539. case 5: var to$add122 = $ans128;
  540. $step127 = 6;
  541. $al129 = L[25];
  542. if(!(R.isFunction(_plus5))) {
  543. R.ffi.throwNonFunApp($al129,_plus5);
  544. }
  545. $ans128 = _plus5.app(acc101,to$add122);
  546. break;
  547. case 6: var anf_arg124 = $ans128;
  548. $step127 = 0;
  549. e123 = e123;
  550. n119 = anf_arg124;
  551. continue;
  552. case 7: ++R.GAS;
  553. return $ans128;
  554. default: throw "No case numbered " + $step127 + " in $temp_branch126";
  555. }
  556. }
  557. } catch($e130) {
  558. if(R.isCont($e130) && ($step127 !== 7)) {
  559. $e130.stack[R.EXN_STACKHEIGHT++] = R.makeActivationRecord($al129,$temp_branch126,$step127,[e123,n119],[]);
  560. }
  561. if(R.isPyretException($e130)) {
  562. $e130.pyretStack.push($al129);
  563. }
  564. throw $e130;
  565. }
  566. };
  567. $ans102 = cases104.$app_fields($temp_branch126,[false,false]);
  568. break;
  569. case 7: if(cases104.$arity >= 0) {
  570. if(2 !== cases104.$arity) {
  571. R.ffi.throwCasesArityErrorC(L[33],2,cases104.$arity);
  572. }
  573. } else {
  574. R.ffi.throwCasesSingletonErrorC(L[33],true);
  575. }
  576. $step98 = 9;
  577. $al103 = L[34];
  578. var $temp_branch138 = function($e135,$n131) {
  579. var $step139 = 0;
  580. var $ans140 = D;
  581. var $al141 = L[32];
  582. try {
  583. if(R.isActivationRecord($e135)) {
  584. $step139 = $e135.step;
  585. $al141 = $e135.from;
  586. $ans140 = $e135.ans;
  587. e135 = $e135.args[0];
  588. n131 = $e135.args[1];
  589. } else {
  590. var e135 = $e135;
  591. var n131 = $n131;
  592. }
  593. while(true) {
  594. switch($step139) {
  595. case 0: if(--R.GAS <= 0) {
  596. R.EXN_STACKHEIGHT = 0;
  597. throw R.makeCont();
  598. }
  599. $step139 = 1;
  600. $al141 = L[32];
  601. if(!(R.isFunction(num$modulo2))) {
  602. R.ffi.throwNonFunApp($al141,num$modulo2);
  603. }
  604. $ans140 = num$modulo2.app(n131,(2));
  605. break;
  606. case 1: var anf_arg132 = $ans140;
  607. $step139 = 2;
  608. $al141 = L[29];
  609. if(!(R.isFunction(equal$always3))) {
  610. R.ffi.throwNonFunApp($al141,equal$always3);
  611. }
  612. $ans140 = equal$always3.app(anf_arg132,(0));
  613. break;
  614. case 2: var anf_arg133 = $ans140;
  615. $al141 = L[29];
  616. var anf_if137 = R.checkWrapBoolean(anf_arg133);
  617. if(R.isPyretTrue(anf_if137)) {
  618. $step139 = 3;
  619. } else {
  620. $step139 = 4;
  621. }
  622. break;
  623. case 3: $step139 = 5;
  624. $al141 = L[30];
  625. if(!(R.isFunction(_minus4))) {
  626. R.ffi.throwNonFunApp($al141,_minus4);
  627. }
  628. $ans140 = _minus4.app((0),n131);
  629. break;
  630. case 4: $step139 = 5;
  631. $ans140 = n131;
  632. break;
  633. case 5: var anf_arg134 = $ans140;
  634. $step139 = 6;
  635. $al141 = L[31];
  636. if(!(R.isFunction(_plus5))) {
  637. R.ffi.throwNonFunApp($al141,_plus5);
  638. }
  639. $ans140 = _plus5.app(acc101,anf_arg134);
  640. break;
  641. case 6: var anf_arg136 = $ans140;
  642. $step139 = 0;
  643. e135 = e135;
  644. n131 = anf_arg136;
  645. continue;
  646. case 7: ++R.GAS;
  647. return $ans140;
  648. default: throw "No case numbered " + $step139 + " in $temp_branch138";
  649. }
  650. }
  651. } catch($e142) {
  652. if(R.isCont($e142) && ($step139 !== 7)) {
  653. $e142.stack[R.EXN_STACKHEIGHT++] = R.makeActivationRecord($al141,$temp_branch138,$step139,[e135,n131],[]);
  654. }
  655. if(R.isPyretException($e142)) {
  656. $e142.pyretStack.push($al141);
  657. }
  658. throw $e142;
  659. }
  660. };
  661. $ans102 = cases104.$app_fields($temp_branch138,[false,false]);
  662. break;
  663. case 8: $step98 = 9;
  664. $al103 = L[35];
  665. $ans102 = R.throwNoCasesMatched(L[35],cases104);
  666. break;
  667. case 9: var ann_check_temp144 = $ans102;
  668. $step98 = 10;
  669. $al103 = L[36];
  670. R._checkAnn(L[36],$type$Number1,ann_check_temp144);
  671. break;
  672. case 10: $step98 = 11;
  673. $ans102 = ann_check_temp144;
  674. break;
  675. case 11: ++R.GAS;
  676. return $ans102;
  677. default: throw "No case numbered " + $step98 + " in $temp_lam99";
  678. }
  679. }
  680. } catch($e145) {
  681. if(R.isCont($e145) && ($step98 !== 11)) {
  682. $e145.stack[R.EXN_STACKHEIGHT++] = R.makeActivationRecord($al103,$temp_lam99,$step98,[t100,acc101],[ann_check_temp144,cases104]);
  683. }
  684. if(R.isPyretException($e145)) {
  685. $e145.pyretStack.push($al103);
  686. }
  687. throw $e145;
  688. }
  689. };
  690. var anf_assign146 = R.makeFunction($temp_lam99);
  691. help110.$var = anf_assign146;
  692. $step93 = 2;
  693. $al97 = L[42];
  694. if(!(R.isFunction(help110.$var))) {
  695. R.ffi.throwNonFunApp($al97,help110.$var);
  696. }
  697. $ans96 = help110.$var.app(t95,(0));
  698. break;
  699. case 2: var ann_check_temp147 = $ans96;
  700. $step93 = 3;
  701. $al97 = L[41];
  702. R._checkAnn(L[41],$type$Number1,ann_check_temp147);
  703. break;
  704. case 3: $step93 = 4;
  705. $ans96 = ann_check_temp147;
  706. break;
  707. case 4: ++R.GAS;
  708. return $ans96;
  709. default: throw "No case numbered " + $step93 + " in $temp_lam94";
  710. }
  711. }
  712. } catch($e148) {
  713. if(R.isCont($e148) && ($step93 !== 4)) {
  714. $e148.stack[R.EXN_STACKHEIGHT++] = R.makeActivationRecord($al97,$temp_lam94,$step93,[t95],[ann_check_temp147]);
  715. }
  716. if(R.isPyretException($e148)) {
  717. $e148.pyretStack.push($al97);
  718. }
  719. throw $e148;
  720. }
  721. };
  722. var anf_assign149 = R.makeFunction($temp_lam94);
  723. f150.$var = anf_assign149;
  724. var result$after$checks1227 = nothing6;
  725. $step25 = 1;
  726. $al29 = L[45];
  727. $field151 = R.getColonFieldLoc(builtins7,"current-checker",L[45]);
  728. if(R.isMethod($field151)) {
  729. $ans28 = $field151.full_meth(builtins7);
  730. } else {
  731. if(!(R.isFunction($field151))) {
  732. R.ffi.throwNonFunApp(L[45],$field151);
  733. }
  734. $ans28 = $field151.app();
  735. }
  736. break;
  737. case 1: var anf_method_obj220 = $ans28;
  738. var $temp_lam153 = function($$resumer30) {
  739. var $step152 = 0;
  740. var $ans154 = D;
  741. var $al155 = L[44];
  742. try {
  743. if(R.isActivationRecord($$resumer30)) {
  744. $step152 = $$resumer30.step;
  745. $al155 = $$resumer30.from;
  746. $ans154 = $$resumer30.ans;
  747. $resumer30 = $$resumer30.args[0];
  748. } else {
  749. var $l = arguments.length;
  750. if($l !== 0) {
  751. var $t = new Array($l);
  752. for(var $i = 0;$i < $l;++$i) {
  753. $t[$i] = arguments[$i];
  754. }
  755. R.checkArityC(L[44],0,$t);
  756. }
  757. }
  758. while(true) {
  759. switch($step152) {
  760. case 0: if(--R.GAS <= 0) {
  761. R.EXN_STACKHEIGHT = 0;
  762. throw R.makeCont();
  763. }
  764. $step152 = 1;
  765. $al155 = L[46];
  766. $field156 = R.getColonFieldLoc(builtins7,"current-checker",L[46]);
  767. if(R.isMethod($field156)) {
  768. $ans154 = $field156.full_meth(builtins7);
  769. } else {
  770. if(!(R.isFunction($field156))) {
  771. R.ffi.throwNonFunApp(L[46],$field156);
  772. }
  773. $ans154 = $field156.app();
  774. }
  775. break;
  776. case 1: var anf_method_obj167 = $ans154;
  777. var $temp_lam158 = function($$resumer30) {
  778. var $step157 = 0;
  779. var $ans159 = D;
  780. var $al160 = L[47];
  781. try {
  782. if(R.isActivationRecord($$resumer30)) {
  783. $step157 = $$resumer30.step;
  784. $al160 = $$resumer30.from;
  785. $ans159 = $$resumer30.ans;
  786. $resumer30 = $$resumer30.args[0];
  787. } else {
  788. var $l = arguments.length;
  789. if($l !== 0) {
  790. var $t = new Array($l);
  791. for(var $i = 0;$i < $l;++$i) {
  792. $t[$i] = arguments[$i];
  793. }
  794. R.checkArityC(L[47],0,$t);
  795. }
  796. }
  797. while(true) {
  798. switch($step157) {
  799. case 0: if(--R.GAS <= 0) {
  800. R.EXN_STACKHEIGHT = 0;
  801. throw R.makeCont();
  802. }
  803. $step157 = 1;
  804. $al160 = L[47];
  805. if(!(R.isFunction(f150.$var))) {
  806. R.ffi.throwNonFunApp($al160,f150.$var);
  807. }
  808. $ans159 = f150.$var.app(zero80.$var);
  809. break;
  810. case 1: ++R.GAS;
  811. return $ans159;
  812. default: throw "No case numbered " + $step157 + " in $temp_lam158";
  813. }
  814. }
  815. } catch($e161) {
  816. if(R.isCont($e161) && ($step157 !== 1)) {
  817. $e161.stack[R.EXN_STACKHEIGHT++] = R.makeActivationRecord($al160,$temp_lam158,$step157,[],[]);
  818. }
  819. if(R.isPyretException($e161)) {
  820. $e161.pyretStack.push($al160);
  821. }
  822. throw $e161;
  823. }
  824. };
  825. var anf_arg168 = R.makeFunction($temp_lam158);
  826. var $temp_lam163 = function($$resumer30) {
  827. var $step162 = 0;
  828. var $ans164 = D;
  829. var $al165 = L[48];
  830. try {
  831. if(R.isActivationRecord($$resumer30)) {
  832. $step162 = $$resumer30.step;
  833. $al165 = $$resumer30.from;
  834. $ans164 = $$resumer30.ans;
  835. $resumer30 = $$resumer30.args[0];
  836. } else {
  837. var $l = arguments.length;
  838. if($l !== 0) {
  839. var $t = new Array($l);
  840. for(var $i = 0;$i < $l;++$i) {
  841. $t[$i] = arguments[$i];
  842. }
  843. R.checkArityC(L[48],0,$t);
  844. }
  845. }
  846. while(true) {
  847. switch($step162) {
  848. case 0: if(--R.GAS <= 0) {
  849. R.EXN_STACKHEIGHT = 0;
  850. throw R.makeCont();
  851. }
  852. $step162 = 1;
  853. $ans164 = (0);
  854. break;
  855. case 1: ++R.GAS;
  856. return $ans164;
  857. default: throw "No case numbered " + $step162 + " in $temp_lam163";
  858. }
  859. }
  860. } catch($e166) {
  861. if(R.isCont($e166) && ($step162 !== 1)) {
  862. $e166.stack[R.EXN_STACKHEIGHT++] = R.makeActivationRecord($al165,$temp_lam163,$step162,[],[]);
  863. }
  864. if(R.isPyretException($e166)) {
  865. $e166.pyretStack.push($al165);
  866. }
  867. throw $e166;
  868. }
  869. };
  870. var anf_arg169 = R.makeFunction($temp_lam163);
  871. $al155 = L[46];
  872. var anf_arg170 = R.makeSrcloc(L[46]);
  873. $step152 = 2;
  874. $al155 = L[46];
  875. $field171 = R.getColonFieldLoc(anf_method_obj167,"check-is",L[46]);
  876. if(R.isMethod($field171)) {
  877. $ans154 = $field171.full_meth(anf_method_obj167,("f(zero) is 0"),anf_arg168,anf_arg169,anf_arg170);
  878. } else {
  879. if(!(R.isFunction($field171))) {
  880. R.ffi.throwNonFunApp(L[46],$field171);
  881. }
  882. $ans154 = $field171.app(("f(zero) is 0"),anf_arg168,anf_arg169,anf_arg170);
  883. }
  884. break;
  885. case 2: $step152 = 3;
  886. $al155 = L[49];
  887. $field172 = R.getColonFieldLoc(builtins7,"current-checker",L[49]);
  888. if(R.isMethod($field172)) {
  889. $ans154 = $field172.full_meth(builtins7);
  890. } else {
  891. if(!(R.isFunction($field172))) {
  892. R.ffi.throwNonFunApp(L[49],$field172);
  893. }
  894. $ans154 = $field172.app();
  895. }
  896. break;
  897. case 3: var anf_method_obj209 = $ans154;
  898. var $temp_lam174 = function($$resumer30) {
  899. var $step173 = 0;
  900. var $ans175 = D;
  901. var $al176 = L[50];
  902. try {
  903. if(R.isActivationRecord($$resumer30)) {
  904. $step173 = $$resumer30.step;
  905. $al176 = $$resumer30.from;
  906. $ans175 = $$resumer30.ans;
  907. $resumer30 = $$resumer30.args[0];
  908. } else {
  909. var $l = arguments.length;
  910. if($l !== 0) {
  911. var $t = new Array($l);
  912. for(var $i = 0;$i < $l;++$i) {
  913. $t[$i] = arguments[$i];
  914. }
  915. R.checkArityC(L[50],0,$t);
  916. }
  917. }
  918. while(true) {
  919. switch($step173) {
  920. case 0: if(--R.GAS <= 0) {
  921. R.EXN_STACKHEIGHT = 0;
  922. throw R.makeCont();
  923. }
  924. $step173 = 1;
  925. $al176 = L[64];
  926. if(!(R.isFunction(three92.$var))) {
  927. R.ffi.throwNonFunApp($al176,three92.$var);
  928. }
  929. $ans175 = three92.$var.app(zero80.$var,(1));
  930. break;
  931. case 1: var anf_arg177 = $ans175;
  932. $step173 = 2;
  933. $al176 = L[63];
  934. if(!(R.isFunction(two88.$var))) {
  935. R.ffi.throwNonFunApp($al176,two88.$var);
  936. }
  937. $ans175 = two88.$var.app(anf_arg177,(2));
  938. break;
  939. case 2: var anf_arg178 = $ans175;
  940. $step173 = 3;
  941. $al176 = L[62];
  942. if(!(R.isFunction(one84.$var))) {
  943. R.ffi.throwNonFunApp($al176,one84.$var);
  944. }
  945. $ans175 = one84.$var.app(anf_arg178,(3));
  946. break;
  947. case 3: var anf_arg179 = $ans175;
  948. $step173 = 4;
  949. $al176 = L[61];
  950. if(!(R.isFunction(three92.$var))) {
  951. R.ffi.throwNonFunApp($al176,three92.$var);
  952. }
  953. $ans175 = three92.$var.app(anf_arg179,(4));
  954. break;
  955. case 4: var anf_arg180 = $ans175;
  956. $step173 = 5;
  957. $al176 = L[60];
  958. if(!(R.isFunction(one84.$var))) {
  959. R.ffi.throwNonFunApp($al176,one84.$var);
  960. }
  961. $ans175 = one84.$var.app(anf_arg180,(5));
  962. break;
  963. case 5: var anf_arg181 = $ans175;
  964. $step173 = 6;
  965. $al176 = L[59];
  966. if(!(R.isFunction(three92.$var))) {
  967. R.ffi.throwNonFunApp($al176,three92.$var);
  968. }
  969. $ans175 = three92.$var.app(anf_arg181,(6));
  970. break;
  971. case 6: var anf_arg182 = $ans175;
  972. $step173 = 7;
  973. $al176 = L[58];
  974. if(!(R.isFunction(two88.$var))) {
  975. R.ffi.throwNonFunApp($al176,two88.$var);
  976. }
  977. $ans175 = two88.$var.app(anf_arg182,(7));
  978. break;
  979. case 7: var anf_arg183 = $ans175;
  980. $step173 = 8;
  981. $al176 = L[57];
  982. if(!(R.isFunction(one84.$var))) {
  983. R.ffi.throwNonFunApp($al176,one84.$var);
  984. }
  985. $ans175 = one84.$var.app(anf_arg183,(8));
  986. break;
  987. case 8: var anf_arg184 = $ans175;
  988. $step173 = 9;
  989. $al176 = L[56];
  990. if(!(R.isFunction(three92.$var))) {
  991. R.ffi.throwNonFunApp($al176,three92.$var);
  992. }
  993. $ans175 = three92.$var.app(anf_arg184,(9));
  994. break;
  995. case 9: var anf_arg185 = $ans175;
  996. $step173 = 10;
  997. $al176 = L[55];
  998. if(!(R.isFunction(three92.$var))) {
  999. R.ffi.throwNonFunApp($al176,three92.$var);
  1000. }
  1001. $ans175 = three92.$var.app(anf_arg185,(10));
  1002. break;
  1003. case 10: var anf_arg186 = $ans175;
  1004. $step173 = 11;
  1005. $al176 = L[54];
  1006. if(!(R.isFunction(two88.$var))) {
  1007. R.ffi.throwNonFunApp($al176,two88.$var);
  1008. }
  1009. $ans175 = two88.$var.app(anf_arg186,(11));
  1010. break;
  1011. case 11: var anf_arg187 = $ans175;
  1012. $step173 = 12;
  1013. $al176 = L[53];
  1014. if(!(R.isFunction(one84.$var))) {
  1015. R.ffi.throwNonFunApp($al176,one84.$var);
  1016. }
  1017. $ans175 = one84.$var.app(anf_arg187,(12));
  1018. break;
  1019. case 12: var anf_arg188 = $ans175;
  1020. $step173 = 13;
  1021. $al176 = L[52];
  1022. if(!(R.isFunction(two88.$var))) {
  1023. R.ffi.throwNonFunApp($al176,two88.$var);
  1024. }
  1025. $ans175 = two88.$var.app(anf_arg188,(13));
  1026. break;
  1027. case 13: var anf_arg189 = $ans175;
  1028. $step173 = 14;
  1029. $al176 = L[51];
  1030. if(!(R.isFunction(one84.$var))) {
  1031. R.ffi.throwNonFunApp($al176,one84.$var);
  1032. }
  1033. $ans175 = one84.$var.app(anf_arg189,(14));
  1034. break;
  1035. case 14: var anf_arg190 = $ans175;
  1036. $step173 = 15;
  1037. $al176 = L[50];
  1038. if(!(R.isFunction(f150.$var))) {
  1039. R.ffi.throwNonFunApp($al176,f150.$var);
  1040. }
  1041. $ans175 = f150.$var.app(anf_arg190);
  1042. break;
  1043. case 15: ++R.GAS;
  1044. return $ans175;
  1045. default: throw "No case numbered " + $step173 + " in $temp_lam174";
  1046. }
  1047. }
  1048. } catch($e191) {
  1049. if(R.isCont($e191) && ($step173 !== 15)) {
  1050. $e191.stack[R.EXN_STACKHEIGHT++] = R.makeActivationRecord($al176,$temp_lam174,$step173,[],[]);
  1051. }
  1052. if(R.isPyretException($e191)) {
  1053. $e191.pyretStack.push($al176);
  1054. }
  1055. throw $e191;
  1056. }
  1057. };
  1058. var anf_arg210 = R.makeFunction($temp_lam174);
  1059. var $temp_lam193 = function($$resumer30) {
  1060. var $step192 = 0;
  1061. var $ans194 = D;
  1062. var $al195 = L[65];
  1063. try {
  1064. if(R.isActivationRecord($$resumer30)) {
  1065. $step192 = $$resumer30.step;
  1066. $al195 = $$resumer30.from;
  1067. $ans194 = $$resumer30.ans;
  1068. $resumer30 = $$resumer30.args[0];
  1069. anf_arg206 = $$resumer30.vars[0];
  1070. } else {
  1071. var $l = arguments.length;
  1072. if($l !== 0) {
  1073. var $t = new Array($l);
  1074. for(var $i = 0;$i < $l;++$i) {
  1075. $t[$i] = arguments[$i];
  1076. }
  1077. R.checkArityC(L[65],0,$t);
  1078. }
  1079. }
  1080. while(true) {
  1081. switch($step192) {
  1082. case 0: if(--R.GAS <= 0) {
  1083. R.EXN_STACKHEIGHT = 0;
  1084. throw R.makeCont();
  1085. }
  1086. $step192 = 1;
  1087. $al195 = L[67];
  1088. if(!(R.isFunction(_plus5))) {
  1089. R.ffi.throwNonFunApp($al195,_plus5);
  1090. }
  1091. $ans194 = _plus5.app((1),(3));
  1092. break;
  1093. case 1: var anf_arg196 = $ans194;
  1094. $step192 = 2;
  1095. $al195 = L[67];
  1096. if(!(R.isFunction(_plus5))) {
  1097. R.ffi.throwNonFunApp($al195,_plus5);
  1098. }
  1099. $ans194 = _plus5.app(anf_arg196,(5));
  1100. break;
  1101. case 2: var anf_arg197 = $ans194;
  1102. $step192 = 3;
  1103. $al195 = L[67];
  1104. if(!(R.isFunction(_plus5))) {
  1105. R.ffi.throwNonFunApp($al195,_plus5);
  1106. }
  1107. $ans194 = _plus5.app(anf_arg197,(7));
  1108. break;
  1109. case 3: var anf_arg198 = $ans194;
  1110. $step192 = 4;
  1111. $al195 = L[67];
  1112. if(!(R.isFunction(_plus5))) {
  1113. R.ffi.throwNonFunApp($al195,_plus5);
  1114. }
  1115. $ans194 = _plus5.app(anf_arg198,(9));
  1116. break;
  1117. case 4: var anf_arg199 = $ans194;
  1118. $step192 = 5;
  1119. $al195 = L[67];
  1120. if(!(R.isFunction(_plus5))) {
  1121. R.ffi.throwNonFunApp($al195,_plus5);
  1122. }
  1123. $ans194 = _plus5.app(anf_arg199,(11));
  1124. break;
  1125. case 5: var anf_arg200 = $ans194;
  1126. $step192 = 6;
  1127. $al195 = L[67];
  1128. if(!(R.isFunction(_plus5))) {
  1129. R.ffi.throwNonFunApp($al195,_plus5);
  1130. }
  1131. $ans194 = _plus5.app(anf_arg200,(13));
  1132. break;
  1133. case 6: var anf_arg206 = $ans194;
  1134. $step192 = 7;
  1135. $al195 = L[66];
  1136. if(!(R.isFunction(_plus5))) {
  1137. R.ffi.throwNonFunApp($al195,_plus5);
  1138. }
  1139. $ans194 = _plus5.app((2),(4));
  1140. break;
  1141. case 7: var anf_arg201 = $ans194;
  1142. $step192 = 8;
  1143. $al195 = L[66];
  1144. if(!(R.isFunction(_plus5))) {
  1145. R.ffi.throwNonFunApp($al195,_plus5);
  1146. }
  1147. $ans194 = _plus5.app(anf_arg201,(6));
  1148. break;
  1149. case 8: var anf_arg202 = $ans194;
  1150. $step192 = 9;
  1151. $al195 = L[66];
  1152. if(!(R.isFunction(_plus5))) {
  1153. R.ffi.throwNonFunApp($al195,_plus5);
  1154. }
  1155. $ans194 = _plus5.app(anf_arg202,(8));
  1156. break;
  1157. case 9: var anf_arg203 = $ans194;
  1158. $step192 = 10;
  1159. $al195 = L[66];
  1160. if(!(R.isFunction(_plus5))) {
  1161. R.ffi.throwNonFunApp($al195,_plus5);
  1162. }
  1163. $ans194 = _plus5.app(anf_arg203,(10));
  1164. break;
  1165. case 10: var anf_arg204 = $ans194;
  1166. $step192 = 11;
  1167. $al195 = L[66];
  1168. if(!(R.isFunction(_plus5))) {
  1169. R.ffi.throwNonFunApp($al195,_plus5);
  1170. }
  1171. $ans194 = _plus5.app(anf_arg204,(12));
  1172. break;
  1173. case 11: var anf_arg205 = $ans194;
  1174. $step192 = 12;
  1175. $al195 = L[66];
  1176. if(!(R.isFunction(_plus5))) {
  1177. R.ffi.throwNonFunApp($al195,_plus5);
  1178. }
  1179. $ans194 = _plus5.app(anf_arg205,(14));
  1180. break;
  1181. case 12: var anf_arg207 = $ans194;
  1182. $step192 = 13;
  1183. $al195 = L[65];
  1184. if(!(R.isFunction(_minus4))) {
  1185. R.ffi.throwNonFunApp($al195,_minus4);
  1186. }
  1187. $ans194 = _minus4.app(anf_arg206,anf_arg207);
  1188. break;
  1189. case 13: ++R.GAS;
  1190. return $ans194;
  1191. default: throw "No case numbered " + $step192 + " in $temp_lam193";
  1192. }
  1193. }
  1194. } catch($e208) {
  1195. if(R.isCont($e208) && ($step192 !== 13)) {
  1196. $e208.stack[R.EXN_STACKHEIGHT++] = R.makeActivationRecord($al195,$temp_lam193,$step192,[],[anf_arg206]);
  1197. }
  1198. if(R.isPyretException($e208)) {
  1199. $e208.pyretStack.push($al195);
  1200. }
  1201. throw $e208;
  1202. }
  1203. };
  1204. var anf_arg211 = R.makeFunction($temp_lam193);
  1205. $al155 = L[49];
  1206. var anf_arg212 = R.makeSrcloc(L[49]);
  1207. $step152 = 4;
  1208. $al155 = L[49];
  1209. $field213 = R.getColonFieldLoc(anf_method_obj209,"check-is",L[49]);
  1210. if(R.isMethod($field213)) {
  1211. $ans154 = $field213.full_meth(anf_method_obj209,("f(one(two(one(two(three(three(one(two(three(one(three(one(two(three(zero, 1), 2),\n                          3),\n                        4),\n                      5),\n                    6),\n                  7),\n                8),\n              9),\n            10),\n          11),\n        12),\n      13),\n    14)) is\n  (1 + 3 + 5 + 7 + 9 + 11 + 13) - (2 + 4 + 6 + 8 + 10 + 12 + 14)"),anf_arg210,anf_arg211,anf_arg212);
  1212. } else {
  1213. if(!(R.isFunction($field213))) {
  1214. R.ffi.throwNonFunApp(L[49],$field213);
  1215. }
  1216. $ans154 = $field213.app(("f(one(two(one(two(three(three(one(two(three(one(three(one(two(three(zero, 1), 2),\n                          3),\n                        4),\n                      5),\n                    6),\n                  7),\n                8),\n              9),\n            10),\n          11),\n        12),\n      13),\n    14)) is\n  (1 + 3 + 5 + 7 + 9 + 11 + 13) - (2 + 4 + 6 + 8 + 10 + 12 + 14)"),anf_arg210,anf_arg211,anf_arg212);
  1217. }
  1218. break;
  1219. case 4: ++R.GAS;
  1220. return $ans154;
  1221. default: throw "No case numbered " + $step152 + " in $temp_lam153";
  1222. }
  1223. }
  1224. } catch($e214) {
  1225. if(R.isCont($e214) && ($step152 !== 4)) {
  1226. $e214.stack[R.EXN_STACKHEIGHT++] = R.makeActivationRecord($al155,$temp_lam153,$step152,[],[]);
  1227. }
  1228. if(R.isPyretException($e214)) {
  1229. $e214.pyretStack.push($al155);
  1230. }
  1231. throw $e214;
  1232. }
  1233. };
  1234. var anf_obj215 = R.makeFunction($temp_lam153);
  1235. $al29 = L[44];
  1236. var anf_obj216 = R.makeSrcloc(L[44]);
  1237. var anf_array_val217 = R.makeObject({"name":("f"),
  1238. "run":anf_obj215,
  1239. "location":anf_obj216});
  1240. var anf_arg218 = [anf_array_val217];
  1241. $step25 = 2;
  1242. $al29 = L[45];
  1243. $field219 = R.getColonFieldLoc(list8,"make",L[45]);
  1244. if(R.isMethod($field219)) {
  1245. $ans28 = $field219.full_meth(list8,anf_arg218);
  1246. } else {
  1247. if(!(R.isFunction($field219))) {
  1248. R.ffi.throwNonFunApp(L[45],$field219);
  1249. }
  1250. $ans28 = $field219.app(anf_arg218);
  1251. }
  1252. break;
  1253. case 2: var anf_arg221 = $ans28;
  1254. $step25 = 3;
  1255. $al29 = L[45];
  1256. $field222 = R.getColonFieldLoc(anf_method_obj220,"run-checks",L[45]);
  1257. if(R.isMethod($field222)) {
  1258. $ans28 = $field222.full_meth(anf_method_obj220,("tests/pyret/tests/test-tail-call.arr"),anf_arg221);
  1259. } else {
  1260. if(!(R.isFunction($field222))) {
  1261. R.ffi.throwNonFunApp(L[45],$field222);
  1262. }
  1263. $ans28 = $field222.app(("tests/pyret/tests/test-tail-call.arr"),anf_arg221);
  1264. }
  1265. break;
  1266. case 3: var provides226 = R.makeObject({});
  1267. $step25 = 4;
  1268. $al29 = L[13];
  1269. $field223 = R.getColonFieldLoc(builtins7,"current-checker",L[13]);
  1270. if(R.isMethod($field223)) {
  1271. $ans28 = $field223.full_meth(builtins7);
  1272. } else {
  1273. if(!(R.isFunction($field223))) {
  1274. R.ffi.throwNonFunApp(L[13],$field223);
  1275. }
  1276. $ans28 = $field223.app();
  1277. }
  1278. break;
  1279. case 4: var anf_method_obj224 = $ans28;
  1280. $step25 = 5;
  1281. $al29 = L[13];
  1282. $field225 = R.getColonFieldLoc(anf_method_obj224,"results",L[13]);
  1283. if(R.isMethod($field225)) {
  1284. $ans28 = $field225.full_meth(anf_method_obj224);
  1285. } else {
  1286. if(!(R.isFunction($field225))) {
  1287. R.ffi.throwNonFunApp(L[13],$field225);
  1288. }
  1289. $ans28 = $field225.app();
  1290. }
  1291. break;
  1292. case 5: var checks228 = $ans28;
  1293. $step25 = 6;
  1294. $ans28 = R.makeObject({"answer":result$after$checks1227,
  1295. "namespace":NAMESPACE,
  1296. "defined-values":{"result-after-checks1":result$after$checks1227,
  1297. "f":f150.$var,
  1298. "zero":zero80.$var,
  1299. "one":one84.$var,
  1300. "two":two88.$var,
  1301. "three":three92.$var,
  1302. "is-three":is$three90.$var,
  1303. "is-two":is$two86.$var,
  1304. "is-one":is$one82.$var,
  1305. "is-zero":is$zero78.$var,
  1306. "is-Test":is$Test76.$var,
  1307. "Test":Test74.$var,
  1308. "sets":sets13,
  1309. "error":error10,
  1310. "option":option12,
  1311. "lists":lists11,
  1312. "arrays":arrays9},
  1313. "defined-types":{"Test":Test47,
  1314. "sets":sets18,
  1315. "error":error15,
  1316. "option":option17,
  1317. "lists":lists16,
  1318. "arrays":arrays14},
  1319. "provide-plus-types":R.makeObject({"values":provides226,
  1320. "types":{}}),
  1321. "checks":checks228});
  1322. break;
  1323. case 6: ++R.GAS;
  1324. return $ans28;
  1325. default: throw "No case numbered " + $step25 + " in $toplevel26";
  1326. }
  1327. }
  1328. } catch($e229) {
  1329. if(R.isCont($e229) && ($step25 !== 6)) {
  1330. $e229.stack[R.EXN_STACKHEIGHT++] = R.makeActivationRecord($al29,$toplevel26,$step25,[],[provides226,anf_method_obj220,result$after$checks1227,f150,three92,is$three90,two88,is$two86,one84,is$one82,zero80,is$zero78,is$Test76,Test74,Test47]);
  1331. }
  1332. if(R.isPyretException($e229)) {
  1333. $e229.pyretStack.push($al29);
  1334. }
  1335. throw $e229;
  1336. }
  1337. };
  1338. return R.safeCall($toplevel26,function(moduleVal) {
  1339. R.modules["$tests/pyret/tests/test$tail$call.arr19"] = moduleVal;
  1340. return moduleVal;
  1341. },"Evaluating $toplevel");
  1342. });
  1343. }
  1344. };
  1345. })
Add Comment
Please, Sign In to add comment