Last active
October 13, 2022 23:46
-
-
Save simmsb/17fee0f4b71c394a6e7291d04454e9bc to your computer and use it in GitHub Desktop.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#include <stdlib.h> | |
#include <string.h> | |
#include "base.h" | |
#include "builtin.h" | |
struct env_45 {struct obj *v_k_205;struct obj *v_while_202;struct obj *v_for_204;}; | |
void lambda_45(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_47 {struct obj *v_k_201;struct obj *v_rv_282;}; | |
void lambda_47(struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_12 {struct obj *v_inner_232;struct obj *v_k_244;struct obj *v_it_241;struct obj *v_body_230;}; | |
void lambda_12(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_16 {struct obj *v_it_234;struct obj *v_incr_228;struct obj *v_body_230;struct obj *v_k_238;struct obj *v_test_226;struct obj *v_inner_232;}; | |
void lambda_16(struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_10 {struct obj *v_it_241;struct obj *v_inner_232;struct obj *v_k_247;}; | |
void lambda_10(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_0 {struct obj *v_k_220;struct obj *v_f_208;struct obj *v_rv_221;}; | |
void lambda_0(struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_38 {struct obj *v_rv_272;struct obj *v_k_262;}; | |
void lambda_38(struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_43 {struct obj *v_while_202;struct obj *v_k_253;struct obj *v_for_204;}; | |
void lambda_43(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_8 {struct obj *v_f_208;struct obj *v_while_202;struct obj *v_c_206;struct obj *v_k_209;}; | |
void lambda_8(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_26 {struct obj *v_k_223;struct obj *v_for_204;}; | |
void lambda_26(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_39 {struct obj *v_rv_267;struct obj *v_k_262;}; | |
void lambda_39(struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_14 {struct obj *v_body_230;struct obj *v_inner_232;struct obj *v_rv_240;struct obj *v_k_238;}; | |
void lambda_14(struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_41 {struct obj *v_for_204;struct obj *v_k_260;}; | |
void lambda_41(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_15 {struct obj *v_k_238;struct obj *v_rv_239;struct obj *v_it_234;struct obj *v_incr_228;struct obj *v_body_230;struct obj *v_inner_232;}; | |
void lambda_15(struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_19 {struct obj *v_inner_232;struct obj *v_rv_250;struct obj *v_k_249;}; | |
void lambda_19(struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_23 {struct obj *v_incr_228;struct obj *v_test_226;struct obj *v_k_229;struct obj *v_init_224;}; | |
void lambda_23(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_28 {struct obj *v_k_255;}; | |
void lambda_28(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_21 {struct obj *v_inner_232;struct obj *v_init_224;struct obj *v_k_233;struct obj *v_body_230;struct obj *v_test_226;struct obj *v_incr_228;}; | |
void lambda_21(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_25 {struct obj *v_k_225;struct obj *v_init_224;}; | |
void lambda_25(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_7 {struct obj *v_f_208;struct obj *v_c_206;struct obj *v_while_202;struct obj *v_k_211;}; | |
void lambda_7(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_13 {struct obj *v_body_230;struct obj *v_it_241;struct obj *v_k_242;struct obj *v_inner_232;}; | |
void lambda_13(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_31 {struct obj *v_k_271;}; | |
void lambda_31(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_33 {struct obj *v_x_273;struct obj *v_k_276;}; | |
void lambda_33(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_34 {struct obj *v_x_273;struct obj *v_k_274;}; | |
void lambda_34(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_35 {struct obj *v_k_281;}; | |
void lambda_35(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_22 {struct obj *v_incr_228;struct obj *v_init_224;struct obj *v_k_231;struct obj *v_body_230;struct obj *v_test_226;}; | |
void lambda_22(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_37 {struct obj *v_rv_277;struct obj *v_k_262;}; | |
void lambda_37(struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_1 {struct obj *v_while_202;struct obj *v_k_220;struct obj *v_f_208;struct obj *v_c_206;}; | |
void lambda_1(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_30 {struct obj *v_k_264;}; | |
void lambda_30(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_24 {struct obj *v_test_226;struct obj *v_init_224;struct obj *v_k_227;}; | |
void lambda_24(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_20 {struct obj *v_init_224;struct obj *v_inner_232;struct obj *v_k_249;}; | |
void lambda_20(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_3 {struct obj *v_while_202;struct obj *v_f_208;struct obj *v_c_206;struct obj *v_k_217;}; | |
void lambda_3(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_29 {struct obj *v_k_266;}; | |
void lambda_29(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_27 {struct obj *v_k_257;}; | |
void lambda_27(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_18 {struct obj *v_body_230;struct obj *v_inner_232;struct obj *v_incr_228;struct obj *v_it_234;struct obj *v_k_235;struct obj *v_test_226;}; | |
void lambda_18(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_9 {struct obj *v_k_207;struct obj *v_c_206;struct obj *v_while_202;}; | |
void lambda_9(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_17 {struct obj *v_it_234;struct obj *v_incr_228;struct obj *v_test_226;struct obj *v_body_230;struct obj *v_inner_232;struct obj *v_k_237;}; | |
void lambda_17(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_46 {struct obj *v_k_203;struct obj *v_while_202;}; | |
void lambda_46(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_44 {struct obj *v_while_202;struct obj *v_rv_251;struct obj *v_k_205;struct obj *v_for_204;}; | |
void lambda_44(struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_2 {struct obj *v_c_206;struct obj *v_k_217;struct obj *v_rv_218;struct obj *v_while_202;struct obj *v_f_208;}; | |
void lambda_2(struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_48 {struct obj *v_k_201;}; | |
void lambda_48(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_4 {struct obj *v_c_206;struct obj *v_f_208;struct obj *v_while_202;struct obj *v_k_215;}; | |
void lambda_4(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_32 {struct obj *v_k_269;}; | |
void lambda_32(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_36 {struct obj *v_k_279;}; | |
void lambda_36(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_40 {struct obj *v_for_204;struct obj *v_k_262;}; | |
void lambda_40(struct obj *, struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_5 {struct obj *v_rv_213;struct obj *v_f_208;struct obj *v_c_206;struct obj *v_k_212;struct obj *v_while_202;}; | |
void lambda_5(struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_6 {struct obj *v_f_208;struct obj *v_k_212;struct obj *v_c_206;struct obj *v_while_202;}; | |
void lambda_6(struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_11 {struct obj *v_inner_232;struct obj *v_rv_245;struct obj *v_k_244;struct obj *v_it_241;}; | |
void lambda_11(struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
struct env_42 {struct obj *v_rv_258;struct obj *v_for_204;struct obj *v_k_253;}; | |
void lambda_42(struct obj *, struct env_obj *)__attribute__((noreturn)) ; | |
void lambda_45(struct obj *var_0, struct obj *var_1, struct env_obj *env_in){struct env_45 *env = (struct env_45 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_2,var_0);((env)->v_for_204)=(var_2);OBJECT_CELL_OBJ_NEW(var_3,var_1);((env)->v_k_205)=(var_3);OBJECT_ENV_OBJ_NEW(var_4,struct env_9 );(((struct env_9 *)(&((var_4)->env)))->v_while_202)=((env)->v_while_202);OBJECT_CLOSURE_TWO_NEW(var_5,lambda_9,var_4);(((struct cell_obj *)((env)->v_while_202))->val)=(var_5);OBJECT_ENV_OBJ_NEW(var_6,struct env_26 );(((struct env_26 *)(&((var_6)->env)))->v_for_204)=((env)->v_for_204);OBJECT_CLOSURE_TWO_NEW(var_7,lambda_26,var_6);OBJECT_ENV_OBJ_NEW(var_8,struct env_44 );(((struct env_44 *)(&((var_8)->env)))->v_while_202)=((env)->v_while_202);(((struct env_44 *)(&((var_8)->env)))->v_k_205)=((env)->v_k_205);(((struct env_44 *)(&((var_8)->env)))->v_for_204)=((env)->v_for_204);OBJECT_CLOSURE_ONE_NEW(var_9,lambda_44,var_8);call_closure_two(var_7,NULL,var_9);__builtin_unreachable();} | |
void lambda_47(struct obj *var_10, struct env_obj *env_in){struct env_47 *env = (struct env_47 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_11,var_10);((env)->v_rv_282)=(var_11);call_closure_two(((struct cell_obj *)((env)->v_rv_282))->val,NULL,((struct cell_obj *)((env)->v_k_201))->val);__builtin_unreachable();} | |
void lambda_12(struct obj *var_12, struct obj *var_13, struct env_obj *env_in){struct env_12 *env = (struct env_12 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_14,var_13);((env)->v_k_244)=(var_14);OBJECT_ENV_OBJ_NEW(var_15,struct env_11 );(((struct env_11 *)(&((var_15)->env)))->v_inner_232)=((env)->v_inner_232);(((struct env_11 *)(&((var_15)->env)))->v_k_244)=((env)->v_k_244);(((struct env_11 *)(&((var_15)->env)))->v_it_241)=((env)->v_it_241);OBJECT_CLOSURE_ONE_NEW(var_16,lambda_11,var_15);call_closure_two(((struct cell_obj *)((env)->v_body_230))->val,NULL,var_16);__builtin_unreachable();} | |
void lambda_16(struct obj *var_17, struct env_obj *env_in){struct env_16 *env = (struct env_16 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_18,var_17);((env)->v_k_238)=(var_18);OBJECT_ENV_OBJ_NEW(var_19,struct env_15 );(((struct env_15 *)(&((var_19)->env)))->v_k_238)=((env)->v_k_238);(((struct env_15 *)(&((var_19)->env)))->v_it_234)=((env)->v_it_234);(((struct env_15 *)(&((var_19)->env)))->v_incr_228)=((env)->v_incr_228);(((struct env_15 *)(&((var_19)->env)))->v_body_230)=((env)->v_body_230);(((struct env_15 *)(&((var_19)->env)))->v_inner_232)=((env)->v_inner_232);OBJECT_CLOSURE_ONE_NEW(var_20,lambda_15,var_19);call_closure_two(((struct cell_obj *)((env)->v_test_226))->val,((struct cell_obj *)((env)->v_it_234))->val,var_20);__builtin_unreachable();} | |
void lambda_10(struct obj *var_21, struct obj *var_22, struct env_obj *env_in){struct env_10 *env = (struct env_10 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_23,var_22);((env)->v_k_247)=(var_23);call_closure_two(((struct cell_obj *)((env)->v_inner_232))->val,((struct cell_obj *)((env)->v_it_241))->val,((struct cell_obj *)((env)->v_k_247))->val);__builtin_unreachable();} | |
void lambda_0(struct obj *var_24, struct env_obj *env_in){struct env_0 *env = (struct env_0 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_25,var_24);((env)->v_rv_221)=(var_25);call_closure_two(((struct cell_obj *)((env)->v_rv_221))->val,((struct cell_obj *)((env)->v_f_208))->val,((struct cell_obj *)((env)->v_k_220))->val);__builtin_unreachable();} | |
void lambda_38(struct obj *var_26, struct env_obj *env_in){struct env_38 *env = (struct env_38 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_27,var_26);((env)->v_rv_272)=(var_27);OBJECT_ENV_OBJ_NEW(var_28,struct env_34 );OBJECT_CLOSURE_TWO_NEW(var_29,lambda_34,var_28);OBJECT_ENV_OBJ_NEW(var_30,struct env_37 );(((struct env_37 *)(&((var_30)->env)))->v_k_262)=((env)->v_k_262);OBJECT_CLOSURE_ONE_NEW(var_31,lambda_37,var_30);call_closure_two(((struct cell_obj *)((env)->v_rv_272))->val,var_29,var_31);__builtin_unreachable();} | |
void lambda_43(struct obj *var_32, struct obj *var_33, struct env_obj *env_in){struct env_43 *env = (struct env_43 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_34,var_33);((env)->v_k_253)=(var_34);OBJECT_ENV_OBJ_NEW(var_35,struct env_28 );OBJECT_CLOSURE_TWO_NEW(var_36,lambda_28,var_35);OBJECT_ENV_OBJ_NEW(var_37,struct env_42 );(((struct env_42 *)(&((var_37)->env)))->v_for_204)=((env)->v_for_204);(((struct env_42 *)(&((var_37)->env)))->v_k_253)=((env)->v_k_253);OBJECT_CLOSURE_ONE_NEW(var_38,lambda_42,var_37);call_closure_two(((struct cell_obj *)((env)->v_while_202))->val,var_36,var_38);__builtin_unreachable();} | |
void lambda_8(struct obj *var_39, struct obj *var_40, struct env_obj *env_in){struct env_8 *env = (struct env_8 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_41,var_39);((env)->v_f_208)=(var_41);OBJECT_CELL_OBJ_NEW(var_42,var_40);((env)->v_k_209)=(var_42);OBJECT_ENV_OBJ_NEW(var_43,struct env_7 );(((struct env_7 *)(&((var_43)->env)))->v_f_208)=((env)->v_f_208);(((struct env_7 *)(&((var_43)->env)))->v_c_206)=((env)->v_c_206);(((struct env_7 *)(&((var_43)->env)))->v_while_202)=((env)->v_while_202);OBJECT_CLOSURE_TWO_NEW(var_44,lambda_7,var_43);call_closure_two(var_44,NULL,((struct cell_obj *)((env)->v_k_209))->val);__builtin_unreachable();} | |
void lambda_26(struct obj *var_45, struct obj *var_46, struct env_obj *env_in){struct env_26 *env = (struct env_26 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_47,var_46);((env)->v_k_223)=(var_47);OBJECT_ENV_OBJ_NEW(var_48,struct env_25 );OBJECT_CLOSURE_TWO_NEW(var_49,lambda_25,var_48);(((struct cell_obj *)((env)->v_for_204))->val)=(var_49);call_closure_one(((struct cell_obj *)((env)->v_k_223))->val,NULL);__builtin_unreachable();} | |
void lambda_39(struct obj *var_50, struct env_obj *env_in){struct env_39 *env = (struct env_39 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_51,var_50);((env)->v_rv_267)=(var_51);OBJECT_ENV_OBJ_NEW(var_52,struct env_32 );OBJECT_CLOSURE_TWO_NEW(var_53,lambda_32,var_52);OBJECT_ENV_OBJ_NEW(var_54,struct env_38 );(((struct env_38 *)(&((var_54)->env)))->v_k_262)=((env)->v_k_262);OBJECT_CLOSURE_ONE_NEW(var_55,lambda_38,var_54);call_closure_two(((struct cell_obj *)((env)->v_rv_267))->val,var_53,var_55);__builtin_unreachable();} | |
void lambda_14(struct obj *var_56, struct env_obj *env_in){struct env_14 *env = (struct env_14 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_57,var_56);((env)->v_rv_240)=(var_57);OBJECT_ENV_OBJ_NEW(var_58,struct env_13 );(((struct env_13 *)(&((var_58)->env)))->v_body_230)=((env)->v_body_230);(((struct env_13 *)(&((var_58)->env)))->v_inner_232)=((env)->v_inner_232);OBJECT_CLOSURE_TWO_NEW(var_59,lambda_13,var_58);call_closure_two(var_59,((struct cell_obj *)((env)->v_rv_240))->val,((struct cell_obj *)((env)->v_k_238))->val);__builtin_unreachable();} | |
void lambda_41(struct obj *var_60, struct obj *var_61, struct env_obj *env_in){struct env_41 *env = (struct env_41 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_62,var_61);((env)->v_k_260)=(var_62);OBJECT_ENV_OBJ_NEW(var_63,struct env_40 );(((struct env_40 *)(&((var_63)->env)))->v_for_204)=((env)->v_for_204);OBJECT_CLOSURE_TWO_NEW(var_64,lambda_40,var_63);call_closure_two(var_64,NULL,((struct cell_obj *)((env)->v_k_260))->val);__builtin_unreachable();} | |
void lambda_15(struct obj *var_65, struct env_obj *env_in){struct env_15 *env = (struct env_15 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_66,var_65);((env)->v_rv_239)=(var_66);if (obj_is_truthy(((struct cell_obj *)((env)->v_rv_239))->val)){OBJECT_ENV_OBJ_NEW(var_67,struct env_14 );(((struct env_14 *)(&((var_67)->env)))->v_body_230)=((env)->v_body_230);(((struct env_14 *)(&((var_67)->env)))->v_inner_232)=((env)->v_inner_232);(((struct env_14 *)(&((var_67)->env)))->v_k_238)=((env)->v_k_238);OBJECT_CLOSURE_ONE_NEW(var_68,lambda_14,var_67);call_closure_two(((struct cell_obj *)((env)->v_incr_228))->val,((struct cell_obj *)((env)->v_it_234))->val,var_68);} else {call_closure_one(((struct cell_obj *)((env)->v_k_238))->val,NULL);}0;__builtin_unreachable();} | |
void lambda_19(struct obj *var_69, struct env_obj *env_in){struct env_19 *env = (struct env_19 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_70,var_69);((env)->v_rv_250)=(var_70);call_closure_two(((struct cell_obj *)((env)->v_inner_232))->val,((struct cell_obj *)((env)->v_rv_250))->val,((struct cell_obj *)((env)->v_k_249))->val);__builtin_unreachable();} | |
void lambda_23(struct obj *var_71, struct obj *var_72, struct env_obj *env_in){struct env_23 *env = (struct env_23 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_73,var_71);((env)->v_incr_228)=(var_73);OBJECT_CELL_OBJ_NEW(var_74,var_72);((env)->v_k_229)=(var_74);OBJECT_ENV_OBJ_NEW(var_75,struct env_22 );(((struct env_22 *)(&((var_75)->env)))->v_incr_228)=((env)->v_incr_228);(((struct env_22 *)(&((var_75)->env)))->v_init_224)=((env)->v_init_224);(((struct env_22 *)(&((var_75)->env)))->v_test_226)=((env)->v_test_226);OBJECT_CLOSURE_TWO_NEW(var_76,lambda_22,var_75);call_closure_one(((struct cell_obj *)((env)->v_k_229))->val,var_76);__builtin_unreachable();} | |
void lambda_28(struct obj *var_77, struct obj *var_78, struct env_obj *env_in){struct env_28 *env = (struct env_28 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_79,var_78);((env)->v_k_255)=(var_79);OBJECT_ENV_OBJ_NEW(var_80,struct env_27 );OBJECT_CLOSURE_TWO_NEW(var_81,lambda_27,var_80);call_closure_two(var_81,NULL,((struct cell_obj *)((env)->v_k_255))->val);__builtin_unreachable();} | |
void lambda_21(struct obj *var_82, struct obj *var_83, struct env_obj *env_in){struct env_21 *env = (struct env_21 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_84,var_82);((env)->v_inner_232)=(var_84);OBJECT_CELL_OBJ_NEW(var_85,var_83);((env)->v_k_233)=(var_85);OBJECT_ENV_OBJ_NEW(var_86,struct env_18 );(((struct env_18 *)(&((var_86)->env)))->v_body_230)=((env)->v_body_230);(((struct env_18 *)(&((var_86)->env)))->v_inner_232)=((env)->v_inner_232);(((struct env_18 *)(&((var_86)->env)))->v_incr_228)=((env)->v_incr_228);(((struct env_18 *)(&((var_86)->env)))->v_test_226)=((env)->v_test_226);OBJECT_CLOSURE_TWO_NEW(var_87,lambda_18,var_86);(((struct cell_obj *)((env)->v_inner_232))->val)=(var_87);OBJECT_ENV_OBJ_NEW(var_88,struct env_20 );(((struct env_20 *)(&((var_88)->env)))->v_init_224)=((env)->v_init_224);(((struct env_20 *)(&((var_88)->env)))->v_inner_232)=((env)->v_inner_232);OBJECT_CLOSURE_TWO_NEW(var_89,lambda_20,var_88);call_closure_two(var_89,NULL,((struct cell_obj *)((env)->v_k_233))->val);__builtin_unreachable();} | |
void lambda_25(struct obj *var_90, struct obj *var_91, struct env_obj *env_in){struct env_25 *env = (struct env_25 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_92,var_90);((env)->v_init_224)=(var_92);OBJECT_CELL_OBJ_NEW(var_93,var_91);((env)->v_k_225)=(var_93);OBJECT_ENV_OBJ_NEW(var_94,struct env_24 );(((struct env_24 *)(&((var_94)->env)))->v_init_224)=((env)->v_init_224);OBJECT_CLOSURE_TWO_NEW(var_95,lambda_24,var_94);call_closure_one(((struct cell_obj *)((env)->v_k_225))->val,var_95);__builtin_unreachable();} | |
void lambda_7(struct obj *var_96, struct obj *var_97, struct env_obj *env_in){struct env_7 *env = (struct env_7 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_98,var_97);((env)->v_k_211)=(var_98);OBJECT_ENV_OBJ_NEW(var_99,struct env_6 );(((struct env_6 *)(&((var_99)->env)))->v_f_208)=((env)->v_f_208);(((struct env_6 *)(&((var_99)->env)))->v_c_206)=((env)->v_c_206);(((struct env_6 *)(&((var_99)->env)))->v_while_202)=((env)->v_while_202);OBJECT_CLOSURE_ONE_NEW(var_100,lambda_6,var_99);call_closure_one(var_100,((struct cell_obj *)((env)->v_k_211))->val);__builtin_unreachable();} | |
void lambda_13(struct obj *var_101, struct obj *var_102, struct env_obj *env_in){struct env_13 *env = (struct env_13 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_103,var_101);((env)->v_it_241)=(var_103);OBJECT_CELL_OBJ_NEW(var_104,var_102);((env)->v_k_242)=(var_104);OBJECT_ENV_OBJ_NEW(var_105,struct env_12 );(((struct env_12 *)(&((var_105)->env)))->v_inner_232)=((env)->v_inner_232);(((struct env_12 *)(&((var_105)->env)))->v_it_241)=((env)->v_it_241);(((struct env_12 *)(&((var_105)->env)))->v_body_230)=((env)->v_body_230);OBJECT_CLOSURE_TWO_NEW(var_106,lambda_12,var_105);call_closure_two(var_106,NULL,((struct cell_obj *)((env)->v_k_242))->val);__builtin_unreachable();} | |
void lambda_31(struct obj *var_107, struct obj *var_108, struct env_obj *env_in){struct env_31 *env = (struct env_31 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_109,var_108);((env)->v_k_271)=(var_109);OBJECT_INT_OBJ_NEW(var_110,1);call_closure_one(((struct cell_obj *)((env)->v_k_271))->val,var_110);__builtin_unreachable();} | |
void lambda_33(struct obj *var_111, struct obj *var_112, struct env_obj *env_in){struct env_33 *env = (struct env_33 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_113,var_112);((env)->v_k_276)=(var_113);call_closure_one(((struct cell_obj *)((env)->v_k_276))->val,((struct cell_obj *)((env)->v_x_273))->val);__builtin_unreachable();} | |
void lambda_34(struct obj *var_114, struct obj *var_115, struct env_obj *env_in){struct env_34 *env = (struct env_34 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_116,var_114);((env)->v_x_273)=(var_116);OBJECT_CELL_OBJ_NEW(var_117,var_115);((env)->v_k_274)=(var_117);OBJECT_ENV_OBJ_NEW(var_118,struct env_33 );(((struct env_33 *)(&((var_118)->env)))->v_x_273)=((env)->v_x_273);OBJECT_CLOSURE_TWO_NEW(var_119,lambda_33,var_118);call_closure_two(var_119,NULL,((struct cell_obj *)((env)->v_k_274))->val);__builtin_unreachable();} | |
void lambda_35(struct obj *var_120, struct obj *var_121, struct env_obj *env_in){struct env_35 *env = (struct env_35 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_122,var_121);((env)->v_k_281)=(var_122);OBJECT_CLOSURE_TWO_NEW(var_123,display_k,NULL);OBJECT_STRING_OBJ_NEW(var_124,"return 0;");call_closure_two(var_123,var_124,((struct cell_obj *)((env)->v_k_281))->val);__builtin_unreachable();} | |
void lambda_22(struct obj *var_125, struct obj *var_126, struct env_obj *env_in){struct env_22 *env = (struct env_22 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_127,var_125);((env)->v_body_230)=(var_127);OBJECT_CELL_OBJ_NEW(var_128,var_126);((env)->v_k_231)=(var_128);OBJECT_ENV_OBJ_NEW(var_129,struct env_21 );(((struct env_21 *)(&((var_129)->env)))->v_init_224)=((env)->v_init_224);(((struct env_21 *)(&((var_129)->env)))->v_body_230)=((env)->v_body_230);(((struct env_21 *)(&((var_129)->env)))->v_test_226)=((env)->v_test_226);(((struct env_21 *)(&((var_129)->env)))->v_incr_228)=((env)->v_incr_228);OBJECT_CLOSURE_TWO_NEW(var_130,lambda_21,var_129);call_closure_two(var_130,NULL,((struct cell_obj *)((env)->v_k_231))->val);__builtin_unreachable();} | |
void lambda_37(struct obj *var_131, struct env_obj *env_in){struct env_37 *env = (struct env_37 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_132,var_131);((env)->v_rv_277)=(var_132);OBJECT_ENV_OBJ_NEW(var_133,struct env_36 );OBJECT_CLOSURE_TWO_NEW(var_134,lambda_36,var_133);call_closure_two(((struct cell_obj *)((env)->v_rv_277))->val,var_134,((struct cell_obj *)((env)->v_k_262))->val);__builtin_unreachable();} | |
void lambda_1(struct obj *var_135, struct obj *var_136, struct env_obj *env_in){struct env_1 *env = (struct env_1 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_137,var_136);((env)->v_k_220)=(var_137);OBJECT_ENV_OBJ_NEW(var_138,struct env_0 );(((struct env_0 *)(&((var_138)->env)))->v_k_220)=((env)->v_k_220);(((struct env_0 *)(&((var_138)->env)))->v_f_208)=((env)->v_f_208);OBJECT_CLOSURE_ONE_NEW(var_139,lambda_0,var_138);call_closure_two(((struct cell_obj *)((env)->v_while_202))->val,((struct cell_obj *)((env)->v_c_206))->val,var_139);__builtin_unreachable();} | |
void lambda_30(struct obj *var_140, struct obj *var_141, struct env_obj *env_in){struct env_30 *env = (struct env_30 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_142,var_141);((env)->v_k_264)=(var_142);OBJECT_ENV_OBJ_NEW(var_143,struct env_29 );OBJECT_CLOSURE_TWO_NEW(var_144,lambda_29,var_143);call_closure_two(var_144,NULL,((struct cell_obj *)((env)->v_k_264))->val);__builtin_unreachable();} | |
void lambda_24(struct obj *var_145, struct obj *var_146, struct env_obj *env_in){struct env_24 *env = (struct env_24 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_147,var_145);((env)->v_test_226)=(var_147);OBJECT_CELL_OBJ_NEW(var_148,var_146);((env)->v_k_227)=(var_148);OBJECT_ENV_OBJ_NEW(var_149,struct env_23 );(((struct env_23 *)(&((var_149)->env)))->v_test_226)=((env)->v_test_226);(((struct env_23 *)(&((var_149)->env)))->v_init_224)=((env)->v_init_224);OBJECT_CLOSURE_TWO_NEW(var_150,lambda_23,var_149);call_closure_one(((struct cell_obj *)((env)->v_k_227))->val,var_150);__builtin_unreachable();} | |
void lambda_20(struct obj *var_151, struct obj *var_152, struct env_obj *env_in){struct env_20 *env = (struct env_20 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_153,var_152);((env)->v_k_249)=(var_153);OBJECT_ENV_OBJ_NEW(var_154,struct env_19 );(((struct env_19 *)(&((var_154)->env)))->v_inner_232)=((env)->v_inner_232);(((struct env_19 *)(&((var_154)->env)))->v_k_249)=((env)->v_k_249);OBJECT_CLOSURE_ONE_NEW(var_155,lambda_19,var_154);call_closure_two(((struct cell_obj *)((env)->v_init_224))->val,NULL,var_155);__builtin_unreachable();} | |
void lambda_3(struct obj *var_156, struct obj *var_157, struct env_obj *env_in){struct env_3 *env = (struct env_3 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_158,var_157);((env)->v_k_217)=(var_158);OBJECT_ENV_OBJ_NEW(var_159,struct env_2 );(((struct env_2 *)(&((var_159)->env)))->v_c_206)=((env)->v_c_206);(((struct env_2 *)(&((var_159)->env)))->v_k_217)=((env)->v_k_217);(((struct env_2 *)(&((var_159)->env)))->v_while_202)=((env)->v_while_202);(((struct env_2 *)(&((var_159)->env)))->v_f_208)=((env)->v_f_208);OBJECT_CLOSURE_ONE_NEW(var_160,lambda_2,var_159);call_closure_two(((struct cell_obj *)((env)->v_f_208))->val,NULL,var_160);__builtin_unreachable();} | |
void lambda_29(struct obj *var_161, struct obj *var_162, struct env_obj *env_in){struct env_29 *env = (struct env_29 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_163,var_162);((env)->v_k_266)=(var_163);call_closure_one(((struct cell_obj *)((env)->v_k_266))->val,NULL);__builtin_unreachable();} | |
void lambda_27(struct obj *var_164, struct obj *var_165, struct env_obj *env_in){struct env_27 *env = (struct env_27 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_166,var_165);((env)->v_k_257)=(var_166);OBJECT_INT_OBJ_NEW(var_167,1);call_closure_one(((struct cell_obj *)((env)->v_k_257))->val,var_167);__builtin_unreachable();} | |
void lambda_18(struct obj *var_168, struct obj *var_169, struct env_obj *env_in){struct env_18 *env = (struct env_18 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_170,var_168);((env)->v_it_234)=(var_170);OBJECT_CELL_OBJ_NEW(var_171,var_169);((env)->v_k_235)=(var_171);OBJECT_ENV_OBJ_NEW(var_172,struct env_17 );(((struct env_17 *)(&((var_172)->env)))->v_it_234)=((env)->v_it_234);(((struct env_17 *)(&((var_172)->env)))->v_incr_228)=((env)->v_incr_228);(((struct env_17 *)(&((var_172)->env)))->v_test_226)=((env)->v_test_226);(((struct env_17 *)(&((var_172)->env)))->v_body_230)=((env)->v_body_230);(((struct env_17 *)(&((var_172)->env)))->v_inner_232)=((env)->v_inner_232);OBJECT_CLOSURE_TWO_NEW(var_173,lambda_17,var_172);call_closure_two(var_173,NULL,((struct cell_obj *)((env)->v_k_235))->val);__builtin_unreachable();} | |
void lambda_9(struct obj *var_174, struct obj *var_175, struct env_obj *env_in){struct env_9 *env = (struct env_9 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_176,var_174);((env)->v_c_206)=(var_176);OBJECT_CELL_OBJ_NEW(var_177,var_175);((env)->v_k_207)=(var_177);OBJECT_ENV_OBJ_NEW(var_178,struct env_8 );(((struct env_8 *)(&((var_178)->env)))->v_while_202)=((env)->v_while_202);(((struct env_8 *)(&((var_178)->env)))->v_c_206)=((env)->v_c_206);OBJECT_CLOSURE_TWO_NEW(var_179,lambda_8,var_178);call_closure_one(((struct cell_obj *)((env)->v_k_207))->val,var_179);__builtin_unreachable();} | |
void lambda_17(struct obj *var_180, struct obj *var_181, struct env_obj *env_in){struct env_17 *env = (struct env_17 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_182,var_181);((env)->v_k_237)=(var_182);OBJECT_ENV_OBJ_NEW(var_183,struct env_16 );(((struct env_16 *)(&((var_183)->env)))->v_it_234)=((env)->v_it_234);(((struct env_16 *)(&((var_183)->env)))->v_incr_228)=((env)->v_incr_228);(((struct env_16 *)(&((var_183)->env)))->v_body_230)=((env)->v_body_230);(((struct env_16 *)(&((var_183)->env)))->v_test_226)=((env)->v_test_226);(((struct env_16 *)(&((var_183)->env)))->v_inner_232)=((env)->v_inner_232);OBJECT_CLOSURE_ONE_NEW(var_184,lambda_16,var_183);call_closure_one(var_184,((struct cell_obj *)((env)->v_k_237))->val);__builtin_unreachable();} | |
void lambda_46(struct obj *var_185, struct obj *var_186, struct env_obj *env_in){struct env_46 *env = (struct env_46 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_187,var_185);((env)->v_while_202)=(var_187);OBJECT_CELL_OBJ_NEW(var_188,var_186);((env)->v_k_203)=(var_188);OBJECT_ENV_OBJ_NEW(var_189,struct env_45 );(((struct env_45 *)(&((var_189)->env)))->v_while_202)=((env)->v_while_202);OBJECT_CLOSURE_TWO_NEW(var_190,lambda_45,var_189);call_closure_one(((struct cell_obj *)((env)->v_k_203))->val,var_190);__builtin_unreachable();} | |
void lambda_44(struct obj *var_191, struct env_obj *env_in){struct env_44 *env = (struct env_44 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_192,var_191);((env)->v_rv_251)=(var_192);OBJECT_ENV_OBJ_NEW(var_193,struct env_43 );(((struct env_43 *)(&((var_193)->env)))->v_while_202)=((env)->v_while_202);(((struct env_43 *)(&((var_193)->env)))->v_for_204)=((env)->v_for_204);OBJECT_CLOSURE_TWO_NEW(var_194,lambda_43,var_193);call_closure_two(var_194,((struct cell_obj *)((env)->v_rv_251))->val,((struct cell_obj *)((env)->v_k_205))->val);__builtin_unreachable();} | |
void lambda_2(struct obj *var_195, struct env_obj *env_in){struct env_2 *env = (struct env_2 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_196,var_195);((env)->v_rv_218)=(var_196);OBJECT_ENV_OBJ_NEW(var_197,struct env_1 );(((struct env_1 *)(&((var_197)->env)))->v_while_202)=((env)->v_while_202);(((struct env_1 *)(&((var_197)->env)))->v_f_208)=((env)->v_f_208);(((struct env_1 *)(&((var_197)->env)))->v_c_206)=((env)->v_c_206);OBJECT_CLOSURE_TWO_NEW(var_198,lambda_1,var_197);call_closure_two(var_198,((struct cell_obj *)((env)->v_rv_218))->val,((struct cell_obj *)((env)->v_k_217))->val);__builtin_unreachable();} | |
void lambda_48(struct obj *var_199, struct obj *var_200, struct env_obj *env_in){struct env_48 *env = (struct env_48 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_201,var_200);((env)->v_k_201)=(var_201);OBJECT_ENV_OBJ_NEW(var_202,struct env_46 );OBJECT_CLOSURE_TWO_NEW(var_203,lambda_46,var_202);OBJECT_ENV_OBJ_NEW(var_204,struct env_47 );(((struct env_47 *)(&((var_204)->env)))->v_k_201)=((env)->v_k_201);OBJECT_CLOSURE_ONE_NEW(var_205,lambda_47,var_204);call_closure_two(var_203,NULL,var_205);__builtin_unreachable();} | |
void lambda_4(struct obj *var_206, struct obj *var_207, struct env_obj *env_in){struct env_4 *env = (struct env_4 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_208,var_207);((env)->v_k_215)=(var_208);OBJECT_ENV_OBJ_NEW(var_209,struct env_3 );(((struct env_3 *)(&((var_209)->env)))->v_while_202)=((env)->v_while_202);(((struct env_3 *)(&((var_209)->env)))->v_f_208)=((env)->v_f_208);(((struct env_3 *)(&((var_209)->env)))->v_c_206)=((env)->v_c_206);OBJECT_CLOSURE_TWO_NEW(var_210,lambda_3,var_209);call_closure_two(var_210,NULL,((struct cell_obj *)((env)->v_k_215))->val);__builtin_unreachable();} | |
void lambda_32(struct obj *var_211, struct obj *var_212, struct env_obj *env_in){struct env_32 *env = (struct env_32 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_213,var_212);((env)->v_k_269)=(var_213);OBJECT_ENV_OBJ_NEW(var_214,struct env_31 );OBJECT_CLOSURE_TWO_NEW(var_215,lambda_31,var_214);call_closure_two(var_215,NULL,((struct cell_obj *)((env)->v_k_269))->val);__builtin_unreachable();} | |
void lambda_36(struct obj *var_216, struct obj *var_217, struct env_obj *env_in){struct env_36 *env = (struct env_36 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_218,var_217);((env)->v_k_279)=(var_218);OBJECT_ENV_OBJ_NEW(var_219,struct env_35 );OBJECT_CLOSURE_TWO_NEW(var_220,lambda_35,var_219);call_closure_two(var_220,NULL,((struct cell_obj *)((env)->v_k_279))->val);__builtin_unreachable();} | |
void lambda_40(struct obj *var_221, struct obj *var_222, struct env_obj *env_in){struct env_40 *env = (struct env_40 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_223,var_222);((env)->v_k_262)=(var_223);OBJECT_ENV_OBJ_NEW(var_224,struct env_30 );OBJECT_CLOSURE_TWO_NEW(var_225,lambda_30,var_224);OBJECT_ENV_OBJ_NEW(var_226,struct env_39 );(((struct env_39 *)(&((var_226)->env)))->v_k_262)=((env)->v_k_262);OBJECT_CLOSURE_ONE_NEW(var_227,lambda_39,var_226);call_closure_two(((struct cell_obj *)((env)->v_for_204))->val,var_225,var_227);__builtin_unreachable();} | |
void lambda_5(struct obj *var_228, struct env_obj *env_in){struct env_5 *env = (struct env_5 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_229,var_228);((env)->v_rv_213)=(var_229);if (obj_is_truthy(((struct cell_obj *)((env)->v_rv_213))->val)){OBJECT_ENV_OBJ_NEW(var_230,struct env_4 );(((struct env_4 *)(&((var_230)->env)))->v_c_206)=((env)->v_c_206);(((struct env_4 *)(&((var_230)->env)))->v_f_208)=((env)->v_f_208);(((struct env_4 *)(&((var_230)->env)))->v_while_202)=((env)->v_while_202);OBJECT_CLOSURE_TWO_NEW(var_231,lambda_4,var_230);call_closure_two(var_231,NULL,((struct cell_obj *)((env)->v_k_212))->val);} else {call_closure_one(((struct cell_obj *)((env)->v_k_212))->val,NULL);}0;__builtin_unreachable();} | |
void lambda_6(struct obj *var_232, struct env_obj *env_in){struct env_6 *env = (struct env_6 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_233,var_232);((env)->v_k_212)=(var_233);OBJECT_ENV_OBJ_NEW(var_234,struct env_5 );(((struct env_5 *)(&((var_234)->env)))->v_f_208)=((env)->v_f_208);(((struct env_5 *)(&((var_234)->env)))->v_c_206)=((env)->v_c_206);(((struct env_5 *)(&((var_234)->env)))->v_k_212)=((env)->v_k_212);(((struct env_5 *)(&((var_234)->env)))->v_while_202)=((env)->v_while_202);OBJECT_CLOSURE_ONE_NEW(var_235,lambda_5,var_234);call_closure_two(((struct cell_obj *)((env)->v_c_206))->val,NULL,var_235);__builtin_unreachable();} | |
void lambda_11(struct obj *var_236, struct env_obj *env_in){struct env_11 *env = (struct env_11 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_237,var_236);((env)->v_rv_245)=(var_237);OBJECT_ENV_OBJ_NEW(var_238,struct env_10 );(((struct env_10 *)(&((var_238)->env)))->v_it_241)=((env)->v_it_241);(((struct env_10 *)(&((var_238)->env)))->v_inner_232)=((env)->v_inner_232);OBJECT_CLOSURE_TWO_NEW(var_239,lambda_10,var_238);call_closure_two(var_239,((struct cell_obj *)((env)->v_rv_245))->val,((struct cell_obj *)((env)->v_k_244))->val);__builtin_unreachable();} | |
void lambda_42(struct obj *var_240, struct env_obj *env_in){struct env_42 *env = (struct env_42 *)(&((env_in)->env));OBJECT_CELL_OBJ_NEW(var_241,var_240);((env)->v_rv_258)=(var_241);OBJECT_ENV_OBJ_NEW(var_242,struct env_41 );(((struct env_41 *)(&((var_242)->env)))->v_for_204)=((env)->v_for_204);OBJECT_CLOSURE_TWO_NEW(var_243,lambda_41,var_242);call_closure_two(((struct cell_obj *)((env)->v_rv_258))->val,var_243,((struct cell_obj *)((env)->v_k_253))->val);__builtin_unreachable();} | |
void main_lambda(struct obj *input_obj, struct env_obj *input_env){OBJECT_ENV_OBJ_NEW(var_244,struct env_48 );OBJECT_CLOSURE_TWO_NEW(var_245,lambda_48,var_244);OBJECT_CLOSURE_ONE_NEW(var_246,exit_k,NULL);call_closure_two(var_245,NULL,var_246);__builtin_unreachable();} | |
int main() { | |
struct closure_obj initial_closure = object_closure_one_new(main_lambda, NULL); | |
struct thunk initial_thunk = { | |
.closr = &initial_closure, | |
.one = {NULL}, | |
}; | |
struct thunk *thnk_heap = malloc(sizeof(struct thunk)); | |
memcpy(thnk_heap, &initial_thunk, sizeof(struct thunk)); | |
scheme_start(thnk_heap); | |
} |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment