From 1cecebaff4b1021c9a00d3ab029f99a9178cf16b Mon Sep 17 00:00:00 2001 From: Jim Duey Date: Mon, 19 Jan 2015 22:01:31 -0600 Subject: [PATCH] Added 'rem' --- core.c | 26307 +++++++++++++++++++++++++++-------------------------- core.toc | 21 +- 2 files changed, 13649 insertions(+), 12679 deletions(-) diff --git a/core.c b/core.c index b042075..e5b777f 100644 --- a/core.c +++ b/core.c @@ -7602,26 +7602,12 @@ return (cond0); // --------- assoc-in main body -------------- Function fn_638 = {3, "assoc-in", 1, {&(FnArity){3, (List *)0, 0, arityImpl_639}}}; -SymKey _kw_8 = {5, -1, ":hm"}; -SymKey _kw_9 = {5, -1, ":kw"}; // --------- invoke_impl -------------- Function fn_641; Value *arityImpl_642(List *closures, Value *arg0, Value *arg1, Value *arg2) { -List *varArgs0 = (List *)GC_malloc(sizeof(List)); -varArgs0->type = ListType; -varArgs0->len = 0; -varArgs0->head = (Value *)0; -varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)arg2, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_4, varArgs0); -varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_9, varArgs0); -varArgs0 = (List *)listCons((Value *)arg1, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_8, varArgs0); -Value *rslt1 = arityImpl_160((List *)var_31, (Value *)varArgs0); -Value *rslt2 = protoFnImpl_261((List *)var_31, arg1, arg0, arg2); -return (rslt2); +Value *rslt0 = protoFnImpl_261((List *)var_31, arg1, arg0, arg2); +return (rslt0); }; @@ -7638,78 +7624,10 @@ return (rslt0); // --------- invoke_impl main body -------------- Function fn_643 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_644}}}; -struct {int64_t type; - int64_t len; - char buffer[5];} _str_24 = {1,4,""}; - -// --------- =*_impl -------------- -Function fn_645; -Value *arityImpl_646(List *closures, Value *arg0, Value *arg1) { -Value *rslt3; -if((var_23)->type != 3) { -rslt3 = protoFnImpl_7(empty_list, var_23, arg0, arg1); -} else { -FnArity *arity0 = findFnArity(var_23, 2); -if(arity0 != (FnArity *)0 && !arity0->variadic) { -FnType2 *fn2 = (FnType2 *)arity0->fn; -rslt3 = fn2(arity0->closures, arg0, arg1); -} else if(arity0 != (FnArity *)0 && arity0->variadic) { -FnType1 *fn2 = (FnType1 *)arity0->fn; -List *varArgs1 = (List *)GC_malloc(sizeof(List)); -varArgs1->type = ListType; -varArgs1->len = 0; -varArgs1->head = (Value *)0; -varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons(arg1, varArgs1); -varArgs1 = (List *)listCons(arg0, varArgs1); -rslt3 = fn2(arity0->closures, (Value *)varArgs1); -} else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_23)->name); - abort(); -} -} -return (rslt3); -}; - - -// --------- =*_impl main body -------------- -Function fn_645 = {3, "=*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_646}}}; -Value *protoImpl_647(List *closures, Value *arg0, Value *arg1) { -FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; -return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); -}; - -Function protoFn_648 = {3, "=*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_647}}}; - - -// --------- string-list_impl -------------- -Function fn_649; -Value *arityImpl_650(List *closures, Value *arg0) { -List *varArgs0 = (List *)GC_malloc(sizeof(List)); -varArgs0->type = ListType; -varArgs0->len = 0; -varArgs0->head = (Value *)0; -varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_str_24, varArgs0); -Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -return (rslt1); -}; - - -// --------- string-list_impl main body -------------- -Function fn_649 = {3, "string-list_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_650}}}; -Value *protoImpl_651(List *closures, Value *arg0) { -FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; -return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); -}; - -Function protoFn_652 = {3, "string-list", 1, {&(FnArity){1, (List *)0, 0, protoImpl_651}}}; - -ReifiedVal reified_653 = {12, 2, {(Value *)&fn_645, (Value *)&fn_649}}; // --------- symbol? -------------- -Function fn_655; -Value *arityImpl_656(List *closures, Value *arg0) { +Function fn_645; +Value *arityImpl_646(List *closures, Value *arg0) { Value *rslt3; if((var_22)->type != 3) { rslt3 = protoFnImpl_5(empty_list, var_22, arg0); @@ -7738,21 +7656,21 @@ return (rslt4); // --------- symbol? main body -------------- -Function fn_655 = {3, "symbol?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_656}}}; +Function fn_645 = {3, "symbol?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_646}}}; struct {int64_t type; int64_t len; - char buffer[2];} _str_25 = {1,1,":"}; + char buffer[2];} _str_24 = {1,1,":"}; // --------- keyword -------------- -Function fn_658; -Value *arityImpl_659(List *closures, Value *arg0) { +Function fn_648; +Value *arityImpl_649(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_str_25, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_24, varArgs0); Value *rslt1 = arityImpl_508((List *)var_31, (Value *)varArgs0); Value *rslt5; if((var_51)->type != 3) { @@ -7781,11 +7699,11 @@ return (rslt5); // --------- keyword main body -------------- -Function fn_658 = {3, "keyword", 1, {&(FnArity){1, (List *)0, 0, arityImpl_659}}}; +Function fn_648 = {3, "keyword", 1, {&(FnArity){1, (List *)0, 0, arityImpl_649}}}; // --------- keyword? -------------- -Function fn_661; -Value *arityImpl_662(List *closures, Value *arg0) { +Function fn_651; +Value *arityImpl_652(List *closures, Value *arg0) { Value *rslt3; if((var_22)->type != 3) { rslt3 = protoFnImpl_5(empty_list, var_22, arg0); @@ -7814,11 +7732,11 @@ return (rslt4); // --------- keyword? main body -------------- -Function fn_661 = {3, "keyword?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_662}}}; +Function fn_651 = {3, "keyword?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_652}}}; // --------- number? -------------- -Function fn_664; -Value *arityImpl_665(List *closures, Value *arg0) { +Function fn_654; +Value *arityImpl_655(List *closures, Value *arg0) { Value *rslt3; if((var_22)->type != 3) { rslt3 = protoFnImpl_5(empty_list, var_22, arg0); @@ -7847,11 +7765,11 @@ return (rslt4); // --------- number? main body -------------- -Function fn_664 = {3, "number?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_665}}}; +Function fn_654 = {3, "number?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_655}}}; // --------- string? -------------- -Function fn_667; -Value *arityImpl_668(List *closures, Value *arg0) { +Function fn_657; +Value *arityImpl_658(List *closures, Value *arg0) { Value *rslt3; if((var_22)->type != 3) { rslt3 = protoFnImpl_5(empty_list, var_22, arg0); @@ -7911,11 +7829,11 @@ return (rslt11); // --------- string? main body -------------- -Function fn_667 = {3, "string?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_668}}}; +Function fn_657 = {3, "string?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_658}}}; // --------- range* -------------- -Function fn_670; -Value *arityImpl_671(List *closures, Value *arg0) { +Function fn_660; +Value *arityImpl_661(List *closures, Value *arg0) { Value *cond0; Value *rslt7 = arityImpl_283((List *)var_31, (Value *)&_num_8, arg0); @@ -7930,7 +7848,7 @@ Value *rslt9 = arityImpl_119((List *)var_31, (Value *)varArgs8); cond0 = rslt9; } else { Value *rslt1 = arityImpl_462((List *)var_31, arg0); -Value *rslt2 = arityImpl_671(closures, rslt1); +Value *rslt2 = arityImpl_661(closures, rslt1); Value *rslt6; if((var_32)->type != 3) { rslt6 = protoFnImpl_7(empty_list, var_32, arg0, rslt2); @@ -7961,27 +7879,27 @@ return (cond0); // --------- range* main body -------------- -Function fn_670 = {3, "range*", 1, {&(FnArity){1, (List *)0, 0, arityImpl_671}}}; +Function fn_660 = {3, "range*", 1, {&(FnArity){1, (List *)0, 0, arityImpl_661}}}; // --------- range -------------- -Function fn_673; -Value *arityImpl_674(List *closures, Value *arg0) { +Function fn_663; +Value *arityImpl_664(List *closures, Value *arg0) { Value *rslt0 = arityImpl_462((List *)var_31, arg0); -Value *rslt1 = arityImpl_671((List *)var_31, rslt0); +Value *rslt1 = arityImpl_661((List *)var_31, rslt0); Value *rslt2 = arityImpl_310((List *)var_31, rslt1); return (rslt2); }; // --------- range main body -------------- -Function fn_673 = {3, "range", 1, {&(FnArity){1, (List *)0, 0, arityImpl_674}}}; +Function fn_663 = {3, "range", 1, {&(FnArity){1, (List *)0, 0, arityImpl_664}}}; // --------- repeat -------------- -Function fn_676; +Function fn_666; // --------- anon -------------- -Function fn_678; -Value *arityImpl_679(List *closures, Value *arg0) { +Function fn_668; +Value *arityImpl_669(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -7989,7 +7907,7 @@ closures = closures->tail; return (val0); }; -Value *arityImpl_677(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_667(List *closures, Value *arg0, Value *arg1) { Value *cond0; Value *rslt5 = arityImpl_287((List *)var_31, arg0, (Value *)&_num_1); @@ -7997,19 +7915,19 @@ if (isTrue(rslt5)) { cond0 = var_31; } else { Value *rslt1 = arityImpl_462((List *)var_31, arg0); -Value *rslt2 = arityImpl_671((List *)var_31, rslt1); +Value *rslt2 = arityImpl_661((List *)var_31, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_679; +arity_3->fn = arityImpl_669; arity_3->closures = listCons((Value *)arg1, (List *)arity_3->closures); -Function *fn_678 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_678->type = 3; -fn_678->name = "anon"; -fn_678->arityCount = 1; -fn_678->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_125((List *)var_31, rslt2, (Value *)fn_678); +Function *fn_668 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_668->type = 3; +fn_668->name = "anon"; +fn_668->arityCount = 1; +fn_668->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_125((List *)var_31, rslt2, (Value *)fn_668); cond0 = rslt4; } return (cond0); @@ -8017,11 +7935,11 @@ return (cond0); // --------- repeat main body -------------- -Function fn_676 = {3, "repeat", 1, {&(FnArity){2, (List *)0, 0, arityImpl_677}}}; +Function fn_666 = {3, "repeat", 1, {&(FnArity){2, (List *)0, 0, arityImpl_667}}}; // --------- sm-apply -------------- -Function fn_681; -Value *arityImpl_682(List *closures, Value *arg0, Value *arg1, Value *arg2, Value *arg3) { +Function fn_671; +Value *arityImpl_672(List *closures, Value *arg0, Value *arg1, Value *arg2, Value *arg3) { Value *cond0; Value *rslt16 = protoFnImpl_179((List *)var_31, arg0); @@ -8102,7 +8020,7 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_38)->name); } } Value *rslt13 = arityImpl_523((List *)var_31, rslt5, (Value *)&_num_1); -Value *rslt14 = arityImpl_682(closures, rslt7, arg1, rslt12, rslt13); +Value *rslt14 = arityImpl_672(closures, rslt7, arg1, rslt12, rslt13); cond6 = rslt14; } cond0 = cond6; @@ -8112,10 +8030,10 @@ return (cond0); // --------- sm-apply main body -------------- -Function fn_681 = {3, "sm-apply", 1, {&(FnArity){4, (List *)0, 0, arityImpl_682}}}; -ProtoImpls *protoImpls_684; -Value *protoFnImpl_687(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_684); +Function fn_671 = {3, "sm-apply", 1, {&(FnArity){4, (List *)0, 0, arityImpl_672}}}; +ProtoImpls *protoImpls_674; +Value *protoFnImpl_677(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_674); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.invoke-fn' %lld\n", arg0->type); abort(); @@ -8128,17 +8046,17 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_688 = {1, (List *)0, 0, protoFnImpl_687}; -Function protoFn_685 = {3, ".invoke-fn", 1, {&protoFnArity_688}}; +FnArity protoFnArity_678 = {1, (List *)0, 0, protoFnImpl_677}; +Function protoFn_675 = {3, ".invoke-fn", 1, {&protoFnArity_678}}; // forward declaration for 'new-sm' -Value *var_689; +Value *var_679; -Number _num_11 = {2, -1, 14}; +Number _num_11 = {2, -1, 13}; // --------- instance?_impl -------------- -Function fn_690; -Value *arityImpl_691(List *closures, Value *arg0, Value *arg1) { +Function fn_680; +Value *arityImpl_681(List *closures, Value *arg0, Value *arg1) { Value *rslt3; if((var_22)->type != 3) { rslt3 = protoFnImpl_5(empty_list, var_22, arg1); @@ -8167,21 +8085,21 @@ return (rslt4); // --------- instance?_impl main body -------------- -Function fn_690 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_691}}}; -Value *protoImpl_692(List *closures, Value *arg0, Value *arg1) { +Function fn_680 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_681}}}; +Value *protoImpl_682(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_693 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_692}}}; +Function protoFn_683 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_682}}}; // --------- invoke_impl -------------- -Function fn_694; +Function fn_684; // --------- invoke_impl -------------- -Function fn_696; -Value *arityImpl_697(List *closures, Value *arg0, Value *arg1) { +Function fn_686; +Value *arityImpl_687(List *closures, Value *arg0, Value *arg1) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -8211,20 +8129,20 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)val0)->name); return (rslt4); }; -Value *protoImpl_698(List *closures, Value *arg0, Value *arg1) { +Value *protoImpl_688(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_699 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_698}}}; +Function protoFn_689 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_688}}}; // --------- wrap_impl -------------- -Function fn_700; +Function fn_690; // --------- anon -------------- -Function fn_702; -Value *arityImpl_703(List *closures, Value *arg0) { +Function fn_692; +Value *arityImpl_693(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -8240,26 +8158,26 @@ Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); return (rslt2); }; -Value *arityImpl_701(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_691(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_703; +arity_0->fn = arityImpl_693; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_702 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_702->type = 3; -fn_702->name = "anon"; -fn_702->arityCount = 1; -fn_702->arities[0] = arity_0; +Function *fn_692 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_692->type = 3; +fn_692->name = "anon"; +fn_692->arityCount = 1; +fn_692->arities[0] = arity_0; Value *rslt4; -if((var_689)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, var_689, (Value *)fn_702); +if((var_679)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, var_679, (Value *)fn_692); } else { -FnArity *arity1 = findFnArity(var_689, 1); +FnArity *arity1 = findFnArity(var_679, 1); if(arity1 != (FnArity *)0 && !arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; -rslt4 = fn3(arity1->closures, (Value *)fn_702); +rslt4 = fn3(arity1->closures, (Value *)fn_692); } else if(arity1 != (FnArity *)0 && arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -8267,10 +8185,10 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)fn_702, varArgs2); +varArgs2 = (List *)listCons((Value *)fn_692, varArgs2); rslt4 = fn3(arity1->closures, (Value *)varArgs2); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_689)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_679)->name); abort(); } } @@ -8279,21 +8197,21 @@ return (rslt4); // --------- wrap_impl main body -------------- -Function fn_700 = {3, "wrap_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_701}}}; -Value *protoImpl_704(List *closures, Value *arg0, Value *arg1) { +Function fn_690 = {3, "wrap_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_691}}}; +Value *protoImpl_694(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_705 = {3, "wrap", 1, {&(FnArity){2, (List *)0, 0, protoImpl_704}}}; +Function protoFn_695 = {3, "wrap", 1, {&(FnArity){2, (List *)0, 0, protoImpl_694}}}; // --------- apply*_impl -------------- -Function fn_706; +Function fn_696; // --------- anon -------------- -Function fn_708; -Value *arityImpl_709(List *closures, Value *arg0) { +Function fn_698; +Value *arityImpl_699(List *closures, Value *arg0) { Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -8346,31 +8264,31 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_32)->name); abort(); } } -Value *rslt10 = arityImpl_682((List *)var_31, rslt9, rslt3, rslt3, arg0); +Value *rslt10 = arityImpl_672((List *)var_31, rslt9, rslt3, rslt3, arg0); return (rslt10); }; -Value *arityImpl_707(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_697(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_709; +arity_0->fn = arityImpl_699; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg0, (List *)arity_0->closures); -Function *fn_708 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_708->type = 3; -fn_708->name = "anon"; -fn_708->arityCount = 1; -fn_708->arities[0] = arity_0; +Function *fn_698 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_698->type = 3; +fn_698->name = "anon"; +fn_698->arityCount = 1; +fn_698->arities[0] = arity_0; Value *rslt4; -if((var_689)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, var_689, (Value *)fn_708); +if((var_679)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, var_679, (Value *)fn_698); } else { -FnArity *arity1 = findFnArity(var_689, 1); +FnArity *arity1 = findFnArity(var_679, 1); if(arity1 != (FnArity *)0 && !arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; -rslt4 = fn3(arity1->closures, (Value *)fn_708); +rslt4 = fn3(arity1->closures, (Value *)fn_698); } else if(arity1 != (FnArity *)0 && arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -8378,10 +8296,10 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)fn_708, varArgs2); +varArgs2 = (List *)listCons((Value *)fn_698, varArgs2); rslt4 = fn3(arity1->closures, (Value *)varArgs2); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_689)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_679)->name); abort(); } } @@ -8390,21 +8308,21 @@ return (rslt4); // --------- apply*_impl main body -------------- -Function fn_706 = {3, "apply*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_707}}}; -Value *protoImpl_710(List *closures, Value *arg0, Value *arg1) { +Function fn_696 = {3, "apply*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_697}}}; +Value *protoImpl_700(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_711 = {3, "apply*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_710}}}; +Function protoFn_701 = {3, "apply*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_700}}}; // --------- flat-map_impl -------------- -Function fn_712; +Function fn_702; // --------- anon -------------- -Function fn_714; -Value *arityImpl_715(List *closures, Value *arg0) { +Function fn_704; +Value *arityImpl_705(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -8492,27 +8410,27 @@ cond5 = rslt16; return (cond5); }; -Value *arityImpl_713(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_703(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_715; +arity_0->fn = arityImpl_705; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg0, (List *)arity_0->closures); -Function *fn_714 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_714->type = 3; -fn_714->name = "anon"; -fn_714->arityCount = 1; -fn_714->arities[0] = arity_0; +Function *fn_704 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_704->type = 3; +fn_704->name = "anon"; +fn_704->arityCount = 1; +fn_704->arities[0] = arity_0; Value *rslt4; -if((var_689)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, var_689, (Value *)fn_714); +if((var_679)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, var_679, (Value *)fn_704); } else { -FnArity *arity1 = findFnArity(var_689, 1); +FnArity *arity1 = findFnArity(var_679, 1); if(arity1 != (FnArity *)0 && !arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; -rslt4 = fn3(arity1->closures, (Value *)fn_714); +rslt4 = fn3(arity1->closures, (Value *)fn_704); } else if(arity1 != (FnArity *)0 && arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -8520,10 +8438,10 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)fn_714, varArgs2); +varArgs2 = (List *)listCons((Value *)fn_704, varArgs2); rslt4 = fn3(arity1->closures, (Value *)varArgs2); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_689)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_679)->name); abort(); } } @@ -8532,36 +8450,36 @@ return (rslt4); // --------- flat-map_impl main body -------------- -Function fn_712 = {3, "flat-map_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_713}}}; -Value *protoImpl_716(List *closures, Value *arg0, Value *arg1) { +Function fn_702 = {3, "flat-map_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_703}}}; +Value *protoImpl_706(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[3])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_717 = {3, "flat-map", 1, {&(FnArity){2, (List *)0, 0, protoImpl_716}}}; +Function protoFn_707 = {3, "flat-map", 1, {&(FnArity){2, (List *)0, 0, protoImpl_706}}}; // --------- zero_impl -------------- -Function fn_718; +Function fn_708; // --------- anon -------------- -Function fn_720; -Value *arityImpl_721(List *closures, Value *arg0) { +Function fn_710; +Value *arityImpl_711(List *closures, Value *arg0) { return (var_31); }; // --------- anon main body -------------- -Function fn_720 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_721}}}; -Value *arityImpl_719(List *closures, Value *arg0) { +Function fn_710 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_711}}}; +Value *arityImpl_709(List *closures, Value *arg0) { Value *rslt4; -if((var_689)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, var_689, (Value *)&fn_720); +if((var_679)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, var_679, (Value *)&fn_710); } else { -FnArity *arity1 = findFnArity(var_689, 1); +FnArity *arity1 = findFnArity(var_679, 1); if(arity1 != (FnArity *)0 && !arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; -rslt4 = fn3(arity1->closures, (Value *)&fn_720); +rslt4 = fn3(arity1->closures, (Value *)&fn_710); } else if(arity1 != (FnArity *)0 && arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -8569,10 +8487,10 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)&fn_720, varArgs2); +varArgs2 = (List *)listCons((Value *)&fn_710, varArgs2); rslt4 = fn3(arity1->closures, (Value *)varArgs2); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_689)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_679)->name); abort(); } } @@ -8581,21 +8499,21 @@ return (rslt4); // --------- zero_impl main body -------------- -Function fn_718 = {3, "zero_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_719}}}; -Value *protoImpl_722(List *closures, Value *arg0) { +Function fn_708 = {3, "zero_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_709}}}; +Value *protoImpl_712(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[4])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_723 = {3, "zero", 1, {&(FnArity){1, (List *)0, 0, protoImpl_722}}}; +Function protoFn_713 = {3, "zero", 1, {&(FnArity){1, (List *)0, 0, protoImpl_712}}}; // --------- comp*_impl -------------- -Function fn_724; +Function fn_714; // --------- anon -------------- -Function fn_726; -Value *arityImpl_727(List *closures, Value *arg0) { +Function fn_716; +Value *arityImpl_717(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -8668,27 +8586,27 @@ cond5 = rslt4; return (cond5); }; -Value *arityImpl_725(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_715(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_727; +arity_0->fn = arityImpl_717; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg0, (List *)arity_0->closures); -Function *fn_726 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_726->type = 3; -fn_726->name = "anon"; -fn_726->arityCount = 1; -fn_726->arities[0] = arity_0; +Function *fn_716 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_716->type = 3; +fn_716->name = "anon"; +fn_716->arityCount = 1; +fn_716->arities[0] = arity_0; Value *rslt4; -if((var_689)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, var_689, (Value *)fn_726); +if((var_679)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, var_679, (Value *)fn_716); } else { -FnArity *arity1 = findFnArity(var_689, 1); +FnArity *arity1 = findFnArity(var_679, 1); if(arity1 != (FnArity *)0 && !arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; -rslt4 = fn3(arity1->closures, (Value *)fn_726); +rslt4 = fn3(arity1->closures, (Value *)fn_716); } else if(arity1 != (FnArity *)0 && arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -8696,10 +8614,10 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)fn_726, varArgs2); +varArgs2 = (List *)listCons((Value *)fn_716, varArgs2); rslt4 = fn3(arity1->closures, (Value *)varArgs2); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_689)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_679)->name); abort(); } } @@ -8708,18 +8626,18 @@ return (rslt4); // --------- comp*_impl main body -------------- -Function fn_724 = {3, "comp*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_725}}}; -Value *protoImpl_728(List *closures, Value *arg0, Value *arg1) { +Function fn_714 = {3, "comp*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_715}}}; +Value *protoImpl_718(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[5])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_729 = {3, "comp*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_728}}}; +Function protoFn_719 = {3, "comp*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_718}}}; // --------- .invoke-fn_impl -------------- -Function fn_730; -Value *arityImpl_731(List *closures, Value *arg0) { +Function fn_720; +Value *arityImpl_721(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -8727,64 +8645,64 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_732(List *closures, Value *arg0) { +Value *protoImpl_722(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[6])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_733 = {3, ".invoke-fn", 1, {&(FnArity){1, (List *)0, 0, protoImpl_732}}}; +Function protoFn_723 = {3, ".invoke-fn", 1, {&(FnArity){1, (List *)0, 0, protoImpl_722}}}; -Value *arityImpl_695(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_685(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 2; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_697; +arity_0->fn = arityImpl_687; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_696 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_696->type = 3; -fn_696->name = "invoke_impl"; -fn_696->arityCount = 1; -fn_696->arities[0] = arity_0; +Function *fn_686 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_686->type = 3; +fn_686->name = "invoke_impl"; +fn_686->arityCount = 1; +fn_686->arities[0] = arity_0; FnArity *arity_6 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_6->count = 1; arity_6->closures = empty_list; arity_6->variadic = 0; -arity_6->fn = arityImpl_731; +arity_6->fn = arityImpl_721; arity_6->closures = listCons((Value *)arg1, (List *)arity_6->closures); -Function *fn_730 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_730->type = 3; -fn_730->name = ".invoke-fn_impl"; -fn_730->arityCount = 1; -fn_730->arities[0] = arity_6; +Function *fn_720 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_720->type = 3; +fn_720->name = ".invoke-fn_impl"; +fn_720->arityCount = 1; +fn_720->arities[0] = arity_6; ReifiedVal *reified_7 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 7); -reified_7->type = 14; +reified_7->type = 13; reified_7->implCount = 7; -reified_7->impls[0] = (Value *)fn_696; -reified_7->impls[1] = (Value *)&fn_700; -reified_7->impls[2] = (Value *)&fn_706; -reified_7->impls[3] = (Value *)&fn_712; -reified_7->impls[4] = (Value *)&fn_718; -reified_7->impls[5] = (Value *)&fn_724; -reified_7->impls[6] = (Value *)fn_730; +reified_7->impls[0] = (Value *)fn_686; +reified_7->impls[1] = (Value *)&fn_690; +reified_7->impls[2] = (Value *)&fn_696; +reified_7->impls[3] = (Value *)&fn_702; +reified_7->impls[4] = (Value *)&fn_708; +reified_7->impls[5] = (Value *)&fn_714; +reified_7->impls[6] = (Value *)fn_720; return ((Value *)reified_7); }; // --------- invoke_impl main body -------------- -Function fn_694 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_695}}}; -Value *protoImpl_734(List *closures, Value *arg0, Value *arg1) { +Function fn_684 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_685}}}; +Value *protoImpl_724(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_735 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_734}}}; +Function protoFn_725 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_724}}}; -ReifiedVal reified_736 = {13, 2, {(Value *)&fn_690, (Value *)&fn_694}}; -Value *var_689 = (Value *)&reified_736; -ProtoImpls *protoImpls_737; -Value *protoFnImpl_740(List *closures, Value *arg0, Value *arg1) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_737); +ReifiedVal reified_726 = {12, 2, {(Value *)&fn_680, (Value *)&fn_684}}; +Value *var_679 = (Value *)&reified_726; +ProtoImpls *protoImpls_727; +Value *protoFnImpl_730(List *closures, Value *arg0, Value *arg1) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_727); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for 'evaluate' %lld\n", arg0->type); abort(); @@ -8797,46 +8715,46 @@ abort(); FnType2 *_fn = (FnType2 *)_arity->fn; return(_fn(_arity->closures, arg0, arg1)); } -FnArity protoFnArity_741 = {2, (List *)0, 0, protoFnImpl_740}; -Function protoFn_738 = {3, "evaluate", 1, {&protoFnArity_741}}; +FnArity protoFnArity_731 = {2, (List *)0, 0, protoFnImpl_730}; +Function protoFn_728 = {3, "evaluate", 1, {&protoFnArity_731}}; // forward declaration for 'free-val' -Value *var_742; +Value *var_732; // forward declaration for 'free-app' -Value *var_743; +Value *var_733; struct {int64_t type; int64_t len; - char buffer[11];} _str_26 = {1,10,""}; + char buffer[11];} _str_25 = {1,10,""}; // --------- string-list_impl -------------- -Function fn_744; -Value *arityImpl_745(List *closures, Value *arg0) { +Function fn_734; +Value *arityImpl_735(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_str_26, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_25, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); return (rslt1); }; // --------- string-list_impl main body -------------- -Function fn_744 = {3, "string-list_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_745}}}; -Value *protoImpl_746(List *closures, Value *arg0) { +Function fn_734 = {3, "string-list_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_735}}}; +Value *protoImpl_736(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_747 = {3, "string-list", 1, {&(FnArity){1, (List *)0, 0, protoImpl_746}}}; +Function protoFn_737 = {3, "string-list", 1, {&(FnArity){1, (List *)0, 0, protoImpl_736}}}; // --------- =*_impl -------------- -Function fn_748; -Value *arityImpl_749(List *closures, Value *arg0, Value *arg1) { +Function fn_738; +Value *arityImpl_739(List *closures, Value *arg0, Value *arg1) { Value *rslt3; if((var_23)->type != 3) { rslt3 = protoFnImpl_7(empty_list, var_23, arg0, arg1); @@ -8865,23 +8783,23 @@ return (rslt3); // --------- =*_impl main body -------------- -Function fn_748 = {3, "=*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_749}}}; -Value *protoImpl_750(List *closures, Value *arg0, Value *arg1) { +Function fn_738 = {3, "=*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_739}}}; +Value *protoImpl_740(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_751 = {3, "=*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_750}}}; +Function protoFn_741 = {3, "=*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_740}}}; // --------- wrap_impl -------------- -Function fn_752; -Value *arityImpl_753(List *closures, Value *arg0, Value *arg1) { +Function fn_742; +Value *arityImpl_743(List *closures, Value *arg0, Value *arg1) { Value *rslt3; -if((var_742)->type != 3) { -rslt3 = protoFnImpl_5(empty_list, var_742, arg1); +if((var_732)->type != 3) { +rslt3 = protoFnImpl_5(empty_list, var_732, arg1); } else { -FnArity *arity0 = findFnArity(var_742, 1); +FnArity *arity0 = findFnArity(var_732, 1); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; rslt3 = fn2(arity0->closures, arg1); @@ -8895,7 +8813,7 @@ varArgs1->tail = (List *)0; varArgs1 = (List *)listCons(arg1, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_742)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_732)->name); abort(); } } @@ -8904,23 +8822,23 @@ return (rslt3); // --------- wrap_impl main body -------------- -Function fn_752 = {3, "wrap_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_753}}}; -Value *protoImpl_754(List *closures, Value *arg0, Value *arg1) { +Function fn_742 = {3, "wrap_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_743}}}; +Value *protoImpl_744(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_755 = {3, "wrap", 1, {&(FnArity){2, (List *)0, 0, protoImpl_754}}}; +Function protoFn_745 = {3, "wrap", 1, {&(FnArity){2, (List *)0, 0, protoImpl_744}}}; // --------- apply*_impl -------------- -Function fn_756; -Value *arityImpl_757(List *closures, Value *arg0, Value *arg1) { +Function fn_746; +Value *arityImpl_747(List *closures, Value *arg0, Value *arg1) { Value *rslt3; -if((var_743)->type != 3) { -rslt3 = protoFnImpl_7(empty_list, var_743, arg0, arg1); +if((var_733)->type != 3) { +rslt3 = protoFnImpl_7(empty_list, var_733, arg0, arg1); } else { -FnArity *arity0 = findFnArity(var_743, 2); +FnArity *arity0 = findFnArity(var_733, 2); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType2 *fn2 = (FnType2 *)arity0->fn; rslt3 = fn2(arity0->closures, arg0, arg1); @@ -8935,7 +8853,7 @@ varArgs1 = (List *)listCons(arg1, varArgs1); varArgs1 = (List *)listCons(arg0, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_743)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_733)->name); abort(); } } @@ -8944,52 +8862,52 @@ return (rslt3); // --------- apply*_impl main body -------------- -Function fn_756 = {3, "apply*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_757}}}; -Value *protoImpl_758(List *closures, Value *arg0, Value *arg1) { +Function fn_746 = {3, "apply*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_747}}}; +Value *protoImpl_748(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[3])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_759 = {3, "apply*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_758}}}; +Function protoFn_749 = {3, "apply*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_748}}}; // --------- zero_impl -------------- -Function fn_760; -Value *arityImpl_761(List *closures, Value *arg0) { +Function fn_750; +Value *arityImpl_751(List *closures, Value *arg0) { return (arg0); }; // --------- zero_impl main body -------------- -Function fn_760 = {3, "zero_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_761}}}; -Value *protoImpl_762(List *closures, Value *arg0) { +Function fn_750 = {3, "zero_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_751}}}; +Value *protoImpl_752(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[4])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_763 = {3, "zero", 1, {&(FnArity){1, (List *)0, 0, protoImpl_762}}}; +Function protoFn_753 = {3, "zero", 1, {&(FnArity){1, (List *)0, 0, protoImpl_752}}}; // --------- comp*_impl -------------- -Function fn_764; -Value *arityImpl_765(List *closures, Value *arg0, Value *arg1) { +Function fn_754; +Value *arityImpl_755(List *closures, Value *arg0, Value *arg1) { return (arg1); }; // --------- comp*_impl main body -------------- -Function fn_764 = {3, "comp*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_765}}}; -Value *protoImpl_766(List *closures, Value *arg0, Value *arg1) { +Function fn_754 = {3, "comp*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_755}}}; +Value *protoImpl_756(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[5])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_767 = {3, "comp*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_766}}}; +Function protoFn_757 = {3, "comp*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_756}}}; -ReifiedVal reified_768 = {15, 6, {(Value *)&fn_744, (Value *)&fn_748, (Value *)&fn_752, (Value *)&fn_756, (Value *)&fn_760, (Value *)&fn_764}}; -ProtoImpls *protoImpls_770; -Value *protoFnImpl_773(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_770); +ReifiedVal reified_758 = {14, 6, {(Value *)&fn_734, (Value *)&fn_738, (Value *)&fn_742, (Value *)&fn_746, (Value *)&fn_750, (Value *)&fn_754}}; +ProtoImpls *protoImpls_760; +Value *protoFnImpl_763(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_760); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.alts' %lld\n", arg0->type); abort(); @@ -9002,20 +8920,20 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_774 = {1, (List *)0, 0, protoFnImpl_773}; -Function protoFn_771 = {3, ".alts", 1, {&protoFnArity_774}}; +FnArity protoFnArity_764 = {1, (List *)0, 0, protoFnImpl_763}; +Function protoFn_761 = {3, ".alts", 1, {&protoFnArity_764}}; // forward declaration for 'free-plus' -Value *var_775; +Value *var_765; struct {int64_t type; int64_t len; - char buffer[12];} _str_27 = {1,11,"type != 3) { rslt3 = protoFnImpl_5(empty_list, var_22, arg1); @@ -9044,21 +8962,21 @@ return (rslt4); // --------- instance?_impl main body -------------- -Function fn_776 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_777}}}; -Value *protoImpl_778(List *closures, Value *arg0, Value *arg1) { +Function fn_766 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_767}}}; +Value *protoImpl_768(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_779 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_778}}}; +Function protoFn_769 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_768}}}; // --------- invoke_impl -------------- -Function fn_780; +Function fn_770; // --------- string-list_impl -------------- -Function fn_782; -Value *arityImpl_783(List *closures, Value *arg0) { +Function fn_772; +Value *arityImpl_773(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -9068,7 +8986,7 @@ varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_str_27, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_26, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); Value *rslt3 = protoFnImpl_137((List *)var_31, val2); List *varArgs4 = (List *)GC_malloc(sizeof(List)); @@ -9090,29 +9008,29 @@ Value *rslt7 = arityImpl_250((List *)var_31, (Value *)varArgs6); return (rslt7); }; -Value *protoImpl_784(List *closures, Value *arg0) { +Value *protoImpl_774(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_785 = {3, "string-list", 1, {&(FnArity){1, (List *)0, 0, protoImpl_784}}}; +Function protoFn_775 = {3, "string-list", 1, {&(FnArity){1, (List *)0, 0, protoImpl_774}}}; // --------- evaluate_impl -------------- -Function fn_786; +Function fn_776; // --------- anon -------------- -Function fn_788; -Value *arityImpl_789(List *closures, Value *arg0) { +Function fn_778; +Value *arityImpl_779(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = protoFnImpl_740((List *)var_31, arg0, val0); +Value *rslt1 = protoFnImpl_730((List *)var_31, arg0, val0); return (rslt1); }; -Value *arityImpl_787(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_777(List *closures, Value *arg0, Value *arg1) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -9121,33 +9039,33 @@ FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_789; +arity_1->fn = arityImpl_779; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_788 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_788->type = 3; -fn_788->name = "anon"; -fn_788->arityCount = 1; -fn_788->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_237((List *)var_31, val0, (Value *)fn_788); +Function *fn_778 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_778->type = 3; +fn_778->name = "anon"; +fn_778->arityCount = 1; +fn_778->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_237((List *)var_31, val0, (Value *)fn_778); return (rslt2); }; -Value *protoImpl_790(List *closures, Value *arg0, Value *arg1) { +Value *protoImpl_780(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_791 = {3, "evaluate", 1, {&(FnArity){2, (List *)0, 0, protoImpl_790}}}; +Function protoFn_781 = {3, "evaluate", 1, {&(FnArity){2, (List *)0, 0, protoImpl_780}}}; // --------- wrap_impl -------------- -Function fn_792; -Value *arityImpl_793(List *closures, Value *arg0, Value *arg1) { +Function fn_782; +Value *arityImpl_783(List *closures, Value *arg0, Value *arg1) { Value *rslt3; -if((var_742)->type != 3) { -rslt3 = protoFnImpl_5(empty_list, var_742, arg1); +if((var_732)->type != 3) { +rslt3 = protoFnImpl_5(empty_list, var_732, arg1); } else { -FnArity *arity0 = findFnArity(var_742, 1); +FnArity *arity0 = findFnArity(var_732, 1); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; rslt3 = fn2(arity0->closures, arg1); @@ -9161,7 +9079,7 @@ varArgs1->tail = (List *)0; varArgs1 = (List *)listCons(arg1, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_742)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_732)->name); abort(); } } @@ -9170,23 +9088,23 @@ return (rslt3); // --------- wrap_impl main body -------------- -Function fn_792 = {3, "wrap_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_793}}}; -Value *protoImpl_794(List *closures, Value *arg0, Value *arg1) { +Function fn_782 = {3, "wrap_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_783}}}; +Value *protoImpl_784(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_795 = {3, "wrap", 1, {&(FnArity){2, (List *)0, 0, protoImpl_794}}}; +Function protoFn_785 = {3, "wrap", 1, {&(FnArity){2, (List *)0, 0, protoImpl_784}}}; // --------- apply*_impl -------------- -Function fn_796; -Value *arityImpl_797(List *closures, Value *arg0, Value *arg1) { +Function fn_786; +Value *arityImpl_787(List *closures, Value *arg0, Value *arg1) { Value *rslt3; -if((var_743)->type != 3) { -rslt3 = protoFnImpl_7(empty_list, var_743, arg0, arg1); +if((var_733)->type != 3) { +rslt3 = protoFnImpl_7(empty_list, var_733, arg0, arg1); } else { -FnArity *arity0 = findFnArity(var_743, 2); +FnArity *arity0 = findFnArity(var_733, 2); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType2 *fn2 = (FnType2 *)arity0->fn; rslt3 = fn2(arity0->closures, arg0, arg1); @@ -9201,7 +9119,7 @@ varArgs1 = (List *)listCons(arg1, varArgs1); varArgs1 = (List *)listCons(arg0, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_743)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_733)->name); abort(); } } @@ -9210,18 +9128,18 @@ return (rslt3); // --------- apply*_impl main body -------------- -Function fn_796 = {3, "apply*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_797}}}; -Value *protoImpl_798(List *closures, Value *arg0, Value *arg1) { +Function fn_786 = {3, "apply*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_787}}}; +Value *protoImpl_788(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[3])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_799 = {3, "apply*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_798}}}; +Function protoFn_789 = {3, "apply*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_788}}}; // --------- extract_impl -------------- -Function fn_800; -Value *arityImpl_801(List *closures, Value *arg0) { +Function fn_790; +Value *arityImpl_791(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -9229,34 +9147,34 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_802(List *closures, Value *arg0) { +Value *protoImpl_792(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[4])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_803 = {3, "extract", 1, {&(FnArity){1, (List *)0, 0, protoImpl_802}}}; +Function protoFn_793 = {3, "extract", 1, {&(FnArity){1, (List *)0, 0, protoImpl_792}}}; // --------- zero_impl -------------- -Function fn_804; -Value *arityImpl_805(List *closures, Value *arg0) { -return ((Value *)&reified_768); +Function fn_794; +Value *arityImpl_795(List *closures, Value *arg0) { +return ((Value *)&reified_758); }; // --------- zero_impl main body -------------- -Function fn_804 = {3, "zero_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_805}}}; -Value *protoImpl_806(List *closures, Value *arg0) { +Function fn_794 = {3, "zero_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_795}}}; +Value *protoImpl_796(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[5])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_807 = {3, "zero", 1, {&(FnArity){1, (List *)0, 0, protoImpl_806}}}; +Function protoFn_797 = {3, "zero", 1, {&(FnArity){1, (List *)0, 0, protoImpl_796}}}; // --------- comp*_impl -------------- -Function fn_808; -Value *arityImpl_809(List *closures, Value *arg0, Value *arg1) { +Function fn_798; +Value *arityImpl_799(List *closures, Value *arg0, Value *arg1) { Value *rslt3; if((var_32)->type != 3) { rslt3 = protoFnImpl_7(empty_list, var_32, arg0, arg1); @@ -9281,10 +9199,10 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_32)->name); } } Value *rslt7; -if((var_775)->type != 3) { -rslt7 = protoFnImpl_5(empty_list, var_775, rslt3); +if((var_765)->type != 3) { +rslt7 = protoFnImpl_5(empty_list, var_765, rslt3); } else { -FnArity *arity4 = findFnArity(var_775, 1); +FnArity *arity4 = findFnArity(var_765, 1); if(arity4 != (FnArity *)0 && !arity4->variadic) { FnType1 *fn6 = (FnType1 *)arity4->fn; rslt7 = fn6(arity4->closures, rslt3); @@ -9298,7 +9216,7 @@ varArgs5->tail = (List *)0; varArgs5 = (List *)listCons(rslt3, varArgs5); rslt7 = fn6(arity4->closures, (Value *)varArgs5); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_775)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_765)->name); abort(); } } @@ -9307,18 +9225,18 @@ return (rslt7); // --------- comp*_impl main body -------------- -Function fn_808 = {3, "comp*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_809}}}; -Value *protoImpl_810(List *closures, Value *arg0, Value *arg1) { +Function fn_798 = {3, "comp*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_799}}}; +Value *protoImpl_800(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[6])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_811 = {3, "comp*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_810}}}; +Function protoFn_801 = {3, "comp*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_800}}}; // --------- .alts_impl -------------- -Function fn_812; -Value *arityImpl_813(List *closures, Value *arg0) { +Function fn_802; +Value *arityImpl_803(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -9326,87 +9244,87 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_814(List *closures, Value *arg0) { +Value *protoImpl_804(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[7])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_815 = {3, ".alts", 1, {&(FnArity){1, (List *)0, 0, protoImpl_814}}}; +Function protoFn_805 = {3, ".alts", 1, {&(FnArity){1, (List *)0, 0, protoImpl_804}}}; -Value *arityImpl_781(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_771(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_783; +arity_0->fn = arityImpl_773; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_782 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_782->type = 3; -fn_782->name = "string-list_impl"; -fn_782->arityCount = 1; -fn_782->arities[0] = arity_0; +Function *fn_772 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_772->type = 3; +fn_772->name = "string-list_impl"; +fn_772->arityCount = 1; +fn_772->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 2; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_787; +arity_1->fn = arityImpl_777; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_786 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_786->type = 3; -fn_786->name = "evaluate_impl"; -fn_786->arityCount = 1; -fn_786->arities[0] = arity_1; +Function *fn_776 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_776->type = 3; +fn_776->name = "evaluate_impl"; +fn_776->arityCount = 1; +fn_776->arities[0] = arity_1; FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_801; +arity_4->fn = arityImpl_791; arity_4->closures = listCons((Value *)arg1, (List *)arity_4->closures); -Function *fn_800 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_800->type = 3; -fn_800->name = "extract_impl"; -fn_800->arityCount = 1; -fn_800->arities[0] = arity_4; +Function *fn_790 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_790->type = 3; +fn_790->name = "extract_impl"; +fn_790->arityCount = 1; +fn_790->arities[0] = arity_4; FnArity *arity_7 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_7->count = 1; arity_7->closures = empty_list; arity_7->variadic = 0; -arity_7->fn = arityImpl_813; +arity_7->fn = arityImpl_803; arity_7->closures = listCons((Value *)arg1, (List *)arity_7->closures); -Function *fn_812 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_812->type = 3; -fn_812->name = ".alts_impl"; -fn_812->arityCount = 1; -fn_812->arities[0] = arity_7; +Function *fn_802 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_802->type = 3; +fn_802->name = ".alts_impl"; +fn_802->arityCount = 1; +fn_802->arities[0] = arity_7; ReifiedVal *reified_8 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 8); -reified_8->type = 17; +reified_8->type = 16; reified_8->implCount = 8; -reified_8->impls[0] = (Value *)fn_782; -reified_8->impls[1] = (Value *)fn_786; -reified_8->impls[2] = (Value *)&fn_792; -reified_8->impls[3] = (Value *)&fn_796; -reified_8->impls[4] = (Value *)fn_800; -reified_8->impls[5] = (Value *)&fn_804; -reified_8->impls[6] = (Value *)&fn_808; -reified_8->impls[7] = (Value *)fn_812; +reified_8->impls[0] = (Value *)fn_772; +reified_8->impls[1] = (Value *)fn_776; +reified_8->impls[2] = (Value *)&fn_782; +reified_8->impls[3] = (Value *)&fn_786; +reified_8->impls[4] = (Value *)fn_790; +reified_8->impls[5] = (Value *)&fn_794; +reified_8->impls[6] = (Value *)&fn_798; +reified_8->impls[7] = (Value *)fn_802; return ((Value *)reified_8); }; // --------- invoke_impl main body -------------- -Function fn_780 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_781}}}; -Value *protoImpl_816(List *closures, Value *arg0, Value *arg1) { +Function fn_770 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_771}}}; +Value *protoImpl_806(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_817 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_816}}}; +Function protoFn_807 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_806}}}; -ReifiedVal reified_818 = {16, 2, {(Value *)&fn_776, (Value *)&fn_780}}; -Value *var_775 = (Value *)&reified_818; -ProtoImpls *protoImpls_819; -Value *protoFnImpl_822(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_819); +ReifiedVal reified_808 = {15, 2, {(Value *)&fn_766, (Value *)&fn_770}}; +Value *var_765 = (Value *)&reified_808; +ProtoImpls *protoImpls_809; +Value *protoFnImpl_812(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_809); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.arg' %lld\n", arg0->type); abort(); @@ -9419,20 +9337,20 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_823 = {1, (List *)0, 0, protoFnImpl_822}; -Function protoFn_820 = {3, ".arg", 1, {&protoFnArity_823}}; +FnArity protoFnArity_813 = {1, (List *)0, 0, protoFnImpl_812}; +Function protoFn_810 = {3, ".arg", 1, {&protoFnArity_813}}; // forward declaration for 'pure' -Value *var_824; +Value *var_814; struct {int64_t type; int64_t len; - char buffer[8];} _str_28 = {1,7,"type != 3) { rslt3 = protoFnImpl_5(empty_list, var_22, arg1); @@ -9461,21 +9379,21 @@ return (rslt4); // --------- instance?_impl main body -------------- -Function fn_825 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_826}}}; -Value *protoImpl_827(List *closures, Value *arg0, Value *arg1) { +Function fn_815 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_816}}}; +Value *protoImpl_817(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_828 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_827}}}; +Function protoFn_818 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_817}}}; // --------- invoke_impl -------------- -Function fn_829; +Function fn_819; // --------- string-list_impl -------------- -Function fn_831; -Value *arityImpl_832(List *closures, Value *arg0) { +Function fn_821; +Value *arityImpl_822(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -9485,7 +9403,7 @@ varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_str_28, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_27, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); Value *rslt3 = protoFnImpl_137((List *)var_31, val2); List *varArgs4 = (List *)GC_malloc(sizeof(List)); @@ -9507,17 +9425,17 @@ Value *rslt7 = arityImpl_250((List *)var_31, (Value *)varArgs6); return (rslt7); }; -Value *protoImpl_833(List *closures, Value *arg0) { +Value *protoImpl_823(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_834 = {3, "string-list", 1, {&(FnArity){1, (List *)0, 0, protoImpl_833}}}; +Function protoFn_824 = {3, "string-list", 1, {&(FnArity){1, (List *)0, 0, protoImpl_823}}}; // --------- evaluate_impl -------------- -Function fn_835; -Value *arityImpl_836(List *closures, Value *arg0, Value *arg1) { +Function fn_825; +Value *arityImpl_826(List *closures, Value *arg0, Value *arg1) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -9547,17 +9465,17 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)arg1)->name); return (rslt4); }; -Value *protoImpl_837(List *closures, Value *arg0, Value *arg1) { +Value *protoImpl_827(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_838 = {3, "evaluate", 1, {&(FnArity){2, (List *)0, 0, protoImpl_837}}}; +Function protoFn_828 = {3, "evaluate", 1, {&(FnArity){2, (List *)0, 0, protoImpl_827}}}; // --------- =*_impl -------------- -Function fn_839; -Value *arityImpl_840(List *closures, Value *arg0, Value *arg1) { +Function fn_829; +Value *arityImpl_830(List *closures, Value *arg0, Value *arg1) { Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -9598,22 +9516,22 @@ Value *rslt8 = arityImpl_277((List *)var_31, (Value *)varArgs7); return (rslt8); }; -Value *protoImpl_841(List *closures, Value *arg0, Value *arg1) { +Value *protoImpl_831(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_842 = {3, "=*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_841}}}; +Function protoFn_832 = {3, "=*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_831}}}; // --------- wrap_impl -------------- -Function fn_843; -Value *arityImpl_844(List *closures, Value *arg0, Value *arg1) { +Function fn_833; +Value *arityImpl_834(List *closures, Value *arg0, Value *arg1) { Value *rslt3; -if((var_824)->type != 3) { -rslt3 = protoFnImpl_5(empty_list, var_824, arg1); +if((var_814)->type != 3) { +rslt3 = protoFnImpl_5(empty_list, var_814, arg1); } else { -FnArity *arity0 = findFnArity(var_824, 1); +FnArity *arity0 = findFnArity(var_814, 1); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; rslt3 = fn2(arity0->closures, arg1); @@ -9627,7 +9545,7 @@ varArgs1->tail = (List *)0; varArgs1 = (List *)listCons(arg1, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_824)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_814)->name); abort(); } } @@ -9636,23 +9554,23 @@ return (rslt3); // --------- wrap_impl main body -------------- -Function fn_843 = {3, "wrap_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_844}}}; -Value *protoImpl_845(List *closures, Value *arg0, Value *arg1) { +Function fn_833 = {3, "wrap_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_834}}}; +Value *protoImpl_835(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[3])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_846 = {3, "wrap", 1, {&(FnArity){2, (List *)0, 0, protoImpl_845}}}; +Function protoFn_836 = {3, "wrap", 1, {&(FnArity){2, (List *)0, 0, protoImpl_835}}}; // --------- apply*_impl -------------- -Function fn_847; -Value *arityImpl_848(List *closures, Value *arg0, Value *arg1) { +Function fn_837; +Value *arityImpl_838(List *closures, Value *arg0, Value *arg1) { Value *rslt3; -if((var_743)->type != 3) { -rslt3 = protoFnImpl_7(empty_list, var_743, arg0, arg1); +if((var_733)->type != 3) { +rslt3 = protoFnImpl_7(empty_list, var_733, arg0, arg1); } else { -FnArity *arity0 = findFnArity(var_743, 2); +FnArity *arity0 = findFnArity(var_733, 2); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType2 *fn2 = (FnType2 *)arity0->fn; rslt3 = fn2(arity0->closures, arg0, arg1); @@ -9667,7 +9585,7 @@ varArgs1 = (List *)listCons(arg1, varArgs1); varArgs1 = (List *)listCons(arg0, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_743)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_733)->name); abort(); } } @@ -9676,18 +9594,18 @@ return (rslt3); // --------- apply*_impl main body -------------- -Function fn_847 = {3, "apply*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_848}}}; -Value *protoImpl_849(List *closures, Value *arg0, Value *arg1) { +Function fn_837 = {3, "apply*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_838}}}; +Value *protoImpl_839(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[4])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_850 = {3, "apply*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_849}}}; +Function protoFn_840 = {3, "apply*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_839}}}; // --------- extract_impl -------------- -Function fn_851; -Value *arityImpl_852(List *closures, Value *arg0) { +Function fn_841; +Value *arityImpl_842(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -9695,34 +9613,34 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_853(List *closures, Value *arg0) { +Value *protoImpl_843(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[5])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_854 = {3, "extract", 1, {&(FnArity){1, (List *)0, 0, protoImpl_853}}}; +Function protoFn_844 = {3, "extract", 1, {&(FnArity){1, (List *)0, 0, protoImpl_843}}}; // --------- zero_impl -------------- -Function fn_855; -Value *arityImpl_856(List *closures, Value *arg0) { -return ((Value *)&reified_768); +Function fn_845; +Value *arityImpl_846(List *closures, Value *arg0) { +return ((Value *)&reified_758); }; // --------- zero_impl main body -------------- -Function fn_855 = {3, "zero_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_856}}}; -Value *protoImpl_857(List *closures, Value *arg0) { +Function fn_845 = {3, "zero_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_846}}}; +Value *protoImpl_847(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[6])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_858 = {3, "zero", 1, {&(FnArity){1, (List *)0, 0, protoImpl_857}}}; +Function protoFn_848 = {3, "zero", 1, {&(FnArity){1, (List *)0, 0, protoImpl_847}}}; // --------- comp*_impl -------------- -Function fn_859; -Value *arityImpl_860(List *closures, Value *arg0, Value *arg1) { +Function fn_849; +Value *arityImpl_850(List *closures, Value *arg0, Value *arg1) { Value *rslt3; if((var_32)->type != 3) { rslt3 = protoFnImpl_7(empty_list, var_32, arg0, arg1); @@ -9747,10 +9665,10 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_32)->name); } } Value *rslt7; -if((var_775)->type != 3) { -rslt7 = protoFnImpl_5(empty_list, var_775, rslt3); +if((var_765)->type != 3) { +rslt7 = protoFnImpl_5(empty_list, var_765, rslt3); } else { -FnArity *arity4 = findFnArity(var_775, 1); +FnArity *arity4 = findFnArity(var_765, 1); if(arity4 != (FnArity *)0 && !arity4->variadic) { FnType1 *fn6 = (FnType1 *)arity4->fn; rslt7 = fn6(arity4->closures, rslt3); @@ -9764,7 +9682,7 @@ varArgs5->tail = (List *)0; varArgs5 = (List *)listCons(rslt3, varArgs5); rslt7 = fn6(arity4->closures, (Value *)varArgs5); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_775)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_765)->name); abort(); } } @@ -9773,18 +9691,18 @@ return (rslt7); // --------- comp*_impl main body -------------- -Function fn_859 = {3, "comp*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_860}}}; -Value *protoImpl_861(List *closures, Value *arg0, Value *arg1) { +Function fn_849 = {3, "comp*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_850}}}; +Value *protoImpl_851(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[7])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_862 = {3, "comp*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_861}}}; +Function protoFn_852 = {3, "comp*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_851}}}; // --------- .arg_impl -------------- -Function fn_863; -Value *arityImpl_864(List *closures, Value *arg0) { +Function fn_853; +Value *arityImpl_854(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -9792,99 +9710,99 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_865(List *closures, Value *arg0) { +Value *protoImpl_855(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[8])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_866 = {3, ".arg", 1, {&(FnArity){1, (List *)0, 0, protoImpl_865}}}; +Function protoFn_856 = {3, ".arg", 1, {&(FnArity){1, (List *)0, 0, protoImpl_855}}}; -Value *arityImpl_830(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_820(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_832; +arity_0->fn = arityImpl_822; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_831 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_831->type = 3; -fn_831->name = "string-list_impl"; -fn_831->arityCount = 1; -fn_831->arities[0] = arity_0; +Function *fn_821 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_821->type = 3; +fn_821->name = "string-list_impl"; +fn_821->arityCount = 1; +fn_821->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 2; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_836; +arity_1->fn = arityImpl_826; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_835 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_835->type = 3; -fn_835->name = "evaluate_impl"; -fn_835->arityCount = 1; -fn_835->arities[0] = arity_1; +Function *fn_825 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_825->type = 3; +fn_825->name = "evaluate_impl"; +fn_825->arityCount = 1; +fn_825->arities[0] = arity_1; FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 2; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_840; +arity_2->fn = arityImpl_830; arity_2->closures = listCons((Value *)arg1, (List *)arity_2->closures); -Function *fn_839 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_839->type = 3; -fn_839->name = "=*_impl"; -fn_839->arityCount = 1; -fn_839->arities[0] = arity_2; +Function *fn_829 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_829->type = 3; +fn_829->name = "=*_impl"; +fn_829->arityCount = 1; +fn_829->arities[0] = arity_2; FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_852; +arity_5->fn = arityImpl_842; arity_5->closures = listCons((Value *)arg1, (List *)arity_5->closures); -Function *fn_851 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_851->type = 3; -fn_851->name = "extract_impl"; -fn_851->arityCount = 1; -fn_851->arities[0] = arity_5; +Function *fn_841 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_841->type = 3; +fn_841->name = "extract_impl"; +fn_841->arityCount = 1; +fn_841->arities[0] = arity_5; FnArity *arity_8 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_8->count = 1; arity_8->closures = empty_list; arity_8->variadic = 0; -arity_8->fn = arityImpl_864; +arity_8->fn = arityImpl_854; arity_8->closures = listCons((Value *)arg1, (List *)arity_8->closures); -Function *fn_863 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_863->type = 3; -fn_863->name = ".arg_impl"; -fn_863->arityCount = 1; -fn_863->arities[0] = arity_8; +Function *fn_853 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_853->type = 3; +fn_853->name = ".arg_impl"; +fn_853->arityCount = 1; +fn_853->arities[0] = arity_8; ReifiedVal *reified_9 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 9); -reified_9->type = 19; +reified_9->type = 18; reified_9->implCount = 9; -reified_9->impls[0] = (Value *)fn_831; -reified_9->impls[1] = (Value *)fn_835; -reified_9->impls[2] = (Value *)fn_839; -reified_9->impls[3] = (Value *)&fn_843; -reified_9->impls[4] = (Value *)&fn_847; -reified_9->impls[5] = (Value *)fn_851; -reified_9->impls[6] = (Value *)&fn_855; -reified_9->impls[7] = (Value *)&fn_859; -reified_9->impls[8] = (Value *)fn_863; +reified_9->impls[0] = (Value *)fn_821; +reified_9->impls[1] = (Value *)fn_825; +reified_9->impls[2] = (Value *)fn_829; +reified_9->impls[3] = (Value *)&fn_833; +reified_9->impls[4] = (Value *)&fn_837; +reified_9->impls[5] = (Value *)fn_841; +reified_9->impls[6] = (Value *)&fn_845; +reified_9->impls[7] = (Value *)&fn_849; +reified_9->impls[8] = (Value *)fn_853; return ((Value *)reified_9); }; // --------- invoke_impl main body -------------- -Function fn_829 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_830}}}; -Value *protoImpl_867(List *closures, Value *arg0, Value *arg1) { +Function fn_819 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_820}}}; +Value *protoImpl_857(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_868 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_867}}}; +Function protoFn_858 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_857}}}; -ReifiedVal reified_869 = {18, 2, {(Value *)&fn_825, (Value *)&fn_829}}; -Value *var_824 = (Value *)&reified_869; -ProtoImpls *protoImpls_870; -Value *protoFnImpl_873(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_870); +ReifiedVal reified_859 = {17, 2, {(Value *)&fn_815, (Value *)&fn_819}}; +Value *var_814 = (Value *)&reified_859; +ProtoImpls *protoImpls_860; +Value *protoFnImpl_863(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_860); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.fv' %lld\n", arg0->type); abort(); @@ -9897,12 +9815,12 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_874 = {1, (List *)0, 0, protoFnImpl_873}; -Function protoFn_871 = {3, ".fv", 1, {&protoFnArity_874}}; +FnArity protoFnArity_864 = {1, (List *)0, 0, protoFnImpl_863}; +Function protoFn_861 = {3, ".fv", 1, {&protoFnArity_864}}; -ProtoImpls *protoImpls_875; -Value *protoFnImpl_878(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_875); +ProtoImpls *protoImpls_865; +Value *protoFnImpl_868(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_865); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.args' %lld\n", arg0->type); abort(); @@ -9915,17 +9833,17 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_879 = {1, (List *)0, 0, protoFnImpl_878}; -Function protoFn_876 = {3, ".args", 1, {&protoFnArity_879}}; +FnArity protoFnArity_869 = {1, (List *)0, 0, protoFnImpl_868}; +Function protoFn_866 = {3, ".args", 1, {&protoFnArity_869}}; struct {int64_t type; int64_t len; - char buffer[11];} _str_29 = {1,10,"type != 3) { rslt3 = protoFnImpl_5(empty_list, var_22, arg1); @@ -9954,21 +9872,21 @@ return (rslt4); // --------- instance?_impl main body -------------- -Function fn_880 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_881}}}; -Value *protoImpl_882(List *closures, Value *arg0, Value *arg1) { +Function fn_870 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_871}}}; +Value *protoImpl_872(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_883 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_882}}}; +Function protoFn_873 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_872}}}; // --------- invoke_impl -------------- -Function fn_884; +Function fn_874; // --------- string-list_impl -------------- -Function fn_886; -Value *arityImpl_887(List *closures, Value *arg0) { +Function fn_876; +Value *arityImpl_877(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -9982,7 +9900,7 @@ varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_str_29, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_28, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); Value *rslt3 = protoFnImpl_137((List *)var_31, val2); List *varArgs4 = (List *)GC_malloc(sizeof(List)); @@ -10014,29 +9932,29 @@ Value *rslt11 = arityImpl_250((List *)var_31, (Value *)varArgs10); return (rslt11); }; -Value *protoImpl_888(List *closures, Value *arg0) { +Value *protoImpl_878(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_889 = {3, "string-list", 1, {&(FnArity){1, (List *)0, 0, protoImpl_888}}}; +Function protoFn_879 = {3, "string-list", 1, {&(FnArity){1, (List *)0, 0, protoImpl_878}}}; // --------- evaluate_impl -------------- -Function fn_890; +Function fn_880; // --------- anon -------------- -Function fn_892; -Value *arityImpl_893(List *closures, Value *arg0) { +Function fn_882; +Value *arityImpl_883(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = protoFnImpl_740((List *)var_31, arg0, val0); +Value *rslt1 = protoFnImpl_730((List *)var_31, arg0, val0); return (rslt1); }; -Value *arityImpl_891(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_881(List *closures, Value *arg0, Value *arg1) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -10049,30 +9967,30 @@ FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_893; +arity_1->fn = arityImpl_883; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_892 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_892->type = 3; -fn_892->name = "anon"; -fn_892->arityCount = 1; -fn_892->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_125((List *)var_31, val0, (Value *)fn_892); -Value *rslt4 = protoFnImpl_740((List *)var_31, val3, arg1); +Function *fn_882 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_882->type = 3; +fn_882->name = "anon"; +fn_882->arityCount = 1; +fn_882->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_125((List *)var_31, val0, (Value *)fn_882); +Value *rslt4 = protoFnImpl_730((List *)var_31, val3, arg1); Value *rslt5 = protoFnImpl_110((List *)var_31, rslt4, rslt2); return (rslt5); }; -Value *protoImpl_894(List *closures, Value *arg0, Value *arg1) { +Value *protoImpl_884(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_895 = {3, "evaluate", 1, {&(FnArity){2, (List *)0, 0, protoImpl_894}}}; +Function protoFn_885 = {3, "evaluate", 1, {&(FnArity){2, (List *)0, 0, protoImpl_884}}}; // --------- =*_impl -------------- -Function fn_896; -Value *arityImpl_897(List *closures, Value *arg0, Value *arg1) { +Function fn_886; +Value *arityImpl_887(List *closures, Value *arg0, Value *arg1) { Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -10125,22 +10043,22 @@ Value *rslt11 = arityImpl_277((List *)var_31, (Value *)varArgs10); return (rslt11); }; -Value *protoImpl_898(List *closures, Value *arg0, Value *arg1) { +Value *protoImpl_888(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_899 = {3, "=*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_898}}}; +Function protoFn_889 = {3, "=*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_888}}}; // --------- wrap_impl -------------- -Function fn_900; -Value *arityImpl_901(List *closures, Value *arg0, Value *arg1) { +Function fn_890; +Value *arityImpl_891(List *closures, Value *arg0, Value *arg1) { Value *rslt3; -if((var_742)->type != 3) { -rslt3 = protoFnImpl_5(empty_list, var_742, arg1); +if((var_732)->type != 3) { +rslt3 = protoFnImpl_5(empty_list, var_732, arg1); } else { -FnArity *arity0 = findFnArity(var_742, 1); +FnArity *arity0 = findFnArity(var_732, 1); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; rslt3 = fn2(arity0->closures, arg1); @@ -10154,7 +10072,7 @@ varArgs1->tail = (List *)0; varArgs1 = (List *)listCons(arg1, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_742)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_732)->name); abort(); } } @@ -10163,23 +10081,23 @@ return (rslt3); // --------- wrap_impl main body -------------- -Function fn_900 = {3, "wrap_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_901}}}; -Value *protoImpl_902(List *closures, Value *arg0, Value *arg1) { +Function fn_890 = {3, "wrap_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_891}}}; +Value *protoImpl_892(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[3])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_903 = {3, "wrap", 1, {&(FnArity){2, (List *)0, 0, protoImpl_902}}}; +Function protoFn_893 = {3, "wrap", 1, {&(FnArity){2, (List *)0, 0, protoImpl_892}}}; // --------- apply*_impl -------------- -Function fn_904; -Value *arityImpl_905(List *closures, Value *arg0, Value *arg1) { +Function fn_894; +Value *arityImpl_895(List *closures, Value *arg0, Value *arg1) { Value *rslt3; -if((var_743)->type != 3) { -rslt3 = protoFnImpl_7(empty_list, var_743, arg0, arg1); +if((var_733)->type != 3) { +rslt3 = protoFnImpl_7(empty_list, var_733, arg0, arg1); } else { -FnArity *arity0 = findFnArity(var_743, 2); +FnArity *arity0 = findFnArity(var_733, 2); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType2 *fn2 = (FnType2 *)arity0->fn; rslt3 = fn2(arity0->closures, arg0, arg1); @@ -10194,7 +10112,7 @@ varArgs1 = (List *)listCons(arg1, varArgs1); varArgs1 = (List *)listCons(arg0, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_743)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_733)->name); abort(); } } @@ -10203,18 +10121,18 @@ return (rslt3); // --------- apply*_impl main body -------------- -Function fn_904 = {3, "apply*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_905}}}; -Value *protoImpl_906(List *closures, Value *arg0, Value *arg1) { +Function fn_894 = {3, "apply*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_895}}}; +Value *protoImpl_896(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[4])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_907 = {3, "apply*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_906}}}; +Function protoFn_897 = {3, "apply*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_896}}}; // --------- extract_impl -------------- -Function fn_908; -Value *arityImpl_909(List *closures, Value *arg0) { +Function fn_898; +Value *arityImpl_899(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -10234,34 +10152,34 @@ Value *rslt3 = arityImpl_119((List *)var_31, (Value *)varArgs2); return (rslt3); }; -Value *protoImpl_910(List *closures, Value *arg0) { +Value *protoImpl_900(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[5])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_911 = {3, "extract", 1, {&(FnArity){1, (List *)0, 0, protoImpl_910}}}; +Function protoFn_901 = {3, "extract", 1, {&(FnArity){1, (List *)0, 0, protoImpl_900}}}; // --------- zero_impl -------------- -Function fn_912; -Value *arityImpl_913(List *closures, Value *arg0) { -return ((Value *)&reified_768); +Function fn_902; +Value *arityImpl_903(List *closures, Value *arg0) { +return ((Value *)&reified_758); }; // --------- zero_impl main body -------------- -Function fn_912 = {3, "zero_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_913}}}; -Value *protoImpl_914(List *closures, Value *arg0) { +Function fn_902 = {3, "zero_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_903}}}; +Value *protoImpl_904(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[6])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_915 = {3, "zero", 1, {&(FnArity){1, (List *)0, 0, protoImpl_914}}}; +Function protoFn_905 = {3, "zero", 1, {&(FnArity){1, (List *)0, 0, protoImpl_904}}}; // --------- comp*_impl -------------- -Function fn_916; -Value *arityImpl_917(List *closures, Value *arg0, Value *arg1) { +Function fn_906; +Value *arityImpl_907(List *closures, Value *arg0, Value *arg1) { Value *rslt3; if((var_32)->type != 3) { rslt3 = protoFnImpl_7(empty_list, var_32, arg0, arg1); @@ -10286,10 +10204,10 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_32)->name); } } Value *rslt7; -if((var_775)->type != 3) { -rslt7 = protoFnImpl_5(empty_list, var_775, rslt3); +if((var_765)->type != 3) { +rslt7 = protoFnImpl_5(empty_list, var_765, rslt3); } else { -FnArity *arity4 = findFnArity(var_775, 1); +FnArity *arity4 = findFnArity(var_765, 1); if(arity4 != (FnArity *)0 && !arity4->variadic) { FnType1 *fn6 = (FnType1 *)arity4->fn; rslt7 = fn6(arity4->closures, rslt3); @@ -10303,7 +10221,7 @@ varArgs5->tail = (List *)0; varArgs5 = (List *)listCons(rslt3, varArgs5); rslt7 = fn6(arity4->closures, (Value *)varArgs5); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_775)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_765)->name); abort(); } } @@ -10312,18 +10230,18 @@ return (rslt7); // --------- comp*_impl main body -------------- -Function fn_916 = {3, "comp*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_917}}}; -Value *protoImpl_918(List *closures, Value *arg0, Value *arg1) { +Function fn_906 = {3, "comp*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_907}}}; +Value *protoImpl_908(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[7])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_919 = {3, "comp*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_918}}}; +Function protoFn_909 = {3, "comp*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_908}}}; // --------- .fv_impl -------------- -Function fn_920; -Value *arityImpl_921(List *closures, Value *arg0) { +Function fn_910; +Value *arityImpl_911(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -10331,17 +10249,17 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_922(List *closures, Value *arg0) { +Value *protoImpl_912(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[8])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_923 = {3, ".fv", 1, {&(FnArity){1, (List *)0, 0, protoImpl_922}}}; +Function protoFn_913 = {3, ".fv", 1, {&(FnArity){1, (List *)0, 0, protoImpl_912}}}; // --------- .args_impl -------------- -Function fn_924; -Value *arityImpl_925(List *closures, Value *arg0) { +Function fn_914; +Value *arityImpl_915(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -10349,115 +10267,115 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_926(List *closures, Value *arg0) { +Value *protoImpl_916(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[9])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_927 = {3, ".args", 1, {&(FnArity){1, (List *)0, 0, protoImpl_926}}}; +Function protoFn_917 = {3, ".args", 1, {&(FnArity){1, (List *)0, 0, protoImpl_916}}}; -Value *arityImpl_885(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Value *arityImpl_875(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_887; +arity_0->fn = arityImpl_877; arity_0->closures = listCons((Value *)arg2, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_886 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_886->type = 3; -fn_886->name = "string-list_impl"; -fn_886->arityCount = 1; -fn_886->arities[0] = arity_0; +Function *fn_876 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_876->type = 3; +fn_876->name = "string-list_impl"; +fn_876->arityCount = 1; +fn_876->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 2; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_891; +arity_1->fn = arityImpl_881; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg2, (List *)arity_1->closures); -Function *fn_890 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_890->type = 3; -fn_890->name = "evaluate_impl"; -fn_890->arityCount = 1; -fn_890->arities[0] = arity_1; +Function *fn_880 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_880->type = 3; +fn_880->name = "evaluate_impl"; +fn_880->arityCount = 1; +fn_880->arities[0] = arity_1; FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 2; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_897; +arity_2->fn = arityImpl_887; arity_2->closures = listCons((Value *)arg2, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg1, (List *)arity_2->closures); -Function *fn_896 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_896->type = 3; -fn_896->name = "=*_impl"; -fn_896->arityCount = 1; -fn_896->arities[0] = arity_2; +Function *fn_886 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_886->type = 3; +fn_886->name = "=*_impl"; +fn_886->arityCount = 1; +fn_886->arities[0] = arity_2; FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_909; +arity_5->fn = arityImpl_899; arity_5->closures = listCons((Value *)arg2, (List *)arity_5->closures); arity_5->closures = listCons((Value *)arg1, (List *)arity_5->closures); -Function *fn_908 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_908->type = 3; -fn_908->name = "extract_impl"; -fn_908->arityCount = 1; -fn_908->arities[0] = arity_5; +Function *fn_898 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_898->type = 3; +fn_898->name = "extract_impl"; +fn_898->arityCount = 1; +fn_898->arities[0] = arity_5; FnArity *arity_8 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_8->count = 1; arity_8->closures = empty_list; arity_8->variadic = 0; -arity_8->fn = arityImpl_921; +arity_8->fn = arityImpl_911; arity_8->closures = listCons((Value *)arg1, (List *)arity_8->closures); -Function *fn_920 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_920->type = 3; -fn_920->name = ".fv_impl"; -fn_920->arityCount = 1; -fn_920->arities[0] = arity_8; +Function *fn_910 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_910->type = 3; +fn_910->name = ".fv_impl"; +fn_910->arityCount = 1; +fn_910->arities[0] = arity_8; FnArity *arity_9 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_9->count = 1; arity_9->closures = empty_list; arity_9->variadic = 0; -arity_9->fn = arityImpl_925; +arity_9->fn = arityImpl_915; arity_9->closures = listCons((Value *)arg2, (List *)arity_9->closures); -Function *fn_924 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_924->type = 3; -fn_924->name = ".args_impl"; -fn_924->arityCount = 1; -fn_924->arities[0] = arity_9; +Function *fn_914 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_914->type = 3; +fn_914->name = ".args_impl"; +fn_914->arityCount = 1; +fn_914->arities[0] = arity_9; ReifiedVal *reified_10 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 10); -reified_10->type = 21; +reified_10->type = 20; reified_10->implCount = 10; -reified_10->impls[0] = (Value *)fn_886; -reified_10->impls[1] = (Value *)fn_890; -reified_10->impls[2] = (Value *)fn_896; -reified_10->impls[3] = (Value *)&fn_900; -reified_10->impls[4] = (Value *)&fn_904; -reified_10->impls[5] = (Value *)fn_908; -reified_10->impls[6] = (Value *)&fn_912; -reified_10->impls[7] = (Value *)&fn_916; -reified_10->impls[8] = (Value *)fn_920; -reified_10->impls[9] = (Value *)fn_924; +reified_10->impls[0] = (Value *)fn_876; +reified_10->impls[1] = (Value *)fn_880; +reified_10->impls[2] = (Value *)fn_886; +reified_10->impls[3] = (Value *)&fn_890; +reified_10->impls[4] = (Value *)&fn_894; +reified_10->impls[5] = (Value *)fn_898; +reified_10->impls[6] = (Value *)&fn_902; +reified_10->impls[7] = (Value *)&fn_906; +reified_10->impls[8] = (Value *)fn_910; +reified_10->impls[9] = (Value *)fn_914; return ((Value *)reified_10); }; // --------- invoke_impl main body -------------- -Function fn_884 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_885}}}; -Value *protoImpl_928(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Function fn_874 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_875}}}; +Value *protoImpl_918(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType3 *)arityPtr->fn)(arityPtr->closures, arg0, arg1, arg2)); }; -Function protoFn_929 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_928}}}; +Function protoFn_919 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_918}}}; -ReifiedVal reified_930 = {20, 2, {(Value *)&fn_880, (Value *)&fn_884}}; -Value *var_743 = (Value *)&reified_930; -ProtoImpls *protoImpls_931; -Value *protoFnImpl_934(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_931); +ReifiedVal reified_920 = {19, 2, {(Value *)&fn_870, (Value *)&fn_874}}; +Value *var_733 = (Value *)&reified_920; +ProtoImpls *protoImpls_921; +Value *protoFnImpl_924(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_921); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.v' %lld\n", arg0->type); abort(); @@ -10470,20 +10388,20 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_935 = {1, (List *)0, 0, protoFnImpl_934}; -Function protoFn_932 = {3, ".v", 1, {&protoFnArity_935}}; +FnArity protoFnArity_925 = {1, (List *)0, 0, protoFnImpl_924}; +Function protoFn_922 = {3, ".v", 1, {&protoFnArity_925}}; // forward declaration for 'free' -Value *var_936; +Value *var_926; struct {int64_t type; int64_t len; - char buffer[8];} _str_30 = {1,7,"type != 3) { rslt3 = protoFnImpl_5(empty_list, var_22, arg1); @@ -10512,21 +10430,21 @@ return (rslt4); // --------- instance?_impl main body -------------- -Function fn_937 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_938}}}; -Value *protoImpl_939(List *closures, Value *arg0, Value *arg1) { +Function fn_927 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_928}}}; +Value *protoImpl_929(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_940 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_939}}}; +Function protoFn_930 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_929}}}; // --------- invoke_impl -------------- -Function fn_941; +Function fn_931; // --------- string-list_impl -------------- -Function fn_943; -Value *arityImpl_944(List *closures, Value *arg0) { +Function fn_933; +Value *arityImpl_934(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -10536,7 +10454,7 @@ varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_str_30, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_29, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); Value *rslt3 = protoFnImpl_137((List *)var_31, val2); List *varArgs4 = (List *)GC_malloc(sizeof(List)); @@ -10558,17 +10476,17 @@ Value *rslt7 = arityImpl_250((List *)var_31, (Value *)varArgs6); return (rslt7); }; -Value *protoImpl_945(List *closures, Value *arg0) { +Value *protoImpl_935(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_946 = {3, "string-list", 1, {&(FnArity){1, (List *)0, 0, protoImpl_945}}}; +Function protoFn_936 = {3, "string-list", 1, {&(FnArity){1, (List *)0, 0, protoImpl_935}}}; // --------- evaluate_impl -------------- -Function fn_947; -Value *arityImpl_948(List *closures, Value *arg0, Value *arg1) { +Function fn_937; +Value *arityImpl_938(List *closures, Value *arg0, Value *arg1) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -10598,17 +10516,17 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)arg1)->name); return (rslt4); }; -Value *protoImpl_949(List *closures, Value *arg0, Value *arg1) { +Value *protoImpl_939(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_950 = {3, "evaluate", 1, {&(FnArity){2, (List *)0, 0, protoImpl_949}}}; +Function protoFn_940 = {3, "evaluate", 1, {&(FnArity){2, (List *)0, 0, protoImpl_939}}}; // --------- =*_impl -------------- -Function fn_951; -Value *arityImpl_952(List *closures, Value *arg0, Value *arg1) { +Function fn_941; +Value *arityImpl_942(List *closures, Value *arg0, Value *arg1) { Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -10649,22 +10567,22 @@ Value *rslt8 = arityImpl_277((List *)var_31, (Value *)varArgs7); return (rslt8); }; -Value *protoImpl_953(List *closures, Value *arg0, Value *arg1) { +Value *protoImpl_943(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_954 = {3, "=*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_953}}}; +Function protoFn_944 = {3, "=*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_943}}}; // --------- wrap_impl -------------- -Function fn_955; -Value *arityImpl_956(List *closures, Value *arg0, Value *arg1) { +Function fn_945; +Value *arityImpl_946(List *closures, Value *arg0, Value *arg1) { Value *rslt3; -if((var_936)->type != 3) { -rslt3 = protoFnImpl_5(empty_list, var_936, arg1); +if((var_926)->type != 3) { +rslt3 = protoFnImpl_5(empty_list, var_926, arg1); } else { -FnArity *arity0 = findFnArity(var_936, 1); +FnArity *arity0 = findFnArity(var_926, 1); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; rslt3 = fn2(arity0->closures, arg1); @@ -10678,7 +10596,7 @@ varArgs1->tail = (List *)0; varArgs1 = (List *)listCons(arg1, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -10687,23 +10605,23 @@ return (rslt3); // --------- wrap_impl main body -------------- -Function fn_955 = {3, "wrap_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_956}}}; -Value *protoImpl_957(List *closures, Value *arg0, Value *arg1) { +Function fn_945 = {3, "wrap_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_946}}}; +Value *protoImpl_947(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[3])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_958 = {3, "wrap", 1, {&(FnArity){2, (List *)0, 0, protoImpl_957}}}; +Function protoFn_948 = {3, "wrap", 1, {&(FnArity){2, (List *)0, 0, protoImpl_947}}}; // --------- apply*_impl -------------- -Function fn_959; -Value *arityImpl_960(List *closures, Value *arg0, Value *arg1) { +Function fn_949; +Value *arityImpl_950(List *closures, Value *arg0, Value *arg1) { Value *rslt3; -if((var_743)->type != 3) { -rslt3 = protoFnImpl_7(empty_list, var_743, arg0, arg1); +if((var_733)->type != 3) { +rslt3 = protoFnImpl_7(empty_list, var_733, arg0, arg1); } else { -FnArity *arity0 = findFnArity(var_743, 2); +FnArity *arity0 = findFnArity(var_733, 2); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType2 *fn2 = (FnType2 *)arity0->fn; rslt3 = fn2(arity0->closures, arg0, arg1); @@ -10718,7 +10636,7 @@ varArgs1 = (List *)listCons(arg1, varArgs1); varArgs1 = (List *)listCons(arg0, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_743)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_733)->name); abort(); } } @@ -10727,18 +10645,18 @@ return (rslt3); // --------- apply*_impl main body -------------- -Function fn_959 = {3, "apply*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_960}}}; -Value *protoImpl_961(List *closures, Value *arg0, Value *arg1) { +Function fn_949 = {3, "apply*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_950}}}; +Value *protoImpl_951(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[4])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_962 = {3, "apply*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_961}}}; +Function protoFn_952 = {3, "apply*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_951}}}; // --------- extract_impl -------------- -Function fn_963; -Value *arityImpl_964(List *closures, Value *arg0) { +Function fn_953; +Value *arityImpl_954(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -10746,34 +10664,34 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_965(List *closures, Value *arg0) { +Value *protoImpl_955(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[5])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_966 = {3, "extract", 1, {&(FnArity){1, (List *)0, 0, protoImpl_965}}}; +Function protoFn_956 = {3, "extract", 1, {&(FnArity){1, (List *)0, 0, protoImpl_955}}}; // --------- zero_impl -------------- -Function fn_967; -Value *arityImpl_968(List *closures, Value *arg0) { -return ((Value *)&reified_768); +Function fn_957; +Value *arityImpl_958(List *closures, Value *arg0) { +return ((Value *)&reified_758); }; // --------- zero_impl main body -------------- -Function fn_967 = {3, "zero_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_968}}}; -Value *protoImpl_969(List *closures, Value *arg0) { +Function fn_957 = {3, "zero_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_958}}}; +Value *protoImpl_959(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[6])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_970 = {3, "zero", 1, {&(FnArity){1, (List *)0, 0, protoImpl_969}}}; +Function protoFn_960 = {3, "zero", 1, {&(FnArity){1, (List *)0, 0, protoImpl_959}}}; // --------- comp*_impl -------------- -Function fn_971; -Value *arityImpl_972(List *closures, Value *arg0, Value *arg1) { +Function fn_961; +Value *arityImpl_962(List *closures, Value *arg0, Value *arg1) { Value *rslt3; if((var_32)->type != 3) { rslt3 = protoFnImpl_7(empty_list, var_32, arg0, arg1); @@ -10798,10 +10716,10 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_32)->name); } } Value *rslt7; -if((var_775)->type != 3) { -rslt7 = protoFnImpl_5(empty_list, var_775, rslt3); +if((var_765)->type != 3) { +rslt7 = protoFnImpl_5(empty_list, var_765, rslt3); } else { -FnArity *arity4 = findFnArity(var_775, 1); +FnArity *arity4 = findFnArity(var_765, 1); if(arity4 != (FnArity *)0 && !arity4->variadic) { FnType1 *fn6 = (FnType1 *)arity4->fn; rslt7 = fn6(arity4->closures, rslt3); @@ -10815,7 +10733,7 @@ varArgs5->tail = (List *)0; varArgs5 = (List *)listCons(rslt3, varArgs5); rslt7 = fn6(arity4->closures, (Value *)varArgs5); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_775)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_765)->name); abort(); } } @@ -10824,18 +10742,18 @@ return (rslt7); // --------- comp*_impl main body -------------- -Function fn_971 = {3, "comp*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_972}}}; -Value *protoImpl_973(List *closures, Value *arg0, Value *arg1) { +Function fn_961 = {3, "comp*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_962}}}; +Value *protoImpl_963(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[7])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_974 = {3, "comp*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_973}}}; +Function protoFn_964 = {3, "comp*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_963}}}; // --------- .v_impl -------------- -Function fn_975; -Value *arityImpl_976(List *closures, Value *arg0) { +Function fn_965; +Value *arityImpl_966(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -10843,105 +10761,105 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_977(List *closures, Value *arg0) { +Value *protoImpl_967(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[8])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_978 = {3, ".v", 1, {&(FnArity){1, (List *)0, 0, protoImpl_977}}}; +Function protoFn_968 = {3, ".v", 1, {&(FnArity){1, (List *)0, 0, protoImpl_967}}}; -Value *arityImpl_942(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_932(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_944; +arity_0->fn = arityImpl_934; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_943 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_943->type = 3; -fn_943->name = "string-list_impl"; -fn_943->arityCount = 1; -fn_943->arities[0] = arity_0; +Function *fn_933 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_933->type = 3; +fn_933->name = "string-list_impl"; +fn_933->arityCount = 1; +fn_933->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 2; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_948; +arity_1->fn = arityImpl_938; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_947 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_947->type = 3; -fn_947->name = "evaluate_impl"; -fn_947->arityCount = 1; -fn_947->arities[0] = arity_1; +Function *fn_937 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_937->type = 3; +fn_937->name = "evaluate_impl"; +fn_937->arityCount = 1; +fn_937->arities[0] = arity_1; FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 2; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_952; +arity_2->fn = arityImpl_942; arity_2->closures = listCons((Value *)arg1, (List *)arity_2->closures); -Function *fn_951 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_951->type = 3; -fn_951->name = "=*_impl"; -fn_951->arityCount = 1; -fn_951->arities[0] = arity_2; +Function *fn_941 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_941->type = 3; +fn_941->name = "=*_impl"; +fn_941->arityCount = 1; +fn_941->arities[0] = arity_2; FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_964; +arity_5->fn = arityImpl_954; arity_5->closures = listCons((Value *)arg1, (List *)arity_5->closures); -Function *fn_963 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_963->type = 3; -fn_963->name = "extract_impl"; -fn_963->arityCount = 1; -fn_963->arities[0] = arity_5; +Function *fn_953 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_953->type = 3; +fn_953->name = "extract_impl"; +fn_953->arityCount = 1; +fn_953->arities[0] = arity_5; FnArity *arity_8 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_8->count = 1; arity_8->closures = empty_list; arity_8->variadic = 0; -arity_8->fn = arityImpl_976; +arity_8->fn = arityImpl_966; arity_8->closures = listCons((Value *)arg1, (List *)arity_8->closures); -Function *fn_975 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_975->type = 3; -fn_975->name = ".v_impl"; -fn_975->arityCount = 1; -fn_975->arities[0] = arity_8; +Function *fn_965 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_965->type = 3; +fn_965->name = ".v_impl"; +fn_965->arityCount = 1; +fn_965->arities[0] = arity_8; ReifiedVal *reified_9 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 9); -reified_9->type = 23; +reified_9->type = 22; reified_9->implCount = 9; -reified_9->impls[0] = (Value *)fn_943; -reified_9->impls[1] = (Value *)fn_947; -reified_9->impls[2] = (Value *)fn_951; -reified_9->impls[3] = (Value *)&fn_955; -reified_9->impls[4] = (Value *)&fn_959; -reified_9->impls[5] = (Value *)fn_963; -reified_9->impls[6] = (Value *)&fn_967; -reified_9->impls[7] = (Value *)&fn_971; -reified_9->impls[8] = (Value *)fn_975; +reified_9->impls[0] = (Value *)fn_933; +reified_9->impls[1] = (Value *)fn_937; +reified_9->impls[2] = (Value *)fn_941; +reified_9->impls[3] = (Value *)&fn_945; +reified_9->impls[4] = (Value *)&fn_949; +reified_9->impls[5] = (Value *)fn_953; +reified_9->impls[6] = (Value *)&fn_957; +reified_9->impls[7] = (Value *)&fn_961; +reified_9->impls[8] = (Value *)fn_965; return ((Value *)reified_9); }; // --------- invoke_impl main body -------------- -Function fn_941 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_942}}}; -Value *protoImpl_979(List *closures, Value *arg0, Value *arg1) { +Function fn_931 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_932}}}; +Value *protoImpl_969(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_980 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_979}}}; +Function protoFn_970 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_969}}}; -ReifiedVal reified_981 = {22, 2, {(Value *)&fn_937, (Value *)&fn_941}}; -Value *var_936 = (Value *)&reified_981; +ReifiedVal reified_971 = {21, 2, {(Value *)&fn_927, (Value *)&fn_931}}; +Value *var_926 = (Value *)&reified_971; // --------- free-val -------------- -Function fn_982; -Value *arityImpl_983(List *closures, Value *arg0) { +Function fn_972; +Value *arityImpl_973(List *closures, Value *arg0) { Value *rslt3; -if((var_936)->type != 3) { -rslt3 = protoFnImpl_5(empty_list, var_936, arg0); +if((var_926)->type != 3) { +rslt3 = protoFnImpl_5(empty_list, var_926, arg0); } else { -FnArity *arity0 = findFnArity(var_936, 1); +FnArity *arity0 = findFnArity(var_926, 1); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; rslt3 = fn2(arity0->closures, arg0); @@ -10955,7 +10873,7 @@ varArgs1->tail = (List *)0; varArgs1 = (List *)listCons(arg0, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -10964,15 +10882,15 @@ return (rslt3); // --------- free-val main body -------------- -Function fn_982 = {3, "free-val", 1, {&(FnArity){1, (List *)0, 0, arityImpl_983}}}; -Value *var_742 = (Value *)&fn_982; +Function fn_972 = {3, "free-val", 1, {&(FnArity){1, (List *)0, 0, arityImpl_973}}}; +Value *var_732 = (Value *)&fn_972; // --------- state-maybe -------------- -Function fn_984; +Function fn_974; // --------- anon -------------- -Function fn_986; -Value *arityImpl_987(List *closures, Value *arg0) { +Function fn_976; +Value *arityImpl_977(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -10988,26 +10906,26 @@ Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); return (rslt2); }; -Value *arityImpl_985(List *closures, Value *arg0) { +Value *arityImpl_975(List *closures, Value *arg0) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_987; +arity_0->fn = arityImpl_977; arity_0->closures = listCons((Value *)arg0, (List *)arity_0->closures); -Function *fn_986 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_986->type = 3; -fn_986->name = "anon"; -fn_986->arityCount = 1; -fn_986->arities[0] = arity_0; +Function *fn_976 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_976->type = 3; +fn_976->name = "anon"; +fn_976->arityCount = 1; +fn_976->arities[0] = arity_0; Value *rslt4; -if((var_689)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, var_689, (Value *)fn_986); +if((var_679)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, var_679, (Value *)fn_976); } else { -FnArity *arity1 = findFnArity(var_689, 1); +FnArity *arity1 = findFnArity(var_679, 1); if(arity1 != (FnArity *)0 && !arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; -rslt4 = fn3(arity1->closures, (Value *)fn_986); +rslt4 = fn3(arity1->closures, (Value *)fn_976); } else if(arity1 != (FnArity *)0 && arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -11015,10 +10933,10 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)fn_986, varArgs2); +varArgs2 = (List *)listCons((Value *)fn_976, varArgs2); rslt4 = fn3(arity1->closures, (Value *)varArgs2); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_689)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_679)->name); abort(); } } @@ -11027,14 +10945,14 @@ return (rslt4); // --------- state-maybe main body -------------- -Function fn_984 = {3, "state-maybe", 1, {&(FnArity){1, (List *)0, 0, arityImpl_985}}}; +Function fn_974 = {3, "state-maybe", 1, {&(FnArity){1, (List *)0, 0, arityImpl_975}}}; // --------- update-state -------------- -Function fn_989; +Function fn_979; // --------- anon -------------- -Function fn_991; -Value *arityImpl_992(List *closures, Value *arg0) { +Function fn_981; +Value *arityImpl_982(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -11072,26 +10990,26 @@ Value *rslt6 = arityImpl_119((List *)var_31, (Value *)varArgs5); return (rslt6); }; -Value *arityImpl_990(List *closures, Value *arg0) { +Value *arityImpl_980(List *closures, Value *arg0) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_992; +arity_0->fn = arityImpl_982; arity_0->closures = listCons((Value *)arg0, (List *)arity_0->closures); -Function *fn_991 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_991->type = 3; -fn_991->name = "anon"; -fn_991->arityCount = 1; -fn_991->arities[0] = arity_0; +Function *fn_981 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_981->type = 3; +fn_981->name = "anon"; +fn_981->arityCount = 1; +fn_981->arities[0] = arity_0; Value *rslt4; -if((var_689)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, var_689, (Value *)fn_991); +if((var_679)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, var_679, (Value *)fn_981); } else { -FnArity *arity1 = findFnArity(var_689, 1); +FnArity *arity1 = findFnArity(var_679, 1); if(arity1 != (FnArity *)0 && !arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; -rslt4 = fn3(arity1->closures, (Value *)fn_991); +rslt4 = fn3(arity1->closures, (Value *)fn_981); } else if(arity1 != (FnArity *)0 && arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -11099,10 +11017,10 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)fn_991, varArgs2); +varArgs2 = (List *)listCons((Value *)fn_981, varArgs2); rslt4 = fn3(arity1->closures, (Value *)varArgs2); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_689)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_679)->name); abort(); } } @@ -11111,11 +11029,11 @@ return (rslt4); // --------- update-state main body -------------- -Function fn_989 = {3, "update-state", 1, {&(FnArity){1, (List *)0, 0, arityImpl_990}}}; +Function fn_979 = {3, "update-state", 1, {&(FnArity){1, (List *)0, 0, arityImpl_980}}}; // --------- =*_impl -------------- -Function fn_994; -Value *arityImpl_995(List *closures, Value *arg0, Value *arg1) { +Function fn_984; +Value *arityImpl_985(List *closures, Value *arg0, Value *arg1) { Value *rslt3; if((var_22)->type != 3) { rslt3 = protoFnImpl_5(empty_list, var_22, arg0); @@ -11166,29 +11084,29 @@ return (rslt8); // --------- =*_impl main body -------------- -Function fn_994 = {3, "=*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_995}}}; -Value *protoImpl_996(List *closures, Value *arg0, Value *arg1) { +Function fn_984 = {3, "=*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_985}}}; +Value *protoImpl_986(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_997 = {3, "=*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_996}}}; +Function protoFn_987 = {3, "=*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_986}}}; -ReifiedVal reified_998 = {24, 1, {(Value *)&fn_994}}; +ReifiedVal reified_988 = {23, 1, {(Value *)&fn_984}}; // --------- get-val -------------- -Function fn_1000; +Function fn_990; // --------- anon -------------- -Function fn_1002; -Value *arityImpl_1003(List *closures, Value *arg0) { +Function fn_992; +Value *arityImpl_993(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = protoFnImpl_261((List *)var_31, arg0, val0, (Value *)&reified_998); +Value *rslt1 = protoFnImpl_261((List *)var_31, arg0, val0, (Value *)&reified_988); Value *cond2; -Value *rslt5 = arityImpl_283((List *)var_31, (Value *)&reified_998, rslt1); +Value *rslt5 = arityImpl_283((List *)var_31, (Value *)&reified_988, rslt1); if (isTrue(rslt5)) { cond2 = var_31; @@ -11206,26 +11124,26 @@ cond2 = rslt4; return (cond2); }; -Value *arityImpl_1001(List *closures, Value *arg0) { +Value *arityImpl_991(List *closures, Value *arg0) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_1003; +arity_0->fn = arityImpl_993; arity_0->closures = listCons((Value *)arg0, (List *)arity_0->closures); -Function *fn_1002 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1002->type = 3; -fn_1002->name = "anon"; -fn_1002->arityCount = 1; -fn_1002->arities[0] = arity_0; +Function *fn_992 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_992->type = 3; +fn_992->name = "anon"; +fn_992->arityCount = 1; +fn_992->arities[0] = arity_0; Value *rslt4; -if((var_689)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, var_689, (Value *)fn_1002); +if((var_679)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, var_679, (Value *)fn_992); } else { -FnArity *arity1 = findFnArity(var_689, 1); +FnArity *arity1 = findFnArity(var_679, 1); if(arity1 != (FnArity *)0 && !arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; -rslt4 = fn3(arity1->closures, (Value *)fn_1002); +rslt4 = fn3(arity1->closures, (Value *)fn_992); } else if(arity1 != (FnArity *)0 && arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -11233,10 +11151,10 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)fn_1002, varArgs2); +varArgs2 = (List *)listCons((Value *)fn_992, varArgs2); rslt4 = fn3(arity1->closures, (Value *)varArgs2); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_689)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_679)->name); abort(); } } @@ -11245,8 +11163,8 @@ return (rslt4); // --------- anon -------------- -Function fn_1005; -Value *arityImpl_1006(List *closures, Value *arg0) { +Function fn_995; +Value *arityImpl_996(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -11267,27 +11185,27 @@ Value *rslt4 = arityImpl_119((List *)var_31, (Value *)varArgs3); return (rslt4); }; -Value *arityImpl_1004(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_994(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_1006; +arity_0->fn = arityImpl_996; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg0, (List *)arity_0->closures); -Function *fn_1005 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1005->type = 3; -fn_1005->name = "anon"; -fn_1005->arityCount = 1; -fn_1005->arities[0] = arity_0; +Function *fn_995 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_995->type = 3; +fn_995->name = "anon"; +fn_995->arityCount = 1; +fn_995->arities[0] = arity_0; Value *rslt4; -if((var_689)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, var_689, (Value *)fn_1005); +if((var_679)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, var_679, (Value *)fn_995); } else { -FnArity *arity1 = findFnArity(var_689, 1); +FnArity *arity1 = findFnArity(var_679, 1); if(arity1 != (FnArity *)0 && !arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; -rslt4 = fn3(arity1->closures, (Value *)fn_1005); +rslt4 = fn3(arity1->closures, (Value *)fn_995); } else if(arity1 != (FnArity *)0 && arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -11295,10 +11213,10 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)fn_1005, varArgs2); +varArgs2 = (List *)listCons((Value *)fn_995, varArgs2); rslt4 = fn3(arity1->closures, (Value *)varArgs2); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_689)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_679)->name); abort(); } } @@ -11307,14 +11225,14 @@ return (rslt4); // --------- get-val main body -------------- -Function fn_1000 = {3, "get-val", 2, {&(FnArity){1, (List *)0, 0, arityImpl_1001}, &(FnArity){2, (List *)0, 0, arityImpl_1004}}}; +Function fn_990 = {3, "get-val", 2, {&(FnArity){1, (List *)0, 0, arityImpl_991}, &(FnArity){2, (List *)0, 0, arityImpl_994}}}; // --------- set-val -------------- -Function fn_1008; +Function fn_998; // --------- anon -------------- -Function fn_1010; -Value *arityImpl_1011(List *closures, Value *arg0) { +Function fn_1000; +Value *arityImpl_1001(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -11336,27 +11254,27 @@ Value *rslt5 = arityImpl_119((List *)var_31, (Value *)varArgs4); return (rslt5); }; -Value *arityImpl_1009(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_999(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_1011; +arity_0->fn = arityImpl_1001; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg0, (List *)arity_0->closures); -Function *fn_1010 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1010->type = 3; -fn_1010->name = "anon"; -fn_1010->arityCount = 1; -fn_1010->arities[0] = arity_0; +Function *fn_1000 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1000->type = 3; +fn_1000->name = "anon"; +fn_1000->arityCount = 1; +fn_1000->arities[0] = arity_0; Value *rslt4; -if((var_689)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, var_689, (Value *)fn_1010); +if((var_679)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, var_679, (Value *)fn_1000); } else { -FnArity *arity1 = findFnArity(var_689, 1); +FnArity *arity1 = findFnArity(var_679, 1); if(arity1 != (FnArity *)0 && !arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; -rslt4 = fn3(arity1->closures, (Value *)fn_1010); +rslt4 = fn3(arity1->closures, (Value *)fn_1000); } else if(arity1 != (FnArity *)0 && arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -11364,10 +11282,10 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)fn_1010, varArgs2); +varArgs2 = (List *)listCons((Value *)fn_1000, varArgs2); rslt4 = fn3(arity1->closures, (Value *)varArgs2); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_689)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_679)->name); abort(); } } @@ -11376,21 +11294,21 @@ return (rslt4); // --------- set-val main body -------------- -Function fn_1008 = {3, "set-val", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1009}}}; +Function fn_998 = {3, "set-val", 1, {&(FnArity){2, (List *)0, 0, arityImpl_999}}}; // --------- get-in-val -------------- -Function fn_1013; +Function fn_1003; // --------- anon -------------- -Function fn_1015; -Value *arityImpl_1016(List *closures, Value *arg0) { +Function fn_1005; +Value *arityImpl_1006(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_633((List *)var_31, arg0, val0, (Value *)&reified_998); +Value *rslt1 = arityImpl_633((List *)var_31, arg0, val0, (Value *)&reified_988); Value *cond2; -Value *rslt5 = arityImpl_283((List *)var_31, (Value *)&reified_998, rslt1); +Value *rslt5 = arityImpl_283((List *)var_31, (Value *)&reified_988, rslt1); if (isTrue(rslt5)) { cond2 = var_31; @@ -11408,26 +11326,26 @@ cond2 = rslt4; return (cond2); }; -Value *arityImpl_1014(List *closures, Value *arg0) { +Value *arityImpl_1004(List *closures, Value *arg0) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_1016; +arity_0->fn = arityImpl_1006; arity_0->closures = listCons((Value *)arg0, (List *)arity_0->closures); -Function *fn_1015 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1015->type = 3; -fn_1015->name = "anon"; -fn_1015->arityCount = 1; -fn_1015->arities[0] = arity_0; +Function *fn_1005 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1005->type = 3; +fn_1005->name = "anon"; +fn_1005->arityCount = 1; +fn_1005->arities[0] = arity_0; Value *rslt4; -if((var_689)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, var_689, (Value *)fn_1015); +if((var_679)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, var_679, (Value *)fn_1005); } else { -FnArity *arity1 = findFnArity(var_689, 1); +FnArity *arity1 = findFnArity(var_679, 1); if(arity1 != (FnArity *)0 && !arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; -rslt4 = fn3(arity1->closures, (Value *)fn_1015); +rslt4 = fn3(arity1->closures, (Value *)fn_1005); } else if(arity1 != (FnArity *)0 && arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -11435,10 +11353,10 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)fn_1015, varArgs2); +varArgs2 = (List *)listCons((Value *)fn_1005, varArgs2); rslt4 = fn3(arity1->closures, (Value *)varArgs2); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_689)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_679)->name); abort(); } } @@ -11447,8 +11365,8 @@ return (rslt4); // --------- anon -------------- -Function fn_1018; -Value *arityImpl_1019(List *closures, Value *arg0) { +Function fn_1008; +Value *arityImpl_1009(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -11469,27 +11387,27 @@ Value *rslt4 = arityImpl_119((List *)var_31, (Value *)varArgs3); return (rslt4); }; -Value *arityImpl_1017(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_1007(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_1019; +arity_0->fn = arityImpl_1009; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg0, (List *)arity_0->closures); -Function *fn_1018 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1018->type = 3; -fn_1018->name = "anon"; -fn_1018->arityCount = 1; -fn_1018->arities[0] = arity_0; +Function *fn_1008 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1008->type = 3; +fn_1008->name = "anon"; +fn_1008->arityCount = 1; +fn_1008->arities[0] = arity_0; Value *rslt4; -if((var_689)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, var_689, (Value *)fn_1018); +if((var_679)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, var_679, (Value *)fn_1008); } else { -FnArity *arity1 = findFnArity(var_689, 1); +FnArity *arity1 = findFnArity(var_679, 1); if(arity1 != (FnArity *)0 && !arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; -rslt4 = fn3(arity1->closures, (Value *)fn_1018); +rslt4 = fn3(arity1->closures, (Value *)fn_1008); } else if(arity1 != (FnArity *)0 && arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -11497,10 +11415,10 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)fn_1018, varArgs2); +varArgs2 = (List *)listCons((Value *)fn_1008, varArgs2); rslt4 = fn3(arity1->closures, (Value *)varArgs2); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_689)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_679)->name); abort(); } } @@ -11509,14 +11427,14 @@ return (rslt4); // --------- get-in-val main body -------------- -Function fn_1013 = {3, "get-in-val", 2, {&(FnArity){1, (List *)0, 0, arityImpl_1014}, &(FnArity){2, (List *)0, 0, arityImpl_1017}}}; +Function fn_1003 = {3, "get-in-val", 2, {&(FnArity){1, (List *)0, 0, arityImpl_1004}, &(FnArity){2, (List *)0, 0, arityImpl_1007}}}; // --------- assoc-in-val -------------- -Function fn_1021; +Function fn_1011; // --------- anon -------------- -Function fn_1023; -Value *arityImpl_1024(List *closures, Value *arg0) { +Function fn_1013; +Value *arityImpl_1014(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -11537,27 +11455,27 @@ Value *rslt4 = arityImpl_119((List *)var_31, (Value *)varArgs3); return (rslt4); }; -Value *arityImpl_1022(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_1012(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_1024; +arity_0->fn = arityImpl_1014; arity_0->closures = listCons((Value *)arg0, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_1023 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1023->type = 3; -fn_1023->name = "anon"; -fn_1023->arityCount = 1; -fn_1023->arities[0] = arity_0; +Function *fn_1013 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1013->type = 3; +fn_1013->name = "anon"; +fn_1013->arityCount = 1; +fn_1013->arities[0] = arity_0; Value *rslt4; -if((var_689)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, var_689, (Value *)fn_1023); +if((var_679)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, var_679, (Value *)fn_1013); } else { -FnArity *arity1 = findFnArity(var_689, 1); +FnArity *arity1 = findFnArity(var_679, 1); if(arity1 != (FnArity *)0 && !arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; -rslt4 = fn3(arity1->closures, (Value *)fn_1023); +rslt4 = fn3(arity1->closures, (Value *)fn_1013); } else if(arity1 != (FnArity *)0 && arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -11565,10 +11483,10 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)fn_1023, varArgs2); +varArgs2 = (List *)listCons((Value *)fn_1013, varArgs2); rslt4 = fn3(arity1->closures, (Value *)varArgs2); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_689)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_679)->name); abort(); } } @@ -11577,14 +11495,14 @@ return (rslt4); // --------- assoc-in-val main body -------------- -Function fn_1021 = {3, "assoc-in-val", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1022}}}; +Function fn_1011 = {3, "assoc-in-val", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1012}}}; // --------- update-in-val -------------- -Function fn_1026; +Function fn_1016; // --------- anon -------------- -Function fn_1028; -Value *arityImpl_1029(List *closures, Value *arg0) { +Function fn_1018; +Value *arityImpl_1019(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -11606,27 +11524,27 @@ Value *rslt5 = arityImpl_119((List *)var_31, (Value *)varArgs4); return (rslt5); }; -Value *arityImpl_1027(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_1017(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_1029; +arity_0->fn = arityImpl_1019; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg0, (List *)arity_0->closures); -Function *fn_1028 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1028->type = 3; -fn_1028->name = "anon"; -fn_1028->arityCount = 1; -fn_1028->arities[0] = arity_0; +Function *fn_1018 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1018->type = 3; +fn_1018->name = "anon"; +fn_1018->arityCount = 1; +fn_1018->arities[0] = arity_0; Value *rslt4; -if((var_689)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, var_689, (Value *)fn_1028); +if((var_679)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, var_679, (Value *)fn_1018); } else { -FnArity *arity1 = findFnArity(var_689, 1); +FnArity *arity1 = findFnArity(var_679, 1); if(arity1 != (FnArity *)0 && !arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; -rslt4 = fn3(arity1->closures, (Value *)fn_1028); +rslt4 = fn3(arity1->closures, (Value *)fn_1018); } else if(arity1 != (FnArity *)0 && arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -11634,10 +11552,10 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)fn_1028, varArgs2); +varArgs2 = (List *)listCons((Value *)fn_1018, varArgs2); rslt4 = fn3(arity1->closures, (Value *)varArgs2); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_689)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_679)->name); abort(); } } @@ -11646,12 +11564,12 @@ return (rslt4); // --------- update-in-val main body -------------- -Function fn_1026 = {3, "update-in-val", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1027}}}; -ProtoImpls *protoImpls_1031; +Function fn_1016 = {3, "update-in-val", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1017}}}; +ProtoImpls *protoImpls_1021; // --------- anon -------------- -Function fn_1035; -Value *arityImpl_1036(List *closures, Value *varArgs) { +Function fn_1025; +Value *arityImpl_1026(List *closures, Value *varArgs) { List *argsList = (List *)varArgs; Value *arg0 = (Value *)argsList; Value *val0 = closures->head; @@ -11677,24 +11595,24 @@ varArgs5 = (List *)listCons((Value *)rslt4, varArgs5); Value *rslt6 = arityImpl_119((List *)var_31, (Value *)varArgs5); return (rslt6); }; -Value *arityImpl_1034(List *closures, Value *arg0) { +Value *arityImpl_1024(List *closures, Value *arg0) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 2; arity_0->closures = empty_list; arity_0->variadic = 1; -arity_0->fn = arityImpl_1036; +arity_0->fn = arityImpl_1026; arity_0->closures = listCons((Value *)arg0, (List *)arity_0->closures); -Function *fn_1035 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1035->type = 3; -fn_1035->name = "anon"; -fn_1035->arityCount = 1; -fn_1035->arities[0] = arity_0; -Value *rslt1 = arityImpl_985((List *)var_31, (Value *)fn_1035); +Function *fn_1025 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1025->type = 3; +fn_1025->name = "anon"; +fn_1025->arityCount = 1; +fn_1025->arities[0] = arity_0; +Value *rslt1 = arityImpl_975((List *)var_31, (Value *)fn_1025); return (rslt1); }; -Value *protoFnImpl_1037(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_1031); +Value *protoFnImpl_1027(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_1021); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for 'recursive-descent' %lld\n", arg0->type); abort(); @@ -11707,14 +11625,14 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_1038 = {1, (List *)0, 0, protoFnImpl_1037}; -Function defaultFn_1033 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1034}}}; +FnArity protoFnArity_1028 = {1, (List *)0, 0, protoFnImpl_1027}; +Function defaultFn_1023 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1024}}}; -Function protoFn_1032 = {3, "recursive-descent", 1, {&protoFnArity_1038}}; +Function protoFn_1022 = {3, "recursive-descent", 1, {&protoFnArity_1028}}; -ProtoImpls *protoImpls_1039; -Value *protoFnImpl_1042(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_1039); +ProtoImpls *protoImpls_1029; +Value *protoFnImpl_1032(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_1029); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.term-str' %lld\n", arg0->type); abort(); @@ -11727,18 +11645,18 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_1043 = {1, (List *)0, 0, protoFnImpl_1042}; -Function protoFn_1040 = {3, ".term-str", 1, {&protoFnArity_1043}}; +FnArity protoFnArity_1033 = {1, (List *)0, 0, protoFnImpl_1032}; +Function protoFn_1030 = {3, ".term-str", 1, {&protoFnArity_1033}}; // forward declaration for 'parser-terminal' -Value *var_1044; +Value *var_1034; -Number _num_16 = {2, -1, 26}; -SymKey _kw_10 = {5, -1, ":text"}; +Number _num_16 = {2, -1, 25}; +SymKey _kw_8 = {5, -1, ":text"}; // --------- instance?_impl -------------- -Function fn_1045; -Value *arityImpl_1046(List *closures, Value *arg0, Value *arg1) { +Function fn_1035; +Value *arityImpl_1036(List *closures, Value *arg0, Value *arg1) { Value *rslt3; if((var_22)->type != 3) { rslt3 = protoFnImpl_5(empty_list, var_22, arg1); @@ -11767,27 +11685,27 @@ return (rslt4); // --------- instance?_impl main body -------------- -Function fn_1045 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1046}}}; -Value *protoImpl_1047(List *closures, Value *arg0, Value *arg1) { +Function fn_1035 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1036}}}; +Value *protoImpl_1037(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_1048 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1047}}}; +Function protoFn_1038 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1037}}}; // --------- invoke_impl -------------- -Function fn_1049; +Function fn_1039; // --------- recursive-descent_impl -------------- -Function fn_1051; +Function fn_1041; // --------- anon -------------- -Function fn_1053; +Function fn_1043; // --------- anon -------------- -Function fn_1055; -Value *arityImpl_1056(List *closures, Value *arg0) { +Function fn_1045; +Value *arityImpl_1046(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -11807,7 +11725,7 @@ Value *rslt4 = protoFnImpl_100((List *)var_31, val0, rslt3); return (rslt4); }; -Value *arityImpl_1054(List *closures, Value *arg0) { +Value *arityImpl_1044(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -11882,20 +11800,20 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_24)->name); abort(); } } -Value *rslt19 = arityImpl_1009((List *)var_31, (Value *)&_kw_10, rslt18); +Value *rslt19 = arityImpl_999((List *)var_31, (Value *)&_kw_8, rslt18); FnArity *arity_20 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_20->count = 1; arity_20->closures = empty_list; arity_20->variadic = 0; -arity_20->fn = arityImpl_1056; +arity_20->fn = arityImpl_1046; arity_20->closures = listCons((Value *)val7, (List *)arity_20->closures); arity_20->closures = listCons((Value *)val1, (List *)arity_20->closures); -Function *fn_1055 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1055->type = 3; -fn_1055->name = "anon"; -fn_1055->arityCount = 1; -fn_1055->arities[0] = arity_20; -Value *rslt21 = protoFnImpl_78((List *)var_31, rslt19, (Value *)fn_1055); +Function *fn_1045 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1045->type = 3; +fn_1045->name = "anon"; +fn_1045->arityCount = 1; +fn_1045->arities[0] = arity_20; +Value *rslt21 = protoFnImpl_78((List *)var_31, rslt19, (Value *)fn_1045); cond0 = rslt21; } else { Value *rslt2 = protoFnImpl_242((List *)var_31, val1); @@ -11904,41 +11822,41 @@ cond0 = rslt2; return (cond0); }; -Value *arityImpl_1052(List *closures, Value *arg0) { +Value *arityImpl_1042(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt1 = protoFnImpl_195((List *)var_31, val0); -Value *rslt2 = arityImpl_1004((List *)var_31, (Value *)&_kw_10, (Value *)&_str_19); +Value *rslt2 = arityImpl_994((List *)var_31, (Value *)&_kw_8, (Value *)&_str_19); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_1054; +arity_3->fn = arityImpl_1044; arity_3->closures = listCons((Value *)val0, (List *)arity_3->closures); arity_3->closures = listCons((Value *)rslt1, (List *)arity_3->closures); arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); -Function *fn_1053 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1053->type = 3; -fn_1053->name = "anon"; -fn_1053->arityCount = 1; -fn_1053->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_1053); +Function *fn_1043 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1043->type = 3; +fn_1043->name = "anon"; +fn_1043->arityCount = 1; +fn_1043->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_1043); return (rslt4); }; -Value *protoImpl_1057(List *closures, Value *arg0) { +Value *protoImpl_1047(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1058 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1057}}}; +Function protoFn_1048 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1047}}}; // --------- .term-str_impl -------------- -Function fn_1059; -Value *arityImpl_1060(List *closures, Value *arg0) { +Function fn_1049; +Value *arityImpl_1050(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -11946,65 +11864,65 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_1061(List *closures, Value *arg0) { +Value *protoImpl_1051(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1062 = {3, ".term-str", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1061}}}; +Function protoFn_1052 = {3, ".term-str", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1051}}}; -Value *arityImpl_1050(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_1040(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_1052; +arity_0->fn = arityImpl_1042; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_1051 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1051->type = 3; -fn_1051->name = "recursive-descent_impl"; -fn_1051->arityCount = 1; -fn_1051->arities[0] = arity_0; +Function *fn_1041 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1041->type = 3; +fn_1041->name = "recursive-descent_impl"; +fn_1041->arityCount = 1; +fn_1041->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1060; +arity_1->fn = arityImpl_1050; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_1059 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1059->type = 3; -fn_1059->name = ".term-str_impl"; -fn_1059->arityCount = 1; -fn_1059->arities[0] = arity_1; +Function *fn_1049 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1049->type = 3; +fn_1049->name = ".term-str_impl"; +fn_1049->arityCount = 1; +fn_1049->arities[0] = arity_1; ReifiedVal *reified_2 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 2); -reified_2->type = 26; +reified_2->type = 25; reified_2->implCount = 2; -reified_2->impls[0] = (Value *)fn_1051; -reified_2->impls[1] = (Value *)fn_1059; +reified_2->impls[0] = (Value *)fn_1041; +reified_2->impls[1] = (Value *)fn_1049; return ((Value *)reified_2); }; // --------- invoke_impl main body -------------- -Function fn_1049 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1050}}}; -Value *protoImpl_1063(List *closures, Value *arg0, Value *arg1) { +Function fn_1039 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1040}}}; +Value *protoImpl_1053(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_1064 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1063}}}; +Function protoFn_1054 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1053}}}; -ReifiedVal reified_1065 = {25, 2, {(Value *)&fn_1045, (Value *)&fn_1049}}; -Value *var_1044 = (Value *)&reified_1065; +ReifiedVal reified_1055 = {24, 2, {(Value *)&fn_1035, (Value *)&fn_1039}}; +Value *var_1034 = (Value *)&reified_1055; // --------- term -------------- -Function fn_1066; -Value *arityImpl_1067(List *closures, Value *arg0) { +Function fn_1056; +Value *arityImpl_1057(List *closures, Value *arg0) { Value *rslt3; -if((var_1044)->type != 3) { -rslt3 = protoFnImpl_5(empty_list, var_1044, arg0); +if((var_1034)->type != 3) { +rslt3 = protoFnImpl_5(empty_list, var_1034, arg0); } else { -FnArity *arity0 = findFnArity(var_1044, 1); +FnArity *arity0 = findFnArity(var_1034, 1); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; rslt3 = fn2(arity0->closures, arg0); @@ -12018,15 +11936,15 @@ varArgs1->tail = (List *)0; varArgs1 = (List *)listCons(arg0, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1044)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1034)->name); abort(); } } Value *rslt7; -if((var_936)->type != 3) { -rslt7 = protoFnImpl_5(empty_list, var_936, rslt3); +if((var_926)->type != 3) { +rslt7 = protoFnImpl_5(empty_list, var_926, rslt3); } else { -FnArity *arity4 = findFnArity(var_936, 1); +FnArity *arity4 = findFnArity(var_926, 1); if(arity4 != (FnArity *)0 && !arity4->variadic) { FnType1 *fn6 = (FnType1 *)arity4->fn; rslt7 = fn6(arity4->closures, rslt3); @@ -12040,7 +11958,7 @@ varArgs5->tail = (List *)0; varArgs5 = (List *)listCons(rslt3, varArgs5); rslt7 = fn6(arity4->closures, (Value *)varArgs5); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -12049,17 +11967,17 @@ return (rslt7); // --------- term main body -------------- -Function fn_1066 = {3, "term", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1067}}}; +Function fn_1056 = {3, "term", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1057}}}; // --------- recur -------------- -Function fn_1069; +Function fn_1059; // --------- anon -------------- -Function fn_1071; +Function fn_1061; // --------- anon -------------- -Function fn_1073; -Value *arityImpl_1074(List *closures, Value *arg0) { +Function fn_1063; +Value *arityImpl_1064(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -12095,7 +12013,7 @@ Value *rslt6 = protoFnImpl_100((List *)var_31, val0, rslt5); return (rslt6); }; -Value *arityImpl_1072(List *closures, Value *arg0) { +Value *arityImpl_1062(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -12105,10 +12023,10 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt4; -if(((Value *)&fn_1069)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, (Value *)&fn_1069, val0); +if(((Value *)&fn_1059)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, (Value *)&fn_1059, val0); } else { -FnArity *arity1 = findFnArity((Value *)&fn_1069, 1); +FnArity *arity1 = findFnArity((Value *)&fn_1059, 1); if(arity1 != (FnArity *)0 && !arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; rslt4 = fn3(arity1->closures, val0); @@ -12122,11 +12040,11 @@ varArgs2->tail = (List *)0; varArgs2 = (List *)listCons(val0, varArgs2); rslt4 = fn3(arity1->closures, (Value *)varArgs2); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)(Value *)&fn_1069)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)(Value *)&fn_1059)->name); abort(); } } -Value *rslt5 = arityImpl_985((List *)var_31, var_31); +Value *rslt5 = arityImpl_975((List *)var_31, var_31); List *varArgs6 = (List *)GC_malloc(sizeof(List)); varArgs6->type = ListType; varArgs6->len = 0; @@ -12139,41 +12057,41 @@ FnArity *arity_8 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_8->count = 1; arity_8->closures = empty_list; arity_8->variadic = 0; -arity_8->fn = arityImpl_1074; +arity_8->fn = arityImpl_1064; arity_8->closures = listCons((Value *)arg0, (List *)arity_8->closures); arity_8->closures = listCons((Value *)val9, (List *)arity_8->closures); -Function *fn_1073 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1073->type = 3; -fn_1073->name = "anon"; -fn_1073->arityCount = 1; -fn_1073->arities[0] = arity_8; -Value *rslt10 = protoFnImpl_78((List *)var_31, rslt7, (Value *)fn_1073); +Function *fn_1063 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1063->type = 3; +fn_1063->name = "anon"; +fn_1063->arityCount = 1; +fn_1063->arities[0] = arity_8; +Value *rslt10 = protoFnImpl_78((List *)var_31, rslt7, (Value *)fn_1063); return (rslt10); }; -Value *arityImpl_1070(List *closures, Value *arg0) { +Value *arityImpl_1060(List *closures, Value *arg0) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_1072; +arity_0->fn = arityImpl_1062; arity_0->closures = listCons((Value *)arg0, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg0, (List *)arity_0->closures); -Function *fn_1071 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1071->type = 3; -fn_1071->name = "anon"; -fn_1071->arityCount = 1; -fn_1071->arities[0] = arity_0; -Value *rslt1 = protoFnImpl_78((List *)var_31, arg0, (Value *)fn_1071); +Function *fn_1061 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1061->type = 3; +fn_1061->name = "anon"; +fn_1061->arityCount = 1; +fn_1061->arities[0] = arity_0; +Value *rslt1 = protoFnImpl_78((List *)var_31, arg0, (Value *)fn_1061); return (rslt1); }; // --------- recur main body -------------- -Function fn_1069 = {3, "recur", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1070}}}; -ProtoImpls *protoImpls_1076; -Value *protoFnImpl_1079(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_1076); +Function fn_1059 = {3, "recur", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1060}}}; +ProtoImpls *protoImpls_1066; +Value *protoFnImpl_1069(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_1066); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.rule' %lld\n", arg0->type); abort(); @@ -12186,17 +12104,17 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_1080 = {1, (List *)0, 0, protoFnImpl_1079}; -Function protoFn_1077 = {3, ".rule", 1, {&protoFnArity_1080}}; +FnArity protoFnArity_1070 = {1, (List *)0, 0, protoFnImpl_1069}; +Function protoFn_1067 = {3, ".rule", 1, {&protoFnArity_1070}}; // forward declaration for 'repeat-rule' -Value *var_1081; +Value *var_1071; -Number _num_17 = {2, -1, 28}; +Number _num_17 = {2, -1, 27}; // --------- instance?_impl -------------- -Function fn_1082; -Value *arityImpl_1083(List *closures, Value *arg0, Value *arg1) { +Function fn_1072; +Value *arityImpl_1073(List *closures, Value *arg0, Value *arg1) { Value *rslt3; if((var_22)->type != 3) { rslt3 = protoFnImpl_5(empty_list, var_22, arg1); @@ -12225,24 +12143,24 @@ return (rslt4); // --------- instance?_impl main body -------------- -Function fn_1082 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1083}}}; -Value *protoImpl_1084(List *closures, Value *arg0, Value *arg1) { +Function fn_1072 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1073}}}; +Value *protoImpl_1074(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_1085 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1084}}}; +Function protoFn_1075 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1074}}}; // --------- invoke_impl -------------- -Function fn_1086; +Function fn_1076; // --------- recursive-descent_impl -------------- -Function fn_1088; +Function fn_1078; // --------- anon -------------- -Function fn_1090; -Value *arityImpl_1091(List *closures, Value *arg0) { +Function fn_1080; +Value *arityImpl_1081(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; @@ -12258,35 +12176,35 @@ varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; varArgs2 = (List *)listCons((Value *)rslt1, varArgs2); Value *rslt3 = arityImpl_119((List *)var_31, (Value *)varArgs2); -Value *rslt4 = arityImpl_985((List *)var_31, rslt3); +Value *rslt4 = arityImpl_975((List *)var_31, rslt3); return (rslt4); }; // --------- anon main body -------------- -Function fn_1090 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1091}}}; -Value *arityImpl_1089(List *closures, Value *arg0) { +Function fn_1080 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1081}}}; +Value *arityImpl_1079(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = protoFnImpl_740((List *)var_31, val0, (Value *)&protoFn_1032); -Value *rslt2 = arityImpl_1070((List *)var_31, rslt1); -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)&fn_1090); +Value *rslt1 = protoFnImpl_730((List *)var_31, val0, (Value *)&protoFn_1022); +Value *rslt2 = arityImpl_1060((List *)var_31, rslt1); +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)&fn_1080); return (rslt4); }; -Value *protoImpl_1092(List *closures, Value *arg0) { +Value *protoImpl_1082(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1093 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1092}}}; +Function protoFn_1083 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1082}}}; // --------- .rule_impl -------------- -Function fn_1094; -Value *arityImpl_1095(List *closures, Value *arg0) { +Function fn_1084; +Value *arityImpl_1085(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -12294,65 +12212,65 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_1096(List *closures, Value *arg0) { +Value *protoImpl_1086(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1097 = {3, ".rule", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1096}}}; +Function protoFn_1087 = {3, ".rule", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1086}}}; -Value *arityImpl_1087(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_1077(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_1089; +arity_0->fn = arityImpl_1079; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_1088 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1088->type = 3; -fn_1088->name = "recursive-descent_impl"; -fn_1088->arityCount = 1; -fn_1088->arities[0] = arity_0; +Function *fn_1078 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1078->type = 3; +fn_1078->name = "recursive-descent_impl"; +fn_1078->arityCount = 1; +fn_1078->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1095; +arity_1->fn = arityImpl_1085; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_1094 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1094->type = 3; -fn_1094->name = ".rule_impl"; -fn_1094->arityCount = 1; -fn_1094->arities[0] = arity_1; +Function *fn_1084 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1084->type = 3; +fn_1084->name = ".rule_impl"; +fn_1084->arityCount = 1; +fn_1084->arities[0] = arity_1; ReifiedVal *reified_2 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 2); -reified_2->type = 28; +reified_2->type = 27; reified_2->implCount = 2; -reified_2->impls[0] = (Value *)fn_1088; -reified_2->impls[1] = (Value *)fn_1094; +reified_2->impls[0] = (Value *)fn_1078; +reified_2->impls[1] = (Value *)fn_1084; return ((Value *)reified_2); }; // --------- invoke_impl main body -------------- -Function fn_1086 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1087}}}; -Value *protoImpl_1098(List *closures, Value *arg0, Value *arg1) { +Function fn_1076 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1077}}}; +Value *protoImpl_1088(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_1099 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1098}}}; +Function protoFn_1089 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1088}}}; -ReifiedVal reified_1100 = {27, 2, {(Value *)&fn_1082, (Value *)&fn_1086}}; -Value *var_1081 = (Value *)&reified_1100; +ReifiedVal reified_1090 = {26, 2, {(Value *)&fn_1072, (Value *)&fn_1076}}; +Value *var_1071 = (Value *)&reified_1090; // --------- one-or-more -------------- -Function fn_1101; -Value *arityImpl_1102(List *closures, Value *arg0) { +Function fn_1091; +Value *arityImpl_1092(List *closures, Value *arg0) { Value *rslt3; -if((var_1081)->type != 3) { -rslt3 = protoFnImpl_5(empty_list, var_1081, arg0); +if((var_1071)->type != 3) { +rslt3 = protoFnImpl_5(empty_list, var_1071, arg0); } else { -FnArity *arity0 = findFnArity(var_1081, 1); +FnArity *arity0 = findFnArity(var_1071, 1); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; rslt3 = fn2(arity0->closures, arg0); @@ -12366,15 +12284,15 @@ varArgs1->tail = (List *)0; varArgs1 = (List *)listCons(arg0, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1081)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1071)->name); abort(); } } Value *rslt7; -if((var_936)->type != 3) { -rslt7 = protoFnImpl_5(empty_list, var_936, rslt3); +if((var_926)->type != 3) { +rslt7 = protoFnImpl_5(empty_list, var_926, rslt3); } else { -FnArity *arity4 = findFnArity(var_936, 1); +FnArity *arity4 = findFnArity(var_926, 1); if(arity4 != (FnArity *)0 && !arity4->variadic) { FnType1 *fn6 = (FnType1 *)arity4->fn; rslt7 = fn6(arity4->closures, rslt3); @@ -12388,7 +12306,7 @@ varArgs5->tail = (List *)0; varArgs5 = (List *)listCons(rslt3, varArgs5); rslt7 = fn6(arity4->closures, (Value *)varArgs5); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -12397,15 +12315,15 @@ return (rslt7); // --------- one-or-more main body -------------- -Function fn_1101 = {3, "one-or-more", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1102}}}; +Function fn_1091 = {3, "one-or-more", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1092}}}; // forward declaration for 'ignore-rule' -Value *var_1104; +Value *var_1094; -Number _num_18 = {2, -1, 30}; +Number _num_18 = {2, -1, 29}; // --------- instance?_impl -------------- -Function fn_1105; -Value *arityImpl_1106(List *closures, Value *arg0, Value *arg1) { +Function fn_1095; +Value *arityImpl_1096(List *closures, Value *arg0, Value *arg1) { Value *rslt3; if((var_22)->type != 3) { rslt3 = protoFnImpl_5(empty_list, var_22, arg1); @@ -12434,52 +12352,52 @@ return (rslt4); // --------- instance?_impl main body -------------- -Function fn_1105 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1106}}}; -Value *protoImpl_1107(List *closures, Value *arg0, Value *arg1) { +Function fn_1095 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1096}}}; +Value *protoImpl_1097(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_1108 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1107}}}; +Function protoFn_1098 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1097}}}; // --------- invoke_impl -------------- -Function fn_1109; +Function fn_1099; // --------- recursive-descent_impl -------------- -Function fn_1111; +Function fn_1101; // --------- anon -------------- -Function fn_1113; -Value *arityImpl_1114(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_985((List *)var_31, var_31); +Function fn_1103; +Value *arityImpl_1104(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_975((List *)var_31, var_31); return (rslt0); }; // --------- anon main body -------------- -Function fn_1113 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1114}}}; -Value *arityImpl_1112(List *closures, Value *arg0) { +Function fn_1103 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1104}}}; +Value *arityImpl_1102(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = protoFnImpl_740((List *)var_31, val0, (Value *)&protoFn_1032); -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)&fn_1113); +Value *rslt1 = protoFnImpl_730((List *)var_31, val0, (Value *)&protoFn_1022); +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)&fn_1103); return (rslt3); }; -Value *protoImpl_1115(List *closures, Value *arg0) { +Value *protoImpl_1105(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1116 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1115}}}; +Function protoFn_1106 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1105}}}; // --------- .rule_impl -------------- -Function fn_1117; -Value *arityImpl_1118(List *closures, Value *arg0) { +Function fn_1107; +Value *arityImpl_1108(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -12487,65 +12405,65 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_1119(List *closures, Value *arg0) { +Value *protoImpl_1109(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1120 = {3, ".rule", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1119}}}; +Function protoFn_1110 = {3, ".rule", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1109}}}; -Value *arityImpl_1110(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_1100(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_1112; +arity_0->fn = arityImpl_1102; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_1111 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1111->type = 3; -fn_1111->name = "recursive-descent_impl"; -fn_1111->arityCount = 1; -fn_1111->arities[0] = arity_0; +Function *fn_1101 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1101->type = 3; +fn_1101->name = "recursive-descent_impl"; +fn_1101->arityCount = 1; +fn_1101->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1118; +arity_1->fn = arityImpl_1108; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_1117 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1117->type = 3; -fn_1117->name = ".rule_impl"; -fn_1117->arityCount = 1; -fn_1117->arities[0] = arity_1; +Function *fn_1107 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1107->type = 3; +fn_1107->name = ".rule_impl"; +fn_1107->arityCount = 1; +fn_1107->arities[0] = arity_1; ReifiedVal *reified_2 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 2); -reified_2->type = 30; +reified_2->type = 29; reified_2->implCount = 2; -reified_2->impls[0] = (Value *)fn_1111; -reified_2->impls[1] = (Value *)fn_1117; +reified_2->impls[0] = (Value *)fn_1101; +reified_2->impls[1] = (Value *)fn_1107; return ((Value *)reified_2); }; // --------- invoke_impl main body -------------- -Function fn_1109 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1110}}}; -Value *protoImpl_1121(List *closures, Value *arg0, Value *arg1) { +Function fn_1099 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1100}}}; +Value *protoImpl_1111(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_1122 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1121}}}; +Function protoFn_1112 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1111}}}; -ReifiedVal reified_1123 = {29, 2, {(Value *)&fn_1105, (Value *)&fn_1109}}; -Value *var_1104 = (Value *)&reified_1123; +ReifiedVal reified_1113 = {28, 2, {(Value *)&fn_1095, (Value *)&fn_1099}}; +Value *var_1094 = (Value *)&reified_1113; // --------- ignore -------------- -Function fn_1124; -Value *arityImpl_1125(List *closures, Value *arg0) { +Function fn_1114; +Value *arityImpl_1115(List *closures, Value *arg0) { Value *rslt3; -if((var_1104)->type != 3) { -rslt3 = protoFnImpl_5(empty_list, var_1104, arg0); +if((var_1094)->type != 3) { +rslt3 = protoFnImpl_5(empty_list, var_1094, arg0); } else { -FnArity *arity0 = findFnArity(var_1104, 1); +FnArity *arity0 = findFnArity(var_1094, 1); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; rslt3 = fn2(arity0->closures, arg0); @@ -12559,15 +12477,15 @@ varArgs1->tail = (List *)0; varArgs1 = (List *)listCons(arg0, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1104)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1094)->name); abort(); } } Value *rslt7; -if((var_936)->type != 3) { -rslt7 = protoFnImpl_5(empty_list, var_936, rslt3); +if((var_926)->type != 3) { +rslt7 = protoFnImpl_5(empty_list, var_926, rslt3); } else { -FnArity *arity4 = findFnArity(var_936, 1); +FnArity *arity4 = findFnArity(var_926, 1); if(arity4 != (FnArity *)0 && !arity4->variadic) { FnType1 *fn6 = (FnType1 *)arity4->fn; rslt7 = fn6(arity4->closures, rslt3); @@ -12581,7 +12499,7 @@ varArgs5->tail = (List *)0; varArgs5 = (List *)listCons(rslt3, varArgs5); rslt7 = fn6(arity4->closures, (Value *)varArgs5); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -12590,15 +12508,15 @@ return (rslt7); // --------- ignore main body -------------- -Function fn_1124 = {3, "ignore", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1125}}}; +Function fn_1114 = {3, "ignore", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1115}}}; // forward declaration for 'parser-always' -Value *var_1127; +Value *var_1117; -Number _num_19 = {2, -1, 32}; +Number _num_19 = {2, -1, 31}; // --------- instance?_impl -------------- -Function fn_1128; -Value *arityImpl_1129(List *closures, Value *arg0, Value *arg1) { +Function fn_1118; +Value *arityImpl_1119(List *closures, Value *arg0, Value *arg1) { Value *rslt3; if((var_22)->type != 3) { rslt3 = protoFnImpl_5(empty_list, var_22, arg1); @@ -12627,21 +12545,21 @@ return (rslt4); // --------- instance?_impl main body -------------- -Function fn_1128 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1129}}}; -Value *protoImpl_1130(List *closures, Value *arg0, Value *arg1) { +Function fn_1118 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1119}}}; +Value *protoImpl_1120(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_1131 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1130}}}; +Function protoFn_1121 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1120}}}; // --------- invoke_impl -------------- -Function fn_1132; +Function fn_1122; // --------- recursive-descent_impl -------------- -Function fn_1134; -Value *arityImpl_1135(List *closures, Value *arg0) { +Function fn_1124; +Value *arityImpl_1125(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -12653,21 +12571,21 @@ varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_985((List *)var_31, rslt2); +Value *rslt3 = arityImpl_975((List *)var_31, rslt2); return (rslt3); }; -Value *protoImpl_1136(List *closures, Value *arg0) { +Value *protoImpl_1126(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1137 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1136}}}; +Function protoFn_1127 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1126}}}; // --------- .v_impl -------------- -Function fn_1138; -Value *arityImpl_1139(List *closures, Value *arg0) { +Function fn_1128; +Value *arityImpl_1129(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -12675,65 +12593,65 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_1140(List *closures, Value *arg0) { +Value *protoImpl_1130(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1141 = {3, ".v", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1140}}}; +Function protoFn_1131 = {3, ".v", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1130}}}; -Value *arityImpl_1133(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_1123(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_1135; +arity_0->fn = arityImpl_1125; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_1134 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1134->type = 3; -fn_1134->name = "recursive-descent_impl"; -fn_1134->arityCount = 1; -fn_1134->arities[0] = arity_0; +Function *fn_1124 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1124->type = 3; +fn_1124->name = "recursive-descent_impl"; +fn_1124->arityCount = 1; +fn_1124->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1139; +arity_1->fn = arityImpl_1129; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_1138 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1138->type = 3; -fn_1138->name = ".v_impl"; -fn_1138->arityCount = 1; -fn_1138->arities[0] = arity_1; +Function *fn_1128 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1128->type = 3; +fn_1128->name = ".v_impl"; +fn_1128->arityCount = 1; +fn_1128->arities[0] = arity_1; ReifiedVal *reified_2 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 2); -reified_2->type = 32; +reified_2->type = 31; reified_2->implCount = 2; -reified_2->impls[0] = (Value *)fn_1134; -reified_2->impls[1] = (Value *)fn_1138; +reified_2->impls[0] = (Value *)fn_1124; +reified_2->impls[1] = (Value *)fn_1128; return ((Value *)reified_2); }; // --------- invoke_impl main body -------------- -Function fn_1132 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1133}}}; -Value *protoImpl_1142(List *closures, Value *arg0, Value *arg1) { +Function fn_1122 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1123}}}; +Value *protoImpl_1132(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_1143 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1142}}}; +Function protoFn_1133 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1132}}}; -ReifiedVal reified_1144 = {31, 2, {(Value *)&fn_1128, (Value *)&fn_1132}}; -Value *var_1127 = (Value *)&reified_1144; +ReifiedVal reified_1134 = {30, 2, {(Value *)&fn_1118, (Value *)&fn_1122}}; +Value *var_1117 = (Value *)&reified_1134; // --------- always -------------- -Function fn_1145; -Value *arityImpl_1146(List *closures, Value *arg0) { +Function fn_1135; +Value *arityImpl_1136(List *closures, Value *arg0) { Value *rslt3; -if((var_1127)->type != 3) { -rslt3 = protoFnImpl_5(empty_list, var_1127, arg0); +if((var_1117)->type != 3) { +rslt3 = protoFnImpl_5(empty_list, var_1117, arg0); } else { -FnArity *arity0 = findFnArity(var_1127, 1); +FnArity *arity0 = findFnArity(var_1117, 1); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; rslt3 = fn2(arity0->closures, arg0); @@ -12747,15 +12665,15 @@ varArgs1->tail = (List *)0; varArgs1 = (List *)listCons(arg0, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1127)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1117)->name); abort(); } } Value *rslt7; -if((var_936)->type != 3) { -rslt7 = protoFnImpl_5(empty_list, var_936, rslt3); +if((var_926)->type != 3) { +rslt7 = protoFnImpl_5(empty_list, var_926, rslt3); } else { -FnArity *arity4 = findFnArity(var_936, 1); +FnArity *arity4 = findFnArity(var_926, 1); if(arity4 != (FnArity *)0 && !arity4->variadic) { FnType1 *fn6 = (FnType1 *)arity4->fn; rslt7 = fn6(arity4->closures, rslt3); @@ -12769,7 +12687,7 @@ varArgs5->tail = (List *)0; varArgs5 = (List *)listCons(rslt3, varArgs5); rslt7 = fn6(arity4->closures, (Value *)varArgs5); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -12778,18 +12696,18 @@ return (rslt7); // --------- always main body -------------- -Function fn_1145 = {3, "always", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1146}}}; +Function fn_1135 = {3, "always", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1136}}}; // --------- all -------------- -Function fn_1148; -Value *arityImpl_1149(List *closures, Value *varArgs) { +Function fn_1138; +Value *arityImpl_1139(List *closures, Value *varArgs) { List *argsList = (List *)varArgs; Value *arg0 = (Value *)argsList; Value *rslt3; -if((var_824)->type != 3) { -rslt3 = protoFnImpl_5(empty_list, var_824, (Value *)&fn_249); +if((var_814)->type != 3) { +rslt3 = protoFnImpl_5(empty_list, var_814, (Value *)&fn_249); } else { -FnArity *arity0 = findFnArity(var_824, 1); +FnArity *arity0 = findFnArity(var_814, 1); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; rslt3 = fn2(arity0->closures, (Value *)&fn_249); @@ -12803,7 +12721,7 @@ varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)&fn_249, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_824)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_814)->name); abort(); } } @@ -12812,12 +12730,12 @@ return (rslt4); }; // --------- all main body -------------- -Function fn_1148 = {3, "all", 1, {&(FnArity){2, (List *)0, 1, arityImpl_1149}}}; +Function fn_1138 = {3, "all", 1, {&(FnArity){2, (List *)0, 1, arityImpl_1139}}}; // --------- optional -------------- -Function fn_1151; -Value *arityImpl_1152(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_1146((List *)var_31, (Value *)&_str_19); +Function fn_1141; +Value *arityImpl_1142(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_1136((List *)var_31, (Value *)&_str_19); List *varArgs1 = (List *)GC_malloc(sizeof(List)); varArgs1->type = ListType; varArgs1->len = 0; @@ -12831,13 +12749,13 @@ return (rslt2); // --------- optional main body -------------- -Function fn_1151 = {3, "optional", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1152}}}; +Function fn_1141 = {3, "optional", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1142}}}; // --------- none-or-more -------------- -Function fn_1154; -Value *arityImpl_1155(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_1102((List *)var_31, arg0); -Value *rslt1 = arityImpl_1146((List *)var_31, var_31); +Function fn_1144; +Value *arityImpl_1145(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_1092((List *)var_31, arg0); +Value *rslt1 = arityImpl_1136((List *)var_31, var_31); List *varArgs2 = (List *)GC_malloc(sizeof(List)); varArgs2->type = ListType; varArgs2->len = 0; @@ -12851,17 +12769,17 @@ return (rslt3); // --------- none-or-more main body -------------- -Function fn_1154 = {3, "none-or-more", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1155}}}; +Function fn_1144 = {3, "none-or-more", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1145}}}; // --------- char-test -------------- -Function fn_1157; +Function fn_1147; // --------- anon -------------- -Function fn_1159; +Function fn_1149; // --------- anon -------------- -Function fn_1161; -Value *arityImpl_1162(List *closures, Value *arg0) { +Function fn_1151; +Value *arityImpl_1152(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -12881,7 +12799,7 @@ Value *rslt4 = protoFnImpl_100((List *)var_31, val0, rslt3); return (rslt4); }; -Value *arityImpl_1160(List *closures, Value *arg0) { +Value *arityImpl_1150(List *closures, Value *arg0) { Value *val5 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -12971,20 +12889,20 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_24)->name); abort(); } } -Value *rslt19 = arityImpl_1009((List *)var_31, (Value *)&_kw_10, rslt18); +Value *rslt19 = arityImpl_999((List *)var_31, (Value *)&_kw_8, rslt18); FnArity *arity_20 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_20->count = 1; arity_20->closures = empty_list; arity_20->variadic = 0; -arity_20->fn = arityImpl_1162; +arity_20->fn = arityImpl_1152; arity_20->closures = listCons((Value *)rslt3, (List *)arity_20->closures); arity_20->closures = listCons((Value *)val5, (List *)arity_20->closures); -Function *fn_1161 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1161->type = 3; -fn_1161->name = "anon"; -fn_1161->arityCount = 1; -fn_1161->arities[0] = arity_20; -Value *rslt21 = protoFnImpl_78((List *)var_31, rslt19, (Value *)fn_1161); +Function *fn_1151 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1151->type = 3; +fn_1151->name = "anon"; +fn_1151->arityCount = 1; +fn_1151->arities[0] = arity_20; +Value *rslt21 = protoFnImpl_78((List *)var_31, rslt19, (Value *)fn_1151); cond4 = rslt21; } else { Value *rslt6 = protoFnImpl_242((List *)var_31, val5); @@ -12993,41 +12911,41 @@ cond4 = rslt6; return (cond4); }; -Value *arityImpl_1158(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_10, (Value *)&_str_19); +Value *arityImpl_1148(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_8, (Value *)&_str_19); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1160; +arity_1->fn = arityImpl_1150; arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_1159 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1159->type = 3; -fn_1159->name = "anon"; -fn_1159->arityCount = 1; -fn_1159->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1159); +Function *fn_1149 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1149->type = 3; +fn_1149->name = "anon"; +fn_1149->arityCount = 1; +fn_1149->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1149); return (rslt2); }; // --------- char-test main body -------------- -Function fn_1157 = {3, "char-test", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1158}}}; +Function fn_1147 = {3, "char-test", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1148}}}; // forward declaration for 'parse-lower-alphas' -Value *var_1164; +Value *var_1154; struct {int64_t type; int64_t len; - char buffer[2];} _str_31 = {1,1,"a"}; + char buffer[2];} _str_30 = {1,1,"a"}; struct {int64_t type; int64_t len; - char buffer[2];} _str_32 = {1,1,"z"}; -Number _num_20 = {2, -1, 34}; + char buffer[2];} _str_31 = {1,1,"z"}; +Number _num_20 = {2, -1, 33}; // --------- instance?_impl -------------- -Function fn_1165; -Value *arityImpl_1166(List *closures, Value *arg0, Value *arg1) { +Function fn_1155; +Value *arityImpl_1156(List *closures, Value *arg0, Value *arg1) { Value *rslt3; if((var_22)->type != 3) { rslt3 = protoFnImpl_5(empty_list, var_22, arg1); @@ -13056,32 +12974,32 @@ return (rslt4); // --------- instance?_impl main body -------------- -Function fn_1165 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1166}}}; -Value *protoImpl_1167(List *closures, Value *arg0, Value *arg1) { +Function fn_1155 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1156}}}; +Value *protoImpl_1157(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_1168 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1167}}}; +Function protoFn_1158 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1157}}}; // --------- invoke_impl -------------- -Function fn_1169; +Function fn_1159; // --------- recursive-descent_impl -------------- -Function fn_1171; +Function fn_1161; // --------- anon -------------- -Function fn_1173; -Value *arityImpl_1174(List *closures, Value *arg0) { +Function fn_1163; +Value *arityImpl_1164(List *closures, Value *arg0) { Value *rslt3; if((var_52)->type != 3) { -rslt3 = protoFnImpl_5(empty_list, var_52, (Value *)&_str_31); +rslt3 = protoFnImpl_5(empty_list, var_52, (Value *)&_str_30); } else { FnArity *arity0 = findFnArity(var_52, 1); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; -rslt3 = fn2(arity0->closures, (Value *)&_str_31); +rslt3 = fn2(arity0->closures, (Value *)&_str_30); } else if(arity0 != (FnArity *)0 && arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; List *varArgs1 = (List *)GC_malloc(sizeof(List)); @@ -13089,7 +13007,7 @@ varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)&_str_31, varArgs1); +varArgs1 = (List *)listCons((Value *)&_str_30, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_52)->name); @@ -13121,12 +13039,12 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_52)->name); } Value *rslt12; if((var_52)->type != 3) { -rslt12 = protoFnImpl_5(empty_list, var_52, (Value *)&_str_32); +rslt12 = protoFnImpl_5(empty_list, var_52, (Value *)&_str_31); } else { FnArity *arity9 = findFnArity(var_52, 1); if(arity9 != (FnArity *)0 && !arity9->variadic) { FnType1 *fn11 = (FnType1 *)arity9->fn; -rslt12 = fn11(arity9->closures, (Value *)&_str_32); +rslt12 = fn11(arity9->closures, (Value *)&_str_31); } else if(arity9 != (FnArity *)0 && arity9->variadic) { FnType1 *fn11 = (FnType1 *)arity9->fn; List *varArgs10 = (List *)GC_malloc(sizeof(List)); @@ -13134,7 +13052,7 @@ varArgs10->type = ListType; varArgs10->len = 0; varArgs10->head = (Value *)0; varArgs10->tail = (List *)0; -varArgs10 = (List *)listCons((Value *)&_str_32, varArgs10); +varArgs10 = (List *)listCons((Value *)&_str_31, varArgs10); rslt12 = fn11(arity9->closures, (Value *)varArgs10); } else { fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_52)->name); @@ -13156,48 +13074,48 @@ return (rslt15); // --------- anon main body -------------- -Function fn_1173 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1174}}}; -Value *arityImpl_1172(List *closures, Value *arg0) { -Value *rslt1 = arityImpl_1158((List *)var_31, (Value *)&fn_1173); +Function fn_1163 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1164}}}; +Value *arityImpl_1162(List *closures, Value *arg0) { +Value *rslt1 = arityImpl_1148((List *)var_31, (Value *)&fn_1163); return (rslt1); }; // --------- recursive-descent_impl main body -------------- -Function fn_1171 = {3, "recursive-descent_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1172}}}; -Value *protoImpl_1175(List *closures, Value *arg0) { +Function fn_1161 = {3, "recursive-descent_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1162}}}; +Value *protoImpl_1165(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1176 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1175}}}; +Function protoFn_1166 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1165}}}; -ReifiedVal reified_1177 = {34, 1, {(Value *)&fn_1171}}; -Value *arityImpl_1170(List *closures, Value *arg0) { -return ((Value *)&reified_1177); +ReifiedVal reified_1167 = {33, 1, {(Value *)&fn_1161}}; +Value *arityImpl_1160(List *closures, Value *arg0) { +return ((Value *)&reified_1167); }; // --------- invoke_impl main body -------------- -Function fn_1169 = {3, "invoke_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1170}}}; -Value *protoImpl_1178(List *closures, Value *arg0) { +Function fn_1159 = {3, "invoke_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1160}}}; +Value *protoImpl_1168(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1179 = {3, "invoke", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1178}}}; +Function protoFn_1169 = {3, "invoke", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1168}}}; -ReifiedVal reified_1180 = {33, 2, {(Value *)&fn_1165, (Value *)&fn_1169}}; -Value *var_1164 = (Value *)&reified_1180; +ReifiedVal reified_1170 = {32, 2, {(Value *)&fn_1155, (Value *)&fn_1159}}; +Value *var_1154 = (Value *)&reified_1170; // --------- lower-alpha -------------- -Function fn_1181; -Value *arityImpl_1182(List *closures) { +Function fn_1171; +Value *arityImpl_1172(List *closures) { Value *rslt3; -if((var_1164)->type != 3) { -rslt3 = protoFnImpl_3(empty_list, var_1164); +if((var_1154)->type != 3) { +rslt3 = protoFnImpl_3(empty_list, var_1154); } else { -FnArity *arity0 = findFnArity(var_1164, 0); +FnArity *arity0 = findFnArity(var_1154, 0); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType0 *fn2 = (FnType0 *)arity0->fn; rslt3 = fn2(arity0->closures); @@ -13210,15 +13128,15 @@ varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1164)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1154)->name); abort(); } } Value *rslt7; -if((var_936)->type != 3) { -rslt7 = protoFnImpl_5(empty_list, var_936, rslt3); +if((var_926)->type != 3) { +rslt7 = protoFnImpl_5(empty_list, var_926, rslt3); } else { -FnArity *arity4 = findFnArity(var_936, 1); +FnArity *arity4 = findFnArity(var_926, 1); if(arity4 != (FnArity *)0 && !arity4->variadic) { FnType1 *fn6 = (FnType1 *)arity4->fn; rslt7 = fn6(arity4->closures, rslt3); @@ -13232,7 +13150,7 @@ varArgs5->tail = (List *)0; varArgs5 = (List *)listCons(rslt3, varArgs5); rslt7 = fn6(arity4->closures, (Value *)varArgs5); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -13241,21 +13159,21 @@ return (rslt7); // --------- lower-alpha main body -------------- -Function fn_1181 = {3, "lower-alpha", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1182}}}; +Function fn_1171 = {3, "lower-alpha", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1172}}}; // forward declaration for 'parse-upper-alphas' -Value *var_1184; +Value *var_1174; struct {int64_t type; int64_t len; - char buffer[2];} _str_33 = {1,1,"A"}; + char buffer[2];} _str_32 = {1,1,"A"}; struct {int64_t type; int64_t len; - char buffer[2];} _str_34 = {1,1,"Z"}; -Number _num_21 = {2, -1, 36}; + char buffer[2];} _str_33 = {1,1,"Z"}; +Number _num_21 = {2, -1, 35}; // --------- instance?_impl -------------- -Function fn_1185; -Value *arityImpl_1186(List *closures, Value *arg0, Value *arg1) { +Function fn_1175; +Value *arityImpl_1176(List *closures, Value *arg0, Value *arg1) { Value *rslt3; if((var_22)->type != 3) { rslt3 = protoFnImpl_5(empty_list, var_22, arg1); @@ -13284,32 +13202,32 @@ return (rslt4); // --------- instance?_impl main body -------------- -Function fn_1185 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1186}}}; -Value *protoImpl_1187(List *closures, Value *arg0, Value *arg1) { +Function fn_1175 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1176}}}; +Value *protoImpl_1177(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_1188 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1187}}}; +Function protoFn_1178 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1177}}}; // --------- invoke_impl -------------- -Function fn_1189; +Function fn_1179; // --------- recursive-descent_impl -------------- -Function fn_1191; +Function fn_1181; // --------- anon -------------- -Function fn_1193; -Value *arityImpl_1194(List *closures, Value *arg0) { +Function fn_1183; +Value *arityImpl_1184(List *closures, Value *arg0) { Value *rslt3; if((var_52)->type != 3) { -rslt3 = protoFnImpl_5(empty_list, var_52, (Value *)&_str_33); +rslt3 = protoFnImpl_5(empty_list, var_52, (Value *)&_str_32); } else { FnArity *arity0 = findFnArity(var_52, 1); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; -rslt3 = fn2(arity0->closures, (Value *)&_str_33); +rslt3 = fn2(arity0->closures, (Value *)&_str_32); } else if(arity0 != (FnArity *)0 && arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; List *varArgs1 = (List *)GC_malloc(sizeof(List)); @@ -13317,7 +13235,7 @@ varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)&_str_33, varArgs1); +varArgs1 = (List *)listCons((Value *)&_str_32, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_52)->name); @@ -13349,12 +13267,12 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_52)->name); } Value *rslt12; if((var_52)->type != 3) { -rslt12 = protoFnImpl_5(empty_list, var_52, (Value *)&_str_34); +rslt12 = protoFnImpl_5(empty_list, var_52, (Value *)&_str_33); } else { FnArity *arity9 = findFnArity(var_52, 1); if(arity9 != (FnArity *)0 && !arity9->variadic) { FnType1 *fn11 = (FnType1 *)arity9->fn; -rslt12 = fn11(arity9->closures, (Value *)&_str_34); +rslt12 = fn11(arity9->closures, (Value *)&_str_33); } else if(arity9 != (FnArity *)0 && arity9->variadic) { FnType1 *fn11 = (FnType1 *)arity9->fn; List *varArgs10 = (List *)GC_malloc(sizeof(List)); @@ -13362,7 +13280,7 @@ varArgs10->type = ListType; varArgs10->len = 0; varArgs10->head = (Value *)0; varArgs10->tail = (List *)0; -varArgs10 = (List *)listCons((Value *)&_str_34, varArgs10); +varArgs10 = (List *)listCons((Value *)&_str_33, varArgs10); rslt12 = fn11(arity9->closures, (Value *)varArgs10); } else { fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_52)->name); @@ -13384,48 +13302,48 @@ return (rslt15); // --------- anon main body -------------- -Function fn_1193 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1194}}}; -Value *arityImpl_1192(List *closures, Value *arg0) { -Value *rslt1 = arityImpl_1158((List *)var_31, (Value *)&fn_1193); +Function fn_1183 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1184}}}; +Value *arityImpl_1182(List *closures, Value *arg0) { +Value *rslt1 = arityImpl_1148((List *)var_31, (Value *)&fn_1183); return (rslt1); }; // --------- recursive-descent_impl main body -------------- -Function fn_1191 = {3, "recursive-descent_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1192}}}; -Value *protoImpl_1195(List *closures, Value *arg0) { +Function fn_1181 = {3, "recursive-descent_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1182}}}; +Value *protoImpl_1185(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1196 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1195}}}; +Function protoFn_1186 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1185}}}; -ReifiedVal reified_1197 = {36, 1, {(Value *)&fn_1191}}; -Value *arityImpl_1190(List *closures, Value *arg0) { -return ((Value *)&reified_1197); +ReifiedVal reified_1187 = {35, 1, {(Value *)&fn_1181}}; +Value *arityImpl_1180(List *closures, Value *arg0) { +return ((Value *)&reified_1187); }; // --------- invoke_impl main body -------------- -Function fn_1189 = {3, "invoke_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1190}}}; -Value *protoImpl_1198(List *closures, Value *arg0) { +Function fn_1179 = {3, "invoke_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1180}}}; +Value *protoImpl_1188(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1199 = {3, "invoke", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1198}}}; +Function protoFn_1189 = {3, "invoke", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1188}}}; -ReifiedVal reified_1200 = {35, 2, {(Value *)&fn_1185, (Value *)&fn_1189}}; -Value *var_1184 = (Value *)&reified_1200; +ReifiedVal reified_1190 = {34, 2, {(Value *)&fn_1175, (Value *)&fn_1179}}; +Value *var_1174 = (Value *)&reified_1190; // --------- upper-alpha -------------- -Function fn_1201; -Value *arityImpl_1202(List *closures) { +Function fn_1191; +Value *arityImpl_1192(List *closures) { Value *rslt3; -if((var_1184)->type != 3) { -rslt3 = protoFnImpl_3(empty_list, var_1184); +if((var_1174)->type != 3) { +rslt3 = protoFnImpl_3(empty_list, var_1174); } else { -FnArity *arity0 = findFnArity(var_1184, 0); +FnArity *arity0 = findFnArity(var_1174, 0); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType0 *fn2 = (FnType0 *)arity0->fn; rslt3 = fn2(arity0->closures); @@ -13438,15 +13356,15 @@ varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1184)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1174)->name); abort(); } } Value *rslt7; -if((var_936)->type != 3) { -rslt7 = protoFnImpl_5(empty_list, var_936, rslt3); +if((var_926)->type != 3) { +rslt7 = protoFnImpl_5(empty_list, var_926, rslt3); } else { -FnArity *arity4 = findFnArity(var_936, 1); +FnArity *arity4 = findFnArity(var_926, 1); if(arity4 != (FnArity *)0 && !arity4->variadic) { FnType1 *fn6 = (FnType1 *)arity4->fn; rslt7 = fn6(arity4->closures, rslt3); @@ -13460,7 +13378,7 @@ varArgs5->tail = (List *)0; varArgs5 = (List *)listCons(rslt3, varArgs5); rslt7 = fn6(arity4->closures, (Value *)varArgs5); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -13469,13 +13387,13 @@ return (rslt7); // --------- upper-alpha main body -------------- -Function fn_1201 = {3, "upper-alpha", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1202}}}; +Function fn_1191 = {3, "upper-alpha", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1192}}}; // --------- alpha -------------- -Function fn_1204; -Value *arityImpl_1205(List *closures) { -Value *rslt0 = arityImpl_1182((List *)var_31); -Value *rslt1 = arityImpl_1202((List *)var_31); +Function fn_1194; +Value *arityImpl_1195(List *closures) { +Value *rslt0 = arityImpl_1172((List *)var_31); +Value *rslt1 = arityImpl_1192((List *)var_31); List *varArgs2 = (List *)GC_malloc(sizeof(List)); varArgs2->type = ListType; varArgs2->len = 0; @@ -13489,21 +13407,21 @@ return (rslt3); // --------- alpha main body -------------- -Function fn_1204 = {3, "alpha", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1205}}}; +Function fn_1194 = {3, "alpha", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1195}}}; // forward declaration for 'parse-digit' -Value *var_1207; +Value *var_1197; struct {int64_t type; int64_t len; - char buffer[2];} _str_35 = {1,1,"0"}; + char buffer[2];} _str_34 = {1,1,"0"}; struct {int64_t type; int64_t len; - char buffer[2];} _str_36 = {1,1,"9"}; -Number _num_22 = {2, -1, 38}; + char buffer[2];} _str_35 = {1,1,"9"}; +Number _num_22 = {2, -1, 37}; // --------- instance?_impl -------------- -Function fn_1208; -Value *arityImpl_1209(List *closures, Value *arg0, Value *arg1) { +Function fn_1198; +Value *arityImpl_1199(List *closures, Value *arg0, Value *arg1) { Value *rslt3; if((var_22)->type != 3) { rslt3 = protoFnImpl_5(empty_list, var_22, arg1); @@ -13532,32 +13450,32 @@ return (rslt4); // --------- instance?_impl main body -------------- -Function fn_1208 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1209}}}; -Value *protoImpl_1210(List *closures, Value *arg0, Value *arg1) { +Function fn_1198 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1199}}}; +Value *protoImpl_1200(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_1211 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1210}}}; +Function protoFn_1201 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1200}}}; // --------- invoke_impl -------------- -Function fn_1212; +Function fn_1202; // --------- recursive-descent_impl -------------- -Function fn_1214; +Function fn_1204; // --------- anon -------------- -Function fn_1216; -Value *arityImpl_1217(List *closures, Value *arg0) { +Function fn_1206; +Value *arityImpl_1207(List *closures, Value *arg0) { Value *rslt3; if((var_52)->type != 3) { -rslt3 = protoFnImpl_5(empty_list, var_52, (Value *)&_str_35); +rslt3 = protoFnImpl_5(empty_list, var_52, (Value *)&_str_34); } else { FnArity *arity0 = findFnArity(var_52, 1); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; -rslt3 = fn2(arity0->closures, (Value *)&_str_35); +rslt3 = fn2(arity0->closures, (Value *)&_str_34); } else if(arity0 != (FnArity *)0 && arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; List *varArgs1 = (List *)GC_malloc(sizeof(List)); @@ -13565,7 +13483,7 @@ varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)&_str_35, varArgs1); +varArgs1 = (List *)listCons((Value *)&_str_34, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_52)->name); @@ -13597,12 +13515,12 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_52)->name); } Value *rslt12; if((var_52)->type != 3) { -rslt12 = protoFnImpl_5(empty_list, var_52, (Value *)&_str_36); +rslt12 = protoFnImpl_5(empty_list, var_52, (Value *)&_str_35); } else { FnArity *arity9 = findFnArity(var_52, 1); if(arity9 != (FnArity *)0 && !arity9->variadic) { FnType1 *fn11 = (FnType1 *)arity9->fn; -rslt12 = fn11(arity9->closures, (Value *)&_str_36); +rslt12 = fn11(arity9->closures, (Value *)&_str_35); } else if(arity9 != (FnArity *)0 && arity9->variadic) { FnType1 *fn11 = (FnType1 *)arity9->fn; List *varArgs10 = (List *)GC_malloc(sizeof(List)); @@ -13610,7 +13528,7 @@ varArgs10->type = ListType; varArgs10->len = 0; varArgs10->head = (Value *)0; varArgs10->tail = (List *)0; -varArgs10 = (List *)listCons((Value *)&_str_36, varArgs10); +varArgs10 = (List *)listCons((Value *)&_str_35, varArgs10); rslt12 = fn11(arity9->closures, (Value *)varArgs10); } else { fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_52)->name); @@ -13632,48 +13550,48 @@ return (rslt15); // --------- anon main body -------------- -Function fn_1216 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1217}}}; -Value *arityImpl_1215(List *closures, Value *arg0) { -Value *rslt1 = arityImpl_1158((List *)var_31, (Value *)&fn_1216); +Function fn_1206 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1207}}}; +Value *arityImpl_1205(List *closures, Value *arg0) { +Value *rslt1 = arityImpl_1148((List *)var_31, (Value *)&fn_1206); return (rslt1); }; // --------- recursive-descent_impl main body -------------- -Function fn_1214 = {3, "recursive-descent_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1215}}}; -Value *protoImpl_1218(List *closures, Value *arg0) { +Function fn_1204 = {3, "recursive-descent_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1205}}}; +Value *protoImpl_1208(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1219 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1218}}}; +Function protoFn_1209 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1208}}}; -ReifiedVal reified_1220 = {38, 1, {(Value *)&fn_1214}}; -Value *arityImpl_1213(List *closures, Value *arg0) { -return ((Value *)&reified_1220); +ReifiedVal reified_1210 = {37, 1, {(Value *)&fn_1204}}; +Value *arityImpl_1203(List *closures, Value *arg0) { +return ((Value *)&reified_1210); }; // --------- invoke_impl main body -------------- -Function fn_1212 = {3, "invoke_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1213}}}; -Value *protoImpl_1221(List *closures, Value *arg0) { +Function fn_1202 = {3, "invoke_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1203}}}; +Value *protoImpl_1211(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1222 = {3, "invoke", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1221}}}; +Function protoFn_1212 = {3, "invoke", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1211}}}; -ReifiedVal reified_1223 = {37, 2, {(Value *)&fn_1208, (Value *)&fn_1212}}; -Value *var_1207 = (Value *)&reified_1223; +ReifiedVal reified_1213 = {36, 2, {(Value *)&fn_1198, (Value *)&fn_1202}}; +Value *var_1197 = (Value *)&reified_1213; // --------- digit -------------- -Function fn_1224; -Value *arityImpl_1225(List *closures) { +Function fn_1214; +Value *arityImpl_1215(List *closures) { Value *rslt3; -if((var_1207)->type != 3) { -rslt3 = protoFnImpl_3(empty_list, var_1207); +if((var_1197)->type != 3) { +rslt3 = protoFnImpl_3(empty_list, var_1197); } else { -FnArity *arity0 = findFnArity(var_1207, 0); +FnArity *arity0 = findFnArity(var_1197, 0); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType0 *fn2 = (FnType0 *)arity0->fn; rslt3 = fn2(arity0->closures); @@ -13686,15 +13604,15 @@ varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1207)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1197)->name); abort(); } } Value *rslt7; -if((var_936)->type != 3) { -rslt7 = protoFnImpl_5(empty_list, var_936, rslt3); +if((var_926)->type != 3) { +rslt7 = protoFnImpl_5(empty_list, var_926, rslt3); } else { -FnArity *arity4 = findFnArity(var_936, 1); +FnArity *arity4 = findFnArity(var_926, 1); if(arity4 != (FnArity *)0 && !arity4->variadic) { FnType1 *fn6 = (FnType1 *)arity4->fn; rslt7 = fn6(arity4->closures, rslt3); @@ -13708,7 +13626,7 @@ varArgs5->tail = (List *)0; varArgs5 = (List *)listCons(rslt3, varArgs5); rslt7 = fn6(arity4->closures, (Value *)varArgs5); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -13717,30 +13635,30 @@ return (rslt7); // --------- digit main body -------------- -Function fn_1224 = {3, "digit", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1225}}}; +Function fn_1214 = {3, "digit", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1215}}}; // --------- one-of -------------- -Function fn_1227; -Value *arityImpl_1228(List *closures, Value *arg0) { +Function fn_1217; +Value *arityImpl_1218(List *closures, Value *arg0) { Value *rslt0 = protoFnImpl_214((List *)var_31, arg0); Value *rslt1 = protoFnImpl_219((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1067((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1057((List *)var_31, rslt1); Value *rslt3 = protoFnImpl_224((List *)var_31, rslt0); -Value *rslt4 = protoFnImpl_125((List *)var_31, rslt3, (Value *)&fn_1066); +Value *rslt4 = protoFnImpl_125((List *)var_31, rslt3, (Value *)&fn_1056); Value *rslt5 = protoFnImpl_247((List *)var_31, rslt2, rslt4); return (rslt5); }; // --------- one-of main body -------------- -Function fn_1227 = {3, "one-of", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1228}}}; +Function fn_1217 = {3, "one-of", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1218}}}; // --------- to-string -------------- -Function fn_1230; +Function fn_1220; // --------- anon -------------- -Function fn_1232; -Value *arityImpl_1233(List *closures, Value *arg0) { +Function fn_1222; +Value *arityImpl_1223(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; @@ -13754,31 +13672,31 @@ return (rslt1); // --------- anon main body -------------- -Function fn_1232 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1233}}}; -Value *arityImpl_1231(List *closures, Value *arg0) { +Function fn_1222 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1223}}}; +Value *arityImpl_1221(List *closures, Value *arg0) { List *varArgs1 = (List *)GC_malloc(sizeof(List)); varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)arg0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&fn_1232, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&fn_1222, varArgs1); Value *rslt2 = arityImpl_116((List *)var_31, (Value *)varArgs1); return (rslt2); }; // --------- to-string main body -------------- -Function fn_1230 = {3, "to-string", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1231}}}; +Function fn_1220 = {3, "to-string", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1221}}}; struct {int64_t type; int64_t len; - char buffer[10];} _str_37 = {1,9,"._<>=+-*/"}; + char buffer[10];} _str_36 = {1,9,"._<>=+-*/"}; // --------- symbol-start -------------- -Function fn_1235; -Value *arityImpl_1236(List *closures) { -Value *rslt0 = arityImpl_1205((List *)var_31); -Value *rslt1 = arityImpl_1228((List *)var_31, (Value *)&_str_37); +Function fn_1225; +Value *arityImpl_1226(List *closures) { +Value *rslt0 = arityImpl_1195((List *)var_31); +Value *rslt1 = arityImpl_1218((List *)var_31, (Value *)&_str_36); List *varArgs2 = (List *)GC_malloc(sizeof(List)); varArgs2->type = ListType; varArgs2->len = 0; @@ -13792,28 +13710,28 @@ return (rslt3); // --------- symbol-start main body -------------- -Function fn_1235 = {3, "symbol-start", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1236}}}; +Function fn_1225 = {3, "symbol-start", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1226}}}; struct {int64_t type; int64_t len; - char buffer[12];} _str_38 = {1,11,"._<>=*/+!-?"}; + char buffer[12];} _str_37 = {1,11,"._<>=*/+!-?"}; // --------- symbol-punct -------------- -Function fn_1238; -Value *arityImpl_1239(List *closures) { -Value *rslt0 = arityImpl_1228((List *)var_31, (Value *)&_str_38); +Function fn_1228; +Value *arityImpl_1229(List *closures) { +Value *rslt0 = arityImpl_1218((List *)var_31, (Value *)&_str_37); return (rslt0); }; // --------- symbol-punct main body -------------- -Function fn_1238 = {3, "symbol-punct", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1239}}}; +Function fn_1228 = {3, "symbol-punct", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1229}}}; // --------- symbol-char -------------- -Function fn_1241; -Value *arityImpl_1242(List *closures) { -Value *rslt0 = arityImpl_1205((List *)var_31); -Value *rslt1 = arityImpl_1225((List *)var_31); -Value *rslt2 = arityImpl_1239((List *)var_31); +Function fn_1231; +Value *arityImpl_1232(List *closures) { +Value *rslt0 = arityImpl_1195((List *)var_31); +Value *rslt1 = arityImpl_1215((List *)var_31); +Value *rslt2 = arityImpl_1229((List *)var_31); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; varArgs3->len = 0; @@ -13828,26 +13746,26 @@ return (rslt4); // --------- symbol-char main body -------------- -Function fn_1241 = {3, "symbol-char", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1242}}}; +Function fn_1231 = {3, "symbol-char", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1232}}}; // --------- rest-of-symbol -------------- -Function fn_1244; -Value *arityImpl_1245(List *closures) { -Value *rslt0 = arityImpl_1242((List *)var_31); -Value *rslt1 = arityImpl_1155((List *)var_31, rslt0); +Function fn_1234; +Value *arityImpl_1235(List *closures) { +Value *rslt0 = arityImpl_1232((List *)var_31); +Value *rslt1 = arityImpl_1145((List *)var_31, rslt0); return (rslt1); }; // --------- rest-of-symbol main body -------------- -Function fn_1244 = {3, "rest-of-symbol", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1245}}}; +Function fn_1234 = {3, "rest-of-symbol", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1235}}}; // --------- read-symbol -------------- -Function fn_1247; +Function fn_1237; // --------- anon -------------- -Function fn_1249; -Value *arityImpl_1250(List *closures, Value *arg0, Value *arg1) { +Function fn_1239; +Value *arityImpl_1240(List *closures, Value *arg0, Value *arg1) { Value *rslt3; if((var_32)->type != 3) { rslt3 = protoFnImpl_7(empty_list, var_32, arg0, arg1); @@ -13906,10 +13824,10 @@ return (rslt9); // --------- anon main body -------------- -Function fn_1249 = {3, "anon", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1250}}}; -Value *arityImpl_1248(List *closures) { -Value *rslt1 = arityImpl_1236((List *)var_31); -Value *rslt2 = arityImpl_1245((List *)var_31); +Function fn_1239 = {3, "anon", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1240}}}; +Value *arityImpl_1238(List *closures) { +Value *rslt1 = arityImpl_1226((List *)var_31); +Value *rslt2 = arityImpl_1235((List *)var_31); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; varArgs3->len = 0; @@ -13917,21 +13835,21 @@ varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; varArgs3 = (List *)listCons((Value *)rslt2, varArgs3); varArgs3 = (List *)listCons((Value *)rslt1, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&fn_1249, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&fn_1239, varArgs3); Value *rslt4 = arityImpl_116((List *)var_31, (Value *)varArgs3); return (rslt4); }; // --------- read-symbol main body -------------- -Function fn_1247 = {3, "read-symbol", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1248}}}; +Function fn_1237 = {3, "read-symbol", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1238}}}; // --------- read-keyword -------------- -Function fn_1252; +Function fn_1242; // --------- anon -------------- -Function fn_1254; -Value *arityImpl_1255(List *closures, Value *arg0, Value *arg1) { +Function fn_1244; +Value *arityImpl_1245(List *closures, Value *arg0, Value *arg1) { Value *rslt3; if((var_32)->type != 3) { rslt3 = protoFnImpl_7(empty_list, var_32, arg0, arg1); @@ -13963,18 +13881,18 @@ varArgs4->tail = (List *)0; varArgs4 = (List *)listCons((Value *)rslt3, varArgs4); varArgs4 = (List *)listCons((Value *)(Value *)&fn_507, varArgs4); Value *rslt5 = arityImpl_113((List *)var_31, (Value *)varArgs4); -Value *rslt6 = arityImpl_659((List *)var_31, rslt5); +Value *rslt6 = arityImpl_649((List *)var_31, rslt5); return (rslt6); }; // --------- anon main body -------------- -Function fn_1254 = {3, "anon", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1255}}}; -Value *arityImpl_1253(List *closures) { -Value *rslt1 = arityImpl_1067((List *)var_31, (Value *)&_str_25); -Value *rslt2 = arityImpl_1125((List *)var_31, rslt1); -Value *rslt3 = arityImpl_1236((List *)var_31); -Value *rslt4 = arityImpl_1245((List *)var_31); +Function fn_1244 = {3, "anon", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1245}}}; +Value *arityImpl_1243(List *closures) { +Value *rslt1 = arityImpl_1057((List *)var_31, (Value *)&_str_24); +Value *rslt2 = arityImpl_1115((List *)var_31, rslt1); +Value *rslt3 = arityImpl_1226((List *)var_31); +Value *rslt4 = arityImpl_1235((List *)var_31); List *varArgs5 = (List *)GC_malloc(sizeof(List)); varArgs5->type = ListType; varArgs5->len = 0; @@ -13983,19 +13901,19 @@ varArgs5->tail = (List *)0; varArgs5 = (List *)listCons((Value *)rslt4, varArgs5); varArgs5 = (List *)listCons((Value *)rslt3, varArgs5); varArgs5 = (List *)listCons((Value *)rslt2, varArgs5); -varArgs5 = (List *)listCons((Value *)(Value *)&fn_1254, varArgs5); +varArgs5 = (List *)listCons((Value *)(Value *)&fn_1244, varArgs5); Value *rslt6 = arityImpl_116((List *)var_31, (Value *)varArgs5); return (rslt6); }; // --------- read-keyword main body -------------- -Function fn_1252 = {3, "read-keyword", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1253}}}; +Function fn_1242 = {3, "read-keyword", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1243}}}; Number _num_23 = {2, -1, 92}; // --------- backslash -------------- -Function fn_1257; -Value *arityImpl_1258(List *closures) { +Function fn_1247; +Value *arityImpl_1248(List *closures) { Value *rslt3; if((var_39)->type != 3) { rslt3 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_23); @@ -14018,25 +13936,25 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_39)->name); abort(); } } -Value *rslt4 = arityImpl_1067((List *)var_31, rslt3); +Value *rslt4 = arityImpl_1057((List *)var_31, rslt3); return (rslt4); }; // --------- backslash main body -------------- -Function fn_1257 = {3, "backslash", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1258}}}; +Function fn_1247 = {3, "backslash", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1248}}}; struct {int64_t type; int64_t len; - char buffer[2];} _str_39 = {1,1,"n"}; + char buffer[2];} _str_38 = {1,1,"n"}; Number _num_24 = {2, -1, 10}; // --------- read-string-newline -------------- -Function fn_1260; -Value *arityImpl_1261(List *closures) { -Value *rslt0 = arityImpl_1258((List *)var_31); -Value *rslt1 = arityImpl_1125((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1067((List *)var_31, (Value *)&_str_39); -Value *rslt3 = arityImpl_1125((List *)var_31, rslt2); +Function fn_1250; +Value *arityImpl_1251(List *closures) { +Value *rslt0 = arityImpl_1248((List *)var_31); +Value *rslt1 = arityImpl_1115((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1057((List *)var_31, (Value *)&_str_38); +Value *rslt3 = arityImpl_1115((List *)var_31, rslt2); Value *rslt7; if((var_39)->type != 3) { rslt7 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_24); @@ -14059,7 +13977,7 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_39)->name); abort(); } } -Value *rslt8 = arityImpl_1146((List *)var_31, rslt7); +Value *rslt8 = arityImpl_1136((List *)var_31, rslt7); List *varArgs9 = (List *)GC_malloc(sizeof(List)); varArgs9->type = ListType; varArgs9->len = 0; @@ -14068,24 +13986,24 @@ varArgs9->tail = (List *)0; varArgs9 = (List *)listCons((Value *)rslt8, varArgs9); varArgs9 = (List *)listCons((Value *)rslt3, varArgs9); varArgs9 = (List *)listCons((Value *)rslt1, varArgs9); -Value *rslt10 = arityImpl_1149((List *)var_31, (Value *)varArgs9); +Value *rslt10 = arityImpl_1139((List *)var_31, (Value *)varArgs9); return (rslt10); }; // --------- read-string-newline main body -------------- -Function fn_1260 = {3, "read-string-newline", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1261}}}; +Function fn_1250 = {3, "read-string-newline", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1251}}}; struct {int64_t type; int64_t len; - char buffer[2];} _str_40 = {1,1,"t"}; + char buffer[2];} _str_39 = {1,1,"t"}; // --------- read-string-tab -------------- -Function fn_1263; -Value *arityImpl_1264(List *closures) { -Value *rslt0 = arityImpl_1258((List *)var_31); -Value *rslt1 = arityImpl_1125((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1067((List *)var_31, (Value *)&_str_40); -Value *rslt3 = arityImpl_1125((List *)var_31, rslt2); +Function fn_1253; +Value *arityImpl_1254(List *closures) { +Value *rslt0 = arityImpl_1248((List *)var_31); +Value *rslt1 = arityImpl_1115((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1057((List *)var_31, (Value *)&_str_39); +Value *rslt3 = arityImpl_1115((List *)var_31, rslt2); Value *rslt7; if((var_39)->type != 3) { rslt7 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_9); @@ -14108,7 +14026,7 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_39)->name); abort(); } } -Value *rslt8 = arityImpl_1146((List *)var_31, rslt7); +Value *rslt8 = arityImpl_1136((List *)var_31, rslt7); List *varArgs9 = (List *)GC_malloc(sizeof(List)); varArgs9->type = ListType; varArgs9->len = 0; @@ -14117,25 +14035,25 @@ varArgs9->tail = (List *)0; varArgs9 = (List *)listCons((Value *)rslt8, varArgs9); varArgs9 = (List *)listCons((Value *)rslt3, varArgs9); varArgs9 = (List *)listCons((Value *)rslt1, varArgs9); -Value *rslt10 = arityImpl_1149((List *)var_31, (Value *)varArgs9); +Value *rslt10 = arityImpl_1139((List *)var_31, (Value *)varArgs9); return (rslt10); }; // --------- read-string-tab main body -------------- -Function fn_1263 = {3, "read-string-tab", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1264}}}; +Function fn_1253 = {3, "read-string-tab", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1254}}}; struct {int64_t type; int64_t len; - char buffer[2];} _str_41 = {1,1,"b"}; + char buffer[2];} _str_40 = {1,1,"b"}; Number _num_25 = {2, -1, 8}; // --------- read-string-backspace -------------- -Function fn_1266; -Value *arityImpl_1267(List *closures) { -Value *rslt0 = arityImpl_1258((List *)var_31); -Value *rslt1 = arityImpl_1125((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1067((List *)var_31, (Value *)&_str_41); -Value *rslt3 = arityImpl_1125((List *)var_31, rslt2); +Function fn_1256; +Value *arityImpl_1257(List *closures) { +Value *rslt0 = arityImpl_1248((List *)var_31); +Value *rslt1 = arityImpl_1115((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1057((List *)var_31, (Value *)&_str_40); +Value *rslt3 = arityImpl_1115((List *)var_31, rslt2); Value *rslt7; if((var_39)->type != 3) { rslt7 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_25); @@ -14158,7 +14076,7 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_39)->name); abort(); } } -Value *rslt8 = arityImpl_1146((List *)var_31, rslt7); +Value *rslt8 = arityImpl_1136((List *)var_31, rslt7); List *varArgs9 = (List *)GC_malloc(sizeof(List)); varArgs9->type = ListType; varArgs9->len = 0; @@ -14167,33 +14085,32 @@ varArgs9->tail = (List *)0; varArgs9 = (List *)listCons((Value *)rslt8, varArgs9); varArgs9 = (List *)listCons((Value *)rslt3, varArgs9); varArgs9 = (List *)listCons((Value *)rslt1, varArgs9); -Value *rslt10 = arityImpl_1149((List *)var_31, (Value *)varArgs9); +Value *rslt10 = arityImpl_1139((List *)var_31, (Value *)varArgs9); return (rslt10); }; // --------- read-string-backspace main body -------------- -Function fn_1266 = {3, "read-string-backspace", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1267}}}; +Function fn_1256 = {3, "read-string-backspace", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1257}}}; struct {int64_t type; int64_t len; - char buffer[2];} _str_42 = {1,1,"r"}; -Number _num_26 = {2, -1, 13}; + char buffer[2];} _str_41 = {1,1,"r"}; // --------- read-string-return -------------- -Function fn_1269; -Value *arityImpl_1270(List *closures) { -Value *rslt0 = arityImpl_1258((List *)var_31); -Value *rslt1 = arityImpl_1125((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1067((List *)var_31, (Value *)&_str_42); -Value *rslt3 = arityImpl_1125((List *)var_31, rslt2); +Function fn_1259; +Value *arityImpl_1260(List *closures) { +Value *rslt0 = arityImpl_1248((List *)var_31); +Value *rslt1 = arityImpl_1115((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1057((List *)var_31, (Value *)&_str_41); +Value *rslt3 = arityImpl_1115((List *)var_31, rslt2); Value *rslt7; if((var_39)->type != 3) { -rslt7 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_26); +rslt7 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_11); } else { FnArity *arity4 = findFnArity(var_39, 1); if(arity4 != (FnArity *)0 && !arity4->variadic) { FnType1 *fn6 = (FnType1 *)arity4->fn; -rslt7 = fn6(arity4->closures, (Value *)&_num_26); +rslt7 = fn6(arity4->closures, (Value *)&_num_11); } else if(arity4 != (FnArity *)0 && arity4->variadic) { FnType1 *fn6 = (FnType1 *)arity4->fn; List *varArgs5 = (List *)GC_malloc(sizeof(List)); @@ -14201,14 +14118,14 @@ varArgs5->type = ListType; varArgs5->len = 0; varArgs5->head = (Value *)0; varArgs5->tail = (List *)0; -varArgs5 = (List *)listCons((Value *)&_num_26, varArgs5); +varArgs5 = (List *)listCons((Value *)&_num_11, varArgs5); rslt7 = fn6(arity4->closures, (Value *)varArgs5); } else { fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_39)->name); abort(); } } -Value *rslt8 = arityImpl_1146((List *)var_31, rslt7); +Value *rslt8 = arityImpl_1136((List *)var_31, rslt7); List *varArgs9 = (List *)GC_malloc(sizeof(List)); varArgs9->type = ListType; varArgs9->len = 0; @@ -14217,33 +14134,33 @@ varArgs9->tail = (List *)0; varArgs9 = (List *)listCons((Value *)rslt8, varArgs9); varArgs9 = (List *)listCons((Value *)rslt3, varArgs9); varArgs9 = (List *)listCons((Value *)rslt1, varArgs9); -Value *rslt10 = arityImpl_1149((List *)var_31, (Value *)varArgs9); +Value *rslt10 = arityImpl_1139((List *)var_31, (Value *)varArgs9); return (rslt10); }; // --------- read-string-return main body -------------- -Function fn_1269 = {3, "read-string-return", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1270}}}; +Function fn_1259 = {3, "read-string-return", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1260}}}; struct {int64_t type; int64_t len; - char buffer[2];} _str_43 = {1,1,"f"}; -Number _num_27 = {2, -1, 12}; + char buffer[2];} _str_42 = {1,1,"f"}; +Number _num_26 = {2, -1, 12}; // --------- read-string-formfeed -------------- -Function fn_1272; -Value *arityImpl_1273(List *closures) { -Value *rslt0 = arityImpl_1258((List *)var_31); -Value *rslt1 = arityImpl_1125((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1067((List *)var_31, (Value *)&_str_43); -Value *rslt3 = arityImpl_1125((List *)var_31, rslt2); +Function fn_1262; +Value *arityImpl_1263(List *closures) { +Value *rslt0 = arityImpl_1248((List *)var_31); +Value *rslt1 = arityImpl_1115((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1057((List *)var_31, (Value *)&_str_42); +Value *rslt3 = arityImpl_1115((List *)var_31, rslt2); Value *rslt7; if((var_39)->type != 3) { -rslt7 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_27); +rslt7 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_26); } else { FnArity *arity4 = findFnArity(var_39, 1); if(arity4 != (FnArity *)0 && !arity4->variadic) { FnType1 *fn6 = (FnType1 *)arity4->fn; -rslt7 = fn6(arity4->closures, (Value *)&_num_27); +rslt7 = fn6(arity4->closures, (Value *)&_num_26); } else if(arity4 != (FnArity *)0 && arity4->variadic) { FnType1 *fn6 = (FnType1 *)arity4->fn; List *varArgs5 = (List *)GC_malloc(sizeof(List)); @@ -14251,14 +14168,14 @@ varArgs5->type = ListType; varArgs5->len = 0; varArgs5->head = (Value *)0; varArgs5->tail = (List *)0; -varArgs5 = (List *)listCons((Value *)&_num_27, varArgs5); +varArgs5 = (List *)listCons((Value *)&_num_26, varArgs5); rslt7 = fn6(arity4->closures, (Value *)varArgs5); } else { fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_39)->name); abort(); } } -Value *rslt8 = arityImpl_1146((List *)var_31, rslt7); +Value *rslt8 = arityImpl_1136((List *)var_31, rslt7); List *varArgs9 = (List *)GC_malloc(sizeof(List)); varArgs9->type = ListType; varArgs9->len = 0; @@ -14267,27 +14184,28 @@ varArgs9->tail = (List *)0; varArgs9 = (List *)listCons((Value *)rslt8, varArgs9); varArgs9 = (List *)listCons((Value *)rslt3, varArgs9); varArgs9 = (List *)listCons((Value *)rslt1, varArgs9); -Value *rslt10 = arityImpl_1149((List *)var_31, (Value *)varArgs9); +Value *rslt10 = arityImpl_1139((List *)var_31, (Value *)varArgs9); return (rslt10); }; // --------- read-string-formfeed main body -------------- -Function fn_1272 = {3, "read-string-formfeed", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1273}}}; +Function fn_1262 = {3, "read-string-formfeed", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1263}}}; +Number _num_27 = {2, -1, 34}; // --------- read-string-doublequote -------------- -Function fn_1275; -Value *arityImpl_1276(List *closures) { -Value *rslt0 = arityImpl_1258((List *)var_31); -Value *rslt1 = arityImpl_1125((List *)var_31, rslt0); +Function fn_1265; +Value *arityImpl_1266(List *closures) { +Value *rslt0 = arityImpl_1248((List *)var_31); +Value *rslt1 = arityImpl_1115((List *)var_31, rslt0); Value *rslt5; if((var_39)->type != 3) { -rslt5 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_20); +rslt5 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_27); } else { FnArity *arity2 = findFnArity(var_39, 1); if(arity2 != (FnArity *)0 && !arity2->variadic) { FnType1 *fn4 = (FnType1 *)arity2->fn; -rslt5 = fn4(arity2->closures, (Value *)&_num_20); +rslt5 = fn4(arity2->closures, (Value *)&_num_27); } else if(arity2 != (FnArity *)0 && arity2->variadic) { FnType1 *fn4 = (FnType1 *)arity2->fn; List *varArgs3 = (List *)GC_malloc(sizeof(List)); @@ -14295,23 +14213,23 @@ varArgs3->type = ListType; varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; -varArgs3 = (List *)listCons((Value *)&_num_20, varArgs3); +varArgs3 = (List *)listCons((Value *)&_num_27, varArgs3); rslt5 = fn4(arity2->closures, (Value *)varArgs3); } else { fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_39)->name); abort(); } } -Value *rslt6 = arityImpl_1067((List *)var_31, rslt5); -Value *rslt7 = arityImpl_1125((List *)var_31, rslt6); +Value *rslt6 = arityImpl_1057((List *)var_31, rslt5); +Value *rslt7 = arityImpl_1115((List *)var_31, rslt6); Value *rslt11; if((var_39)->type != 3) { -rslt11 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_20); +rslt11 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_27); } else { FnArity *arity8 = findFnArity(var_39, 1); if(arity8 != (FnArity *)0 && !arity8->variadic) { FnType1 *fn10 = (FnType1 *)arity8->fn; -rslt11 = fn10(arity8->closures, (Value *)&_num_20); +rslt11 = fn10(arity8->closures, (Value *)&_num_27); } else if(arity8 != (FnArity *)0 && arity8->variadic) { FnType1 *fn10 = (FnType1 *)arity8->fn; List *varArgs9 = (List *)GC_malloc(sizeof(List)); @@ -14319,14 +14237,14 @@ varArgs9->type = ListType; varArgs9->len = 0; varArgs9->head = (Value *)0; varArgs9->tail = (List *)0; -varArgs9 = (List *)listCons((Value *)&_num_20, varArgs9); +varArgs9 = (List *)listCons((Value *)&_num_27, varArgs9); rslt11 = fn10(arity8->closures, (Value *)varArgs9); } else { fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_39)->name); abort(); } } -Value *rslt12 = arityImpl_1146((List *)var_31, rslt11); +Value *rslt12 = arityImpl_1136((List *)var_31, rslt11); List *varArgs13 = (List *)GC_malloc(sizeof(List)); varArgs13->type = ListType; varArgs13->len = 0; @@ -14335,21 +14253,21 @@ varArgs13->tail = (List *)0; varArgs13 = (List *)listCons((Value *)rslt12, varArgs13); varArgs13 = (List *)listCons((Value *)rslt7, varArgs13); varArgs13 = (List *)listCons((Value *)rslt1, varArgs13); -Value *rslt14 = arityImpl_1149((List *)var_31, (Value *)varArgs13); +Value *rslt14 = arityImpl_1139((List *)var_31, (Value *)varArgs13); return (rslt14); }; // --------- read-string-doublequote main body -------------- -Function fn_1275 = {3, "read-string-doublequote", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1276}}}; +Function fn_1265 = {3, "read-string-doublequote", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1266}}}; // --------- read-string-backslash -------------- -Function fn_1278; -Value *arityImpl_1279(List *closures) { -Value *rslt0 = arityImpl_1258((List *)var_31); -Value *rslt1 = arityImpl_1125((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1258((List *)var_31); -Value *rslt3 = arityImpl_1125((List *)var_31, rslt2); +Function fn_1268; +Value *arityImpl_1269(List *closures) { +Value *rslt0 = arityImpl_1248((List *)var_31); +Value *rslt1 = arityImpl_1115((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1248((List *)var_31); +Value *rslt3 = arityImpl_1115((List *)var_31, rslt2); Value *rslt7; if((var_39)->type != 3) { rslt7 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_23); @@ -14372,7 +14290,7 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_39)->name); abort(); } } -Value *rslt8 = arityImpl_1146((List *)var_31, rslt7); +Value *rslt8 = arityImpl_1136((List *)var_31, rslt7); List *varArgs9 = (List *)GC_malloc(sizeof(List)); varArgs9->type = ListType; varArgs9->len = 0; @@ -14381,21 +14299,21 @@ varArgs9->tail = (List *)0; varArgs9 = (List *)listCons((Value *)rslt8, varArgs9); varArgs9 = (List *)listCons((Value *)rslt3, varArgs9); varArgs9 = (List *)listCons((Value *)rslt1, varArgs9); -Value *rslt10 = arityImpl_1149((List *)var_31, (Value *)varArgs9); +Value *rslt10 = arityImpl_1139((List *)var_31, (Value *)varArgs9); return (rslt10); }; // --------- read-string-backslash main body -------------- -Function fn_1278 = {3, "read-string-backslash", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1279}}}; +Function fn_1268 = {3, "read-string-backslash", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1269}}}; // forward declaration for 'parse-not-backslash' -Value *var_1281; +Value *var_1271; -Number _num_28 = {2, -1, 40}; +Number _num_28 = {2, -1, 39}; // --------- instance?_impl -------------- -Function fn_1282; -Value *arityImpl_1283(List *closures, Value *arg0, Value *arg1) { +Function fn_1272; +Value *arityImpl_1273(List *closures, Value *arg0, Value *arg1) { Value *rslt3; if((var_22)->type != 3) { rslt3 = protoFnImpl_5(empty_list, var_22, arg1); @@ -14424,27 +14342,27 @@ return (rslt4); // --------- instance?_impl main body -------------- -Function fn_1282 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1283}}}; -Value *protoImpl_1284(List *closures, Value *arg0, Value *arg1) { +Function fn_1272 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1273}}}; +Value *protoImpl_1274(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_1285 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1284}}}; +Function protoFn_1275 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1274}}}; // --------- invoke_impl -------------- -Function fn_1286; +Function fn_1276; // --------- recursive-descent_impl -------------- -Function fn_1288; +Function fn_1278; // --------- anon -------------- -Function fn_1290; +Function fn_1280; // --------- anon -------------- -Function fn_1292; -Value *arityImpl_1293(List *closures, Value *arg0) { +Function fn_1282; +Value *arityImpl_1283(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -14464,7 +14382,7 @@ Value *rslt4 = protoFnImpl_100((List *)var_31, val0, rslt3); return (rslt4); }; -Value *arityImpl_1291(List *closures, Value *arg0) { +Value *arityImpl_1281(List *closures, Value *arg0) { Value *val5 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -14524,12 +14442,12 @@ cond7 = var_20; } else { Value *rslt16; if((var_39)->type != 3) { -rslt16 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_20); +rslt16 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_27); } else { FnArity *arity13 = findFnArity(var_39, 1); if(arity13 != (FnArity *)0 && !arity13->variadic) { FnType1 *fn15 = (FnType1 *)arity13->fn; -rslt16 = fn15(arity13->closures, (Value *)&_num_20); +rslt16 = fn15(arity13->closures, (Value *)&_num_27); } else if(arity13 != (FnArity *)0 && arity13->variadic) { FnType1 *fn15 = (FnType1 *)arity13->fn; List *varArgs14 = (List *)GC_malloc(sizeof(List)); @@ -14537,7 +14455,7 @@ varArgs14->type = ListType; varArgs14->len = 0; varArgs14->head = (Value *)0; varArgs14->tail = (List *)0; -varArgs14 = (List *)listCons((Value *)&_num_20, varArgs14); +varArgs14 = (List *)listCons((Value *)&_num_27, varArgs14); rslt16 = fn15(arity13->closures, (Value *)varArgs14); } else { fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_39)->name); @@ -14577,20 +14495,20 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_24)->name); abort(); } } -Value *rslt22 = arityImpl_1009((List *)var_31, (Value *)&_kw_10, rslt21); +Value *rslt22 = arityImpl_999((List *)var_31, (Value *)&_kw_8, rslt21); FnArity *arity_23 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_23->count = 1; arity_23->closures = empty_list; arity_23->variadic = 0; -arity_23->fn = arityImpl_1293; +arity_23->fn = arityImpl_1283; arity_23->closures = listCons((Value *)rslt3, (List *)arity_23->closures); arity_23->closures = listCons((Value *)val5, (List *)arity_23->closures); -Function *fn_1292 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1292->type = 3; -fn_1292->name = "anon"; -fn_1292->arityCount = 1; -fn_1292->arities[0] = arity_23; -Value *rslt24 = protoFnImpl_78((List *)var_31, rslt22, (Value *)fn_1292); +Function *fn_1282 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1282->type = 3; +fn_1282->name = "anon"; +fn_1282->arityCount = 1; +fn_1282->arities[0] = arity_23; +Value *rslt24 = protoFnImpl_78((List *)var_31, rslt22, (Value *)fn_1282); cond4 = rslt24; } else { Value *rslt6 = protoFnImpl_242((List *)var_31, val5); @@ -14599,59 +14517,59 @@ cond4 = rslt6; return (cond4); }; -Value *arityImpl_1289(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_10, (Value *)&_str_19); +Value *arityImpl_1279(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_8, (Value *)&_str_19); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1291; +arity_1->fn = arityImpl_1281; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_1290 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1290->type = 3; -fn_1290->name = "anon"; -fn_1290->arityCount = 1; -fn_1290->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1290); +Function *fn_1280 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1280->type = 3; +fn_1280->name = "anon"; +fn_1280->arityCount = 1; +fn_1280->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1280); return (rslt2); }; // --------- recursive-descent_impl main body -------------- -Function fn_1288 = {3, "recursive-descent_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1289}}}; -Value *protoImpl_1294(List *closures, Value *arg0) { +Function fn_1278 = {3, "recursive-descent_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1279}}}; +Value *protoImpl_1284(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1295 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1294}}}; +Function protoFn_1285 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1284}}}; -ReifiedVal reified_1296 = {40, 1, {(Value *)&fn_1288}}; -Value *arityImpl_1287(List *closures, Value *arg0) { -return ((Value *)&reified_1296); +ReifiedVal reified_1286 = {39, 1, {(Value *)&fn_1278}}; +Value *arityImpl_1277(List *closures, Value *arg0) { +return ((Value *)&reified_1286); }; // --------- invoke_impl main body -------------- -Function fn_1286 = {3, "invoke_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1287}}}; -Value *protoImpl_1297(List *closures, Value *arg0) { +Function fn_1276 = {3, "invoke_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1277}}}; +Value *protoImpl_1287(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1298 = {3, "invoke", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1297}}}; +Function protoFn_1288 = {3, "invoke", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1287}}}; -ReifiedVal reified_1299 = {39, 2, {(Value *)&fn_1282, (Value *)&fn_1286}}; -Value *var_1281 = (Value *)&reified_1299; +ReifiedVal reified_1289 = {38, 2, {(Value *)&fn_1272, (Value *)&fn_1276}}; +Value *var_1271 = (Value *)&reified_1289; // --------- not-backslash -------------- -Function fn_1300; -Value *arityImpl_1301(List *closures) { +Function fn_1290; +Value *arityImpl_1291(List *closures) { Value *rslt3; -if((var_1281)->type != 3) { -rslt3 = protoFnImpl_3(empty_list, var_1281); +if((var_1271)->type != 3) { +rslt3 = protoFnImpl_3(empty_list, var_1271); } else { -FnArity *arity0 = findFnArity(var_1281, 0); +FnArity *arity0 = findFnArity(var_1271, 0); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType0 *fn2 = (FnType0 *)arity0->fn; rslt3 = fn2(arity0->closures); @@ -14664,15 +14582,15 @@ varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1281)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1271)->name); abort(); } } Value *rslt7; -if((var_936)->type != 3) { -rslt7 = protoFnImpl_5(empty_list, var_936, rslt3); +if((var_926)->type != 3) { +rslt7 = protoFnImpl_5(empty_list, var_926, rslt3); } else { -FnArity *arity4 = findFnArity(var_936, 1); +FnArity *arity4 = findFnArity(var_926, 1); if(arity4 != (FnArity *)0 && !arity4->variadic) { FnType1 *fn6 = (FnType1 *)arity4->fn; rslt7 = fn6(arity4->closures, rslt3); @@ -14686,7 +14604,7 @@ varArgs5->tail = (List *)0; varArgs5 = (List *)listCons(rslt3, varArgs5); rslt7 = fn6(arity4->closures, (Value *)varArgs5); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -14695,19 +14613,19 @@ return (rslt7); // --------- not-backslash main body -------------- -Function fn_1300 = {3, "not-backslash", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1301}}}; +Function fn_1290 = {3, "not-backslash", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1291}}}; // --------- read-const-string -------------- -Function fn_1303; -Value *arityImpl_1304(List *closures) { +Function fn_1293; +Value *arityImpl_1294(List *closures) { Value *rslt3; if((var_39)->type != 3) { -rslt3 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_20); +rslt3 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_27); } else { FnArity *arity0 = findFnArity(var_39, 1); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; -rslt3 = fn2(arity0->closures, (Value *)&_num_20); +rslt3 = fn2(arity0->closures, (Value *)&_num_27); } else if(arity0 != (FnArity *)0 && arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; List *varArgs1 = (List *)GC_malloc(sizeof(List)); @@ -14715,23 +14633,23 @@ varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)&_num_20, varArgs1); +varArgs1 = (List *)listCons((Value *)&_num_27, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_39)->name); abort(); } } -Value *rslt4 = arityImpl_1067((List *)var_31, rslt3); -Value *rslt5 = arityImpl_1125((List *)var_31, rslt4); -Value *rslt6 = arityImpl_1301((List *)var_31); -Value *rslt7 = arityImpl_1279((List *)var_31); -Value *rslt8 = arityImpl_1276((List *)var_31); -Value *rslt9 = arityImpl_1264((List *)var_31); -Value *rslt10 = arityImpl_1267((List *)var_31); -Value *rslt11 = arityImpl_1270((List *)var_31); -Value *rslt12 = arityImpl_1273((List *)var_31); -Value *rslt13 = arityImpl_1261((List *)var_31); +Value *rslt4 = arityImpl_1057((List *)var_31, rslt3); +Value *rslt5 = arityImpl_1115((List *)var_31, rslt4); +Value *rslt6 = arityImpl_1291((List *)var_31); +Value *rslt7 = arityImpl_1269((List *)var_31); +Value *rslt8 = arityImpl_1266((List *)var_31); +Value *rslt9 = arityImpl_1254((List *)var_31); +Value *rslt10 = arityImpl_1257((List *)var_31); +Value *rslt11 = arityImpl_1260((List *)var_31); +Value *rslt12 = arityImpl_1263((List *)var_31); +Value *rslt13 = arityImpl_1251((List *)var_31); List *varArgs14 = (List *)GC_malloc(sizeof(List)); varArgs14->type = ListType; varArgs14->len = 0; @@ -14746,16 +14664,16 @@ varArgs14 = (List *)listCons((Value *)rslt8, varArgs14); varArgs14 = (List *)listCons((Value *)rslt7, varArgs14); varArgs14 = (List *)listCons((Value *)rslt6, varArgs14); Value *rslt15 = arityImpl_250((List *)var_31, (Value *)varArgs14); -Value *rslt16 = arityImpl_1155((List *)var_31, rslt15); -Value *rslt17 = arityImpl_1231((List *)var_31, rslt16); +Value *rslt16 = arityImpl_1145((List *)var_31, rslt15); +Value *rslt17 = arityImpl_1221((List *)var_31, rslt16); Value *rslt21; if((var_39)->type != 3) { -rslt21 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_20); +rslt21 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_27); } else { FnArity *arity18 = findFnArity(var_39, 1); if(arity18 != (FnArity *)0 && !arity18->variadic) { FnType1 *fn20 = (FnType1 *)arity18->fn; -rslt21 = fn20(arity18->closures, (Value *)&_num_20); +rslt21 = fn20(arity18->closures, (Value *)&_num_27); } else if(arity18 != (FnArity *)0 && arity18->variadic) { FnType1 *fn20 = (FnType1 *)arity18->fn; List *varArgs19 = (List *)GC_malloc(sizeof(List)); @@ -14763,15 +14681,15 @@ varArgs19->type = ListType; varArgs19->len = 0; varArgs19->head = (Value *)0; varArgs19->tail = (List *)0; -varArgs19 = (List *)listCons((Value *)&_num_20, varArgs19); +varArgs19 = (List *)listCons((Value *)&_num_27, varArgs19); rslt21 = fn20(arity18->closures, (Value *)varArgs19); } else { fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_39)->name); abort(); } } -Value *rslt22 = arityImpl_1067((List *)var_31, rslt21); -Value *rslt23 = arityImpl_1125((List *)var_31, rslt22); +Value *rslt22 = arityImpl_1057((List *)var_31, rslt21); +Value *rslt23 = arityImpl_1115((List *)var_31, rslt22); List *varArgs24 = (List *)GC_malloc(sizeof(List)); varArgs24->type = ListType; varArgs24->len = 0; @@ -14780,48 +14698,48 @@ varArgs24->tail = (List *)0; varArgs24 = (List *)listCons((Value *)rslt23, varArgs24); varArgs24 = (List *)listCons((Value *)rslt17, varArgs24); varArgs24 = (List *)listCons((Value *)rslt5, varArgs24); -Value *rslt25 = arityImpl_1149((List *)var_31, (Value *)varArgs24); +Value *rslt25 = arityImpl_1139((List *)var_31, (Value *)varArgs24); return (rslt25); }; // --------- read-const-string main body -------------- -Function fn_1303 = {3, "read-const-string", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1304}}}; +Function fn_1293 = {3, "read-const-string", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1294}}}; struct {int64_t type; int64_t len; - char buffer[2];} _str_44 = {1,1,"1"}; + char buffer[2];} _str_43 = {1,1,"1"}; struct {int64_t type; int64_t len; - char buffer[2];} _str_45 = {1,1,"2"}; + char buffer[2];} _str_44 = {1,1,"2"}; struct {int64_t type; int64_t len; - char buffer[2];} _str_46 = {1,1,"3"}; + char buffer[2];} _str_45 = {1,1,"3"}; struct {int64_t type; int64_t len; - char buffer[2];} _str_47 = {1,1,"4"}; + char buffer[2];} _str_46 = {1,1,"4"}; struct {int64_t type; int64_t len; - char buffer[2];} _str_48 = {1,1,"5"}; + char buffer[2];} _str_47 = {1,1,"5"}; struct {int64_t type; int64_t len; - char buffer[2];} _str_49 = {1,1,"6"}; + char buffer[2];} _str_48 = {1,1,"6"}; struct {int64_t type; int64_t len; - char buffer[2];} _str_50 = {1,1,"7"}; + char buffer[2];} _str_49 = {1,1,"7"}; struct {int64_t type; int64_t len; - char buffer[2];} _str_51 = {1,1,"8"}; + char buffer[2];} _str_50 = {1,1,"8"}; struct {int64_t type; int64_t len; - char buffer[2];} _str_52 = {1,1,"-"}; + char buffer[2];} _str_51 = {1,1,"-"}; Number _num_29 = {2, -1, -1}; // --------- str-to-int -------------- -Function fn_1306; +Function fn_1296; // --------- anon -------------- -Function fn_1308; -Value *arityImpl_1309(List *closures, Value *arg0, Value *arg1) { +Function fn_1298; +Value *arityImpl_1299(List *closures, Value *arg0, Value *arg1) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; @@ -14831,47 +14749,47 @@ varArgs0 = (List *)listCons((Value *)(Value *)&_num_24, varArgs0); varArgs0 = (List *)listCons((Value *)arg0, varArgs0); Value *rslt1 = arityImpl_459((List *)var_31, (Value *)varArgs0); Value *cond2; -Value *rslt3 = arityImpl_283((List *)var_31, arg1, (Value *)&_str_44); +Value *rslt3 = arityImpl_283((List *)var_31, arg1, (Value *)&_str_43); if (isTrue(rslt3)) { cond2 = (Value *)&_num_1; } else { -Value *rslt4 = arityImpl_283((List *)var_31, arg1, (Value *)&_str_45); +Value *rslt4 = arityImpl_283((List *)var_31, arg1, (Value *)&_str_44); if (isTrue(rslt4)) { cond2 = (Value *)&_num_2; } else { -Value *rslt5 = arityImpl_283((List *)var_31, arg1, (Value *)&_str_46); +Value *rslt5 = arityImpl_283((List *)var_31, arg1, (Value *)&_str_45); if (isTrue(rslt5)) { cond2 = (Value *)&_num_3; } else { -Value *rslt6 = arityImpl_283((List *)var_31, arg1, (Value *)&_str_47); +Value *rslt6 = arityImpl_283((List *)var_31, arg1, (Value *)&_str_46); if (isTrue(rslt6)) { cond2 = (Value *)&_num_4; } else { -Value *rslt7 = arityImpl_283((List *)var_31, arg1, (Value *)&_str_48); +Value *rslt7 = arityImpl_283((List *)var_31, arg1, (Value *)&_str_47); if (isTrue(rslt7)) { cond2 = (Value *)&_num_5; } else { -Value *rslt8 = arityImpl_283((List *)var_31, arg1, (Value *)&_str_49); +Value *rslt8 = arityImpl_283((List *)var_31, arg1, (Value *)&_str_48); if (isTrue(rslt8)) { cond2 = (Value *)&_num_6; } else { -Value *rslt9 = arityImpl_283((List *)var_31, arg1, (Value *)&_str_50); +Value *rslt9 = arityImpl_283((List *)var_31, arg1, (Value *)&_str_49); if (isTrue(rslt9)) { cond2 = (Value *)&_num_7; } else { -Value *rslt10 = arityImpl_283((List *)var_31, arg1, (Value *)&_str_51); +Value *rslt10 = arityImpl_283((List *)var_31, arg1, (Value *)&_str_50); if (isTrue(rslt10)) { cond2 = (Value *)&_num_25; } else { -Value *rslt11 = arityImpl_283((List *)var_31, arg1, (Value *)&_str_36); +Value *rslt11 = arityImpl_283((List *)var_31, arg1, (Value *)&_str_35); if (isTrue(rslt11)) { cond2 = (Value *)&_num_9; @@ -14899,11 +14817,11 @@ return (rslt13); // --------- anon main body -------------- -Function fn_1308 = {3, "anon", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1309}}}; -Value *arityImpl_1307(List *closures, Value *arg0, Value *arg1) { -Value *rslt1 = arityImpl_297((List *)var_31, arg1, (Value *)&_num_8, (Value *)&fn_1308); +Function fn_1298 = {3, "anon", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1299}}}; +Value *arityImpl_1297(List *closures, Value *arg0, Value *arg1) { +Value *rslt1 = arityImpl_297((List *)var_31, arg1, (Value *)&_num_8, (Value *)&fn_1298); Value *cond2; -Value *rslt3 = arityImpl_283((List *)var_31, (Value *)&_str_52, arg0); +Value *rslt3 = arityImpl_283((List *)var_31, (Value *)&_str_51, arg0); if (isTrue(rslt3)) { List *varArgs4 = (List *)GC_malloc(sizeof(List)); @@ -14923,15 +14841,15 @@ return (cond2); // --------- str-to-int main body -------------- -Function fn_1306 = {3, "str-to-int", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1307}}}; +Function fn_1296 = {3, "str-to-int", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1297}}}; // --------- read-number -------------- -Function fn_1311; -Value *arityImpl_1312(List *closures) { -Value *rslt0 = arityImpl_1067((List *)var_31, (Value *)&_str_52); -Value *rslt1 = arityImpl_1152((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1225((List *)var_31); -Value *rslt3 = arityImpl_1102((List *)var_31, rslt2); +Function fn_1301; +Value *arityImpl_1302(List *closures) { +Value *rslt0 = arityImpl_1057((List *)var_31, (Value *)&_str_51); +Value *rslt1 = arityImpl_1142((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1215((List *)var_31); +Value *rslt3 = arityImpl_1092((List *)var_31, rslt2); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; varArgs4->len = 0; @@ -14939,27 +14857,27 @@ varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; varArgs4 = (List *)listCons((Value *)rslt3, varArgs4); varArgs4 = (List *)listCons((Value *)rslt1, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&fn_1306, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&fn_1296, varArgs4); Value *rslt5 = arityImpl_116((List *)var_31, (Value *)varArgs4); return (rslt5); }; // --------- read-number main body -------------- -Function fn_1311 = {3, "read-number", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1312}}}; +Function fn_1301 = {3, "read-number", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1302}}}; // forward declaration for 'parse-sub-form' -Value *var_1314; +Value *var_1304; struct {int64_t type; int64_t len; - char buffer[5];} _str_53 = {1,4,"form"}; -Number _num_30 = {2, -1, 42}; -SymKey _kw_11 = {5, -1, ":parser-fns"}; -SymKey _kw_12 = {5, -1, ":blah"}; + char buffer[5];} _str_52 = {1,4,"form"}; +Number _num_30 = {2, -1, 41}; +SymKey _kw_9 = {5, -1, ":parser-fns"}; +SymKey _kw_10 = {5, -1, ":blah"}; // --------- instance?_impl -------------- -Function fn_1315; -Value *arityImpl_1316(List *closures, Value *arg0, Value *arg1) { +Function fn_1305; +Value *arityImpl_1306(List *closures, Value *arg0, Value *arg1) { Value *rslt3; if((var_22)->type != 3) { rslt3 = protoFnImpl_5(empty_list, var_22, arg1); @@ -14988,27 +14906,27 @@ return (rslt4); // --------- instance?_impl main body -------------- -Function fn_1315 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1316}}}; -Value *protoImpl_1317(List *closures, Value *arg0, Value *arg1) { +Function fn_1305 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1306}}}; +Value *protoImpl_1307(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_1318 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1317}}}; +Function protoFn_1308 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1307}}}; // --------- invoke_impl -------------- -Function fn_1319; +Function fn_1309; // --------- recursive-descent_impl -------------- -Function fn_1321; +Function fn_1311; // --------- anon -------------- -Function fn_1323; +Function fn_1313; // --------- anon -------------- -Function fn_1325; -Value *arityImpl_1326(List *closures, Value *arg0) { +Function fn_1315; +Value *arityImpl_1316(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -15017,16 +14935,16 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, arg0); return (rslt1); }; -Value *arityImpl_1324(List *closures, Value *arg0) { +Value *arityImpl_1314(List *closures, Value *arg0) { Value *val5 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt3; -if((var_689)->type != 3) { -rslt3 = protoFnImpl_5(empty_list, var_689, arg0); +if((var_679)->type != 3) { +rslt3 = protoFnImpl_5(empty_list, var_679, arg0); } else { -FnArity *arity0 = findFnArity(var_689, 1); +FnArity *arity0 = findFnArity(var_679, 1); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; rslt3 = fn2(arity0->closures, arg0); @@ -15040,7 +14958,7 @@ varArgs1->tail = (List *)0; varArgs1 = (List *)listCons(arg0, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_689)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_679)->name); abort(); } } @@ -15048,78 +14966,78 @@ FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_1326; +arity_4->fn = arityImpl_1316; arity_4->closures = listCons((Value *)val5, (List *)arity_4->closures); -Function *fn_1325 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1325->type = 3; -fn_1325->name = "anon"; -fn_1325->arityCount = 1; -fn_1325->arities[0] = arity_4; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_1325); +Function *fn_1315 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1315->type = 3; +fn_1315->name = "anon"; +fn_1315->arityCount = 1; +fn_1315->arities[0] = arity_4; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_1315); return (rslt6); }; -Value *arityImpl_1322(List *closures, Value *arg0) { +Value *arityImpl_1312(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_str_53, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_11, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_52, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_9, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1017((List *)var_31, rslt1, (Value *)&_kw_12); +Value *rslt2 = arityImpl_1007((List *)var_31, rslt1, (Value *)&_kw_10); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_1324; +arity_3->fn = arityImpl_1314; arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); -Function *fn_1323 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1323->type = 3; -fn_1323->name = "anon"; -fn_1323->arityCount = 1; -fn_1323->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_1323); +Function *fn_1313 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1313->type = 3; +fn_1313->name = "anon"; +fn_1313->arityCount = 1; +fn_1313->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_1313); return (rslt4); }; // --------- recursive-descent_impl main body -------------- -Function fn_1321 = {3, "recursive-descent_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1322}}}; -Value *protoImpl_1327(List *closures, Value *arg0) { +Function fn_1311 = {3, "recursive-descent_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1312}}}; +Value *protoImpl_1317(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1328 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1327}}}; +Function protoFn_1318 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1317}}}; -ReifiedVal reified_1329 = {42, 1, {(Value *)&fn_1321}}; -Value *arityImpl_1320(List *closures, Value *arg0) { -return ((Value *)&reified_1329); +ReifiedVal reified_1319 = {41, 1, {(Value *)&fn_1311}}; +Value *arityImpl_1310(List *closures, Value *arg0) { +return ((Value *)&reified_1319); }; // --------- invoke_impl main body -------------- -Function fn_1319 = {3, "invoke_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1320}}}; -Value *protoImpl_1330(List *closures, Value *arg0) { +Function fn_1309 = {3, "invoke_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1310}}}; +Value *protoImpl_1320(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1331 = {3, "invoke", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1330}}}; +Function protoFn_1321 = {3, "invoke", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1320}}}; -ReifiedVal reified_1332 = {41, 2, {(Value *)&fn_1315, (Value *)&fn_1319}}; -Value *var_1314 = (Value *)&reified_1332; +ReifiedVal reified_1322 = {40, 2, {(Value *)&fn_1305, (Value *)&fn_1309}}; +Value *var_1304 = (Value *)&reified_1322; // --------- read-sub-form -------------- -Function fn_1333; -Value *arityImpl_1334(List *closures) { +Function fn_1323; +Value *arityImpl_1324(List *closures) { Value *rslt3; -if((var_1314)->type != 3) { -rslt3 = protoFnImpl_3(empty_list, var_1314); +if((var_1304)->type != 3) { +rslt3 = protoFnImpl_3(empty_list, var_1304); } else { -FnArity *arity0 = findFnArity(var_1314, 0); +FnArity *arity0 = findFnArity(var_1304, 0); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType0 *fn2 = (FnType0 *)arity0->fn; rslt3 = fn2(arity0->closures); @@ -15132,15 +15050,15 @@ varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1314)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1304)->name); abort(); } } Value *rslt7; -if((var_936)->type != 3) { -rslt7 = protoFnImpl_5(empty_list, var_936, rslt3); +if((var_926)->type != 3) { +rslt7 = protoFnImpl_5(empty_list, var_926, rslt3); } else { -FnArity *arity4 = findFnArity(var_936, 1); +FnArity *arity4 = findFnArity(var_926, 1); if(arity4 != (FnArity *)0 && !arity4->variadic) { FnType1 *fn6 = (FnType1 *)arity4->fn; rslt7 = fn6(arity4->closures, rslt3); @@ -15154,7 +15072,7 @@ varArgs5->tail = (List *)0; varArgs5 = (List *)listCons(rslt3, varArgs5); rslt7 = fn6(arity4->closures, (Value *)varArgs5); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -15163,17 +15081,17 @@ return (rslt7); // --------- read-sub-form main body -------------- -Function fn_1333 = {3, "read-sub-form", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1334}}}; +Function fn_1323 = {3, "read-sub-form", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1324}}}; // --------- read-list -------------- -Function fn_1336; -Value *arityImpl_1337(List *closures) { -Value *rslt0 = arityImpl_1067((List *)var_31, (Value *)&_str_16); -Value *rslt1 = arityImpl_1125((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1334((List *)var_31); -Value *rslt3 = arityImpl_1155((List *)var_31, rslt2); -Value *rslt4 = arityImpl_1067((List *)var_31, (Value *)&_str_18); -Value *rslt5 = arityImpl_1125((List *)var_31, rslt4); +Function fn_1326; +Value *arityImpl_1327(List *closures) { +Value *rslt0 = arityImpl_1057((List *)var_31, (Value *)&_str_16); +Value *rslt1 = arityImpl_1115((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1324((List *)var_31); +Value *rslt3 = arityImpl_1145((List *)var_31, rslt2); +Value *rslt4 = arityImpl_1057((List *)var_31, (Value *)&_str_18); +Value *rslt5 = arityImpl_1115((List *)var_31, rslt4); List *varArgs6 = (List *)GC_malloc(sizeof(List)); varArgs6->type = ListType; varArgs6->len = 0; @@ -15182,25 +15100,25 @@ varArgs6->tail = (List *)0; varArgs6 = (List *)listCons((Value *)rslt5, varArgs6); varArgs6 = (List *)listCons((Value *)rslt3, varArgs6); varArgs6 = (List *)listCons((Value *)rslt1, varArgs6); -Value *rslt7 = arityImpl_1149((List *)var_31, (Value *)varArgs6); +Value *rslt7 = arityImpl_1139((List *)var_31, (Value *)varArgs6); return (rslt7); }; // --------- read-list main body -------------- -Function fn_1336 = {3, "read-list", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1337}}}; +Function fn_1326 = {3, "read-list", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1327}}}; SymKey _sym_0 = {7, -1, "hash-map"}; // --------- read-hash-map -------------- -Function fn_1339; -Value *arityImpl_1340(List *closures) { -Value *rslt0 = arityImpl_1067((List *)var_31, (Value *)&_str_22); -Value *rslt1 = arityImpl_1125((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1146((List *)var_31, (Value *)&_sym_0); -Value *rslt3 = arityImpl_1334((List *)var_31); -Value *rslt4 = arityImpl_1155((List *)var_31, rslt3); -Value *rslt5 = arityImpl_1067((List *)var_31, (Value *)&_str_23); -Value *rslt6 = arityImpl_1125((List *)var_31, rslt5); +Function fn_1329; +Value *arityImpl_1330(List *closures) { +Value *rslt0 = arityImpl_1057((List *)var_31, (Value *)&_str_22); +Value *rslt1 = arityImpl_1115((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1136((List *)var_31, (Value *)&_sym_0); +Value *rslt3 = arityImpl_1324((List *)var_31); +Value *rslt4 = arityImpl_1145((List *)var_31, rslt3); +Value *rslt5 = arityImpl_1057((List *)var_31, (Value *)&_str_23); +Value *rslt6 = arityImpl_1115((List *)var_31, rslt5); List *varArgs7 = (List *)GC_malloc(sizeof(List)); varArgs7->type = ListType; varArgs7->len = 0; @@ -15217,25 +15135,25 @@ return (rslt8); // --------- read-hash-map main body -------------- -Function fn_1339 = {3, "read-hash-map", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1340}}}; +Function fn_1329 = {3, "read-hash-map", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1330}}}; struct {int64_t type; int64_t len; - char buffer[2];} _str_54 = {1,1,"["}; + char buffer[2];} _str_53 = {1,1,"["}; struct {int64_t type; int64_t len; - char buffer[2];} _str_55 = {1,1,"]"}; + char buffer[2];} _str_54 = {1,1,"]"}; SymKey _sym_1 = {7, -1, "vector"}; // --------- read-vector -------------- -Function fn_1342; -Value *arityImpl_1343(List *closures) { -Value *rslt0 = arityImpl_1067((List *)var_31, (Value *)&_str_54); -Value *rslt1 = arityImpl_1125((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1146((List *)var_31, (Value *)&_sym_1); -Value *rslt3 = arityImpl_1334((List *)var_31); -Value *rslt4 = arityImpl_1155((List *)var_31, rslt3); -Value *rslt5 = arityImpl_1067((List *)var_31, (Value *)&_str_55); -Value *rslt6 = arityImpl_1125((List *)var_31, rslt5); +Function fn_1332; +Value *arityImpl_1333(List *closures) { +Value *rslt0 = arityImpl_1057((List *)var_31, (Value *)&_str_53); +Value *rslt1 = arityImpl_1115((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1136((List *)var_31, (Value *)&_sym_1); +Value *rslt3 = arityImpl_1324((List *)var_31); +Value *rslt4 = arityImpl_1145((List *)var_31, rslt3); +Value *rslt5 = arityImpl_1057((List *)var_31, (Value *)&_str_54); +Value *rslt6 = arityImpl_1115((List *)var_31, rslt5); List *varArgs7 = (List *)GC_malloc(sizeof(List)); varArgs7->type = ListType; varArgs7->len = 0; @@ -15252,15 +15170,15 @@ return (rslt8); // --------- read-vector main body -------------- -Function fn_1342 = {3, "read-vector", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1343}}}; +Function fn_1332 = {3, "read-vector", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1333}}}; // forward declaration for 'parse-not-eol' -Value *var_1345; +Value *var_1335; -Number _num_31 = {2, -1, 44}; +Number _num_31 = {2, -1, 43}; // --------- instance?_impl -------------- -Function fn_1346; -Value *arityImpl_1347(List *closures, Value *arg0, Value *arg1) { +Function fn_1336; +Value *arityImpl_1337(List *closures, Value *arg0, Value *arg1) { Value *rslt3; if((var_22)->type != 3) { rslt3 = protoFnImpl_5(empty_list, var_22, arg1); @@ -15289,27 +15207,27 @@ return (rslt4); // --------- instance?_impl main body -------------- -Function fn_1346 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1347}}}; -Value *protoImpl_1348(List *closures, Value *arg0, Value *arg1) { +Function fn_1336 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1337}}}; +Value *protoImpl_1338(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_1349 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1348}}}; +Function protoFn_1339 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1338}}}; // --------- invoke_impl -------------- -Function fn_1350; +Function fn_1340; // --------- recursive-descent_impl -------------- -Function fn_1352; +Function fn_1342; // --------- anon -------------- -Function fn_1354; +Function fn_1344; // --------- anon -------------- -Function fn_1356; -Value *arityImpl_1357(List *closures, Value *arg0) { +Function fn_1346; +Value *arityImpl_1347(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -15329,7 +15247,7 @@ Value *rslt4 = protoFnImpl_100((List *)var_31, val0, rslt3); return (rslt4); }; -Value *arityImpl_1355(List *closures, Value *arg0) { +Value *arityImpl_1345(List *closures, Value *arg0) { Value *val5 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -15408,20 +15326,20 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_24)->name); abort(); } } -Value *rslt17 = arityImpl_1009((List *)var_31, (Value *)&_kw_10, rslt16); +Value *rslt17 = arityImpl_999((List *)var_31, (Value *)&_kw_8, rslt16); FnArity *arity_18 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_18->count = 1; arity_18->closures = empty_list; arity_18->variadic = 0; -arity_18->fn = arityImpl_1357; +arity_18->fn = arityImpl_1347; arity_18->closures = listCons((Value *)rslt3, (List *)arity_18->closures); arity_18->closures = listCons((Value *)val5, (List *)arity_18->closures); -Function *fn_1356 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1356->type = 3; -fn_1356->name = "anon"; -fn_1356->arityCount = 1; -fn_1356->arities[0] = arity_18; -Value *rslt19 = protoFnImpl_78((List *)var_31, rslt17, (Value *)fn_1356); +Function *fn_1346 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1346->type = 3; +fn_1346->name = "anon"; +fn_1346->arityCount = 1; +fn_1346->arities[0] = arity_18; +Value *rslt19 = protoFnImpl_78((List *)var_31, rslt17, (Value *)fn_1346); cond4 = rslt19; } else { Value *rslt6 = protoFnImpl_242((List *)var_31, val5); @@ -15430,59 +15348,59 @@ cond4 = rslt6; return (cond4); }; -Value *arityImpl_1353(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_10, (Value *)&_str_19); +Value *arityImpl_1343(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_8, (Value *)&_str_19); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1355; +arity_1->fn = arityImpl_1345; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_1354 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1354->type = 3; -fn_1354->name = "anon"; -fn_1354->arityCount = 1; -fn_1354->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1354); +Function *fn_1344 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1344->type = 3; +fn_1344->name = "anon"; +fn_1344->arityCount = 1; +fn_1344->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1344); return (rslt2); }; // --------- recursive-descent_impl main body -------------- -Function fn_1352 = {3, "recursive-descent_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1353}}}; -Value *protoImpl_1358(List *closures, Value *arg0) { +Function fn_1342 = {3, "recursive-descent_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1343}}}; +Value *protoImpl_1348(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1359 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1358}}}; +Function protoFn_1349 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1348}}}; -ReifiedVal reified_1360 = {44, 1, {(Value *)&fn_1352}}; -Value *arityImpl_1351(List *closures, Value *arg0) { -return ((Value *)&reified_1360); +ReifiedVal reified_1350 = {43, 1, {(Value *)&fn_1342}}; +Value *arityImpl_1341(List *closures, Value *arg0) { +return ((Value *)&reified_1350); }; // --------- invoke_impl main body -------------- -Function fn_1350 = {3, "invoke_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1351}}}; -Value *protoImpl_1361(List *closures, Value *arg0) { +Function fn_1340 = {3, "invoke_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1341}}}; +Value *protoImpl_1351(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1362 = {3, "invoke", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1361}}}; +Function protoFn_1352 = {3, "invoke", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1351}}}; -ReifiedVal reified_1363 = {43, 2, {(Value *)&fn_1346, (Value *)&fn_1350}}; -Value *var_1345 = (Value *)&reified_1363; +ReifiedVal reified_1353 = {42, 2, {(Value *)&fn_1336, (Value *)&fn_1340}}; +Value *var_1335 = (Value *)&reified_1353; // --------- not-eol -------------- -Function fn_1364; -Value *arityImpl_1365(List *closures) { +Function fn_1354; +Value *arityImpl_1355(List *closures) { Value *rslt3; -if((var_1345)->type != 3) { -rslt3 = protoFnImpl_3(empty_list, var_1345); +if((var_1335)->type != 3) { +rslt3 = protoFnImpl_3(empty_list, var_1335); } else { -FnArity *arity0 = findFnArity(var_1345, 0); +FnArity *arity0 = findFnArity(var_1335, 0); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType0 *fn2 = (FnType0 *)arity0->fn; rslt3 = fn2(arity0->closures); @@ -15495,15 +15413,15 @@ varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1345)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1335)->name); abort(); } } Value *rslt7; -if((var_936)->type != 3) { -rslt7 = protoFnImpl_5(empty_list, var_936, rslt3); +if((var_926)->type != 3) { +rslt7 = protoFnImpl_5(empty_list, var_926, rslt3); } else { -FnArity *arity4 = findFnArity(var_936, 1); +FnArity *arity4 = findFnArity(var_926, 1); if(arity4 != (FnArity *)0 && !arity4->variadic) { FnType1 *fn6 = (FnType1 *)arity4->fn; rslt7 = fn6(arity4->closures, rslt3); @@ -15517,7 +15435,7 @@ varArgs5->tail = (List *)0; varArgs5 = (List *)listCons(rslt3, varArgs5); rslt7 = fn6(arity4->closures, (Value *)varArgs5); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -15526,18 +15444,18 @@ return (rslt7); // --------- not-eol main body -------------- -Function fn_1364 = {3, "not-eol", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1365}}}; +Function fn_1354 = {3, "not-eol", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1355}}}; struct {int64_t type; int64_t len; - char buffer[2];} _str_56 = {1,1,";"}; + char buffer[2];} _str_55 = {1,1,";"}; // --------- read-comment -------------- -Function fn_1367; -Value *arityImpl_1368(List *closures) { -Value *rslt0 = arityImpl_1067((List *)var_31, (Value *)&_str_56); -Value *rslt1 = arityImpl_1365((List *)var_31); -Value *rslt2 = arityImpl_1155((List *)var_31, rslt1); -Value *rslt3 = arityImpl_1125((List *)var_31, rslt2); +Function fn_1357; +Value *arityImpl_1358(List *closures) { +Value *rslt0 = arityImpl_1057((List *)var_31, (Value *)&_str_55); +Value *rslt1 = arityImpl_1355((List *)var_31); +Value *rslt2 = arityImpl_1145((List *)var_31, rslt1); +Value *rslt3 = arityImpl_1115((List *)var_31, rslt2); Value *rslt7; if((var_39)->type != 3) { rslt7 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_24); @@ -15560,7 +15478,7 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_39)->name); abort(); } } -Value *rslt8 = arityImpl_1067((List *)var_31, rslt7); +Value *rslt8 = arityImpl_1057((List *)var_31, rslt7); List *varArgs9 = (List *)GC_malloc(sizeof(List)); varArgs9->type = ListType; varArgs9->len = 0; @@ -15569,21 +15487,21 @@ varArgs9->tail = (List *)0; varArgs9 = (List *)listCons((Value *)rslt8, varArgs9); varArgs9 = (List *)listCons((Value *)rslt3, varArgs9); varArgs9 = (List *)listCons((Value *)rslt0, varArgs9); -Value *rslt10 = arityImpl_1149((List *)var_31, (Value *)varArgs9); +Value *rslt10 = arityImpl_1139((List *)var_31, (Value *)varArgs9); return (rslt10); }; // --------- read-comment main body -------------- -Function fn_1367 = {3, "read-comment", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1368}}}; +Function fn_1357 = {3, "read-comment", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1358}}}; struct {int64_t type; int64_t len; - char buffer[3];} _str_57 = {1,2," ,"}; + char buffer[3];} _str_56 = {1,2," ,"}; // --------- whitespace -------------- -Function fn_1370; -Value *arityImpl_1371(List *closures) { -Value *rslt0 = arityImpl_1228((List *)var_31, (Value *)&_str_57); +Function fn_1360; +Value *arityImpl_1361(List *closures) { +Value *rslt0 = arityImpl_1218((List *)var_31, (Value *)&_str_56); Value *rslt4; if((var_39)->type != 3) { rslt4 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_9); @@ -15606,15 +15524,15 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_39)->name); abort(); } } -Value *rslt5 = arityImpl_1067((List *)var_31, rslt4); +Value *rslt5 = arityImpl_1057((List *)var_31, rslt4); Value *rslt9; if((var_39)->type != 3) { -rslt9 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_26); +rslt9 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_11); } else { FnArity *arity6 = findFnArity(var_39, 1); if(arity6 != (FnArity *)0 && !arity6->variadic) { FnType1 *fn8 = (FnType1 *)arity6->fn; -rslt9 = fn8(arity6->closures, (Value *)&_num_26); +rslt9 = fn8(arity6->closures, (Value *)&_num_11); } else if(arity6 != (FnArity *)0 && arity6->variadic) { FnType1 *fn8 = (FnType1 *)arity6->fn; List *varArgs7 = (List *)GC_malloc(sizeof(List)); @@ -15622,14 +15540,14 @@ varArgs7->type = ListType; varArgs7->len = 0; varArgs7->head = (Value *)0; varArgs7->tail = (List *)0; -varArgs7 = (List *)listCons((Value *)&_num_26, varArgs7); +varArgs7 = (List *)listCons((Value *)&_num_11, varArgs7); rslt9 = fn8(arity6->closures, (Value *)varArgs7); } else { fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_39)->name); abort(); } } -Value *rslt10 = arityImpl_1067((List *)var_31, rslt9); +Value *rslt10 = arityImpl_1057((List *)var_31, rslt9); Value *rslt14; if((var_39)->type != 3) { rslt14 = protoFnImpl_5(empty_list, var_39, (Value *)&_num_24); @@ -15652,8 +15570,8 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_39)->name); abort(); } } -Value *rslt15 = arityImpl_1067((List *)var_31, rslt14); -Value *rslt16 = arityImpl_1368((List *)var_31); +Value *rslt15 = arityImpl_1057((List *)var_31, rslt14); +Value *rslt16 = arityImpl_1358((List *)var_31); List *varArgs17 = (List *)GC_malloc(sizeof(List)); varArgs17->type = ListType; varArgs17->len = 0; @@ -15670,22 +15588,22 @@ return (rslt18); // --------- whitespace main body -------------- -Function fn_1370 = {3, "whitespace", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1371}}}; +Function fn_1360 = {3, "whitespace", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1361}}}; struct {int64_t type; int64_t len; - char buffer[2];} _str_58 = {1,1,"&"}; + char buffer[2];} _str_57 = {1,1,"&"}; // --------- read-var-arg -------------- -Function fn_1373; -Value *arityImpl_1374(List *closures) { -Value *rslt0 = arityImpl_1371((List *)var_31); -Value *rslt1 = arityImpl_1155((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1125((List *)var_31, rslt1); -Value *rslt3 = arityImpl_1067((List *)var_31, (Value *)&_str_58); -Value *rslt4 = arityImpl_1371((List *)var_31); -Value *rslt5 = arityImpl_1102((List *)var_31, rslt4); -Value *rslt6 = arityImpl_1125((List *)var_31, rslt5); -Value *rslt7 = arityImpl_1248((List *)var_31); +Function fn_1363; +Value *arityImpl_1364(List *closures) { +Value *rslt0 = arityImpl_1361((List *)var_31); +Value *rslt1 = arityImpl_1145((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1115((List *)var_31, rslt1); +Value *rslt3 = arityImpl_1057((List *)var_31, (Value *)&_str_57); +Value *rslt4 = arityImpl_1361((List *)var_31); +Value *rslt5 = arityImpl_1092((List *)var_31, rslt4); +Value *rslt6 = arityImpl_1115((List *)var_31, rslt5); +Value *rslt7 = arityImpl_1238((List *)var_31); List *varArgs8 = (List *)GC_malloc(sizeof(List)); varArgs8->type = ListType; varArgs8->len = 0; @@ -15702,18 +15620,18 @@ return (rslt9); // --------- read-var-arg main body -------------- -Function fn_1373 = {3, "read-var-arg", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1374}}}; +Function fn_1363 = {3, "read-var-arg", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1364}}}; // --------- read-arg -------------- -Function fn_1376; -Value *arityImpl_1377(List *closures) { -Value *rslt0 = arityImpl_1371((List *)var_31); -Value *rslt1 = arityImpl_1155((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1125((List *)var_31, rslt1); -Value *rslt3 = arityImpl_1248((List *)var_31); -Value *rslt4 = arityImpl_1371((List *)var_31); -Value *rslt5 = arityImpl_1155((List *)var_31, rslt4); -Value *rslt6 = arityImpl_1125((List *)var_31, rslt5); +Function fn_1366; +Value *arityImpl_1367(List *closures) { +Value *rslt0 = arityImpl_1361((List *)var_31); +Value *rslt1 = arityImpl_1145((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1115((List *)var_31, rslt1); +Value *rslt3 = arityImpl_1238((List *)var_31); +Value *rslt4 = arityImpl_1361((List *)var_31); +Value *rslt5 = arityImpl_1145((List *)var_31, rslt4); +Value *rslt6 = arityImpl_1115((List *)var_31, rslt5); List *varArgs7 = (List *)GC_malloc(sizeof(List)); varArgs7->type = ListType; varArgs7->len = 0; @@ -15722,26 +15640,26 @@ varArgs7->tail = (List *)0; varArgs7 = (List *)listCons((Value *)rslt6, varArgs7); varArgs7 = (List *)listCons((Value *)rslt3, varArgs7); varArgs7 = (List *)listCons((Value *)rslt2, varArgs7); -Value *rslt8 = arityImpl_1149((List *)var_31, (Value *)varArgs7); +Value *rslt8 = arityImpl_1139((List *)var_31, (Value *)varArgs7); return (rslt8); }; // --------- read-arg main body -------------- -Function fn_1376 = {3, "read-arg", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1377}}}; +Function fn_1366 = {3, "read-arg", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1367}}}; // --------- read-args -------------- -Function fn_1379; -Value *arityImpl_1380(List *closures) { -Value *rslt0 = arityImpl_1371((List *)var_31); -Value *rslt1 = arityImpl_1155((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1125((List *)var_31, rslt1); -Value *rslt3 = arityImpl_1067((List *)var_31, (Value *)&_str_54); -Value *rslt4 = arityImpl_1125((List *)var_31, rslt3); -Value *rslt5 = arityImpl_1377((List *)var_31); -Value *rslt6 = arityImpl_1155((List *)var_31, rslt5); -Value *rslt7 = arityImpl_1374((List *)var_31); -Value *rslt8 = arityImpl_1146((List *)var_31, var_31); +Function fn_1369; +Value *arityImpl_1370(List *closures) { +Value *rslt0 = arityImpl_1361((List *)var_31); +Value *rslt1 = arityImpl_1145((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1115((List *)var_31, rslt1); +Value *rslt3 = arityImpl_1057((List *)var_31, (Value *)&_str_53); +Value *rslt4 = arityImpl_1115((List *)var_31, rslt3); +Value *rslt5 = arityImpl_1367((List *)var_31); +Value *rslt6 = arityImpl_1145((List *)var_31, rslt5); +Value *rslt7 = arityImpl_1364((List *)var_31); +Value *rslt8 = arityImpl_1136((List *)var_31, var_31); List *varArgs9 = (List *)GC_malloc(sizeof(List)); varArgs9->type = ListType; varArgs9->len = 0; @@ -15750,8 +15668,8 @@ varArgs9->tail = (List *)0; varArgs9 = (List *)listCons((Value *)rslt8, varArgs9); varArgs9 = (List *)listCons((Value *)rslt7, varArgs9); Value *rslt10 = arityImpl_250((List *)var_31, (Value *)varArgs9); -Value *rslt11 = arityImpl_1067((List *)var_31, (Value *)&_str_55); -Value *rslt12 = arityImpl_1125((List *)var_31, rslt11); +Value *rslt11 = arityImpl_1057((List *)var_31, (Value *)&_str_54); +Value *rslt12 = arityImpl_1115((List *)var_31, rslt11); List *varArgs13 = (List *)GC_malloc(sizeof(List)); varArgs13->type = ListType; varArgs13->len = 0; @@ -15769,34 +15687,34 @@ return (rslt14); // --------- read-args main body -------------- -Function fn_1379 = {3, "read-args", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1380}}}; +Function fn_1369 = {3, "read-args", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1370}}}; struct {int64_t type; int64_t len; - char buffer[5];} _str_59 = {1,4,"main"}; + char buffer[5];} _str_58 = {1,4,"main"}; SymKey _sym_2 = {7, -1, "main"}; // --------- read-main -------------- -Function fn_1382; -Value *arityImpl_1383(List *closures) { -Value *rslt0 = arityImpl_1067((List *)var_31, (Value *)&_str_16); -Value *rslt1 = arityImpl_1125((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1371((List *)var_31); -Value *rslt3 = arityImpl_1155((List *)var_31, rslt2); -Value *rslt4 = arityImpl_1125((List *)var_31, rslt3); -Value *rslt5 = arityImpl_1067((List *)var_31, (Value *)&_str_59); -Value *rslt6 = arityImpl_1125((List *)var_31, rslt5); -Value *rslt7 = arityImpl_1146((List *)var_31, (Value *)&_sym_2); -Value *rslt8 = arityImpl_1371((List *)var_31); -Value *rslt9 = arityImpl_1102((List *)var_31, rslt8); -Value *rslt10 = arityImpl_1125((List *)var_31, rslt9); -Value *rslt11 = arityImpl_1380((List *)var_31); -Value *rslt12 = arityImpl_1334((List *)var_31); -Value *rslt13 = arityImpl_1102((List *)var_31, rslt12); -Value *rslt14 = arityImpl_1371((List *)var_31); -Value *rslt15 = arityImpl_1155((List *)var_31, rslt14); -Value *rslt16 = arityImpl_1125((List *)var_31, rslt15); -Value *rslt17 = arityImpl_1067((List *)var_31, (Value *)&_str_18); -Value *rslt18 = arityImpl_1125((List *)var_31, rslt17); +Function fn_1372; +Value *arityImpl_1373(List *closures) { +Value *rslt0 = arityImpl_1057((List *)var_31, (Value *)&_str_16); +Value *rslt1 = arityImpl_1115((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1361((List *)var_31); +Value *rslt3 = arityImpl_1145((List *)var_31, rslt2); +Value *rslt4 = arityImpl_1115((List *)var_31, rslt3); +Value *rslt5 = arityImpl_1057((List *)var_31, (Value *)&_str_58); +Value *rslt6 = arityImpl_1115((List *)var_31, rslt5); +Value *rslt7 = arityImpl_1136((List *)var_31, (Value *)&_sym_2); +Value *rslt8 = arityImpl_1361((List *)var_31); +Value *rslt9 = arityImpl_1092((List *)var_31, rslt8); +Value *rslt10 = arityImpl_1115((List *)var_31, rslt9); +Value *rslt11 = arityImpl_1370((List *)var_31); +Value *rslt12 = arityImpl_1324((List *)var_31); +Value *rslt13 = arityImpl_1092((List *)var_31, rslt12); +Value *rslt14 = arityImpl_1361((List *)var_31); +Value *rslt15 = arityImpl_1145((List *)var_31, rslt14); +Value *rslt16 = arityImpl_1115((List *)var_31, rslt15); +Value *rslt17 = arityImpl_1057((List *)var_31, (Value *)&_str_18); +Value *rslt18 = arityImpl_1115((List *)var_31, rslt17); List *varArgs19 = (List *)GC_malloc(sizeof(List)); varArgs19->type = ListType; varArgs19->len = 0; @@ -15818,15 +15736,15 @@ return (rslt20); // --------- read-main main body -------------- -Function fn_1382 = {3, "read-main", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1383}}}; +Function fn_1372 = {3, "read-main", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1373}}}; SymKey _sym_3 = {7, -1, "fn-arity"}; // --------- read-single-arity -------------- -Function fn_1385; +Function fn_1375; // --------- anon -------------- -Function fn_1387; -Value *arityImpl_1388(List *closures, Value *varArgs) { +Function fn_1377; +Value *arityImpl_1378(List *closures, Value *varArgs) { List *argsList = (List *)varArgs; Value *arg0 = (Value *)argsList; List *varArgs0 = (List *)GC_malloc(sizeof(List)); @@ -15840,12 +15758,12 @@ return (rslt1); }; // --------- anon main body -------------- -Function fn_1387 = {3, "anon", 1, {&(FnArity){2, (List *)0, 1, arityImpl_1388}}}; -Value *arityImpl_1386(List *closures) { -Value *rslt1 = arityImpl_1146((List *)var_31, (Value *)&_sym_3); -Value *rslt2 = arityImpl_1380((List *)var_31); -Value *rslt3 = arityImpl_1334((List *)var_31); -Value *rslt4 = arityImpl_1155((List *)var_31, rslt3); +Function fn_1377 = {3, "anon", 1, {&(FnArity){2, (List *)0, 1, arityImpl_1378}}}; +Value *arityImpl_1376(List *closures) { +Value *rslt1 = arityImpl_1136((List *)var_31, (Value *)&_sym_3); +Value *rslt2 = arityImpl_1370((List *)var_31); +Value *rslt3 = arityImpl_1324((List *)var_31); +Value *rslt4 = arityImpl_1145((List *)var_31, rslt3); List *varArgs5 = (List *)GC_malloc(sizeof(List)); varArgs5->type = ListType; varArgs5->len = 0; @@ -15854,35 +15772,35 @@ varArgs5->tail = (List *)0; varArgs5 = (List *)listCons((Value *)rslt4, varArgs5); varArgs5 = (List *)listCons((Value *)rslt2, varArgs5); varArgs5 = (List *)listCons((Value *)rslt1, varArgs5); -varArgs5 = (List *)listCons((Value *)(Value *)&fn_1387, varArgs5); +varArgs5 = (List *)listCons((Value *)(Value *)&fn_1377, varArgs5); Value *rslt6 = arityImpl_116((List *)var_31, (Value *)varArgs5); return (rslt6); }; // --------- read-single-arity main body -------------- -Function fn_1385 = {3, "read-single-arity", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1386}}}; +Function fn_1375 = {3, "read-single-arity", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1376}}}; // --------- read-multi-arity -------------- -Function fn_1390; -Value *arityImpl_1391(List *closures) { -Value *rslt0 = arityImpl_1371((List *)var_31); -Value *rslt1 = arityImpl_1155((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1125((List *)var_31, rslt1); -Value *rslt3 = arityImpl_1067((List *)var_31, (Value *)&_str_16); -Value *rslt4 = arityImpl_1125((List *)var_31, rslt3); -Value *rslt5 = arityImpl_1371((List *)var_31); -Value *rslt6 = arityImpl_1155((List *)var_31, rslt5); -Value *rslt7 = arityImpl_1125((List *)var_31, rslt6); -Value *rslt8 = arityImpl_1146((List *)var_31, (Value *)&_sym_3); -Value *rslt9 = arityImpl_1380((List *)var_31); -Value *rslt10 = arityImpl_1334((List *)var_31); -Value *rslt11 = arityImpl_1155((List *)var_31, rslt10); -Value *rslt12 = arityImpl_1371((List *)var_31); -Value *rslt13 = arityImpl_1155((List *)var_31, rslt12); -Value *rslt14 = arityImpl_1125((List *)var_31, rslt13); -Value *rslt15 = arityImpl_1067((List *)var_31, (Value *)&_str_18); -Value *rslt16 = arityImpl_1125((List *)var_31, rslt15); +Function fn_1380; +Value *arityImpl_1381(List *closures) { +Value *rslt0 = arityImpl_1361((List *)var_31); +Value *rslt1 = arityImpl_1145((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1115((List *)var_31, rslt1); +Value *rslt3 = arityImpl_1057((List *)var_31, (Value *)&_str_16); +Value *rslt4 = arityImpl_1115((List *)var_31, rslt3); +Value *rslt5 = arityImpl_1361((List *)var_31); +Value *rslt6 = arityImpl_1145((List *)var_31, rslt5); +Value *rslt7 = arityImpl_1115((List *)var_31, rslt6); +Value *rslt8 = arityImpl_1136((List *)var_31, (Value *)&_sym_3); +Value *rslt9 = arityImpl_1370((List *)var_31); +Value *rslt10 = arityImpl_1324((List *)var_31); +Value *rslt11 = arityImpl_1145((List *)var_31, rslt10); +Value *rslt12 = arityImpl_1361((List *)var_31); +Value *rslt13 = arityImpl_1145((List *)var_31, rslt12); +Value *rslt14 = arityImpl_1115((List *)var_31, rslt13); +Value *rslt15 = arityImpl_1057((List *)var_31, (Value *)&_str_18); +Value *rslt16 = arityImpl_1115((List *)var_31, rslt15); List *varArgs17 = (List *)GC_malloc(sizeof(List)); varArgs17->type = ListType; varArgs17->len = 0; @@ -15903,14 +15821,14 @@ return (rslt18); // --------- read-multi-arity main body -------------- -Function fn_1390 = {3, "read-multi-arity", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1391}}}; +Function fn_1380 = {3, "read-multi-arity", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1381}}}; // --------- read-arities -------------- -Function fn_1393; -Value *arityImpl_1394(List *closures) { -Value *rslt0 = arityImpl_1386((List *)var_31); -Value *rslt1 = arityImpl_1391((List *)var_31); -Value *rslt2 = arityImpl_1102((List *)var_31, rslt1); +Function fn_1383; +Value *arityImpl_1384(List *closures) { +Value *rslt0 = arityImpl_1376((List *)var_31); +Value *rslt1 = arityImpl_1381((List *)var_31); +Value *rslt2 = arityImpl_1092((List *)var_31, rslt1); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; varArgs3->len = 0; @@ -15924,19 +15842,19 @@ return (rslt4); // --------- read-arities main body -------------- -Function fn_1393 = {3, "read-arities", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1394}}}; +Function fn_1383 = {3, "read-arities", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1384}}}; struct {int64_t type; int64_t len; - char buffer[5];} _str_60 = {1,4,"defn"}; + char buffer[5];} _str_59 = {1,4,"defn"}; SymKey _sym_4 = {7, -1, "def"}; SymKey _sym_5 = {7, -1, "fn"}; // --------- read-defn -------------- -Function fn_1396; +Function fn_1386; // --------- anon -------------- -Function fn_1398; -Value *arityImpl_1399(List *closures, Value *arg0, Value *arg1) { +Function fn_1388; +Value *arityImpl_1389(List *closures, Value *arg0, Value *arg1) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; @@ -15960,28 +15878,28 @@ return (rslt3); // --------- anon main body -------------- -Function fn_1398 = {3, "anon", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1399}}}; -Value *arityImpl_1397(List *closures) { -Value *rslt1 = arityImpl_1067((List *)var_31, (Value *)&_str_16); -Value *rslt2 = arityImpl_1125((List *)var_31, rslt1); -Value *rslt3 = arityImpl_1371((List *)var_31); -Value *rslt4 = arityImpl_1155((List *)var_31, rslt3); -Value *rslt5 = arityImpl_1125((List *)var_31, rslt4); -Value *rslt6 = arityImpl_1067((List *)var_31, (Value *)&_str_60); -Value *rslt7 = arityImpl_1125((List *)var_31, rslt6); -Value *rslt8 = arityImpl_1371((List *)var_31); -Value *rslt9 = arityImpl_1102((List *)var_31, rslt8); -Value *rslt10 = arityImpl_1125((List *)var_31, rslt9); -Value *rslt11 = arityImpl_1248((List *)var_31); -Value *rslt12 = arityImpl_1371((List *)var_31); -Value *rslt13 = arityImpl_1102((List *)var_31, rslt12); -Value *rslt14 = arityImpl_1125((List *)var_31, rslt13); -Value *rslt15 = arityImpl_1394((List *)var_31); -Value *rslt16 = arityImpl_1371((List *)var_31); -Value *rslt17 = arityImpl_1155((List *)var_31, rslt16); -Value *rslt18 = arityImpl_1125((List *)var_31, rslt17); -Value *rslt19 = arityImpl_1067((List *)var_31, (Value *)&_str_18); -Value *rslt20 = arityImpl_1125((List *)var_31, rslt19); +Function fn_1388 = {3, "anon", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1389}}}; +Value *arityImpl_1387(List *closures) { +Value *rslt1 = arityImpl_1057((List *)var_31, (Value *)&_str_16); +Value *rslt2 = arityImpl_1115((List *)var_31, rslt1); +Value *rslt3 = arityImpl_1361((List *)var_31); +Value *rslt4 = arityImpl_1145((List *)var_31, rslt3); +Value *rslt5 = arityImpl_1115((List *)var_31, rslt4); +Value *rslt6 = arityImpl_1057((List *)var_31, (Value *)&_str_59); +Value *rslt7 = arityImpl_1115((List *)var_31, rslt6); +Value *rslt8 = arityImpl_1361((List *)var_31); +Value *rslt9 = arityImpl_1092((List *)var_31, rslt8); +Value *rslt10 = arityImpl_1115((List *)var_31, rslt9); +Value *rslt11 = arityImpl_1238((List *)var_31); +Value *rslt12 = arityImpl_1361((List *)var_31); +Value *rslt13 = arityImpl_1092((List *)var_31, rslt12); +Value *rslt14 = arityImpl_1115((List *)var_31, rslt13); +Value *rslt15 = arityImpl_1384((List *)var_31); +Value *rslt16 = arityImpl_1361((List *)var_31); +Value *rslt17 = arityImpl_1145((List *)var_31, rslt16); +Value *rslt18 = arityImpl_1115((List *)var_31, rslt17); +Value *rslt19 = arityImpl_1057((List *)var_31, (Value *)&_str_18); +Value *rslt20 = arityImpl_1115((List *)var_31, rslt19); List *varArgs21 = (List *)GC_malloc(sizeof(List)); varArgs21->type = ListType; varArgs21->len = 0; @@ -15996,35 +15914,35 @@ varArgs21 = (List *)listCons((Value *)rslt10, varArgs21); varArgs21 = (List *)listCons((Value *)rslt7, varArgs21); varArgs21 = (List *)listCons((Value *)rslt5, varArgs21); varArgs21 = (List *)listCons((Value *)rslt2, varArgs21); -varArgs21 = (List *)listCons((Value *)(Value *)&fn_1398, varArgs21); +varArgs21 = (List *)listCons((Value *)(Value *)&fn_1388, varArgs21); Value *rslt22 = arityImpl_116((List *)var_31, (Value *)varArgs21); return (rslt22); }; // --------- read-defn main body -------------- -Function fn_1396 = {3, "read-defn", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1397}}}; +Function fn_1386 = {3, "read-defn", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1387}}}; struct {int64_t type; int64_t len; - char buffer[3];} _str_61 = {1,2,"fn"}; + char buffer[3];} _str_60 = {1,2,"fn"}; SymKey _sym_6 = {7, -1, "anon"}; // --------- read-fn -------------- -Function fn_1401; -Value *arityImpl_1402(List *closures) { -Value *rslt0 = arityImpl_1067((List *)var_31, (Value *)&_str_16); -Value *rslt1 = arityImpl_1125((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1371((List *)var_31); -Value *rslt3 = arityImpl_1155((List *)var_31, rslt2); -Value *rslt4 = arityImpl_1125((List *)var_31, rslt3); -Value *rslt5 = arityImpl_1067((List *)var_31, (Value *)&_str_61); -Value *rslt6 = arityImpl_1125((List *)var_31, rslt5); -Value *rslt7 = arityImpl_1146((List *)var_31, (Value *)&_sym_5); -Value *rslt8 = arityImpl_1371((List *)var_31); -Value *rslt9 = arityImpl_1102((List *)var_31, rslt8); -Value *rslt10 = arityImpl_1125((List *)var_31, rslt9); -Value *rslt11 = arityImpl_1248((List *)var_31); -Value *rslt12 = arityImpl_1146((List *)var_31, (Value *)&_sym_6); +Function fn_1391; +Value *arityImpl_1392(List *closures) { +Value *rslt0 = arityImpl_1057((List *)var_31, (Value *)&_str_16); +Value *rslt1 = arityImpl_1115((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1361((List *)var_31); +Value *rslt3 = arityImpl_1145((List *)var_31, rslt2); +Value *rslt4 = arityImpl_1115((List *)var_31, rslt3); +Value *rslt5 = arityImpl_1057((List *)var_31, (Value *)&_str_60); +Value *rslt6 = arityImpl_1115((List *)var_31, rslt5); +Value *rslt7 = arityImpl_1136((List *)var_31, (Value *)&_sym_5); +Value *rslt8 = arityImpl_1361((List *)var_31); +Value *rslt9 = arityImpl_1092((List *)var_31, rslt8); +Value *rslt10 = arityImpl_1115((List *)var_31, rslt9); +Value *rslt11 = arityImpl_1238((List *)var_31); +Value *rslt12 = arityImpl_1136((List *)var_31, (Value *)&_sym_6); List *varArgs13 = (List *)GC_malloc(sizeof(List)); varArgs13->type = ListType; varArgs13->len = 0; @@ -16033,15 +15951,15 @@ varArgs13->tail = (List *)0; varArgs13 = (List *)listCons((Value *)rslt12, varArgs13); varArgs13 = (List *)listCons((Value *)rslt11, varArgs13); Value *rslt14 = arityImpl_250((List *)var_31, (Value *)varArgs13); -Value *rslt15 = arityImpl_1371((List *)var_31); -Value *rslt16 = arityImpl_1155((List *)var_31, rslt15); -Value *rslt17 = arityImpl_1125((List *)var_31, rslt16); -Value *rslt18 = arityImpl_1394((List *)var_31); -Value *rslt19 = arityImpl_1371((List *)var_31); -Value *rslt20 = arityImpl_1155((List *)var_31, rslt19); -Value *rslt21 = arityImpl_1125((List *)var_31, rslt20); -Value *rslt22 = arityImpl_1067((List *)var_31, (Value *)&_str_18); -Value *rslt23 = arityImpl_1125((List *)var_31, rslt22); +Value *rslt15 = arityImpl_1361((List *)var_31); +Value *rslt16 = arityImpl_1145((List *)var_31, rslt15); +Value *rslt17 = arityImpl_1115((List *)var_31, rslt16); +Value *rslt18 = arityImpl_1384((List *)var_31); +Value *rslt19 = arityImpl_1361((List *)var_31); +Value *rslt20 = arityImpl_1145((List *)var_31, rslt19); +Value *rslt21 = arityImpl_1115((List *)var_31, rslt20); +Value *rslt22 = arityImpl_1057((List *)var_31, (Value *)&_str_18); +Value *rslt23 = arityImpl_1115((List *)var_31, rslt22); List *varArgs24 = (List *)GC_malloc(sizeof(List)); varArgs24->type = ListType; varArgs24->len = 0; @@ -16064,19 +15982,19 @@ return (rslt25); // --------- read-fn main body -------------- -Function fn_1401 = {3, "read-fn", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1402}}}; +Function fn_1391 = {3, "read-fn", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1392}}}; // --------- read-let-binding -------------- -Function fn_1404; -Value *arityImpl_1405(List *closures) { -Value *rslt0 = arityImpl_1371((List *)var_31); -Value *rslt1 = arityImpl_1155((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1125((List *)var_31, rslt1); -Value *rslt3 = arityImpl_1248((List *)var_31); -Value *rslt4 = arityImpl_1371((List *)var_31); -Value *rslt5 = arityImpl_1155((List *)var_31, rslt4); -Value *rslt6 = arityImpl_1125((List *)var_31, rslt5); -Value *rslt7 = arityImpl_1334((List *)var_31); +Function fn_1394; +Value *arityImpl_1395(List *closures) { +Value *rslt0 = arityImpl_1361((List *)var_31); +Value *rslt1 = arityImpl_1145((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1115((List *)var_31, rslt1); +Value *rslt3 = arityImpl_1238((List *)var_31); +Value *rslt4 = arityImpl_1361((List *)var_31); +Value *rslt5 = arityImpl_1145((List *)var_31, rslt4); +Value *rslt6 = arityImpl_1115((List *)var_31, rslt5); +Value *rslt7 = arityImpl_1324((List *)var_31); List *varArgs8 = (List *)GC_malloc(sizeof(List)); varArgs8->type = ListType; varArgs8->len = 0; @@ -16093,39 +16011,39 @@ return (rslt9); // --------- read-let-binding main body -------------- -Function fn_1404 = {3, "read-let-binding", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1405}}}; +Function fn_1394 = {3, "read-let-binding", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1395}}}; struct {int64_t type; int64_t len; - char buffer[4];} _str_62 = {1,3,"let"}; + char buffer[4];} _str_61 = {1,3,"let"}; SymKey _sym_7 = {7, -1, "let"}; // --------- read-let -------------- -Function fn_1407; -Value *arityImpl_1408(List *closures) { -Value *rslt0 = arityImpl_1067((List *)var_31, (Value *)&_str_16); -Value *rslt1 = arityImpl_1125((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1371((List *)var_31); -Value *rslt3 = arityImpl_1155((List *)var_31, rslt2); -Value *rslt4 = arityImpl_1125((List *)var_31, rslt3); -Value *rslt5 = arityImpl_1067((List *)var_31, (Value *)&_str_62); -Value *rslt6 = arityImpl_1125((List *)var_31, rslt5); -Value *rslt7 = arityImpl_1146((List *)var_31, (Value *)&_sym_7); -Value *rslt8 = arityImpl_1371((List *)var_31); -Value *rslt9 = arityImpl_1102((List *)var_31, rslt8); -Value *rslt10 = arityImpl_1125((List *)var_31, rslt9); -Value *rslt11 = arityImpl_1067((List *)var_31, (Value *)&_str_54); -Value *rslt12 = arityImpl_1125((List *)var_31, rslt11); -Value *rslt13 = arityImpl_1405((List *)var_31); -Value *rslt14 = arityImpl_1155((List *)var_31, rslt13); -Value *rslt15 = arityImpl_1067((List *)var_31, (Value *)&_str_55); -Value *rslt16 = arityImpl_1125((List *)var_31, rslt15); -Value *rslt17 = arityImpl_1334((List *)var_31); -Value *rslt18 = arityImpl_1102((List *)var_31, rslt17); -Value *rslt19 = arityImpl_1371((List *)var_31); -Value *rslt20 = arityImpl_1155((List *)var_31, rslt19); -Value *rslt21 = arityImpl_1125((List *)var_31, rslt20); -Value *rslt22 = arityImpl_1067((List *)var_31, (Value *)&_str_18); -Value *rslt23 = arityImpl_1125((List *)var_31, rslt22); +Function fn_1397; +Value *arityImpl_1398(List *closures) { +Value *rslt0 = arityImpl_1057((List *)var_31, (Value *)&_str_16); +Value *rslt1 = arityImpl_1115((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1361((List *)var_31); +Value *rslt3 = arityImpl_1145((List *)var_31, rslt2); +Value *rslt4 = arityImpl_1115((List *)var_31, rslt3); +Value *rslt5 = arityImpl_1057((List *)var_31, (Value *)&_str_61); +Value *rslt6 = arityImpl_1115((List *)var_31, rslt5); +Value *rslt7 = arityImpl_1136((List *)var_31, (Value *)&_sym_7); +Value *rslt8 = arityImpl_1361((List *)var_31); +Value *rslt9 = arityImpl_1092((List *)var_31, rslt8); +Value *rslt10 = arityImpl_1115((List *)var_31, rslt9); +Value *rslt11 = arityImpl_1057((List *)var_31, (Value *)&_str_53); +Value *rslt12 = arityImpl_1115((List *)var_31, rslt11); +Value *rslt13 = arityImpl_1395((List *)var_31); +Value *rslt14 = arityImpl_1145((List *)var_31, rslt13); +Value *rslt15 = arityImpl_1057((List *)var_31, (Value *)&_str_54); +Value *rslt16 = arityImpl_1115((List *)var_31, rslt15); +Value *rslt17 = arityImpl_1324((List *)var_31); +Value *rslt18 = arityImpl_1092((List *)var_31, rslt17); +Value *rslt19 = arityImpl_1361((List *)var_31); +Value *rslt20 = arityImpl_1145((List *)var_31, rslt19); +Value *rslt21 = arityImpl_1115((List *)var_31, rslt20); +Value *rslt22 = arityImpl_1057((List *)var_31, (Value *)&_str_18); +Value *rslt23 = arityImpl_1115((List *)var_31, rslt22); List *varArgs24 = (List *)GC_malloc(sizeof(List)); varArgs24->type = ListType; varArgs24->len = 0; @@ -16149,30 +16067,30 @@ return (rslt25); // --------- read-let main body -------------- -Function fn_1407 = {3, "read-let", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1408}}}; +Function fn_1397 = {3, "read-let", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1398}}}; struct {int64_t type; int64_t len; - char buffer[5];} _str_63 = {1,4,":let"}; -SymKey _kw_13 = {5, -1, ":let"}; + char buffer[5];} _str_62 = {1,4,":let"}; +SymKey _kw_11 = {5, -1, ":let"}; // --------- read-for-let -------------- -Function fn_1410; -Value *arityImpl_1411(List *closures) { -Value *rslt0 = arityImpl_1371((List *)var_31); -Value *rslt1 = arityImpl_1155((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1125((List *)var_31, rslt1); -Value *rslt3 = arityImpl_1067((List *)var_31, (Value *)&_str_63); -Value *rslt4 = arityImpl_1125((List *)var_31, rslt3); -Value *rslt5 = arityImpl_1146((List *)var_31, (Value *)&_kw_13); -Value *rslt6 = arityImpl_1371((List *)var_31); -Value *rslt7 = arityImpl_1102((List *)var_31, rslt6); -Value *rslt8 = arityImpl_1125((List *)var_31, rslt7); -Value *rslt9 = arityImpl_1067((List *)var_31, (Value *)&_str_54); -Value *rslt10 = arityImpl_1125((List *)var_31, rslt9); -Value *rslt11 = arityImpl_1405((List *)var_31); -Value *rslt12 = arityImpl_1155((List *)var_31, rslt11); -Value *rslt13 = arityImpl_1067((List *)var_31, (Value *)&_str_55); -Value *rslt14 = arityImpl_1125((List *)var_31, rslt13); +Function fn_1400; +Value *arityImpl_1401(List *closures) { +Value *rslt0 = arityImpl_1361((List *)var_31); +Value *rslt1 = arityImpl_1145((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1115((List *)var_31, rslt1); +Value *rslt3 = arityImpl_1057((List *)var_31, (Value *)&_str_62); +Value *rslt4 = arityImpl_1115((List *)var_31, rslt3); +Value *rslt5 = arityImpl_1136((List *)var_31, (Value *)&_kw_11); +Value *rslt6 = arityImpl_1361((List *)var_31); +Value *rslt7 = arityImpl_1092((List *)var_31, rslt6); +Value *rslt8 = arityImpl_1115((List *)var_31, rslt7); +Value *rslt9 = arityImpl_1057((List *)var_31, (Value *)&_str_53); +Value *rslt10 = arityImpl_1115((List *)var_31, rslt9); +Value *rslt11 = arityImpl_1395((List *)var_31); +Value *rslt12 = arityImpl_1145((List *)var_31, rslt11); +Value *rslt13 = arityImpl_1057((List *)var_31, (Value *)&_str_54); +Value *rslt14 = arityImpl_1115((List *)var_31, rslt13); List *varArgs15 = (List *)GC_malloc(sizeof(List)); varArgs15->type = ListType; varArgs15->len = 0; @@ -16192,25 +16110,25 @@ return (rslt16); // --------- read-for-let main body -------------- -Function fn_1410 = {3, "read-for-let", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1411}}}; +Function fn_1400 = {3, "read-for-let", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1401}}}; struct {int64_t type; int64_t len; - char buffer[6];} _str_64 = {1,5,":when"}; -SymKey _kw_14 = {5, -1, ":when"}; + char buffer[6];} _str_63 = {1,5,":when"}; +SymKey _kw_12 = {5, -1, ":when"}; // --------- read-for-when -------------- -Function fn_1413; -Value *arityImpl_1414(List *closures) { -Value *rslt0 = arityImpl_1371((List *)var_31); -Value *rslt1 = arityImpl_1155((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1125((List *)var_31, rslt1); -Value *rslt3 = arityImpl_1067((List *)var_31, (Value *)&_str_64); -Value *rslt4 = arityImpl_1125((List *)var_31, rslt3); -Value *rslt5 = arityImpl_1146((List *)var_31, (Value *)&_kw_14); -Value *rslt6 = arityImpl_1371((List *)var_31); -Value *rslt7 = arityImpl_1102((List *)var_31, rslt6); -Value *rslt8 = arityImpl_1125((List *)var_31, rslt7); -Value *rslt9 = arityImpl_1334((List *)var_31); +Function fn_1403; +Value *arityImpl_1404(List *closures) { +Value *rslt0 = arityImpl_1361((List *)var_31); +Value *rslt1 = arityImpl_1145((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1115((List *)var_31, rslt1); +Value *rslt3 = arityImpl_1057((List *)var_31, (Value *)&_str_63); +Value *rslt4 = arityImpl_1115((List *)var_31, rslt3); +Value *rslt5 = arityImpl_1136((List *)var_31, (Value *)&_kw_12); +Value *rslt6 = arityImpl_1361((List *)var_31); +Value *rslt7 = arityImpl_1092((List *)var_31, rslt6); +Value *rslt8 = arityImpl_1115((List *)var_31, rslt7); +Value *rslt9 = arityImpl_1324((List *)var_31); List *varArgs10 = (List *)GC_malloc(sizeof(List)); varArgs10->type = ListType; varArgs10->len = 0; @@ -16228,14 +16146,14 @@ return (rslt11); // --------- read-for-when main body -------------- -Function fn_1413 = {3, "read-for-when", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1414}}}; +Function fn_1403 = {3, "read-for-when", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1404}}}; // --------- read-for-binding -------------- -Function fn_1416; -Value *arityImpl_1417(List *closures) { -Value *rslt0 = arityImpl_1411((List *)var_31); -Value *rslt1 = arityImpl_1414((List *)var_31); -Value *rslt2 = arityImpl_1405((List *)var_31); +Function fn_1406; +Value *arityImpl_1407(List *closures) { +Value *rslt0 = arityImpl_1401((List *)var_31); +Value *rslt1 = arityImpl_1404((List *)var_31); +Value *rslt2 = arityImpl_1395((List *)var_31); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; varArgs3->len = 0; @@ -16250,10 +16168,10 @@ return (rslt4); // --------- read-for-binding main body -------------- -Function fn_1416 = {3, "read-for-binding", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1417}}}; +Function fn_1406 = {3, "read-for-binding", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1407}}}; struct {int64_t type; int64_t len; - char buffer[4];} _str_65 = {1,3,"for"}; + char buffer[4];} _str_64 = {1,3,"for"}; SymKey _sym_8 = {7, -1, "some-unique-var"}; SymKey _sym_9 = {7, -1, "wrap"}; SymKey _sym_10 = {7, -1, "cond"}; @@ -16261,19 +16179,19 @@ SymKey _sym_11 = {7, -1, "zero"}; SymKey _sym_12 = {7, -1, "flat-map"}; // --------- read-for -------------- -Function fn_1419; +Function fn_1409; // --------- anon -------------- -Function fn_1421; +Function fn_1411; // --------- anon -------------- -Function fn_1423; -Value *arityImpl_1424(List *closures, Value *arg0, Value *arg1) { +Function fn_1413; +Value *arityImpl_1414(List *closures, Value *arg0, Value *arg1) { Value *rslt0 = protoFnImpl_219((List *)var_31, arg1); Value *rslt1 = protoFnImpl_224((List *)var_31, arg1); Value *rslt2 = protoFnImpl_219((List *)var_31, rslt1); Value *cond3; -Value *rslt16 = arityImpl_283((List *)var_31, rslt0, (Value *)&_kw_13); +Value *rslt16 = arityImpl_283((List *)var_31, rslt0, (Value *)&_kw_11); if (isTrue(rslt16)) { List *varArgs17 = (List *)GC_malloc(sizeof(List)); @@ -16287,7 +16205,7 @@ varArgs17 = (List *)listCons((Value *)(Value *)&_sym_7, varArgs17); Value *rslt18 = arityImpl_119((List *)var_31, (Value *)varArgs17); cond3 = rslt18; } else { -Value *rslt19 = arityImpl_283((List *)var_31, rslt0, (Value *)&_kw_14); +Value *rslt19 = arityImpl_283((List *)var_31, rslt0, (Value *)&_kw_12); if (isTrue(rslt19)) { List *varArgs20 = (List *)GC_malloc(sizeof(List)); @@ -16366,8 +16284,8 @@ return (cond3); // --------- anon main body -------------- -Function fn_1423 = {3, "anon", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1424}}}; -Value *arityImpl_1422(List *closures, Value *arg0, Value *arg1, Value *arg2, Value *arg3) { +Function fn_1413 = {3, "anon", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1414}}}; +Value *arityImpl_1412(List *closures, Value *arg0, Value *arg1, Value *arg2, Value *arg3) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; @@ -16424,7 +16342,7 @@ varArgs11 = (List *)listCons((Value *)arg3, varArgs11); varArgs11 = (List *)listCons((Value *)(Value *)&_sym_8, varArgs11); varArgs11 = (List *)listCons((Value *)(Value *)&_sym_9, varArgs11); Value *rslt12 = arityImpl_119((List *)var_31, (Value *)varArgs11); -Value *rslt14 = arityImpl_297((List *)var_31, rslt10, rslt12, (Value *)&fn_1423); +Value *rslt14 = arityImpl_297((List *)var_31, rslt10, rslt12, (Value *)&fn_1413); List *varArgs15 = (List *)GC_malloc(sizeof(List)); varArgs15->type = ListType; varArgs15->len = 0; @@ -16439,38 +16357,38 @@ return (rslt16); // --------- anon main body -------------- -Function fn_1421 = {3, "anon", 1, {&(FnArity){4, (List *)0, 0, arityImpl_1422}}}; -Value *arityImpl_1420(List *closures) { -Value *rslt1 = arityImpl_1067((List *)var_31, (Value *)&_str_16); -Value *rslt2 = arityImpl_1125((List *)var_31, rslt1); -Value *rslt3 = arityImpl_1371((List *)var_31); -Value *rslt4 = arityImpl_1155((List *)var_31, rslt3); -Value *rslt5 = arityImpl_1125((List *)var_31, rslt4); -Value *rslt6 = arityImpl_1067((List *)var_31, (Value *)&_str_65); -Value *rslt7 = arityImpl_1125((List *)var_31, rslt6); -Value *rslt8 = arityImpl_1371((List *)var_31); -Value *rslt9 = arityImpl_1102((List *)var_31, rslt8); -Value *rslt10 = arityImpl_1125((List *)var_31, rslt9); -Value *rslt11 = arityImpl_1067((List *)var_31, (Value *)&_str_54); -Value *rslt12 = arityImpl_1125((List *)var_31, rslt11); -Value *rslt13 = arityImpl_1371((List *)var_31); -Value *rslt14 = arityImpl_1155((List *)var_31, rslt13); -Value *rslt15 = arityImpl_1125((List *)var_31, rslt14); -Value *rslt16 = arityImpl_1248((List *)var_31); -Value *rslt17 = arityImpl_1371((List *)var_31); -Value *rslt18 = arityImpl_1102((List *)var_31, rslt17); -Value *rslt19 = arityImpl_1125((List *)var_31, rslt18); -Value *rslt20 = arityImpl_1334((List *)var_31); -Value *rslt21 = arityImpl_1417((List *)var_31); -Value *rslt22 = arityImpl_1155((List *)var_31, rslt21); -Value *rslt23 = arityImpl_1067((List *)var_31, (Value *)&_str_55); -Value *rslt24 = arityImpl_1125((List *)var_31, rslt23); -Value *rslt25 = arityImpl_1334((List *)var_31); -Value *rslt26 = arityImpl_1371((List *)var_31); -Value *rslt27 = arityImpl_1155((List *)var_31, rslt26); -Value *rslt28 = arityImpl_1125((List *)var_31, rslt27); -Value *rslt29 = arityImpl_1067((List *)var_31, (Value *)&_str_18); -Value *rslt30 = arityImpl_1125((List *)var_31, rslt29); +Function fn_1411 = {3, "anon", 1, {&(FnArity){4, (List *)0, 0, arityImpl_1412}}}; +Value *arityImpl_1410(List *closures) { +Value *rslt1 = arityImpl_1057((List *)var_31, (Value *)&_str_16); +Value *rslt2 = arityImpl_1115((List *)var_31, rslt1); +Value *rslt3 = arityImpl_1361((List *)var_31); +Value *rslt4 = arityImpl_1145((List *)var_31, rslt3); +Value *rslt5 = arityImpl_1115((List *)var_31, rslt4); +Value *rslt6 = arityImpl_1057((List *)var_31, (Value *)&_str_64); +Value *rslt7 = arityImpl_1115((List *)var_31, rslt6); +Value *rslt8 = arityImpl_1361((List *)var_31); +Value *rslt9 = arityImpl_1092((List *)var_31, rslt8); +Value *rslt10 = arityImpl_1115((List *)var_31, rslt9); +Value *rslt11 = arityImpl_1057((List *)var_31, (Value *)&_str_53); +Value *rslt12 = arityImpl_1115((List *)var_31, rslt11); +Value *rslt13 = arityImpl_1361((List *)var_31); +Value *rslt14 = arityImpl_1145((List *)var_31, rslt13); +Value *rslt15 = arityImpl_1115((List *)var_31, rslt14); +Value *rslt16 = arityImpl_1238((List *)var_31); +Value *rslt17 = arityImpl_1361((List *)var_31); +Value *rslt18 = arityImpl_1092((List *)var_31, rslt17); +Value *rslt19 = arityImpl_1115((List *)var_31, rslt18); +Value *rslt20 = arityImpl_1324((List *)var_31); +Value *rslt21 = arityImpl_1407((List *)var_31); +Value *rslt22 = arityImpl_1145((List *)var_31, rslt21); +Value *rslt23 = arityImpl_1057((List *)var_31, (Value *)&_str_54); +Value *rslt24 = arityImpl_1115((List *)var_31, rslt23); +Value *rslt25 = arityImpl_1324((List *)var_31); +Value *rslt26 = arityImpl_1361((List *)var_31); +Value *rslt27 = arityImpl_1145((List *)var_31, rslt26); +Value *rslt28 = arityImpl_1115((List *)var_31, rslt27); +Value *rslt29 = arityImpl_1057((List *)var_31, (Value *)&_str_18); +Value *rslt30 = arityImpl_1115((List *)var_31, rslt29); List *varArgs31 = (List *)GC_malloc(sizeof(List)); varArgs31->type = ListType; varArgs31->len = 0; @@ -16490,26 +16408,26 @@ varArgs31 = (List *)listCons((Value *)rslt10, varArgs31); varArgs31 = (List *)listCons((Value *)rslt7, varArgs31); varArgs31 = (List *)listCons((Value *)rslt5, varArgs31); varArgs31 = (List *)listCons((Value *)rslt2, varArgs31); -varArgs31 = (List *)listCons((Value *)(Value *)&fn_1421, varArgs31); +varArgs31 = (List *)listCons((Value *)(Value *)&fn_1411, varArgs31); Value *rslt32 = arityImpl_116((List *)var_31, (Value *)varArgs31); return (rslt32); }; // --------- read-for main body -------------- -Function fn_1419 = {3, "read-for", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1420}}}; +Function fn_1409 = {3, "read-for", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1410}}}; struct {int64_t type; int64_t len; - char buffer[2];} _str_66 = {1,1,"'"}; + char buffer[2];} _str_65 = {1,1,"'"}; SymKey _sym_13 = {7, -1, "quote"}; // --------- read-quoted -------------- -Function fn_1426; -Value *arityImpl_1427(List *closures) { -Value *rslt0 = arityImpl_1067((List *)var_31, (Value *)&_str_66); -Value *rslt1 = arityImpl_1125((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1146((List *)var_31, (Value *)&_sym_13); -Value *rslt3 = arityImpl_1334((List *)var_31); +Function fn_1416; +Value *arityImpl_1417(List *closures) { +Value *rslt0 = arityImpl_1057((List *)var_31, (Value *)&_str_65); +Value *rslt1 = arityImpl_1115((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1136((List *)var_31, (Value *)&_sym_13); +Value *rslt3 = arityImpl_1324((List *)var_31); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; varArgs4->len = 0; @@ -16525,10 +16443,10 @@ return (rslt5); // --------- read-quoted main body -------------- -Function fn_1426 = {3, "read-quoted", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1427}}}; -ProtoImpls *protoImpls_1429; -Value *protoFnImpl_1432(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_1429); +Function fn_1416 = {3, "read-quoted", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1417}}}; +ProtoImpls *protoImpls_1419; +Value *protoFnImpl_1422(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_1419); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.name' %lld\n", arg0->type); abort(); @@ -16541,12 +16459,12 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_1433 = {1, (List *)0, 0, protoFnImpl_1432}; -Function protoFn_1430 = {3, ".name", 1, {&protoFnArity_1433}}; +FnArity protoFnArity_1423 = {1, (List *)0, 0, protoFnImpl_1422}; +Function protoFn_1420 = {3, ".name", 1, {&protoFnArity_1423}}; -ProtoImpls *protoImpls_1434; -Value *protoFnImpl_1437(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_1434); +ProtoImpls *protoImpls_1424; +Value *protoFnImpl_1427(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_1424); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.grammar' %lld\n", arg0->type); abort(); @@ -16559,17 +16477,17 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_1438 = {1, (List *)0, 0, protoFnImpl_1437}; -Function protoFn_1435 = {3, ".grammar", 1, {&protoFnArity_1438}}; +FnArity protoFnArity_1428 = {1, (List *)0, 0, protoFnImpl_1427}; +Function protoFn_1425 = {3, ".grammar", 1, {&protoFnArity_1428}}; // forward declaration for 'parser-rule' -Value *var_1439; +Value *var_1429; -Number _num_32 = {2, -1, 46}; +Number _num_32 = {2, -1, 45}; // --------- instance?_impl -------------- -Function fn_1440; -Value *arityImpl_1441(List *closures, Value *arg0, Value *arg1) { +Function fn_1430; +Value *arityImpl_1431(List *closures, Value *arg0, Value *arg1) { Value *rslt3; if((var_22)->type != 3) { rslt3 = protoFnImpl_5(empty_list, var_22, arg1); @@ -16598,24 +16516,24 @@ return (rslt4); // --------- instance?_impl main body -------------- -Function fn_1440 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1441}}}; -Value *protoImpl_1442(List *closures, Value *arg0, Value *arg1) { +Function fn_1430 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1431}}}; +Value *protoImpl_1432(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_1443 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1442}}}; +Function protoFn_1433 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1432}}}; // --------- invoke_impl -------------- -Function fn_1444; +Function fn_1434; // --------- recursive-descent_impl -------------- -Function fn_1446; +Function fn_1436; // --------- anon -------------- -Function fn_1448; -Value *arityImpl_1449(List *closures, Value *arg0) { +Function fn_1438; +Value *arityImpl_1439(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -16647,11 +16565,11 @@ return (rslt4); // --------- anon -------------- -Function fn_1450; +Function fn_1440; // --------- anon -------------- -Function fn_1452; -Value *arityImpl_1453(List *closures, Value *arg0) { +Function fn_1442; +Value *arityImpl_1443(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -16660,7 +16578,7 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, arg0); return (rslt1); }; -Value *arityImpl_1451(List *closures, Value *arg0) { +Value *arityImpl_1441(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -16670,10 +16588,10 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt4; -if((var_689)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, var_689, val0); +if((var_679)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, var_679, val0); } else { -FnArity *arity1 = findFnArity(var_689, 1); +FnArity *arity1 = findFnArity(var_679, 1); if(arity1 != (FnArity *)0 && !arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; rslt4 = fn3(arity1->closures, val0); @@ -16687,7 +16605,7 @@ varArgs2->tail = (List *)0; varArgs2 = (List *)listCons(val0, varArgs2); rslt4 = fn3(arity1->closures, (Value *)varArgs2); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_689)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_679)->name); abort(); } } @@ -16695,18 +16613,18 @@ FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_1453; +arity_5->fn = arityImpl_1443; arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); -Function *fn_1452 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1452->type = 3; -fn_1452->name = "anon"; -fn_1452->arityCount = 1; -fn_1452->arities[0] = arity_5; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_1452); +Function *fn_1442 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1442->type = 3; +fn_1442->name = "anon"; +fn_1442->arityCount = 1; +fn_1442->arities[0] = arity_5; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_1442); return (rslt7); }; -Value *arityImpl_1447(List *closures, Value *arg0) { +Value *arityImpl_1437(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -16715,54 +16633,54 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = protoFnImpl_740((List *)var_31, val0, (Value *)&protoFn_1032); +Value *rslt1 = protoFnImpl_730((List *)var_31, val0, (Value *)&protoFn_1022); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1449; +arity_2->fn = arityImpl_1439; arity_2->closures = listCons((Value *)rslt1, (List *)arity_2->closures); -Function *fn_1448 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1448->type = 3; -fn_1448->name = "anon"; -fn_1448->arityCount = 1; -fn_1448->arities[0] = arity_2; +Function *fn_1438 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1438->type = 3; +fn_1438->name = "anon"; +fn_1438->arityCount = 1; +fn_1438->arities[0] = arity_2; List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; varArgs4 = (List *)listCons((Value *)val3, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&_kw_11, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_kw_9, varArgs4); Value *rslt5 = arityImpl_119((List *)var_31, (Value *)varArgs4); -Value *rslt6 = arityImpl_1022((List *)var_31, rslt5, (Value *)fn_1448); +Value *rslt6 = arityImpl_1012((List *)var_31, rslt5, (Value *)fn_1438); FnArity *arity_7 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_7->count = 1; arity_7->closures = empty_list; arity_7->variadic = 0; -arity_7->fn = arityImpl_1451; +arity_7->fn = arityImpl_1441; arity_7->closures = listCons((Value *)rslt6, (List *)arity_7->closures); -arity_7->closures = listCons((Value *)(Value *)fn_1448, (List *)arity_7->closures); -Function *fn_1450 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1450->type = 3; -fn_1450->name = "anon"; -fn_1450->arityCount = 1; -fn_1450->arities[0] = arity_7; -Value *rslt8 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_1450); +arity_7->closures = listCons((Value *)(Value *)fn_1438, (List *)arity_7->closures); +Function *fn_1440 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1440->type = 3; +fn_1440->name = "anon"; +fn_1440->arityCount = 1; +fn_1440->arities[0] = arity_7; +Value *rslt8 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_1440); return (rslt8); }; -Value *protoImpl_1454(List *closures, Value *arg0) { +Value *protoImpl_1444(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1455 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1454}}}; +Function protoFn_1445 = {3, "recursive-descent", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1444}}}; // --------- .name_impl -------------- -Function fn_1456; -Value *arityImpl_1457(List *closures, Value *arg0) { +Function fn_1446; +Value *arityImpl_1447(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -16770,17 +16688,17 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_1458(List *closures, Value *arg0) { +Value *protoImpl_1448(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1459 = {3, ".name", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1458}}}; +Function protoFn_1449 = {3, ".name", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1448}}}; // --------- .grammar_impl -------------- -Function fn_1460; -Value *arityImpl_1461(List *closures, Value *arg0) { +Function fn_1450; +Value *arityImpl_1451(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -16788,78 +16706,78 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_1462(List *closures, Value *arg0) { +Value *protoImpl_1452(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1463 = {3, ".grammar", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1462}}}; +Function protoFn_1453 = {3, ".grammar", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1452}}}; -Value *arityImpl_1445(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Value *arityImpl_1435(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_1447; +arity_0->fn = arityImpl_1437; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg2, (List *)arity_0->closures); -Function *fn_1446 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1446->type = 3; -fn_1446->name = "recursive-descent_impl"; -fn_1446->arityCount = 1; -fn_1446->arities[0] = arity_0; +Function *fn_1436 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1436->type = 3; +fn_1436->name = "recursive-descent_impl"; +fn_1436->arityCount = 1; +fn_1436->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1457; +arity_1->fn = arityImpl_1447; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_1456 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1456->type = 3; -fn_1456->name = ".name_impl"; -fn_1456->arityCount = 1; -fn_1456->arities[0] = arity_1; +Function *fn_1446 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1446->type = 3; +fn_1446->name = ".name_impl"; +fn_1446->arityCount = 1; +fn_1446->arities[0] = arity_1; FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1461; +arity_2->fn = arityImpl_1451; arity_2->closures = listCons((Value *)arg2, (List *)arity_2->closures); -Function *fn_1460 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1460->type = 3; -fn_1460->name = ".grammar_impl"; -fn_1460->arityCount = 1; -fn_1460->arities[0] = arity_2; +Function *fn_1450 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1450->type = 3; +fn_1450->name = ".grammar_impl"; +fn_1450->arityCount = 1; +fn_1450->arities[0] = arity_2; ReifiedVal *reified_3 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 3); -reified_3->type = 46; +reified_3->type = 45; reified_3->implCount = 3; -reified_3->impls[0] = (Value *)fn_1446; -reified_3->impls[1] = (Value *)fn_1456; -reified_3->impls[2] = (Value *)fn_1460; +reified_3->impls[0] = (Value *)fn_1436; +reified_3->impls[1] = (Value *)fn_1446; +reified_3->impls[2] = (Value *)fn_1450; return ((Value *)reified_3); }; // --------- invoke_impl main body -------------- -Function fn_1444 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_1445}}}; -Value *protoImpl_1464(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Function fn_1434 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_1435}}}; +Value *protoImpl_1454(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType3 *)arityPtr->fn)(arityPtr->closures, arg0, arg1, arg2)); }; -Function protoFn_1465 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_1464}}}; +Function protoFn_1455 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_1454}}}; -ReifiedVal reified_1466 = {45, 2, {(Value *)&fn_1440, (Value *)&fn_1444}}; -Value *var_1439 = (Value *)&reified_1466; +ReifiedVal reified_1456 = {44, 2, {(Value *)&fn_1430, (Value *)&fn_1434}}; +Value *var_1429 = (Value *)&reified_1456; // --------- rule -------------- -Function fn_1467; -Value *arityImpl_1468(List *closures, Value *arg0, Value *arg1) { +Function fn_1457; +Value *arityImpl_1458(List *closures, Value *arg0, Value *arg1) { Value *rslt3; -if((var_1439)->type != 3) { -rslt3 = protoFnImpl_7(empty_list, var_1439, arg0, arg1); +if((var_1429)->type != 3) { +rslt3 = protoFnImpl_7(empty_list, var_1429, arg0, arg1); } else { -FnArity *arity0 = findFnArity(var_1439, 2); +FnArity *arity0 = findFnArity(var_1429, 2); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType2 *fn2 = (FnType2 *)arity0->fn; rslt3 = fn2(arity0->closures, arg0, arg1); @@ -16874,15 +16792,15 @@ varArgs1 = (List *)listCons(arg1, varArgs1); varArgs1 = (List *)listCons(arg0, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1439)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1429)->name); abort(); } } Value *rslt7; -if((var_936)->type != 3) { -rslt7 = protoFnImpl_5(empty_list, var_936, rslt3); +if((var_926)->type != 3) { +rslt7 = protoFnImpl_5(empty_list, var_926, rslt3); } else { -FnArity *arity4 = findFnArity(var_936, 1); +FnArity *arity4 = findFnArity(var_926, 1); if(arity4 != (FnArity *)0 && !arity4->variadic) { FnType1 *fn6 = (FnType1 *)arity4->fn; rslt7 = fn6(arity4->closures, rslt3); @@ -16896,7 +16814,7 @@ varArgs5->tail = (List *)0; varArgs5 = (List *)listCons(rslt3, varArgs5); rslt7 = fn6(arity4->closures, (Value *)varArgs5); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -16905,27 +16823,27 @@ return (rslt7); // --------- rule main body -------------- -Function fn_1467 = {3, "rule", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1468}}}; +Function fn_1457 = {3, "rule", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1458}}}; // --------- read-form -------------- -Function fn_1470; -Value *arityImpl_1471(List *closures) { -Value *rslt0 = arityImpl_1371((List *)var_31); -Value *rslt1 = arityImpl_1155((List *)var_31, rslt0); -Value *rslt2 = arityImpl_1125((List *)var_31, rslt1); -Value *rslt3 = arityImpl_1312((List *)var_31); -Value *rslt4 = arityImpl_1253((List *)var_31); -Value *rslt5 = arityImpl_1248((List *)var_31); -Value *rslt6 = arityImpl_1427((List *)var_31); -Value *rslt7 = arityImpl_1304((List *)var_31); -Value *rslt8 = arityImpl_1408((List *)var_31); -Value *rslt9 = arityImpl_1383((List *)var_31); -Value *rslt10 = arityImpl_1397((List *)var_31); -Value *rslt11 = arityImpl_1402((List *)var_31); -Value *rslt12 = arityImpl_1420((List *)var_31); -Value *rslt13 = arityImpl_1340((List *)var_31); -Value *rslt14 = arityImpl_1343((List *)var_31); -Value *rslt15 = arityImpl_1337((List *)var_31); +Function fn_1460; +Value *arityImpl_1461(List *closures) { +Value *rslt0 = arityImpl_1361((List *)var_31); +Value *rslt1 = arityImpl_1145((List *)var_31, rslt0); +Value *rslt2 = arityImpl_1115((List *)var_31, rslt1); +Value *rslt3 = arityImpl_1302((List *)var_31); +Value *rslt4 = arityImpl_1243((List *)var_31); +Value *rslt5 = arityImpl_1238((List *)var_31); +Value *rslt6 = arityImpl_1417((List *)var_31); +Value *rslt7 = arityImpl_1294((List *)var_31); +Value *rslt8 = arityImpl_1398((List *)var_31); +Value *rslt9 = arityImpl_1373((List *)var_31); +Value *rslt10 = arityImpl_1387((List *)var_31); +Value *rslt11 = arityImpl_1392((List *)var_31); +Value *rslt12 = arityImpl_1410((List *)var_31); +Value *rslt13 = arityImpl_1330((List *)var_31); +Value *rslt14 = arityImpl_1333((List *)var_31); +Value *rslt15 = arityImpl_1327((List *)var_31); List *varArgs16 = (List *)GC_malloc(sizeof(List)); varArgs16->type = ListType; varArgs16->len = 0; @@ -16945,9 +16863,9 @@ varArgs16 = (List *)listCons((Value *)rslt5, varArgs16); varArgs16 = (List *)listCons((Value *)rslt4, varArgs16); varArgs16 = (List *)listCons((Value *)rslt3, varArgs16); Value *rslt17 = arityImpl_250((List *)var_31, (Value *)varArgs16); -Value *rslt18 = arityImpl_1371((List *)var_31); -Value *rslt19 = arityImpl_1155((List *)var_31, rslt18); -Value *rslt20 = arityImpl_1125((List *)var_31, rslt19); +Value *rslt18 = arityImpl_1361((List *)var_31); +Value *rslt19 = arityImpl_1145((List *)var_31, rslt18); +Value *rslt20 = arityImpl_1115((List *)var_31, rslt19); List *varArgs21 = (List *)GC_malloc(sizeof(List)); varArgs21->type = ListType; varArgs21->len = 0; @@ -16956,32 +16874,32 @@ varArgs21->tail = (List *)0; varArgs21 = (List *)listCons((Value *)rslt20, varArgs21); varArgs21 = (List *)listCons((Value *)rslt17, varArgs21); varArgs21 = (List *)listCons((Value *)rslt2, varArgs21); -Value *rslt22 = arityImpl_1149((List *)var_31, (Value *)varArgs21); -Value *rslt23 = arityImpl_1468((List *)var_31, (Value *)&_str_53, rslt22); +Value *rslt22 = arityImpl_1139((List *)var_31, (Value *)varArgs21); +Value *rslt23 = arityImpl_1458((List *)var_31, (Value *)&_str_52, rslt22); return (rslt23); }; // --------- read-form main body -------------- -Function fn_1470 = {3, "read-form", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1471}}}; +Function fn_1460 = {3, "read-form", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1461}}}; // --------- parser -------------- -Function fn_1473; -Value *arityImpl_1474(List *closures, Value *arg0) { -Value *rslt0 = protoFnImpl_740((List *)var_31, arg0, (Value *)&protoFn_1032); +Function fn_1463; +Value *arityImpl_1464(List *closures, Value *arg0) { +Value *rslt0 = protoFnImpl_730((List *)var_31, arg0, (Value *)&protoFn_1022); return (rslt0); }; // --------- parser main body -------------- -Function fn_1473 = {3, "parser", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1474}}}; +Function fn_1463 = {3, "parser", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1464}}}; // --------- make-parser -------------- -Function fn_1476; +Function fn_1466; // --------- anon -------------- -Function fn_1478; -Value *arityImpl_1479(List *closures, Value *arg0) { +Function fn_1468; +Value *arityImpl_1469(List *closures, Value *arg0) { Value *cond0; Value *rslt3 = protoFnImpl_179((List *)var_31, arg0); @@ -16989,7 +16907,7 @@ if (isTrue(rslt3)) { cond0 = var_31; } else { Value *rslt1 = protoFnImpl_219((List *)var_31, arg0); -Value *rslt2 = arityImpl_985((List *)var_31, rslt1); +Value *rslt2 = arityImpl_975((List *)var_31, rslt1); cond0 = rslt2; } return (cond0); @@ -16997,36 +16915,36 @@ return (cond0); // --------- anon main body -------------- -Function fn_1478 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1479}}}; -Value *arityImpl_1477(List *closures) { -Value *rslt0 = arityImpl_1471((List *)var_31); -Value *rslt1 = arityImpl_1474((List *)var_31, rslt0); -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)&fn_1478); +Function fn_1468 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1469}}}; +Value *arityImpl_1467(List *closures) { +Value *rslt0 = arityImpl_1461((List *)var_31); +Value *rslt1 = arityImpl_1464((List *)var_31, rslt0); +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)&fn_1468); return (rslt3); }; // --------- make-parser main body -------------- -Function fn_1476 = {3, "make-parser", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1477}}}; -SymKey _kw_15 = {5, -1, ":expr"}; +Function fn_1466 = {3, "make-parser", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1467}}}; +SymKey _kw_13 = {5, -1, ":expr"}; // --------- set-expr -------------- -Function fn_1481; -Value *arityImpl_1482(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_1009((List *)var_31, (Value *)&_kw_15, arg0); +Function fn_1471; +Value *arityImpl_1472(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_999((List *)var_31, (Value *)&_kw_13, arg0); return (rslt0); }; // --------- set-expr main body -------------- -Function fn_1481 = {3, "set-expr", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1482}}}; +Function fn_1471 = {3, "set-expr", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1472}}}; // --------- is-expr -------------- -Function fn_1484; +Function fn_1474; // --------- anon -------------- -Function fn_1486; -Value *arityImpl_1487(List *closures, Value *arg0) { +Function fn_1476; +Value *arityImpl_1477(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -17069,101 +16987,101 @@ cond0 = rslt2; return (cond0); }; -Value *arityImpl_1485(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_1001((List *)var_31, (Value *)&_kw_15); +Value *arityImpl_1475(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_991((List *)var_31, (Value *)&_kw_13); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1487; +arity_1->fn = arityImpl_1477; arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_1486 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1486->type = 3; -fn_1486->name = "anon"; -fn_1486->arityCount = 1; -fn_1486->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1486); +Function *fn_1476 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1476->type = 3; +fn_1476->name = "anon"; +fn_1476->arityCount = 1; +fn_1476->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1476); return (rslt2); }; // --------- is-expr main body -------------- -Function fn_1484 = {3, "is-expr", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1485}}}; +Function fn_1474 = {3, "is-expr", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1475}}}; // forward declaration for 'analyze-expr' -Value *var_1489; +Value *var_1479; // forward declaration for 'inline-ast' -Value *var_1490; +Value *var_1480; // forward declaration for 'symbol-ast' -Value *var_1491; +Value *var_1481; // forward declaration for 'keyword-ast' -Value *var_1492; +Value *var_1482; // forward declaration for 'const-number-ast' -Value *var_1493; +Value *var_1483; // forward declaration for 'const-string-ast' -Value *var_1494; +Value *var_1484; // forward declaration for 'variadic-arity-ast' -Value *var_1495; +Value *var_1485; // forward declaration for 'fn-arity-ast' -Value *var_1496; +Value *var_1486; // forward declaration for 'main-ast' -Value *var_1497; +Value *var_1487; // forward declaration for 'call-ast' -Value *var_1498; +Value *var_1488; // forward declaration for 'binding-ast' -Value *var_1499; +Value *var_1489; // forward declaration for 'let-ast' -Value *var_1500; +Value *var_1490; // forward declaration for 'fn-ast' -Value *var_1501; +Value *var_1491; // forward declaration for 'quoted-ast' -Value *var_1502; +Value *var_1492; // forward declaration for 'definition-ast' -Value *var_1503; +Value *var_1493; // forward declaration for 'cond-ast' -Value *var_1504; +Value *var_1494; // forward declaration for 'extend-ast' -Value *var_1505; +Value *var_1495; // forward declaration for 'reify-ast' -Value *var_1506; +Value *var_1496; // forward declaration for 'type-ast' -Value *var_1507; +Value *var_1497; // forward declaration for 'protocol-ast' -Value *var_1508; +Value *var_1498; // forward declaration for 'static-values' -Value *var_1509; +Value *var_1499; // forward declaration for 'emit-proto-fn' -Value *var_1510; +Value *var_1500; SymKey _sym_14 = {7, -1, "inline-text"}; // --------- analyze-inline-text -------------- -Function fn_1511; +Function fn_1501; // --------- anon -------------- -Function fn_1513; -Value *arityImpl_1514(List *closures, Value *arg0) { +Function fn_1503; +Value *arityImpl_1504(List *closures, Value *arg0) { Value *cond0; Value *rslt3 = protoFnImpl_209((List *)var_31, arg0); Value *rslt4 = arityImpl_274((List *)var_31, rslt3); @@ -17186,21 +17104,21 @@ return (cond0); // --------- anon main body -------------- -Function fn_1513 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1514}}}; +Function fn_1503 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1504}}}; // --------- anon -------------- -Function fn_1515; -Value *arityImpl_1516(List *closures, Value *arg0) { +Function fn_1505; +Value *arityImpl_1506(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt1 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, (Value *)&_str_19); Value *rslt5; -if((var_1490)->type != 3) { -rslt5 = protoFnImpl_5(empty_list, var_1490, rslt1); +if((var_1480)->type != 3) { +rslt5 = protoFnImpl_5(empty_list, var_1480, rslt1); } else { -FnArity *arity2 = findFnArity(var_1490, 1); +FnArity *arity2 = findFnArity(var_1480, 1); if(arity2 != (FnArity *)0 && !arity2->variadic) { FnType1 *fn4 = (FnType1 *)arity2->fn; rslt5 = fn4(arity2->closures, rslt1); @@ -17214,15 +17132,15 @@ varArgs3->tail = (List *)0; varArgs3 = (List *)listCons(rslt1, varArgs3); rslt5 = fn4(arity2->closures, (Value *)varArgs3); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1490)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1480)->name); abort(); } } Value *rslt9; -if((var_936)->type != 3) { -rslt9 = protoFnImpl_5(empty_list, var_936, rslt5); +if((var_926)->type != 3) { +rslt9 = protoFnImpl_5(empty_list, var_926, rslt5); } else { -FnArity *arity6 = findFnArity(var_936, 1); +FnArity *arity6 = findFnArity(var_926, 1); if(arity6 != (FnArity *)0 && !arity6->variadic) { FnType1 *fn8 = (FnType1 *)arity6->fn; rslt9 = fn8(arity6->closures, rslt5); @@ -17236,7 +17154,7 @@ varArgs7->tail = (List *)0; varArgs7 = (List *)listCons(rslt5, varArgs7); rslt9 = fn8(arity6->closures, (Value *)varArgs7); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -17244,42 +17162,42 @@ Value *rslt10 = protoFnImpl_100((List *)var_31, val0, rslt9); return (rslt10); }; -Value *arityImpl_1512(List *closures) { -Value *rslt1 = arityImpl_1485((List *)var_31, (Value *)&fn_1513); +Value *arityImpl_1502(List *closures) { +Value *rslt1 = arityImpl_1475((List *)var_31, (Value *)&fn_1503); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1516; +arity_2->fn = arityImpl_1506; arity_2->closures = listCons((Value *)rslt1, (List *)arity_2->closures); -Function *fn_1515 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1515->type = 3; -fn_1515->name = "anon"; -fn_1515->arityCount = 1; -fn_1515->arities[0] = arity_2; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1515); +Function *fn_1505 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1505->type = 3; +fn_1505->name = "anon"; +fn_1505->arityCount = 1; +fn_1505->arities[0] = arity_2; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1505); return (rslt3); }; // --------- analyze-inline-text main body -------------- -Function fn_1511 = {3, "analyze-inline-text", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1512}}}; +Function fn_1501 = {3, "analyze-inline-text", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1502}}}; // --------- analyze-symbol -------------- -Function fn_1518; +Function fn_1508; // --------- anon -------------- -Function fn_1520; -Value *arityImpl_1521(List *closures, Value *arg0) { +Function fn_1510; +Value *arityImpl_1511(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt4; -if((var_1491)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, var_1491, arg0); +if((var_1481)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, var_1481, arg0); } else { -FnArity *arity1 = findFnArity(var_1491, 1); +FnArity *arity1 = findFnArity(var_1481, 1); if(arity1 != (FnArity *)0 && !arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; rslt4 = fn3(arity1->closures, arg0); @@ -17293,15 +17211,15 @@ varArgs2->tail = (List *)0; varArgs2 = (List *)listCons(arg0, varArgs2); rslt4 = fn3(arity1->closures, (Value *)varArgs2); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1491)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1481)->name); abort(); } } Value *rslt8; -if((var_936)->type != 3) { -rslt8 = protoFnImpl_5(empty_list, var_936, rslt4); +if((var_926)->type != 3) { +rslt8 = protoFnImpl_5(empty_list, var_926, rslt4); } else { -FnArity *arity5 = findFnArity(var_936, 1); +FnArity *arity5 = findFnArity(var_926, 1); if(arity5 != (FnArity *)0 && !arity5->variadic) { FnType1 *fn7 = (FnType1 *)arity5->fn; rslt8 = fn7(arity5->closures, rslt4); @@ -17315,7 +17233,7 @@ varArgs6->tail = (List *)0; varArgs6 = (List *)listCons(rslt4, varArgs6); rslt8 = fn7(arity5->closures, (Value *)varArgs6); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -17323,84 +17241,84 @@ Value *rslt9 = protoFnImpl_100((List *)var_31, val0, rslt8); return (rslt9); }; -Value *arityImpl_1519(List *closures) { -Value *rslt0 = arityImpl_1485((List *)var_31, (Value *)&fn_655); +Value *arityImpl_1509(List *closures) { +Value *rslt0 = arityImpl_1475((List *)var_31, (Value *)&fn_645); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1521; +arity_1->fn = arityImpl_1511; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_1520 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1520->type = 3; -fn_1520->name = "anon"; -fn_1520->arityCount = 1; -fn_1520->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1520); +Function *fn_1510 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1510->type = 3; +fn_1510->name = "anon"; +fn_1510->arityCount = 1; +fn_1510->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1510); return (rslt2); }; // --------- analyze-symbol main body -------------- -Function fn_1518 = {3, "analyze-symbol", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1519}}}; -SymKey _kw_16 = {5, -1, ":keywords"}; +Function fn_1508 = {3, "analyze-symbol", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1509}}}; +SymKey _kw_14 = {5, -1, ":keywords"}; // --------- keyword-already-defined? -------------- -Function fn_1523; -Value *arityImpl_1524(List *closures, Value *arg0) { +Function fn_1513; +Value *arityImpl_1514(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_16, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_14, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1014((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1004((List *)var_31, rslt1); return (rslt2); }; // --------- keyword-already-defined? main body -------------- -Function fn_1523 = {3, "keyword-already-defined?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1524}}}; -SymKey _kw_17 = {5, -1, ":new-keywords"}; +Function fn_1513 = {3, "keyword-already-defined?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1514}}}; +SymKey _kw_15 = {5, -1, ":new-keywords"}; // --------- keyword-recently-defined? -------------- -Function fn_1526; -Value *arityImpl_1527(List *closures, Value *arg0) { +Function fn_1516; +Value *arityImpl_1517(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_17, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_15, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1014((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1004((List *)var_31, rslt1); return (rslt2); }; // --------- keyword-recently-defined? main body -------------- -Function fn_1526 = {3, "keyword-recently-defined?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1527}}}; +Function fn_1516 = {3, "keyword-recently-defined?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1517}}}; struct {int64_t type; int64_t len; - char buffer[8];} _str_67 = {1,7,"SymKey "}; -SymKey _kw_18 = {5, -1, ":core-keywords"}; -SymKey _kw_19 = {5, -1, ":new-externs"}; + char buffer[8];} _str_66 = {1,7,"SymKey "}; +SymKey _kw_16 = {5, -1, ":core-keywords"}; +SymKey _kw_17 = {5, -1, ":new-externs"}; // --------- keyword-defined-in-core -------------- -Function fn_1529; +Function fn_1519; // --------- anon -------------- -Function fn_1531; +Function fn_1521; // --------- anon -------------- -Function fn_1533; +Function fn_1523; // --------- anon -------------- -Function fn_1535; -Value *arityImpl_1536(List *closures, Value *arg0) { +Function fn_1525; +Value *arityImpl_1526(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -17411,7 +17329,7 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_67, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_66, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); Value *rslt6; if((var_32)->type != 3) { @@ -17441,8 +17359,8 @@ return (rslt6); // --------- anon -------------- -Function fn_1537; -Value *arityImpl_1538(List *closures, Value *arg0) { +Function fn_1527; +Value *arityImpl_1528(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -17455,7 +17373,7 @@ Value *rslt2 = protoFnImpl_100((List *)var_31, val0, val1); return (rslt2); }; -Value *arityImpl_1534(List *closures, Value *arg0) { +Value *arityImpl_1524(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -17469,37 +17387,37 @@ varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_19, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_17, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1536; +arity_2->fn = arityImpl_1526; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_1535 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1535->type = 3; -fn_1535->name = "anon"; -fn_1535->arityCount = 1; -fn_1535->arities[0] = arity_2; -Value *rslt4 = arityImpl_1027((List *)var_31, rslt1, (Value *)fn_1535); +Function *fn_1525 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1525->type = 3; +fn_1525->name = "anon"; +fn_1525->arityCount = 1; +fn_1525->arities[0] = arity_2; +Value *rslt4 = arityImpl_1017((List *)var_31, rslt1, (Value *)fn_1525); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_1538; +arity_5->fn = arityImpl_1528; arity_5->closures = listCons((Value *)val3, (List *)arity_5->closures); arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); -Function *fn_1537 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1537->type = 3; -fn_1537->name = "anon"; -fn_1537->arityCount = 1; -fn_1537->arities[0] = arity_5; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_1537); +Function *fn_1527 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1527->type = 3; +fn_1527->name = "anon"; +fn_1527->arityCount = 1; +fn_1527->arities[0] = arity_5; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_1527); return (rslt7); }; -Value *arityImpl_1532(List *closures, Value *arg0) { +Value *arityImpl_1522(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -17514,71 +17432,71 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_kw_16, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_kw_14, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1022((List *)var_31, rslt2, arg0); +Value *rslt3 = arityImpl_1012((List *)var_31, rslt2, arg0); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_1534; +arity_4->fn = arityImpl_1524; arity_4->closures = listCons((Value *)val5, (List *)arity_4->closures); arity_4->closures = listCons((Value *)arg0, (List *)arity_4->closures); -Function *fn_1533 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1533->type = 3; -fn_1533->name = "anon"; -fn_1533->arityCount = 1; -fn_1533->arities[0] = arity_4; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_1533); +Function *fn_1523 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1523->type = 3; +fn_1523->name = "anon"; +fn_1523->arityCount = 1; +fn_1523->arities[0] = arity_4; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_1523); return (rslt6); }; -Value *arityImpl_1530(List *closures, Value *arg0) { +Value *arityImpl_1520(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_18, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_16, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1014((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1004((List *)var_31, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_1532; +arity_3->fn = arityImpl_1522; arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); arity_3->closures = listCons((Value *)arg0, (List *)arity_3->closures); -Function *fn_1531 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1531->type = 3; -fn_1531->name = "anon"; -fn_1531->arityCount = 1; -fn_1531->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_1531); +Function *fn_1521 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1521->type = 3; +fn_1521->name = "anon"; +fn_1521->arityCount = 1; +fn_1521->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_1521); return (rslt4); }; // --------- keyword-defined-in-core main body -------------- -Function fn_1529 = {3, "keyword-defined-in-core", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1530}}}; +Function fn_1519 = {3, "keyword-defined-in-core", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1520}}}; struct {int64_t type; int64_t len; - char buffer[5];} _str_68 = {1,4,"_kw_"}; -SymKey _kw_20 = {5, -1, ":kw-count"}; + char buffer[5];} _str_67 = {1,4,"_kw_"}; +SymKey _kw_18 = {5, -1, ":kw-count"}; // --------- make-static-keyword -------------- -Function fn_1540; +Function fn_1530; // --------- anon -------------- -Function fn_1542; +Function fn_1532; // --------- anon -------------- -Function fn_1544; +Function fn_1534; // --------- anon -------------- -Function fn_1546; -Value *arityImpl_1547(List *closures, Value *arg0) { +Function fn_1536; +Value *arityImpl_1537(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -17587,7 +17505,7 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_1545(List *closures, Value *arg0) { +Value *arityImpl_1535(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -17606,7 +17524,7 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_kw_17, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_kw_15, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; @@ -17614,25 +17532,25 @@ varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; varArgs4 = (List *)listCons((Value *)val3, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&_str_68, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_67, varArgs4); Value *rslt5 = arityImpl_508((List *)var_31, (Value *)varArgs4); -Value *rslt6 = arityImpl_1022((List *)var_31, rslt2, rslt5); +Value *rslt6 = arityImpl_1012((List *)var_31, rslt2, rslt5); FnArity *arity_7 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_7->count = 1; arity_7->closures = empty_list; arity_7->variadic = 0; -arity_7->fn = arityImpl_1547; +arity_7->fn = arityImpl_1537; arity_7->closures = listCons((Value *)val8, (List *)arity_7->closures); -Function *fn_1546 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1546->type = 3; -fn_1546->name = "anon"; -fn_1546->arityCount = 1; -fn_1546->arities[0] = arity_7; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_1546); +Function *fn_1536 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1536->type = 3; +fn_1536->name = "anon"; +fn_1536->arityCount = 1; +fn_1536->arities[0] = arity_7; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_1536); return (rslt9); }; -Value *arityImpl_1543(List *closures, Value *arg0) { +Value *arityImpl_1533(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -17642,55 +17560,55 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = arityImpl_453((List *)var_31, arg0); -Value *rslt1 = arityImpl_1009((List *)var_31, (Value *)&_kw_20, rslt0); +Value *rslt1 = arityImpl_999((List *)var_31, (Value *)&_kw_18, rslt0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1545; +arity_2->fn = arityImpl_1535; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); -Function *fn_1544 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1544->type = 3; -fn_1544->name = "anon"; -fn_1544->arityCount = 1; -fn_1544->arities[0] = arity_2; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1544); +Function *fn_1534 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1534->type = 3; +fn_1534->name = "anon"; +fn_1534->arityCount = 1; +fn_1534->arities[0] = arity_2; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1534); return (rslt5); }; -Value *arityImpl_1541(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_20, (Value *)&_num_8); +Value *arityImpl_1531(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_18, (Value *)&_num_8); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1543; +arity_1->fn = arityImpl_1533; arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_1542 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1542->type = 3; -fn_1542->name = "anon"; -fn_1542->arityCount = 1; -fn_1542->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1542); +Function *fn_1532 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1532->type = 3; +fn_1532->name = "anon"; +fn_1532->arityCount = 1; +fn_1532->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1532); return (rslt2); }; // --------- make-static-keyword main body -------------- -Function fn_1540 = {3, "make-static-keyword", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1541}}}; +Function fn_1530 = {3, "make-static-keyword", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1531}}}; // --------- analyze-keyword -------------- -Function fn_1549; +Function fn_1539; // --------- anon -------------- -Function fn_1551; +Function fn_1541; // --------- anon -------------- -Function fn_1553; -Value *arityImpl_1554(List *closures, Value *arg0) { +Function fn_1543; +Value *arityImpl_1544(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -17700,10 +17618,10 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt5; -if((var_1492)->type != 3) { -rslt5 = protoFnImpl_5(empty_list, var_1492, val1); +if((var_1482)->type != 3) { +rslt5 = protoFnImpl_5(empty_list, var_1482, val1); } else { -FnArity *arity2 = findFnArity(var_1492, 1); +FnArity *arity2 = findFnArity(var_1482, 1); if(arity2 != (FnArity *)0 && !arity2->variadic) { FnType1 *fn4 = (FnType1 *)arity2->fn; rslt5 = fn4(arity2->closures, val1); @@ -17717,15 +17635,15 @@ varArgs3->tail = (List *)0; varArgs3 = (List *)listCons(val1, varArgs3); rslt5 = fn4(arity2->closures, (Value *)varArgs3); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1492)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1482)->name); abort(); } } Value *rslt9; -if((var_936)->type != 3) { -rslt9 = protoFnImpl_5(empty_list, var_936, rslt5); +if((var_926)->type != 3) { +rslt9 = protoFnImpl_5(empty_list, var_926, rslt5); } else { -FnArity *arity6 = findFnArity(var_936, 1); +FnArity *arity6 = findFnArity(var_926, 1); if(arity6 != (FnArity *)0 && !arity6->variadic) { FnType1 *fn8 = (FnType1 *)arity6->fn; rslt9 = fn8(arity6->closures, rslt5); @@ -17739,7 +17657,7 @@ varArgs7->tail = (List *)0; varArgs7 = (List *)listCons(rslt5, varArgs7); rslt9 = fn8(arity6->closures, (Value *)varArgs7); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -17747,15 +17665,15 @@ Value *rslt10 = protoFnImpl_100((List *)var_31, val0, rslt9); return (rslt10); }; -Value *arityImpl_1552(List *closures, Value *arg0) { +Value *arityImpl_1542(List *closures, Value *arg0) { Value *val7 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1524((List *)var_31, arg0); -Value *rslt1 = arityImpl_1527((List *)var_31, arg0); -Value *rslt2 = arityImpl_1530((List *)var_31, arg0); -Value *rslt3 = arityImpl_1541((List *)var_31, arg0); +Value *rslt0 = arityImpl_1514((List *)var_31, arg0); +Value *rslt1 = arityImpl_1517((List *)var_31, arg0); +Value *rslt2 = arityImpl_1520((List *)var_31, arg0); +Value *rslt3 = arityImpl_1531((List *)var_31, arg0); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; varArgs4->len = 0; @@ -17770,95 +17688,95 @@ FnArity *arity_6 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_6->count = 1; arity_6->closures = empty_list; arity_6->variadic = 0; -arity_6->fn = arityImpl_1554; +arity_6->fn = arityImpl_1544; arity_6->closures = listCons((Value *)arg0, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val7, (List *)arity_6->closures); -Function *fn_1553 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1553->type = 3; -fn_1553->name = "anon"; -fn_1553->arityCount = 1; -fn_1553->arities[0] = arity_6; -Value *rslt8 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_1553); +Function *fn_1543 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1543->type = 3; +fn_1543->name = "anon"; +fn_1543->arityCount = 1; +fn_1543->arities[0] = arity_6; +Value *rslt8 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_1543); return (rslt8); }; -Value *arityImpl_1550(List *closures) { -Value *rslt0 = arityImpl_1485((List *)var_31, (Value *)&fn_661); +Value *arityImpl_1540(List *closures) { +Value *rslt0 = arityImpl_1475((List *)var_31, (Value *)&fn_651); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1552; +arity_1->fn = arityImpl_1542; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_1551 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1551->type = 3; -fn_1551->name = "anon"; -fn_1551->arityCount = 1; -fn_1551->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1551); +Function *fn_1541 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1541->type = 3; +fn_1541->name = "anon"; +fn_1541->arityCount = 1; +fn_1541->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1541); return (rslt2); }; // --------- analyze-keyword main body -------------- -Function fn_1549 = {3, "analyze-keyword", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1550}}}; -SymKey _kw_21 = {5, -1, ":numbers"}; +Function fn_1539 = {3, "analyze-keyword", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1540}}}; +SymKey _kw_19 = {5, -1, ":numbers"}; // --------- number-already-defined? -------------- -Function fn_1556; -Value *arityImpl_1557(List *closures, Value *arg0) { +Function fn_1546; +Value *arityImpl_1547(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_21, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_19, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1014((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1004((List *)var_31, rslt1); return (rslt2); }; // --------- number-already-defined? main body -------------- -Function fn_1556 = {3, "number-already-defined?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1557}}}; -SymKey _kw_22 = {5, -1, ":new-numbers"}; +Function fn_1546 = {3, "number-already-defined?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1547}}}; +SymKey _kw_20 = {5, -1, ":new-numbers"}; // --------- number-recently-defined? -------------- -Function fn_1559; -Value *arityImpl_1560(List *closures, Value *arg0) { +Function fn_1549; +Value *arityImpl_1550(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_22, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_20, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1014((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1004((List *)var_31, rslt1); return (rslt2); }; // --------- number-recently-defined? main body -------------- -Function fn_1559 = {3, "number-recently-defined?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1560}}}; +Function fn_1549 = {3, "number-recently-defined?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1550}}}; struct {int64_t type; int64_t len; - char buffer[8];} _str_69 = {1,7,"Number "}; -SymKey _kw_23 = {5, -1, ":core-numbers"}; + char buffer[8];} _str_68 = {1,7,"Number "}; +SymKey _kw_21 = {5, -1, ":core-numbers"}; // --------- number-defined-in-core -------------- -Function fn_1562; +Function fn_1552; // --------- anon -------------- -Function fn_1564; +Function fn_1554; // --------- anon -------------- -Function fn_1566; +Function fn_1556; // --------- anon -------------- -Function fn_1568; -Value *arityImpl_1569(List *closures, Value *arg0) { +Function fn_1558; +Value *arityImpl_1559(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -17869,7 +17787,7 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_69, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_68, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); Value *rslt6; if((var_32)->type != 3) { @@ -17899,8 +17817,8 @@ return (rslt6); // --------- anon -------------- -Function fn_1570; -Value *arityImpl_1571(List *closures, Value *arg0) { +Function fn_1560; +Value *arityImpl_1561(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -17913,7 +17831,7 @@ Value *rslt2 = protoFnImpl_100((List *)var_31, val0, val1); return (rslt2); }; -Value *arityImpl_1567(List *closures, Value *arg0) { +Value *arityImpl_1557(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -17927,37 +17845,37 @@ varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_19, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_17, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1569; +arity_2->fn = arityImpl_1559; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_1568 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1568->type = 3; -fn_1568->name = "anon"; -fn_1568->arityCount = 1; -fn_1568->arities[0] = arity_2; -Value *rslt4 = arityImpl_1027((List *)var_31, rslt1, (Value *)fn_1568); +Function *fn_1558 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1558->type = 3; +fn_1558->name = "anon"; +fn_1558->arityCount = 1; +fn_1558->arities[0] = arity_2; +Value *rslt4 = arityImpl_1017((List *)var_31, rslt1, (Value *)fn_1558); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_1571; +arity_5->fn = arityImpl_1561; arity_5->closures = listCons((Value *)val3, (List *)arity_5->closures); arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); -Function *fn_1570 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1570->type = 3; -fn_1570->name = "anon"; -fn_1570->arityCount = 1; -fn_1570->arities[0] = arity_5; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_1570); +Function *fn_1560 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1560->type = 3; +fn_1560->name = "anon"; +fn_1560->arityCount = 1; +fn_1560->arities[0] = arity_5; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_1560); return (rslt7); }; -Value *arityImpl_1565(List *closures, Value *arg0) { +Value *arityImpl_1555(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -17972,62 +17890,62 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_kw_21, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_kw_19, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1022((List *)var_31, rslt2, arg0); +Value *rslt3 = arityImpl_1012((List *)var_31, rslt2, arg0); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_1567; +arity_4->fn = arityImpl_1557; arity_4->closures = listCons((Value *)val5, (List *)arity_4->closures); arity_4->closures = listCons((Value *)arg0, (List *)arity_4->closures); -Function *fn_1566 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1566->type = 3; -fn_1566->name = "anon"; -fn_1566->arityCount = 1; -fn_1566->arities[0] = arity_4; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_1566); +Function *fn_1556 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1556->type = 3; +fn_1556->name = "anon"; +fn_1556->arityCount = 1; +fn_1556->arities[0] = arity_4; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_1556); return (rslt6); }; -Value *arityImpl_1563(List *closures, Value *arg0) { +Value *arityImpl_1553(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_23, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_21, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1014((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1004((List *)var_31, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_1565; +arity_3->fn = arityImpl_1555; arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); arity_3->closures = listCons((Value *)arg0, (List *)arity_3->closures); -Function *fn_1564 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1564->type = 3; -fn_1564->name = "anon"; -fn_1564->arityCount = 1; -fn_1564->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_1564); +Function *fn_1554 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1554->type = 3; +fn_1554->name = "anon"; +fn_1554->arityCount = 1; +fn_1554->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_1554); return (rslt4); }; // --------- number-defined-in-core main body -------------- -Function fn_1562 = {3, "number-defined-in-core", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1563}}}; -SymKey _kw_24 = {5, -1, ":debug-on"}; +Function fn_1552 = {3, "number-defined-in-core", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1553}}}; +SymKey _kw_22 = {5, -1, ":debug-on"}; // --------- debug -------------- -Function fn_1573; +Function fn_1563; // --------- anon -------------- -Function fn_1575; -Value *arityImpl_1576(List *closures, Value *arg0) { +Function fn_1565; +Value *arityImpl_1566(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -18056,24 +17974,24 @@ cond0 = rslt2; return (cond0); }; -Value *arityImpl_1574(List *closures, Value *varArgs) { +Value *arityImpl_1564(List *closures, Value *varArgs) { List *argsList = (List *)varArgs; Value *arg0 = (Value *)argsList; -Value *rslt0 = arityImpl_1001((List *)var_31, (Value *)&_kw_24); +Value *rslt0 = arityImpl_991((List *)var_31, (Value *)&_kw_22); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1576; +arity_1->fn = arityImpl_1566; arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_1575 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1575->type = 3; -fn_1575->name = "anon"; -fn_1575->arityCount = 1; -fn_1575->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1575); -Value *rslt3 = arityImpl_985((List *)var_31, (Value *)&_str_19); +Function *fn_1565 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1565->type = 3; +fn_1565->name = "anon"; +fn_1565->arityCount = 1; +fn_1565->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1565); +Value *rslt3 = arityImpl_975((List *)var_31, (Value *)&_str_19); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; varArgs4->len = 0; @@ -18086,24 +18004,24 @@ return (rslt5); }; // --------- debug main body -------------- -Function fn_1573 = {3, "debug", 1, {&(FnArity){2, (List *)0, 1, arityImpl_1574}}}; +Function fn_1563 = {3, "debug", 1, {&(FnArity){2, (List *)0, 1, arityImpl_1564}}}; struct {int64_t type; int64_t len; - char buffer[6];} _str_70 = {1,5,"_num_"}; -SymKey _kw_25 = {5, -1, ":num-count"}; + char buffer[6];} _str_69 = {1,5,"_num_"}; +SymKey _kw_23 = {5, -1, ":num-count"}; // --------- make-static-number -------------- -Function fn_1578; +Function fn_1568; // --------- anon -------------- -Function fn_1580; +Function fn_1570; // --------- anon -------------- -Function fn_1582; +Function fn_1572; // --------- anon -------------- -Function fn_1584; -Value *arityImpl_1585(List *closures, Value *arg0) { +Function fn_1574; +Value *arityImpl_1575(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -18112,7 +18030,7 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_1583(List *closures, Value *arg0) { +Value *arityImpl_1573(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -18131,7 +18049,7 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_kw_22, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_kw_20, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; @@ -18139,25 +18057,25 @@ varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; varArgs4 = (List *)listCons((Value *)val3, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&_str_70, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_69, varArgs4); Value *rslt5 = arityImpl_508((List *)var_31, (Value *)varArgs4); -Value *rslt6 = arityImpl_1022((List *)var_31, rslt2, rslt5); +Value *rslt6 = arityImpl_1012((List *)var_31, rslt2, rslt5); FnArity *arity_7 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_7->count = 1; arity_7->closures = empty_list; arity_7->variadic = 0; -arity_7->fn = arityImpl_1585; +arity_7->fn = arityImpl_1575; arity_7->closures = listCons((Value *)val8, (List *)arity_7->closures); -Function *fn_1584 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1584->type = 3; -fn_1584->name = "anon"; -fn_1584->arityCount = 1; -fn_1584->arities[0] = arity_7; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_1584); +Function *fn_1574 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1574->type = 3; +fn_1574->name = "anon"; +fn_1574->arityCount = 1; +fn_1574->arities[0] = arity_7; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_1574); return (rslt9); }; -Value *arityImpl_1581(List *closures, Value *arg0) { +Value *arityImpl_1571(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -18167,55 +18085,55 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = arityImpl_453((List *)var_31, arg0); -Value *rslt1 = arityImpl_1009((List *)var_31, (Value *)&_kw_25, rslt0); +Value *rslt1 = arityImpl_999((List *)var_31, (Value *)&_kw_23, rslt0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1583; +arity_2->fn = arityImpl_1573; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); -Function *fn_1582 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1582->type = 3; -fn_1582->name = "anon"; -fn_1582->arityCount = 1; -fn_1582->arities[0] = arity_2; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1582); +Function *fn_1572 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1572->type = 3; +fn_1572->name = "anon"; +fn_1572->arityCount = 1; +fn_1572->arities[0] = arity_2; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1572); return (rslt5); }; -Value *arityImpl_1579(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_25, (Value *)&_num_8); +Value *arityImpl_1569(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_23, (Value *)&_num_8); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1581; +arity_1->fn = arityImpl_1571; arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_1580 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1580->type = 3; -fn_1580->name = "anon"; -fn_1580->arityCount = 1; -fn_1580->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1580); +Function *fn_1570 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1570->type = 3; +fn_1570->name = "anon"; +fn_1570->arityCount = 1; +fn_1570->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1570); return (rslt2); }; // --------- make-static-number main body -------------- -Function fn_1578 = {3, "make-static-number", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1579}}}; +Function fn_1568 = {3, "make-static-number", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1569}}}; // --------- analyze-number -------------- -Function fn_1587; +Function fn_1577; // --------- anon -------------- -Function fn_1589; +Function fn_1579; // --------- anon -------------- -Function fn_1591; -Value *arityImpl_1592(List *closures, Value *arg0) { +Function fn_1581; +Value *arityImpl_1582(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -18225,10 +18143,10 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt5; -if((var_1493)->type != 3) { -rslt5 = protoFnImpl_5(empty_list, var_1493, val1); +if((var_1483)->type != 3) { +rslt5 = protoFnImpl_5(empty_list, var_1483, val1); } else { -FnArity *arity2 = findFnArity(var_1493, 1); +FnArity *arity2 = findFnArity(var_1483, 1); if(arity2 != (FnArity *)0 && !arity2->variadic) { FnType1 *fn4 = (FnType1 *)arity2->fn; rslt5 = fn4(arity2->closures, val1); @@ -18242,15 +18160,15 @@ varArgs3->tail = (List *)0; varArgs3 = (List *)listCons(val1, varArgs3); rslt5 = fn4(arity2->closures, (Value *)varArgs3); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1493)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1483)->name); abort(); } } Value *rslt9; -if((var_936)->type != 3) { -rslt9 = protoFnImpl_5(empty_list, var_936, rslt5); +if((var_926)->type != 3) { +rslt9 = protoFnImpl_5(empty_list, var_926, rslt5); } else { -FnArity *arity6 = findFnArity(var_936, 1); +FnArity *arity6 = findFnArity(var_926, 1); if(arity6 != (FnArity *)0 && !arity6->variadic) { FnType1 *fn8 = (FnType1 *)arity6->fn; rslt9 = fn8(arity6->closures, rslt5); @@ -18264,7 +18182,7 @@ varArgs7->tail = (List *)0; varArgs7 = (List *)listCons(rslt5, varArgs7); rslt9 = fn8(arity6->closures, (Value *)varArgs7); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -18272,15 +18190,15 @@ Value *rslt10 = protoFnImpl_100((List *)var_31, val0, rslt9); return (rslt10); }; -Value *arityImpl_1590(List *closures, Value *arg0) { +Value *arityImpl_1580(List *closures, Value *arg0) { Value *val7 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1557((List *)var_31, arg0); -Value *rslt1 = arityImpl_1560((List *)var_31, arg0); -Value *rslt2 = arityImpl_1563((List *)var_31, arg0); -Value *rslt3 = arityImpl_1579((List *)var_31, arg0); +Value *rslt0 = arityImpl_1547((List *)var_31, arg0); +Value *rslt1 = arityImpl_1550((List *)var_31, arg0); +Value *rslt2 = arityImpl_1553((List *)var_31, arg0); +Value *rslt3 = arityImpl_1569((List *)var_31, arg0); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; varArgs4->len = 0; @@ -18295,95 +18213,95 @@ FnArity *arity_6 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_6->count = 1; arity_6->closures = empty_list; arity_6->variadic = 0; -arity_6->fn = arityImpl_1592; +arity_6->fn = arityImpl_1582; arity_6->closures = listCons((Value *)arg0, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val7, (List *)arity_6->closures); -Function *fn_1591 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1591->type = 3; -fn_1591->name = "anon"; -fn_1591->arityCount = 1; -fn_1591->arities[0] = arity_6; -Value *rslt8 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_1591); +Function *fn_1581 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1581->type = 3; +fn_1581->name = "anon"; +fn_1581->arityCount = 1; +fn_1581->arities[0] = arity_6; +Value *rslt8 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_1581); return (rslt8); }; -Value *arityImpl_1588(List *closures) { -Value *rslt0 = arityImpl_1485((List *)var_31, (Value *)&fn_664); +Value *arityImpl_1578(List *closures) { +Value *rslt0 = arityImpl_1475((List *)var_31, (Value *)&fn_654); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1590; +arity_1->fn = arityImpl_1580; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_1589 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1589->type = 3; -fn_1589->name = "anon"; -fn_1589->arityCount = 1; -fn_1589->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1589); +Function *fn_1579 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1579->type = 3; +fn_1579->name = "anon"; +fn_1579->arityCount = 1; +fn_1579->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1579); return (rslt2); }; // --------- analyze-number main body -------------- -Function fn_1587 = {3, "analyze-number", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1588}}}; -SymKey _kw_26 = {5, -1, ":strings"}; +Function fn_1577 = {3, "analyze-number", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1578}}}; +SymKey _kw_24 = {5, -1, ":strings"}; // --------- string-already-defined? -------------- -Function fn_1594; -Value *arityImpl_1595(List *closures, Value *arg0) { +Function fn_1584; +Value *arityImpl_1585(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_26, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_24, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1014((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1004((List *)var_31, rslt1); return (rslt2); }; // --------- string-already-defined? main body -------------- -Function fn_1594 = {3, "string-already-defined?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1595}}}; -SymKey _kw_27 = {5, -1, ":new-strings"}; +Function fn_1584 = {3, "string-already-defined?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1585}}}; +SymKey _kw_25 = {5, -1, ":new-strings"}; // --------- string-recently-defined? -------------- -Function fn_1597; -Value *arityImpl_1598(List *closures, Value *arg0) { +Function fn_1587; +Value *arityImpl_1588(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_27, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_25, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1014((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1004((List *)var_31, rslt1); return (rslt2); }; // --------- string-recently-defined? main body -------------- -Function fn_1597 = {3, "string-recently-defined?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1598}}}; +Function fn_1587 = {3, "string-recently-defined?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1588}}}; struct {int64_t type; int64_t len; - char buffer[8];} _str_71 = {1,7,"String "}; -SymKey _kw_28 = {5, -1, ":core-strings"}; + char buffer[8];} _str_70 = {1,7,"String "}; +SymKey _kw_26 = {5, -1, ":core-strings"}; // --------- string-defined-in-core -------------- -Function fn_1600; +Function fn_1590; // --------- anon -------------- -Function fn_1602; +Function fn_1592; // --------- anon -------------- -Function fn_1604; +Function fn_1594; // --------- anon -------------- -Function fn_1606; -Value *arityImpl_1607(List *closures, Value *arg0) { +Function fn_1596; +Value *arityImpl_1597(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -18394,7 +18312,7 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_71, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_70, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); Value *rslt6; if((var_32)->type != 3) { @@ -18424,8 +18342,8 @@ return (rslt6); // --------- anon -------------- -Function fn_1608; -Value *arityImpl_1609(List *closures, Value *arg0) { +Function fn_1598; +Value *arityImpl_1599(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -18438,7 +18356,7 @@ Value *rslt2 = protoFnImpl_100((List *)var_31, val0, val1); return (rslt2); }; -Value *arityImpl_1605(List *closures, Value *arg0) { +Value *arityImpl_1595(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -18452,37 +18370,37 @@ varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_19, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_17, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1607; +arity_2->fn = arityImpl_1597; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_1606 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1606->type = 3; -fn_1606->name = "anon"; -fn_1606->arityCount = 1; -fn_1606->arities[0] = arity_2; -Value *rslt4 = arityImpl_1027((List *)var_31, rslt1, (Value *)fn_1606); +Function *fn_1596 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1596->type = 3; +fn_1596->name = "anon"; +fn_1596->arityCount = 1; +fn_1596->arities[0] = arity_2; +Value *rslt4 = arityImpl_1017((List *)var_31, rslt1, (Value *)fn_1596); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_1609; +arity_5->fn = arityImpl_1599; arity_5->closures = listCons((Value *)val3, (List *)arity_5->closures); arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); -Function *fn_1608 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1608->type = 3; -fn_1608->name = "anon"; -fn_1608->arityCount = 1; -fn_1608->arities[0] = arity_5; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_1608); +Function *fn_1598 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1598->type = 3; +fn_1598->name = "anon"; +fn_1598->arityCount = 1; +fn_1598->arities[0] = arity_5; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_1598); return (rslt7); }; -Value *arityImpl_1603(List *closures, Value *arg0) { +Value *arityImpl_1593(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -18497,71 +18415,71 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_kw_26, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_kw_24, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1022((List *)var_31, rslt2, arg0); +Value *rslt3 = arityImpl_1012((List *)var_31, rslt2, arg0); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_1605; +arity_4->fn = arityImpl_1595; arity_4->closures = listCons((Value *)val5, (List *)arity_4->closures); arity_4->closures = listCons((Value *)arg0, (List *)arity_4->closures); -Function *fn_1604 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1604->type = 3; -fn_1604->name = "anon"; -fn_1604->arityCount = 1; -fn_1604->arities[0] = arity_4; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_1604); +Function *fn_1594 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1594->type = 3; +fn_1594->name = "anon"; +fn_1594->arityCount = 1; +fn_1594->arities[0] = arity_4; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_1594); return (rslt6); }; -Value *arityImpl_1601(List *closures, Value *arg0) { +Value *arityImpl_1591(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_28, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_26, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1014((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1004((List *)var_31, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_1603; +arity_3->fn = arityImpl_1593; arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); arity_3->closures = listCons((Value *)arg0, (List *)arity_3->closures); -Function *fn_1602 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1602->type = 3; -fn_1602->name = "anon"; -fn_1602->arityCount = 1; -fn_1602->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_1602); +Function *fn_1592 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1592->type = 3; +fn_1592->name = "anon"; +fn_1592->arityCount = 1; +fn_1592->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_1592); return (rslt4); }; // --------- string-defined-in-core main body -------------- -Function fn_1600 = {3, "string-defined-in-core", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1601}}}; +Function fn_1590 = {3, "string-defined-in-core", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1591}}}; struct {int64_t type; int64_t len; - char buffer[6];} _str_72 = {1,5,"_str_"}; -SymKey _kw_29 = {5, -1, ":str-count"}; + char buffer[6];} _str_71 = {1,5,"_str_"}; +SymKey _kw_27 = {5, -1, ":str-count"}; // --------- make-static-string -------------- -Function fn_1611; +Function fn_1601; // --------- anon -------------- -Function fn_1613; +Function fn_1603; // --------- anon -------------- -Function fn_1615; +Function fn_1605; // --------- anon -------------- -Function fn_1617; -Value *arityImpl_1618(List *closures, Value *arg0) { +Function fn_1607; +Value *arityImpl_1608(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -18570,7 +18488,7 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_1616(List *closures, Value *arg0) { +Value *arityImpl_1606(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -18589,7 +18507,7 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_kw_27, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_kw_25, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; @@ -18597,25 +18515,25 @@ varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; varArgs4 = (List *)listCons((Value *)val3, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&_str_72, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_71, varArgs4); Value *rslt5 = arityImpl_508((List *)var_31, (Value *)varArgs4); -Value *rslt6 = arityImpl_1022((List *)var_31, rslt2, rslt5); +Value *rslt6 = arityImpl_1012((List *)var_31, rslt2, rslt5); FnArity *arity_7 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_7->count = 1; arity_7->closures = empty_list; arity_7->variadic = 0; -arity_7->fn = arityImpl_1618; +arity_7->fn = arityImpl_1608; arity_7->closures = listCons((Value *)val8, (List *)arity_7->closures); -Function *fn_1617 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1617->type = 3; -fn_1617->name = "anon"; -fn_1617->arityCount = 1; -fn_1617->arities[0] = arity_7; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_1617); +Function *fn_1607 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1607->type = 3; +fn_1607->name = "anon"; +fn_1607->arityCount = 1; +fn_1607->arities[0] = arity_7; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_1607); return (rslt9); }; -Value *arityImpl_1614(List *closures, Value *arg0) { +Value *arityImpl_1604(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -18625,55 +18543,55 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = arityImpl_453((List *)var_31, arg0); -Value *rslt1 = arityImpl_1009((List *)var_31, (Value *)&_kw_29, rslt0); +Value *rslt1 = arityImpl_999((List *)var_31, (Value *)&_kw_27, rslt0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1616; +arity_2->fn = arityImpl_1606; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); -Function *fn_1615 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1615->type = 3; -fn_1615->name = "anon"; -fn_1615->arityCount = 1; -fn_1615->arities[0] = arity_2; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1615); +Function *fn_1605 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1605->type = 3; +fn_1605->name = "anon"; +fn_1605->arityCount = 1; +fn_1605->arities[0] = arity_2; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1605); return (rslt5); }; -Value *arityImpl_1612(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_29, (Value *)&_num_8); +Value *arityImpl_1602(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_27, (Value *)&_num_8); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1614; +arity_1->fn = arityImpl_1604; arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_1613 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1613->type = 3; -fn_1613->name = "anon"; -fn_1613->arityCount = 1; -fn_1613->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1613); +Function *fn_1603 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1603->type = 3; +fn_1603->name = "anon"; +fn_1603->arityCount = 1; +fn_1603->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1603); return (rslt2); }; // --------- make-static-string main body -------------- -Function fn_1611 = {3, "make-static-string", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1612}}}; +Function fn_1601 = {3, "make-static-string", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1602}}}; // --------- analyze-string -------------- -Function fn_1620; +Function fn_1610; // --------- anon -------------- -Function fn_1622; +Function fn_1612; // --------- anon -------------- -Function fn_1624; -Value *arityImpl_1625(List *closures, Value *arg0) { +Function fn_1614; +Value *arityImpl_1615(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -18683,10 +18601,10 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt5; -if((var_1494)->type != 3) { -rslt5 = protoFnImpl_5(empty_list, var_1494, val1); +if((var_1484)->type != 3) { +rslt5 = protoFnImpl_5(empty_list, var_1484, val1); } else { -FnArity *arity2 = findFnArity(var_1494, 1); +FnArity *arity2 = findFnArity(var_1484, 1); if(arity2 != (FnArity *)0 && !arity2->variadic) { FnType1 *fn4 = (FnType1 *)arity2->fn; rslt5 = fn4(arity2->closures, val1); @@ -18700,15 +18618,15 @@ varArgs3->tail = (List *)0; varArgs3 = (List *)listCons(val1, varArgs3); rslt5 = fn4(arity2->closures, (Value *)varArgs3); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1494)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1484)->name); abort(); } } Value *rslt9; -if((var_936)->type != 3) { -rslt9 = protoFnImpl_5(empty_list, var_936, rslt5); +if((var_926)->type != 3) { +rslt9 = protoFnImpl_5(empty_list, var_926, rslt5); } else { -FnArity *arity6 = findFnArity(var_936, 1); +FnArity *arity6 = findFnArity(var_926, 1); if(arity6 != (FnArity *)0 && !arity6->variadic) { FnType1 *fn8 = (FnType1 *)arity6->fn; rslt9 = fn8(arity6->closures, rslt5); @@ -18722,7 +18640,7 @@ varArgs7->tail = (List *)0; varArgs7 = (List *)listCons(rslt5, varArgs7); rslt9 = fn8(arity6->closures, (Value *)varArgs7); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -18730,15 +18648,15 @@ Value *rslt10 = protoFnImpl_100((List *)var_31, val0, rslt9); return (rslt10); }; -Value *arityImpl_1623(List *closures, Value *arg0) { +Value *arityImpl_1613(List *closures, Value *arg0) { Value *val7 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1595((List *)var_31, arg0); -Value *rslt1 = arityImpl_1598((List *)var_31, arg0); -Value *rslt2 = arityImpl_1601((List *)var_31, arg0); -Value *rslt3 = arityImpl_1612((List *)var_31, arg0); +Value *rslt0 = arityImpl_1585((List *)var_31, arg0); +Value *rslt1 = arityImpl_1588((List *)var_31, arg0); +Value *rslt2 = arityImpl_1591((List *)var_31, arg0); +Value *rslt3 = arityImpl_1602((List *)var_31, arg0); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; varArgs4->len = 0; @@ -18753,59 +18671,59 @@ FnArity *arity_6 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_6->count = 1; arity_6->closures = empty_list; arity_6->variadic = 0; -arity_6->fn = arityImpl_1625; +arity_6->fn = arityImpl_1615; arity_6->closures = listCons((Value *)arg0, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val7, (List *)arity_6->closures); -Function *fn_1624 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1624->type = 3; -fn_1624->name = "anon"; -fn_1624->arityCount = 1; -fn_1624->arities[0] = arity_6; -Value *rslt8 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_1624); +Function *fn_1614 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1614->type = 3; +fn_1614->name = "anon"; +fn_1614->arityCount = 1; +fn_1614->arities[0] = arity_6; +Value *rslt8 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_1614); return (rslt8); }; -Value *arityImpl_1621(List *closures) { -Value *rslt0 = arityImpl_1485((List *)var_31, (Value *)&fn_667); +Value *arityImpl_1611(List *closures) { +Value *rslt0 = arityImpl_1475((List *)var_31, (Value *)&fn_657); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1623; +arity_1->fn = arityImpl_1613; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_1622 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1622->type = 3; -fn_1622->name = "anon"; -fn_1622->arityCount = 1; -fn_1622->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1622); +Function *fn_1612 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1612->type = 3; +fn_1612->name = "anon"; +fn_1612->arityCount = 1; +fn_1612->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1612); return (rslt2); }; // --------- analyze-string main body -------------- -Function fn_1620 = {3, "analyze-string", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1621}}}; +Function fn_1610 = {3, "analyze-string", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1611}}}; // --------- analyze-call -------------- -Function fn_1627; +Function fn_1617; // --------- anon -------------- -Function fn_1629; -Value *arityImpl_1630(List *closures, Value *arg0) { +Function fn_1619; +Value *arityImpl_1620(List *closures, Value *arg0) { Value *rslt0 = arityImpl_203((List *)var_31, arg0); return (rslt0); }; // --------- anon main body -------------- -Function fn_1629 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1630}}}; +Function fn_1619 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1620}}}; // --------- anon -------------- -Function fn_1631; +Function fn_1621; // --------- anon -------------- -Function fn_1633; -Value *arityImpl_1634(List *closures, Value *arg0) { +Function fn_1623; +Value *arityImpl_1624(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -18813,10 +18731,10 @@ closures = closures->tail; Value *rslt1 = protoFnImpl_219((List *)var_31, arg0); Value *rslt2 = protoFnImpl_224((List *)var_31, arg0); Value *rslt6; -if((var_1498)->type != 3) { -rslt6 = protoFnImpl_7(empty_list, var_1498, rslt1, rslt2); +if((var_1488)->type != 3) { +rslt6 = protoFnImpl_7(empty_list, var_1488, rslt1, rslt2); } else { -FnArity *arity3 = findFnArity(var_1498, 2); +FnArity *arity3 = findFnArity(var_1488, 2); if(arity3 != (FnArity *)0 && !arity3->variadic) { FnType2 *fn5 = (FnType2 *)arity3->fn; rslt6 = fn5(arity3->closures, rslt1, rslt2); @@ -18831,15 +18749,15 @@ varArgs4 = (List *)listCons(rslt2, varArgs4); varArgs4 = (List *)listCons(rslt1, varArgs4); rslt6 = fn5(arity3->closures, (Value *)varArgs4); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1498)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1488)->name); abort(); } } Value *rslt10; -if((var_936)->type != 3) { -rslt10 = protoFnImpl_5(empty_list, var_936, rslt6); +if((var_926)->type != 3) { +rslt10 = protoFnImpl_5(empty_list, var_926, rslt6); } else { -FnArity *arity7 = findFnArity(var_936, 1); +FnArity *arity7 = findFnArity(var_926, 1); if(arity7 != (FnArity *)0 && !arity7->variadic) { FnType1 *fn9 = (FnType1 *)arity7->fn; rslt10 = fn9(arity7->closures, rslt6); @@ -18853,7 +18771,7 @@ varArgs8->tail = (List *)0; varArgs8 = (List *)listCons(rslt6, varArgs8); rslt10 = fn9(arity7->closures, (Value *)varArgs8); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -18861,66 +18779,66 @@ Value *rslt11 = protoFnImpl_100((List *)var_31, val0, rslt10); return (rslt11); }; -Value *arityImpl_1632(List *closures, Value *arg0) { +Value *arityImpl_1622(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = protoFnImpl_232((List *)var_31, arg0, var_1489); +Value *rslt0 = protoFnImpl_232((List *)var_31, arg0, var_1479); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1634; +arity_1->fn = arityImpl_1624; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_1633 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1633->type = 3; -fn_1633->name = "anon"; -fn_1633->arityCount = 1; -fn_1633->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1633); +Function *fn_1623 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1623->type = 3; +fn_1623->name = "anon"; +fn_1623->arityCount = 1; +fn_1623->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1623); return (rslt3); }; -Value *arityImpl_1628(List *closures) { -Value *rslt1 = arityImpl_1485((List *)var_31, (Value *)&fn_1629); +Value *arityImpl_1618(List *closures) { +Value *rslt1 = arityImpl_1475((List *)var_31, (Value *)&fn_1619); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1632; +arity_2->fn = arityImpl_1622; arity_2->closures = listCons((Value *)rslt1, (List *)arity_2->closures); -Function *fn_1631 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1631->type = 3; -fn_1631->name = "anon"; -fn_1631->arityCount = 1; -fn_1631->arities[0] = arity_2; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1631); +Function *fn_1621 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1621->type = 3; +fn_1621->name = "anon"; +fn_1621->arityCount = 1; +fn_1621->arities[0] = arity_2; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1621); return (rslt3); }; // --------- analyze-call main body -------------- -Function fn_1627 = {3, "analyze-call", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1628}}}; +Function fn_1617 = {3, "analyze-call", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1618}}}; // --------- analyze-let-binding -------------- -Function fn_1636; +Function fn_1626; // --------- anon -------------- -Function fn_1638; +Function fn_1628; // --------- anon -------------- -Function fn_1640; +Function fn_1630; // --------- anon -------------- -Function fn_1642; +Function fn_1632; // --------- anon -------------- -Function fn_1644; +Function fn_1634; // --------- anon -------------- -Function fn_1646; -Value *arityImpl_1647(List *closures, Value *arg0) { +Function fn_1636; +Value *arityImpl_1637(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -18934,10 +18852,10 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt6; -if((var_1499)->type != 3) { -rslt6 = protoFnImpl_7(empty_list, var_1499, val1, val2); +if((var_1489)->type != 3) { +rslt6 = protoFnImpl_7(empty_list, var_1489, val1, val2); } else { -FnArity *arity3 = findFnArity(var_1499, 2); +FnArity *arity3 = findFnArity(var_1489, 2); if(arity3 != (FnArity *)0 && !arity3->variadic) { FnType2 *fn5 = (FnType2 *)arity3->fn; rslt6 = fn5(arity3->closures, val1, val2); @@ -18952,15 +18870,15 @@ varArgs4 = (List *)listCons(val2, varArgs4); varArgs4 = (List *)listCons(val1, varArgs4); rslt6 = fn5(arity3->closures, (Value *)varArgs4); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1499)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1489)->name); abort(); } } Value *rslt10; -if((var_936)->type != 3) { -rslt10 = protoFnImpl_5(empty_list, var_936, rslt6); +if((var_926)->type != 3) { +rslt10 = protoFnImpl_5(empty_list, var_926, rslt6); } else { -FnArity *arity7 = findFnArity(var_936, 1); +FnArity *arity7 = findFnArity(var_926, 1); if(arity7 != (FnArity *)0 && !arity7->variadic) { FnType1 *fn9 = (FnType1 *)arity7->fn; rslt10 = fn9(arity7->closures, rslt6); @@ -18974,7 +18892,7 @@ varArgs8->tail = (List *)0; varArgs8 = (List *)listCons(rslt6, varArgs8); rslt10 = fn9(arity7->closures, (Value *)varArgs8); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -18982,7 +18900,7 @@ Value *rslt11 = protoFnImpl_100((List *)var_31, val0, rslt10); return (rslt11); }; -Value *arityImpl_1645(List *closures, Value *arg0) { +Value *arityImpl_1635(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -18995,25 +18913,25 @@ Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_1009((List *)var_31, (Value *)&_kw_15, val0); +Value *rslt1 = arityImpl_999((List *)var_31, (Value *)&_kw_13, val0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1647; +arity_2->fn = arityImpl_1637; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); -Function *fn_1646 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1646->type = 3; -fn_1646->name = "anon"; -fn_1646->arityCount = 1; -fn_1646->arities[0] = arity_2; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1646); +Function *fn_1636 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1636->type = 3; +fn_1636->name = "anon"; +fn_1636->arityCount = 1; +fn_1636->arities[0] = arity_2; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1636); return (rslt5); }; -Value *arityImpl_1643(List *closures, Value *arg0) { +Value *arityImpl_1633(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -19027,10 +18945,10 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt4; -if((var_1489)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, var_1489, val0); +if((var_1479)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, var_1479, val0); } else { -FnArity *arity1 = findFnArity(var_1489, 1); +FnArity *arity1 = findFnArity(var_1479, 1); if(arity1 != (FnArity *)0 && !arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; rslt4 = fn3(arity1->closures, val0); @@ -19044,7 +18962,7 @@ varArgs2->tail = (List *)0; varArgs2 = (List *)listCons(val0, varArgs2); rslt4 = fn3(arity1->closures, (Value *)varArgs2); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1489)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1479)->name); abort(); } } @@ -19052,20 +18970,20 @@ FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_1645; +arity_5->fn = arityImpl_1635; arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); arity_5->closures = listCons((Value *)arg0, (List *)arity_5->closures); arity_5->closures = listCons((Value *)val7, (List *)arity_5->closures); -Function *fn_1644 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1644->type = 3; -fn_1644->name = "anon"; -fn_1644->arityCount = 1; -fn_1644->arities[0] = arity_5; -Value *rslt8 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_1644); +Function *fn_1634 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1634->type = 3; +fn_1634->name = "anon"; +fn_1634->arityCount = 1; +fn_1634->arities[0] = arity_5; +Value *rslt8 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_1634); return (rslt8); }; -Value *arityImpl_1641(List *closures, Value *arg0) { +Value *arityImpl_1631(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -19078,25 +18996,25 @@ Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1485((List *)var_31, (Value *)&fn_655); +Value *rslt0 = arityImpl_1475((List *)var_31, (Value *)&fn_645); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1643; +arity_1->fn = arityImpl_1633; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); -Function *fn_1642 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1642->type = 3; -fn_1642->name = "anon"; -fn_1642->arityCount = 1; -fn_1642->arities[0] = arity_1; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1642); +Function *fn_1632 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1632->type = 3; +fn_1632->name = "anon"; +fn_1632->arityCount = 1; +fn_1632->arities[0] = arity_1; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1632); return (rslt5); }; -Value *arityImpl_1639(List *closures, Value *arg0) { +Value *arityImpl_1629(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -19109,25 +19027,25 @@ Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_1482((List *)var_31, val0); +Value *rslt1 = arityImpl_1472((List *)var_31, val0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1641; +arity_2->fn = arityImpl_1631; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); -Function *fn_1640 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1640->type = 3; -fn_1640->name = "anon"; -fn_1640->arityCount = 1; -fn_1640->arities[0] = arity_2; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1640); +Function *fn_1630 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1630->type = 3; +fn_1630->name = "anon"; +fn_1630->arityCount = 1; +fn_1630->arities[0] = arity_2; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1630); return (rslt5); }; -Value *arityImpl_1637(List *closures, Value *arg0) { +Value *arityImpl_1627(List *closures, Value *arg0) { Value *cond0; Value *rslt6 = protoFnImpl_195((List *)var_31, arg0); Value *rslt7 = arityImpl_283((List *)var_31, (Value *)&_num_2, rslt6); @@ -19138,21 +19056,21 @@ cond0 = var_31; } else { Value *rslt1 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_8); Value *rslt2 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_1); -Value *rslt3 = arityImpl_1001((List *)var_31, (Value *)&_kw_15); +Value *rslt3 = arityImpl_991((List *)var_31, (Value *)&_kw_13); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_1639; +arity_4->fn = arityImpl_1629; arity_4->closures = listCons((Value *)rslt3, (List *)arity_4->closures); arity_4->closures = listCons((Value *)rslt2, (List *)arity_4->closures); arity_4->closures = listCons((Value *)rslt1, (List *)arity_4->closures); -Function *fn_1638 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1638->type = 3; -fn_1638->name = "anon"; -fn_1638->arityCount = 1; -fn_1638->arities[0] = arity_4; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_1638); +Function *fn_1628 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1628->type = 3; +fn_1628->name = "anon"; +fn_1628->arityCount = 1; +fn_1628->arities[0] = arity_4; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_1628); cond0 = rslt5; } return (cond0); @@ -19160,15 +19078,15 @@ return (cond0); // --------- analyze-let-binding main body -------------- -Function fn_1636 = {3, "analyze-let-binding", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1637}}}; -SymKey _kw_30 = {5, -1, ":not-let"}; +Function fn_1626 = {3, "analyze-let-binding", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1627}}}; +SymKey _kw_28 = {5, -1, ":not-let"}; // --------- analyze-let -------------- -Function fn_1649; +Function fn_1639; // --------- anon -------------- -Function fn_1651; -Value *arityImpl_1652(List *closures, Value *arg0) { +Function fn_1641; +Value *arityImpl_1642(List *closures, Value *arg0) { Value *cond0; Value *rslt3 = protoFnImpl_209((List *)var_31, arg0); Value *rslt4 = arityImpl_274((List *)var_31, rslt3); @@ -19183,7 +19101,7 @@ Value *rslt7 = arityImpl_274((List *)var_31, rslt6); if (isTrue(rslt7)) { cond0 = var_20; } else { -Value *rslt1 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_8, (Value *)&_kw_30); +Value *rslt1 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_8, (Value *)&_kw_28); Value *rslt2 = arityImpl_283((List *)var_31, rslt1, (Value *)&_sym_7); cond0 = rslt2; } @@ -19193,17 +19111,17 @@ return (cond0); // --------- anon main body -------------- -Function fn_1651 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1652}}}; +Function fn_1641 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1642}}}; // --------- anon -------------- -Function fn_1653; +Function fn_1643; // --------- anon -------------- -Function fn_1655; +Function fn_1645; // --------- anon -------------- -Function fn_1657; -Value *arityImpl_1658(List *closures, Value *arg0) { +Function fn_1647; +Value *arityImpl_1648(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -19213,10 +19131,10 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt4; -if((var_824)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, var_824, (Value *)&fn_118); +if((var_814)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, var_814, (Value *)&fn_118); } else { -FnArity *arity1 = findFnArity(var_824, 1); +FnArity *arity1 = findFnArity(var_814, 1); if(arity1 != (FnArity *)0 && !arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; rslt4 = fn3(arity1->closures, (Value *)&fn_118); @@ -19230,16 +19148,16 @@ varArgs2->tail = (List *)0; varArgs2 = (List *)listCons((Value *)&fn_118, varArgs2); rslt4 = fn3(arity1->closures, (Value *)varArgs2); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_824)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_814)->name); abort(); } } Value *rslt6 = protoFnImpl_110((List *)var_31, rslt4, val5); Value *rslt10; -if((var_824)->type != 3) { -rslt10 = protoFnImpl_5(empty_list, var_824, (Value *)&fn_118); +if((var_814)->type != 3) { +rslt10 = protoFnImpl_5(empty_list, var_814, (Value *)&fn_118); } else { -FnArity *arity7 = findFnArity(var_824, 1); +FnArity *arity7 = findFnArity(var_814, 1); if(arity7 != (FnArity *)0 && !arity7->variadic) { FnType1 *fn9 = (FnType1 *)arity7->fn; rslt10 = fn9(arity7->closures, (Value *)&fn_118); @@ -19253,16 +19171,16 @@ varArgs8->tail = (List *)0; varArgs8 = (List *)listCons((Value *)&fn_118, varArgs8); rslt10 = fn9(arity7->closures, (Value *)varArgs8); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_824)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_814)->name); abort(); } } Value *rslt11 = protoFnImpl_110((List *)var_31, rslt10, arg0); Value *rslt15; -if((var_1500)->type != 3) { -rslt15 = protoFnImpl_7(empty_list, var_1500, rslt6, rslt11); +if((var_1490)->type != 3) { +rslt15 = protoFnImpl_7(empty_list, var_1490, rslt6, rslt11); } else { -FnArity *arity12 = findFnArity(var_1500, 2); +FnArity *arity12 = findFnArity(var_1490, 2); if(arity12 != (FnArity *)0 && !arity12->variadic) { FnType2 *fn14 = (FnType2 *)arity12->fn; rslt15 = fn14(arity12->closures, rslt6, rslt11); @@ -19277,15 +19195,15 @@ varArgs13 = (List *)listCons(rslt11, varArgs13); varArgs13 = (List *)listCons(rslt6, varArgs13); rslt15 = fn14(arity12->closures, (Value *)varArgs13); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1500)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1490)->name); abort(); } } Value *rslt19; -if((var_936)->type != 3) { -rslt19 = protoFnImpl_5(empty_list, var_936, rslt15); +if((var_926)->type != 3) { +rslt19 = protoFnImpl_5(empty_list, var_926, rslt15); } else { -FnArity *arity16 = findFnArity(var_936, 1); +FnArity *arity16 = findFnArity(var_926, 1); if(arity16 != (FnArity *)0 && !arity16->variadic) { FnType1 *fn18 = (FnType1 *)arity16->fn; rslt19 = fn18(arity16->closures, rslt15); @@ -19299,7 +19217,7 @@ varArgs17->tail = (List *)0; varArgs17 = (List *)listCons(rslt15, varArgs17); rslt19 = fn18(arity16->closures, (Value *)varArgs17); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -19307,7 +19225,7 @@ Value *rslt20 = protoFnImpl_100((List *)var_31, val0, rslt19); return (rslt20); }; -Value *arityImpl_1656(List *closures, Value *arg0) { +Value *arityImpl_1646(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -19317,83 +19235,83 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt1 = arityImpl_514((List *)var_31, val0, (Value *)&_num_2); -Value *rslt2 = protoFnImpl_232((List *)var_31, rslt1, var_1489); +Value *rslt2 = protoFnImpl_232((List *)var_31, rslt1, var_1479); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_1658; +arity_3->fn = arityImpl_1648; arity_3->closures = listCons((Value *)arg0, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val4, (List *)arity_3->closures); -Function *fn_1657 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1657->type = 3; -fn_1657->name = "anon"; -fn_1657->arityCount = 1; -fn_1657->arities[0] = arity_3; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_1657); +Function *fn_1647 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1647->type = 3; +fn_1647->name = "anon"; +fn_1647->arityCount = 1; +fn_1647->arities[0] = arity_3; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_1647); return (rslt5); }; -Value *arityImpl_1654(List *closures, Value *arg0) { +Value *arityImpl_1644(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, var_31); -Value *rslt1 = protoFnImpl_232((List *)var_31, rslt0, (Value *)&fn_1636); +Value *rslt1 = protoFnImpl_232((List *)var_31, rslt0, (Value *)&fn_1626); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1656; +arity_2->fn = arityImpl_1646; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); -Function *fn_1655 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1655->type = 3; -fn_1655->name = "anon"; -fn_1655->arityCount = 1; -fn_1655->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1655); +Function *fn_1645 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1645->type = 3; +fn_1645->name = "anon"; +fn_1645->arityCount = 1; +fn_1645->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1645); return (rslt4); }; -Value *arityImpl_1650(List *closures) { -Value *rslt1 = arityImpl_1485((List *)var_31, (Value *)&fn_1651); +Value *arityImpl_1640(List *closures) { +Value *rslt1 = arityImpl_1475((List *)var_31, (Value *)&fn_1641); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1654; +arity_2->fn = arityImpl_1644; arity_2->closures = listCons((Value *)rslt1, (List *)arity_2->closures); -Function *fn_1653 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1653->type = 3; -fn_1653->name = "anon"; -fn_1653->arityCount = 1; -fn_1653->arities[0] = arity_2; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1653); +Function *fn_1643 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1643->type = 3; +fn_1643->name = "anon"; +fn_1643->arityCount = 1; +fn_1643->arities[0] = arity_2; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1643); return (rslt3); }; // --------- analyze-let main body -------------- -Function fn_1649 = {3, "analyze-let", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1650}}}; +Function fn_1639 = {3, "analyze-let", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1640}}}; // --------- variadic? -------------- -Function fn_1660; +Function fn_1650; // --------- anon -------------- -Function fn_1662; -Value *arityImpl_1663(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_283((List *)var_31, (Value *)&_str_58, arg0); +Function fn_1652; +Value *arityImpl_1653(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_283((List *)var_31, (Value *)&_str_57, arg0); return (rslt0); }; // --------- anon main body -------------- -Function fn_1662 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1663}}}; -Value *arityImpl_1661(List *closures, Value *arg0) { +Function fn_1652 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1653}}}; +Value *arityImpl_1651(List *closures, Value *arg0) { Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, var_31); -Value *rslt2 = protoFnImpl_125((List *)var_31, rslt0, (Value *)&fn_1662); +Value *rslt2 = protoFnImpl_125((List *)var_31, rslt0, (Value *)&fn_1652); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; varArgs3->len = 0; @@ -19407,14 +19325,14 @@ return (rslt4); // --------- variadic? main body -------------- -Function fn_1660 = {3, "variadic?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1661}}}; +Function fn_1650 = {3, "variadic?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1651}}}; // --------- analyze-variadic -------------- -Function fn_1665; +Function fn_1655; // --------- anon -------------- -Function fn_1667; -Value *arityImpl_1668(List *closures, Value *arg0) { +Function fn_1657; +Value *arityImpl_1658(List *closures, Value *arg0) { Value *cond0; Value *rslt2 = protoFnImpl_195((List *)var_31, arg0); Value *rslt3 = arityImpl_287((List *)var_31, (Value *)&_num_1, rslt2); @@ -19430,7 +19348,7 @@ Value *rslt7 = arityImpl_274((List *)var_31, rslt6); if (isTrue(rslt7)) { cond0 = var_20; } else { -Value *rslt1 = arityImpl_1661((List *)var_31, arg0); +Value *rslt1 = arityImpl_1651((List *)var_31, arg0); cond0 = rslt1; } } @@ -19439,25 +19357,25 @@ return (cond0); // --------- anon main body -------------- -Function fn_1667 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1668}}}; +Function fn_1657 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1658}}}; // --------- anon -------------- -Function fn_1669; +Function fn_1659; // --------- anon -------------- -Function fn_1671; +Function fn_1661; // --------- anon -------------- -Function fn_1673; -Value *arityImpl_1674(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_283((List *)var_31, (Value *)&_str_58, arg0); +Function fn_1663; +Value *arityImpl_1664(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_283((List *)var_31, (Value *)&_str_57, arg0); return (rslt0); }; // --------- anon main body -------------- -Function fn_1673 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1674}}}; -Value *arityImpl_1672(List *closures, Value *arg0) { +Function fn_1663 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1664}}}; +Value *arityImpl_1662(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -19467,12 +19385,12 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt2 = arityImpl_524((List *)var_31, val1, (Value *)&_num_1, var_31); -Value *rslt4 = arityImpl_305((List *)var_31, rslt2, (Value *)&fn_1673); +Value *rslt4 = arityImpl_305((List *)var_31, rslt2, (Value *)&fn_1663); Value *rslt8; -if((var_824)->type != 3) { -rslt8 = protoFnImpl_5(empty_list, var_824, (Value *)&fn_118); +if((var_814)->type != 3) { +rslt8 = protoFnImpl_5(empty_list, var_814, (Value *)&fn_118); } else { -FnArity *arity5 = findFnArity(var_824, 1); +FnArity *arity5 = findFnArity(var_814, 1); if(arity5 != (FnArity *)0 && !arity5->variadic) { FnType1 *fn7 = (FnType1 *)arity5->fn; rslt8 = fn7(arity5->closures, (Value *)&fn_118); @@ -19486,16 +19404,16 @@ varArgs6->tail = (List *)0; varArgs6 = (List *)listCons((Value *)&fn_118, varArgs6); rslt8 = fn7(arity5->closures, (Value *)varArgs6); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_824)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_814)->name); abort(); } } Value *rslt9 = protoFnImpl_110((List *)var_31, rslt8, arg0); Value *rslt13; -if((var_1495)->type != 3) { -rslt13 = protoFnImpl_7(empty_list, var_1495, rslt4, rslt9); +if((var_1485)->type != 3) { +rslt13 = protoFnImpl_7(empty_list, var_1485, rslt4, rslt9); } else { -FnArity *arity10 = findFnArity(var_1495, 2); +FnArity *arity10 = findFnArity(var_1485, 2); if(arity10 != (FnArity *)0 && !arity10->variadic) { FnType2 *fn12 = (FnType2 *)arity10->fn; rslt13 = fn12(arity10->closures, rslt4, rslt9); @@ -19510,15 +19428,15 @@ varArgs11 = (List *)listCons(rslt9, varArgs11); varArgs11 = (List *)listCons(rslt4, varArgs11); rslt13 = fn12(arity10->closures, (Value *)varArgs11); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1495)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1485)->name); abort(); } } Value *rslt17; -if((var_936)->type != 3) { -rslt17 = protoFnImpl_5(empty_list, var_936, rslt13); +if((var_926)->type != 3) { +rslt17 = protoFnImpl_5(empty_list, var_926, rslt13); } else { -FnArity *arity14 = findFnArity(var_936, 1); +FnArity *arity14 = findFnArity(var_926, 1); if(arity14 != (FnArity *)0 && !arity14->variadic) { FnType1 *fn16 = (FnType1 *)arity14->fn; rslt17 = fn16(arity14->closures, rslt13); @@ -19532,7 +19450,7 @@ varArgs15->tail = (List *)0; varArgs15 = (List *)listCons(rslt13, varArgs15); rslt17 = fn16(arity14->closures, (Value *)varArgs15); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -19540,57 +19458,57 @@ Value *rslt18 = protoFnImpl_100((List *)var_31, val0, rslt17); return (rslt18); }; -Value *arityImpl_1670(List *closures, Value *arg0) { +Value *arityImpl_1660(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_2, var_31); -Value *rslt1 = protoFnImpl_232((List *)var_31, rslt0, var_1489); +Value *rslt1 = protoFnImpl_232((List *)var_31, rslt0, var_1479); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1672; +arity_2->fn = arityImpl_1662; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_1671 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1671->type = 3; -fn_1671->name = "anon"; -fn_1671->arityCount = 1; -fn_1671->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1671); +Function *fn_1661 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1661->type = 3; +fn_1661->name = "anon"; +fn_1661->arityCount = 1; +fn_1661->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1661); return (rslt4); }; -Value *arityImpl_1666(List *closures) { -Value *rslt1 = arityImpl_1485((List *)var_31, (Value *)&fn_1667); +Value *arityImpl_1656(List *closures) { +Value *rslt1 = arityImpl_1475((List *)var_31, (Value *)&fn_1657); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1670; +arity_2->fn = arityImpl_1660; arity_2->closures = listCons((Value *)rslt1, (List *)arity_2->closures); -Function *fn_1669 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1669->type = 3; -fn_1669->name = "anon"; -fn_1669->arityCount = 1; -fn_1669->arities[0] = arity_2; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1669); +Function *fn_1659 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1659->type = 3; +fn_1659->name = "anon"; +fn_1659->arityCount = 1; +fn_1659->arities[0] = arity_2; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1659); return (rslt3); }; // --------- analyze-variadic main body -------------- -Function fn_1665 = {3, "analyze-variadic", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1666}}}; -SymKey _kw_31 = {5, -1, ":file-name"}; +Function fn_1655 = {3, "analyze-variadic", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1656}}}; +SymKey _kw_29 = {5, -1, ":file-name"}; // --------- analyze-fn-arity -------------- -Function fn_1676; +Function fn_1666; // --------- anon -------------- -Function fn_1678; -Value *arityImpl_1679(List *closures, Value *arg0) { +Function fn_1668; +Value *arityImpl_1669(List *closures, Value *arg0) { Value *cond0; Value *rslt3 = protoFnImpl_195((List *)var_31, arg0); Value *rslt4 = arityImpl_287((List *)var_31, (Value *)&_num_1, rslt3); @@ -19606,7 +19524,7 @@ Value *rslt8 = arityImpl_274((List *)var_31, rslt7); if (isTrue(rslt8)) { cond0 = var_20; } else { -Value *rslt1 = arityImpl_1661((List *)var_31, arg0); +Value *rslt1 = arityImpl_1651((List *)var_31, arg0); Value *rslt2 = arityImpl_274((List *)var_31, rslt1); cond0 = rslt2; } @@ -19616,17 +19534,17 @@ return (cond0); // --------- anon main body -------------- -Function fn_1678 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1679}}}; +Function fn_1668 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1669}}}; // --------- anon -------------- -Function fn_1680; +Function fn_1670; // --------- anon -------------- -Function fn_1682; +Function fn_1672; // --------- anon -------------- -Function fn_1684; -Value *arityImpl_1685(List *closures, Value *arg0) { +Function fn_1674; +Value *arityImpl_1675(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -19637,10 +19555,10 @@ closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt2 = arityImpl_524((List *)var_31, val1, (Value *)&_num_1, var_31); Value *rslt6; -if((var_824)->type != 3) { -rslt6 = protoFnImpl_5(empty_list, var_824, (Value *)&fn_118); +if((var_814)->type != 3) { +rslt6 = protoFnImpl_5(empty_list, var_814, (Value *)&fn_118); } else { -FnArity *arity3 = findFnArity(var_824, 1); +FnArity *arity3 = findFnArity(var_814, 1); if(arity3 != (FnArity *)0 && !arity3->variadic) { FnType1 *fn5 = (FnType1 *)arity3->fn; rslt6 = fn5(arity3->closures, (Value *)&fn_118); @@ -19654,16 +19572,16 @@ varArgs4->tail = (List *)0; varArgs4 = (List *)listCons((Value *)&fn_118, varArgs4); rslt6 = fn5(arity3->closures, (Value *)varArgs4); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_824)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_814)->name); abort(); } } Value *rslt7 = protoFnImpl_110((List *)var_31, rslt6, arg0); Value *rslt11; -if((var_1496)->type != 3) { -rslt11 = protoFnImpl_7(empty_list, var_1496, rslt2, rslt7); +if((var_1486)->type != 3) { +rslt11 = protoFnImpl_7(empty_list, var_1486, rslt2, rslt7); } else { -FnArity *arity8 = findFnArity(var_1496, 2); +FnArity *arity8 = findFnArity(var_1486, 2); if(arity8 != (FnArity *)0 && !arity8->variadic) { FnType2 *fn10 = (FnType2 *)arity8->fn; rslt11 = fn10(arity8->closures, rslt2, rslt7); @@ -19678,15 +19596,15 @@ varArgs9 = (List *)listCons(rslt7, varArgs9); varArgs9 = (List *)listCons(rslt2, varArgs9); rslt11 = fn10(arity8->closures, (Value *)varArgs9); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1496)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1486)->name); abort(); } } Value *rslt15; -if((var_936)->type != 3) { -rslt15 = protoFnImpl_5(empty_list, var_936, rslt11); +if((var_926)->type != 3) { +rslt15 = protoFnImpl_5(empty_list, var_926, rslt11); } else { -FnArity *arity12 = findFnArity(var_936, 1); +FnArity *arity12 = findFnArity(var_926, 1); if(arity12 != (FnArity *)0 && !arity12->variadic) { FnType1 *fn14 = (FnType1 *)arity12->fn; rslt15 = fn14(arity12->closures, rslt11); @@ -19700,7 +19618,7 @@ varArgs13->tail = (List *)0; varArgs13 = (List *)listCons(rslt11, varArgs13); rslt15 = fn14(arity12->closures, (Value *)varArgs13); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -19708,7 +19626,7 @@ Value *rslt16 = protoFnImpl_100((List *)var_31, val0, rslt15); return (rslt16); }; -Value *arityImpl_1683(List *closures, Value *arg0) { +Value *arityImpl_1673(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -19718,75 +19636,75 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt1 = arityImpl_524((List *)var_31, val0, (Value *)&_num_2, var_31); -Value *rslt2 = protoFnImpl_232((List *)var_31, rslt1, var_1489); +Value *rslt2 = protoFnImpl_232((List *)var_31, rslt1, var_1479); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_1685; +arity_3->fn = arityImpl_1675; arity_3->closures = listCons((Value *)val0, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val4, (List *)arity_3->closures); -Function *fn_1684 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1684->type = 3; -fn_1684->name = "anon"; -fn_1684->arityCount = 1; -fn_1684->arities[0] = arity_3; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_1684); +Function *fn_1674 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1674->type = 3; +fn_1674->name = "anon"; +fn_1674->arityCount = 1; +fn_1674->arities[0] = arity_3; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_1674); return (rslt5); }; -Value *arityImpl_1681(List *closures, Value *arg0) { +Value *arityImpl_1671(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_31, (Value *)&_str_19); +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_29, (Value *)&_str_19); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1683; +arity_1->fn = arityImpl_1673; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); -Function *fn_1682 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1682->type = 3; -fn_1682->name = "anon"; -fn_1682->arityCount = 1; -fn_1682->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1682); +Function *fn_1672 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1672->type = 3; +fn_1672->name = "anon"; +fn_1672->arityCount = 1; +fn_1672->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1672); return (rslt3); }; -Value *arityImpl_1677(List *closures) { -Value *rslt1 = arityImpl_1485((List *)var_31, (Value *)&fn_1678); +Value *arityImpl_1667(List *closures) { +Value *rslt1 = arityImpl_1475((List *)var_31, (Value *)&fn_1668); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1681; +arity_2->fn = arityImpl_1671; arity_2->closures = listCons((Value *)rslt1, (List *)arity_2->closures); -Function *fn_1680 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1680->type = 3; -fn_1680->name = "anon"; -fn_1680->arityCount = 1; -fn_1680->arities[0] = arity_2; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1680); +Function *fn_1670 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1670->type = 3; +fn_1670->name = "anon"; +fn_1670->arityCount = 1; +fn_1670->arities[0] = arity_2; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1670); return (rslt3); }; // --------- analyze-fn-arity main body -------------- -Function fn_1676 = {3, "analyze-fn-arity", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1677}}}; +Function fn_1666 = {3, "analyze-fn-arity", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1667}}}; struct {int64_t type; int64_t len; - char buffer[8];} _str_73 = {1,7,"no-name"}; + char buffer[8];} _str_72 = {1,7,"no-name"}; // --------- analyze-fn -------------- -Function fn_1687; +Function fn_1677; // --------- anon -------------- -Function fn_1689; -Value *arityImpl_1690(List *closures, Value *arg0) { +Function fn_1679; +Value *arityImpl_1680(List *closures, Value *arg0) { Value *cond0; Value *rslt3 = protoFnImpl_209((List *)var_31, arg0); Value *rslt4 = arityImpl_274((List *)var_31, rslt3); @@ -19811,14 +19729,14 @@ return (cond0); // --------- anon main body -------------- -Function fn_1689 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1690}}}; +Function fn_1679 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1680}}}; // --------- anon -------------- -Function fn_1691; +Function fn_1681; // --------- anon -------------- -Function fn_1693; -Value *arityImpl_1694(List *closures, Value *arg0) { +Function fn_1683; +Value *arityImpl_1684(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -19827,12 +19745,12 @@ Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt2 = arityImpl_524((List *)var_31, val1, (Value *)&_num_1, (Value *)&_str_73); +Value *rslt2 = arityImpl_524((List *)var_31, val1, (Value *)&_num_1, (Value *)&_str_72); Value *rslt6; -if((var_1501)->type != 3) { -rslt6 = protoFnImpl_7(empty_list, var_1501, rslt2, arg0); +if((var_1491)->type != 3) { +rslt6 = protoFnImpl_7(empty_list, var_1491, rslt2, arg0); } else { -FnArity *arity3 = findFnArity(var_1501, 2); +FnArity *arity3 = findFnArity(var_1491, 2); if(arity3 != (FnArity *)0 && !arity3->variadic) { FnType2 *fn5 = (FnType2 *)arity3->fn; rslt6 = fn5(arity3->closures, rslt2, arg0); @@ -19847,15 +19765,15 @@ varArgs4 = (List *)listCons(arg0, varArgs4); varArgs4 = (List *)listCons(rslt2, varArgs4); rslt6 = fn5(arity3->closures, (Value *)varArgs4); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1501)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1491)->name); abort(); } } Value *rslt10; -if((var_936)->type != 3) { -rslt10 = protoFnImpl_5(empty_list, var_936, rslt6); +if((var_926)->type != 3) { +rslt10 = protoFnImpl_5(empty_list, var_926, rslt6); } else { -FnArity *arity7 = findFnArity(var_936, 1); +FnArity *arity7 = findFnArity(var_926, 1); if(arity7 != (FnArity *)0 && !arity7->variadic) { FnType1 *fn9 = (FnType1 *)arity7->fn; rslt10 = fn9(arity7->closures, rslt6); @@ -19869,7 +19787,7 @@ varArgs8->tail = (List *)0; varArgs8 = (List *)listCons(rslt6, varArgs8); rslt10 = fn9(arity7->closures, (Value *)varArgs8); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -19877,57 +19795,57 @@ Value *rslt11 = protoFnImpl_100((List *)var_31, val0, rslt10); return (rslt11); }; -Value *arityImpl_1692(List *closures, Value *arg0) { +Value *arityImpl_1682(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_2, var_31); -Value *rslt1 = protoFnImpl_232((List *)var_31, rslt0, var_1489); +Value *rslt1 = protoFnImpl_232((List *)var_31, rslt0, var_1479); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1694; +arity_2->fn = arityImpl_1684; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_1693 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1693->type = 3; -fn_1693->name = "anon"; -fn_1693->arityCount = 1; -fn_1693->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1693); +Function *fn_1683 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1683->type = 3; +fn_1683->name = "anon"; +fn_1683->arityCount = 1; +fn_1683->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1683); return (rslt4); }; -Value *arityImpl_1688(List *closures) { -Value *rslt1 = arityImpl_1485((List *)var_31, (Value *)&fn_1689); +Value *arityImpl_1678(List *closures) { +Value *rslt1 = arityImpl_1475((List *)var_31, (Value *)&fn_1679); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1692; +arity_2->fn = arityImpl_1682; arity_2->closures = listCons((Value *)rslt1, (List *)arity_2->closures); -Function *fn_1691 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1691->type = 3; -fn_1691->name = "anon"; -fn_1691->arityCount = 1; -fn_1691->arities[0] = arity_2; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1691); +Function *fn_1681 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1681->type = 3; +fn_1681->name = "anon"; +fn_1681->arityCount = 1; +fn_1681->arities[0] = arity_2; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1681); return (rslt3); }; // --------- analyze-fn main body -------------- -Function fn_1687 = {3, "analyze-fn", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1688}}}; -SymKey _kw_32 = {5, -1, ":default"}; +Function fn_1677 = {3, "analyze-fn", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1678}}}; +SymKey _kw_30 = {5, -1, ":default"}; // --------- analyze-proto-arity -------------- -Function fn_1696; +Function fn_1686; // --------- anon -------------- -Function fn_1698; -Value *arityImpl_1699(List *closures, Value *arg0) { +Function fn_1688; +Value *arityImpl_1689(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -19947,7 +19865,7 @@ varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; varArgs4 = (List *)listCons((Value *)arg0, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&_kw_32, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_kw_30, varArgs4); Value *rslt5 = arityImpl_623((List *)var_31, (Value *)varArgs4); List *varArgs6 = (List *)GC_malloc(sizeof(List)); varArgs6->type = ListType; @@ -19969,7 +19887,7 @@ Value *rslt10 = protoFnImpl_100((List *)var_31, val0, rslt9); return (rslt10); }; -Value *arityImpl_1697(List *closures, Value *arg0) { +Value *arityImpl_1687(List *closures, Value *arg0) { Value *cond0; Value *rslt24 = protoFnImpl_195((List *)var_31, arg0); Value *rslt25 = arityImpl_287((List *)var_31, rslt24, (Value *)&_num_2); @@ -19996,10 +19914,10 @@ Value *rslt17 = arityImpl_287((List *)var_31, (Value *)&_num_8, rslt16); if (isTrue(rslt17)) { Value *rslt21; -if((var_1489)->type != 3) { -rslt21 = protoFnImpl_5(empty_list, var_1489, rslt6); +if((var_1479)->type != 3) { +rslt21 = protoFnImpl_5(empty_list, var_1479, rslt6); } else { -FnArity *arity18 = findFnArity(var_1489, 1); +FnArity *arity18 = findFnArity(var_1479, 1); if(arity18 != (FnArity *)0 && !arity18->variadic) { FnType1 *fn20 = (FnType1 *)arity18->fn; rslt21 = fn20(arity18->closures, rslt6); @@ -20013,7 +19931,7 @@ varArgs19->tail = (List *)0; varArgs19 = (List *)listCons(rslt6, varArgs19); rslt21 = fn20(arity18->closures, (Value *)varArgs19); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1489)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1479)->name); abort(); } } @@ -20021,16 +19939,16 @@ FnArity *arity_22 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_22->count = 1; arity_22->closures = empty_list; arity_22->variadic = 0; -arity_22->fn = arityImpl_1699; +arity_22->fn = arityImpl_1689; arity_22->closures = listCons((Value *)rslt3, (List *)arity_22->closures); arity_22->closures = listCons((Value *)rslt1, (List *)arity_22->closures); arity_22->closures = listCons((Value *)rslt21, (List *)arity_22->closures); -Function *fn_1698 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1698->type = 3; -fn_1698->name = "anon"; -fn_1698->arityCount = 1; -fn_1698->arities[0] = arity_22; -Value *rslt23 = protoFnImpl_78((List *)var_31, rslt21, (Value *)fn_1698); +Function *fn_1688 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1688->type = 3; +fn_1688->name = "anon"; +fn_1688->arityCount = 1; +fn_1688->arities[0] = arity_22; +Value *rslt23 = protoFnImpl_78((List *)var_31, rslt21, (Value *)fn_1688); cond7 = rslt23; } else { Value *rslt8 = protoFnImpl_195((List *)var_31, rslt3); @@ -20056,7 +19974,7 @@ varArgs13->tail = (List *)0; varArgs13 = (List *)listCons((Value *)rslt12, varArgs13); varArgs13 = (List *)listCons((Value *)rslt1, varArgs13); Value *rslt14 = arityImpl_623((List *)var_31, (Value *)varArgs13); -Value *rslt15 = arityImpl_985((List *)var_31, rslt14); +Value *rslt15 = arityImpl_975((List *)var_31, rslt14); cond7 = rslt15; } cond0 = cond7; @@ -20066,61 +19984,61 @@ return (cond0); // --------- analyze-proto-arity main body -------------- -Function fn_1696 = {3, "analyze-proto-arity", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1697}}}; -SymKey _kw_33 = {5, -1, ":symbols"}; +Function fn_1686 = {3, "analyze-proto-arity", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1687}}}; +SymKey _kw_31 = {5, -1, ":symbols"}; // --------- sym-already-defined? -------------- -Function fn_1701; -Value *arityImpl_1702(List *closures, Value *arg0) { +Function fn_1691; +Value *arityImpl_1692(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_33, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_31, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1014((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1004((List *)var_31, rslt1); return (rslt2); }; // --------- sym-already-defined? main body -------------- -Function fn_1701 = {3, "sym-already-defined?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1702}}}; -SymKey _kw_34 = {5, -1, ":new-symbols"}; +Function fn_1691 = {3, "sym-already-defined?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1692}}}; +SymKey _kw_32 = {5, -1, ":new-symbols"}; // --------- sym-recently-defined? -------------- -Function fn_1704; -Value *arityImpl_1705(List *closures, Value *arg0) { +Function fn_1694; +Value *arityImpl_1695(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_34, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_32, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1014((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1004((List *)var_31, rslt1); return (rslt2); }; // --------- sym-recently-defined? main body -------------- -Function fn_1704 = {3, "sym-recently-defined?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1705}}}; -SymKey _kw_35 = {5, -1, ":core-symbols"}; +Function fn_1694 = {3, "sym-recently-defined?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1695}}}; +SymKey _kw_33 = {5, -1, ":core-symbols"}; // --------- sym-defined-in-core -------------- -Function fn_1707; +Function fn_1697; // --------- anon -------------- -Function fn_1709; +Function fn_1699; // --------- anon -------------- -Function fn_1711; +Function fn_1701; // --------- anon -------------- -Function fn_1713; -Value *arityImpl_1714(List *closures, Value *arg0) { +Function fn_1703; +Value *arityImpl_1704(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -20131,7 +20049,7 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_67, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_66, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); Value *rslt6; if((var_32)->type != 3) { @@ -20161,8 +20079,8 @@ return (rslt6); // --------- anon -------------- -Function fn_1715; -Value *arityImpl_1716(List *closures, Value *arg0) { +Function fn_1705; +Value *arityImpl_1706(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -20175,7 +20093,7 @@ Value *rslt2 = protoFnImpl_100((List *)var_31, val0, val1); return (rslt2); }; -Value *arityImpl_1712(List *closures, Value *arg0) { +Value *arityImpl_1702(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -20189,37 +20107,37 @@ varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_19, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_17, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1714; +arity_2->fn = arityImpl_1704; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_1713 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1713->type = 3; -fn_1713->name = "anon"; -fn_1713->arityCount = 1; -fn_1713->arities[0] = arity_2; -Value *rslt4 = arityImpl_1027((List *)var_31, rslt1, (Value *)fn_1713); +Function *fn_1703 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1703->type = 3; +fn_1703->name = "anon"; +fn_1703->arityCount = 1; +fn_1703->arities[0] = arity_2; +Value *rslt4 = arityImpl_1017((List *)var_31, rslt1, (Value *)fn_1703); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_1716; +arity_5->fn = arityImpl_1706; arity_5->closures = listCons((Value *)val3, (List *)arity_5->closures); arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); -Function *fn_1715 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1715->type = 3; -fn_1715->name = "anon"; -fn_1715->arityCount = 1; -fn_1715->arities[0] = arity_5; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_1715); +Function *fn_1705 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1705->type = 3; +fn_1705->name = "anon"; +fn_1705->arityCount = 1; +fn_1705->arities[0] = arity_5; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_1705); return (rslt7); }; -Value *arityImpl_1710(List *closures, Value *arg0) { +Value *arityImpl_1700(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -20234,71 +20152,71 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_kw_33, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_kw_31, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1022((List *)var_31, rslt2, arg0); +Value *rslt3 = arityImpl_1012((List *)var_31, rslt2, arg0); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_1712; +arity_4->fn = arityImpl_1702; arity_4->closures = listCons((Value *)val5, (List *)arity_4->closures); arity_4->closures = listCons((Value *)arg0, (List *)arity_4->closures); -Function *fn_1711 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1711->type = 3; -fn_1711->name = "anon"; -fn_1711->arityCount = 1; -fn_1711->arities[0] = arity_4; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_1711); +Function *fn_1701 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1701->type = 3; +fn_1701->name = "anon"; +fn_1701->arityCount = 1; +fn_1701->arities[0] = arity_4; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_1701); return (rslt6); }; -Value *arityImpl_1708(List *closures, Value *arg0) { +Value *arityImpl_1698(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_35, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_33, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1014((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1004((List *)var_31, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_1710; +arity_3->fn = arityImpl_1700; arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); arity_3->closures = listCons((Value *)arg0, (List *)arity_3->closures); -Function *fn_1709 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1709->type = 3; -fn_1709->name = "anon"; -fn_1709->arityCount = 1; -fn_1709->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_1709); +Function *fn_1699 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1699->type = 3; +fn_1699->name = "anon"; +fn_1699->arityCount = 1; +fn_1699->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_1699); return (rslt4); }; // --------- sym-defined-in-core main body -------------- -Function fn_1707 = {3, "sym-defined-in-core", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1708}}}; +Function fn_1697 = {3, "sym-defined-in-core", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1698}}}; struct {int64_t type; int64_t len; - char buffer[6];} _str_74 = {1,5,"_sym_"}; -SymKey _kw_36 = {5, -1, ":sym-count"}; + char buffer[6];} _str_73 = {1,5,"_sym_"}; +SymKey _kw_34 = {5, -1, ":sym-count"}; // --------- make-static-symbol -------------- -Function fn_1718; +Function fn_1708; // --------- anon -------------- -Function fn_1720; +Function fn_1710; // --------- anon -------------- -Function fn_1722; +Function fn_1712; // --------- anon -------------- -Function fn_1724; -Value *arityImpl_1725(List *closures, Value *arg0) { +Function fn_1714; +Value *arityImpl_1715(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -20307,7 +20225,7 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_1723(List *closures, Value *arg0) { +Value *arityImpl_1713(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -20326,7 +20244,7 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_kw_34, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_kw_32, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; @@ -20334,25 +20252,25 @@ varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; varArgs4 = (List *)listCons((Value *)val3, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&_str_74, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_73, varArgs4); Value *rslt5 = arityImpl_508((List *)var_31, (Value *)varArgs4); -Value *rslt6 = arityImpl_1022((List *)var_31, rslt2, rslt5); +Value *rslt6 = arityImpl_1012((List *)var_31, rslt2, rslt5); FnArity *arity_7 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_7->count = 1; arity_7->closures = empty_list; arity_7->variadic = 0; -arity_7->fn = arityImpl_1725; +arity_7->fn = arityImpl_1715; arity_7->closures = listCons((Value *)val8, (List *)arity_7->closures); -Function *fn_1724 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1724->type = 3; -fn_1724->name = "anon"; -fn_1724->arityCount = 1; -fn_1724->arities[0] = arity_7; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_1724); +Function *fn_1714 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1714->type = 3; +fn_1714->name = "anon"; +fn_1714->arityCount = 1; +fn_1714->arities[0] = arity_7; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_1714); return (rslt9); }; -Value *arityImpl_1721(List *closures, Value *arg0) { +Value *arityImpl_1711(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -20362,57 +20280,57 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = arityImpl_453((List *)var_31, arg0); -Value *rslt1 = arityImpl_1009((List *)var_31, (Value *)&_kw_36, rslt0); +Value *rslt1 = arityImpl_999((List *)var_31, (Value *)&_kw_34, rslt0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1723; +arity_2->fn = arityImpl_1713; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); -Function *fn_1722 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1722->type = 3; -fn_1722->name = "anon"; -fn_1722->arityCount = 1; -fn_1722->arities[0] = arity_2; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1722); +Function *fn_1712 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1712->type = 3; +fn_1712->name = "anon"; +fn_1712->arityCount = 1; +fn_1712->arities[0] = arity_2; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1712); return (rslt5); }; -Value *arityImpl_1719(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_36, (Value *)&_num_8); +Value *arityImpl_1709(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_34, (Value *)&_num_8); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1721; +arity_1->fn = arityImpl_1711; arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_1720 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1720->type = 3; -fn_1720->name = "anon"; -fn_1720->arityCount = 1; -fn_1720->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1720); +Function *fn_1710 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1710->type = 3; +fn_1710->name = "anon"; +fn_1710->arityCount = 1; +fn_1710->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1710); return (rslt2); }; // --------- make-static-symbol main body -------------- -Function fn_1718 = {3, "make-static-symbol", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1719}}}; +Function fn_1708 = {3, "make-static-symbol", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1709}}}; // --------- make-symbols -------------- -Function fn_1727; -Value *arityImpl_1728(List *closures, Value *arg0) { +Function fn_1717; +Value *arityImpl_1718(List *closures, Value *arg0) { Value *cond0; -Value *rslt2 = arityImpl_656((List *)var_31, arg0); +Value *rslt2 = arityImpl_646((List *)var_31, arg0); if (isTrue(rslt2)) { -Value *rslt3 = arityImpl_1702((List *)var_31, arg0); -Value *rslt4 = arityImpl_1705((List *)var_31, arg0); -Value *rslt5 = arityImpl_1708((List *)var_31, arg0); -Value *rslt6 = arityImpl_1719((List *)var_31, arg0); +Value *rslt3 = arityImpl_1692((List *)var_31, arg0); +Value *rslt4 = arityImpl_1695((List *)var_31, arg0); +Value *rslt5 = arityImpl_1698((List *)var_31, arg0); +Value *rslt6 = arityImpl_1709((List *)var_31, arg0); List *varArgs7 = (List *)GC_malloc(sizeof(List)); varArgs7->type = ListType; varArgs7->len = 0; @@ -20428,10 +20346,10 @@ cond0 = rslt8; Value *rslt9 = protoFnImpl_209((List *)var_31, arg0); if (isTrue(rslt9)) { -Value *rslt10 = protoFnImpl_232((List *)var_31, arg0, (Value *)&fn_1727); +Value *rslt10 = protoFnImpl_232((List *)var_31, arg0, (Value *)&fn_1717); cond0 = rslt10; } else { -Value *rslt1 = arityImpl_985((List *)var_31, (Value *)&_str_19); +Value *rslt1 = arityImpl_975((List *)var_31, (Value *)&_str_19); cond0 = rslt1; } } @@ -20440,14 +20358,14 @@ return (cond0); // --------- make-symbols main body -------------- -Function fn_1727 = {3, "make-symbols", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1728}}}; +Function fn_1717 = {3, "make-symbols", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1718}}}; // --------- analyze-quoted -------------- -Function fn_1730; +Function fn_1720; // --------- anon -------------- -Function fn_1732; -Value *arityImpl_1733(List *closures, Value *arg0) { +Function fn_1722; +Value *arityImpl_1723(List *closures, Value *arg0) { Value *cond0; Value *rslt3 = protoFnImpl_195((List *)var_31, arg0); Value *rslt4 = arityImpl_283((List *)var_31, (Value *)&_num_2, rslt3); @@ -20465,14 +20383,14 @@ return (cond0); // --------- anon main body -------------- -Function fn_1732 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1733}}}; +Function fn_1722 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1723}}}; // --------- anon -------------- -Function fn_1734; +Function fn_1724; // --------- anon -------------- -Function fn_1736; -Value *arityImpl_1737(List *closures, Value *arg0) { +Function fn_1726; +Value *arityImpl_1727(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -20483,10 +20401,10 @@ closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt2 = arityImpl_523((List *)var_31, val1, (Value *)&_num_1); Value *rslt6; -if((var_1502)->type != 3) { -rslt6 = protoFnImpl_5(empty_list, var_1502, rslt2); +if((var_1492)->type != 3) { +rslt6 = protoFnImpl_5(empty_list, var_1492, rslt2); } else { -FnArity *arity3 = findFnArity(var_1502, 1); +FnArity *arity3 = findFnArity(var_1492, 1); if(arity3 != (FnArity *)0 && !arity3->variadic) { FnType1 *fn5 = (FnType1 *)arity3->fn; rslt6 = fn5(arity3->closures, rslt2); @@ -20500,15 +20418,15 @@ varArgs4->tail = (List *)0; varArgs4 = (List *)listCons(rslt2, varArgs4); rslt6 = fn5(arity3->closures, (Value *)varArgs4); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1502)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1492)->name); abort(); } } Value *rslt10; -if((var_936)->type != 3) { -rslt10 = protoFnImpl_5(empty_list, var_936, rslt6); +if((var_926)->type != 3) { +rslt10 = protoFnImpl_5(empty_list, var_926, rslt6); } else { -FnArity *arity7 = findFnArity(var_936, 1); +FnArity *arity7 = findFnArity(var_926, 1); if(arity7 != (FnArity *)0 && !arity7->variadic) { FnType1 *fn9 = (FnType1 *)arity7->fn; rslt10 = fn9(arity7->closures, rslt6); @@ -20522,7 +20440,7 @@ varArgs8->tail = (List *)0; varArgs8 = (List *)listCons(rslt6, varArgs8); rslt10 = fn9(arity7->closures, (Value *)varArgs8); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -20530,63 +20448,63 @@ Value *rslt11 = protoFnImpl_100((List *)var_31, val0, rslt10); return (rslt11); }; -Value *arityImpl_1735(List *closures, Value *arg0) { +Value *arityImpl_1725(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_1); -Value *rslt1 = arityImpl_1728((List *)var_31, rslt0); +Value *rslt1 = arityImpl_1718((List *)var_31, rslt0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1737; +arity_2->fn = arityImpl_1727; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_1736 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1736->type = 3; -fn_1736->name = "anon"; -fn_1736->arityCount = 1; -fn_1736->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1736); +Function *fn_1726 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1726->type = 3; +fn_1726->name = "anon"; +fn_1726->arityCount = 1; +fn_1726->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1726); return (rslt4); }; -Value *arityImpl_1731(List *closures) { -Value *rslt1 = arityImpl_1485((List *)var_31, (Value *)&fn_1732); +Value *arityImpl_1721(List *closures) { +Value *rslt1 = arityImpl_1475((List *)var_31, (Value *)&fn_1722); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1735; +arity_2->fn = arityImpl_1725; arity_2->closures = listCons((Value *)rslt1, (List *)arity_2->closures); -Function *fn_1734 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1734->type = 3; -fn_1734->name = "anon"; -fn_1734->arityCount = 1; -fn_1734->arities[0] = arity_2; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1734); +Function *fn_1724 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1724->type = 3; +fn_1724->name = "anon"; +fn_1724->arityCount = 1; +fn_1724->arities[0] = arity_2; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1724); return (rslt3); }; // --------- analyze-quoted main body -------------- -Function fn_1730 = {3, "analyze-quoted", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1731}}}; +Function fn_1720 = {3, "analyze-quoted", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1721}}}; SymKey _sym_15 = {7, -1, "no-name"}; -SymKey _kw_37 = {5, -1, ":no-expr"}; -SymKey _kw_38 = {5, -1, ":not-def"}; -SymKey _kw_39 = {5, -1, ":no-value"}; +SymKey _kw_35 = {5, -1, ":no-expr"}; +SymKey _kw_36 = {5, -1, ":not-def"}; +SymKey _kw_37 = {5, -1, ":no-value"}; // --------- analyze-def -------------- -Function fn_1739; +Function fn_1729; // --------- anon -------------- -Function fn_1741; +Function fn_1731; // --------- anon -------------- -Function fn_1743; -Value *arityImpl_1744(List *closures, Value *arg0) { +Function fn_1733; +Value *arityImpl_1734(List *closures, Value *arg0) { Value *cond0; Value *rslt3 = protoFnImpl_209((List *)var_31, arg0); Value *rslt4 = arityImpl_274((List *)var_31, rslt3); @@ -20603,14 +20521,14 @@ return (cond0); // --------- anon main body -------------- -Function fn_1743 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1744}}}; +Function fn_1733 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1734}}}; // --------- anon -------------- -Function fn_1745; +Function fn_1735; // --------- anon -------------- -Function fn_1747; -Value *arityImpl_1748(List *closures, Value *arg0) { +Function fn_1737; +Value *arityImpl_1738(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -20620,10 +20538,10 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt5; -if((var_1503)->type != 3) { -rslt5 = protoFnImpl_7(empty_list, var_1503, val1, arg0); +if((var_1493)->type != 3) { +rslt5 = protoFnImpl_7(empty_list, var_1493, val1, arg0); } else { -FnArity *arity2 = findFnArity(var_1503, 2); +FnArity *arity2 = findFnArity(var_1493, 2); if(arity2 != (FnArity *)0 && !arity2->variadic) { FnType2 *fn4 = (FnType2 *)arity2->fn; rslt5 = fn4(arity2->closures, val1, arg0); @@ -20638,15 +20556,15 @@ varArgs3 = (List *)listCons(arg0, varArgs3); varArgs3 = (List *)listCons(val1, varArgs3); rslt5 = fn4(arity2->closures, (Value *)varArgs3); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1503)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1493)->name); abort(); } } Value *rslt9; -if((var_936)->type != 3) { -rslt9 = protoFnImpl_5(empty_list, var_936, rslt5); +if((var_926)->type != 3) { +rslt9 = protoFnImpl_5(empty_list, var_926, rslt5); } else { -FnArity *arity6 = findFnArity(var_936, 1); +FnArity *arity6 = findFnArity(var_926, 1); if(arity6 != (FnArity *)0 && !arity6->variadic) { FnType1 *fn8 = (FnType1 *)arity6->fn; rslt9 = fn8(arity6->closures, rslt5); @@ -20660,7 +20578,7 @@ varArgs7->tail = (List *)0; varArgs7 = (List *)listCons(rslt5, varArgs7); rslt9 = fn8(arity6->closures, (Value *)varArgs7); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -20668,17 +20586,17 @@ Value *rslt10 = protoFnImpl_100((List *)var_31, val0, rslt9); return (rslt10); }; -Value *arityImpl_1746(List *closures, Value *arg0) { +Value *arityImpl_1736(List *closures, Value *arg0) { Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_8, (Value *)&_kw_38); +Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_8, (Value *)&_kw_36); Value *rslt1 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, (Value *)&_sym_15); -Value *rslt2 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_2, (Value *)&_kw_39); +Value *rslt2 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_2, (Value *)&_kw_37); Value *cond3; Value *rslt6 = arityImpl_283((List *)var_31, rslt0, (Value *)&_sym_4); -Value *rslt7 = arityImpl_656((List *)var_31, rslt1); +Value *rslt7 = arityImpl_646((List *)var_31, rslt1); List *varArgs8 = (List *)GC_malloc(sizeof(List)); varArgs8->type = ListType; varArgs8->len = 0; @@ -20690,17 +20608,17 @@ Value *rslt9 = arityImpl_277((List *)var_31, (Value *)varArgs8); if (isTrue(rslt9)) { Value *cond10; -Value *rslt15 = arityImpl_283((List *)var_31, rslt2, (Value *)&_kw_39); +Value *rslt15 = arityImpl_283((List *)var_31, rslt2, (Value *)&_kw_37); if (isTrue(rslt15)) { -Value *rslt16 = arityImpl_985((List *)var_31, (Value *)&_kw_39); +Value *rslt16 = arityImpl_975((List *)var_31, (Value *)&_kw_37); cond10 = rslt16; } else { Value *rslt14; -if((var_1489)->type != 3) { -rslt14 = protoFnImpl_5(empty_list, var_1489, rslt2); +if((var_1479)->type != 3) { +rslt14 = protoFnImpl_5(empty_list, var_1479, rslt2); } else { -FnArity *arity11 = findFnArity(var_1489, 1); +FnArity *arity11 = findFnArity(var_1479, 1); if(arity11 != (FnArity *)0 && !arity11->variadic) { FnType1 *fn13 = (FnType1 *)arity11->fn; rslt14 = fn13(arity11->closures, rslt2); @@ -20714,7 +20632,7 @@ varArgs12->tail = (List *)0; varArgs12 = (List *)listCons(rslt2, varArgs12); rslt14 = fn13(arity11->closures, (Value *)varArgs12); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1489)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1479)->name); abort(); } } @@ -20724,15 +20642,15 @@ FnArity *arity_17 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_17->count = 1; arity_17->closures = empty_list; arity_17->variadic = 0; -arity_17->fn = arityImpl_1748; +arity_17->fn = arityImpl_1738; arity_17->closures = listCons((Value *)rslt1, (List *)arity_17->closures); arity_17->closures = listCons((Value *)val4, (List *)arity_17->closures); -Function *fn_1747 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1747->type = 3; -fn_1747->name = "anon"; -fn_1747->arityCount = 1; -fn_1747->arities[0] = arity_17; -Value *rslt18 = protoFnImpl_78((List *)var_31, cond10, (Value *)fn_1747); +Function *fn_1737 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1737->type = 3; +fn_1737->name = "anon"; +fn_1737->arityCount = 1; +fn_1737->arities[0] = arity_17; +Value *rslt18 = protoFnImpl_78((List *)var_31, cond10, (Value *)fn_1737); cond3 = rslt18; } else { Value *rslt5 = protoFnImpl_242((List *)var_31, val4); @@ -20741,60 +20659,60 @@ cond3 = rslt5; return (cond3); }; -Value *arityImpl_1742(List *closures, Value *arg0) { +Value *arityImpl_1732(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_1485((List *)var_31, (Value *)&fn_1743); +Value *rslt1 = arityImpl_1475((List *)var_31, (Value *)&fn_1733); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1746; +arity_2->fn = arityImpl_1736; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_1745 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1745->type = 3; -fn_1745->name = "anon"; -fn_1745->arityCount = 1; -fn_1745->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1745); +Function *fn_1735 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1735->type = 3; +fn_1735->name = "anon"; +fn_1735->arityCount = 1; +fn_1735->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1735); return (rslt4); }; -Value *arityImpl_1740(List *closures) { -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_15, (Value *)&_kw_37); +Value *arityImpl_1730(List *closures) { +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_13, (Value *)&_kw_35); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1742; +arity_1->fn = arityImpl_1732; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_1741 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1741->type = 3; -fn_1741->name = "anon"; -fn_1741->arityCount = 1; -fn_1741->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1741); +Function *fn_1731 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1731->type = 3; +fn_1731->name = "anon"; +fn_1731->arityCount = 1; +fn_1731->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1731); return (rslt2); }; // --------- analyze-def main body -------------- -Function fn_1739 = {3, "analyze-def", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1740}}}; +Function fn_1729 = {3, "analyze-def", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1730}}}; struct {int64_t type; int64_t len; - char buffer[32];} _str_75 = {1,31,"cond must have a default clause"}; + char buffer[32];} _str_74 = {1,31,"cond must have a default clause"}; // --------- analyze-cond -------------- -Function fn_1750; +Function fn_1740; // --------- anon -------------- -Function fn_1752; +Function fn_1742; // --------- anon -------------- -Function fn_1754; -Value *arityImpl_1755(List *closures, Value *arg0) { +Function fn_1744; +Value *arityImpl_1745(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -20809,10 +20727,10 @@ if (isTrue(rslt7)) { Value *rslt8 = arityImpl_530((List *)var_31, rslt1); Value *rslt9 = protoFnImpl_219((List *)var_31, rslt2); Value *rslt13; -if((var_1504)->type != 3) { -rslt13 = protoFnImpl_7(empty_list, var_1504, rslt8, rslt9); +if((var_1494)->type != 3) { +rslt13 = protoFnImpl_7(empty_list, var_1494, rslt8, rslt9); } else { -FnArity *arity10 = findFnArity(var_1504, 2); +FnArity *arity10 = findFnArity(var_1494, 2); if(arity10 != (FnArity *)0 && !arity10->variadic) { FnType2 *fn12 = (FnType2 *)arity10->fn; rslt13 = fn12(arity10->closures, rslt8, rslt9); @@ -20827,15 +20745,15 @@ varArgs11 = (List *)listCons(rslt9, varArgs11); varArgs11 = (List *)listCons(rslt8, varArgs11); rslt13 = fn12(arity10->closures, (Value *)varArgs11); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1504)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1494)->name); abort(); } } Value *rslt17; -if((var_936)->type != 3) { -rslt17 = protoFnImpl_5(empty_list, var_936, rslt13); +if((var_926)->type != 3) { +rslt17 = protoFnImpl_5(empty_list, var_926, rslt13); } else { -FnArity *arity14 = findFnArity(var_936, 1); +FnArity *arity14 = findFnArity(var_926, 1); if(arity14 != (FnArity *)0 && !arity14->variadic) { FnType1 *fn16 = (FnType1 *)arity14->fn; rslt17 = fn16(arity14->closures, rslt13); @@ -20849,7 +20767,7 @@ varArgs15->tail = (List *)0; varArgs15 = (List *)listCons(rslt13, varArgs15); rslt17 = fn16(arity14->closures, (Value *)varArgs15); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -20860,7 +20778,7 @@ varArgs4->type = ListType; varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; -varArgs4 = (List *)listCons((Value *)(Value *)&_str_75, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_74, varArgs4); Value *rslt5 = arityImpl_163((List *)var_31, (Value *)varArgs4); cond3 = rslt5; } @@ -20868,7 +20786,7 @@ Value *rslt18 = protoFnImpl_100((List *)var_31, val0, cond3); return (rslt18); }; -Value *arityImpl_1753(List *closures, Value *arg0) { +Value *arityImpl_1743(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -20887,19 +20805,19 @@ cond3 = rslt5; if (isTrue(cond3)) { Value *rslt7 = protoFnImpl_224((List *)var_31, arg0); -Value *rslt8 = protoFnImpl_232((List *)var_31, rslt7, var_1489); +Value *rslt8 = protoFnImpl_232((List *)var_31, rslt7, var_1479); FnArity *arity_9 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_9->count = 1; arity_9->closures = empty_list; arity_9->variadic = 0; -arity_9->fn = arityImpl_1755; +arity_9->fn = arityImpl_1745; arity_9->closures = listCons((Value *)val1, (List *)arity_9->closures); -Function *fn_1754 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1754->type = 3; -fn_1754->name = "anon"; -fn_1754->arityCount = 1; -fn_1754->arities[0] = arity_9; -Value *rslt10 = protoFnImpl_78((List *)var_31, rslt8, (Value *)fn_1754); +Function *fn_1744 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1744->type = 3; +fn_1744->name = "anon"; +fn_1744->arityCount = 1; +fn_1744->arities[0] = arity_9; +Value *rslt10 = protoFnImpl_78((List *)var_31, rslt8, (Value *)fn_1744); cond0 = rslt10; } else { Value *rslt2 = protoFnImpl_242((List *)var_31, val1); @@ -20908,36 +20826,36 @@ cond0 = rslt2; return (cond0); }; -Value *arityImpl_1751(List *closures) { -Value *rslt0 = arityImpl_1485((List *)var_31, (Value *)&protoFn_206); +Value *arityImpl_1741(List *closures) { +Value *rslt0 = arityImpl_1475((List *)var_31, (Value *)&protoFn_206); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1753; +arity_1->fn = arityImpl_1743; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_1752 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1752->type = 3; -fn_1752->name = "anon"; -fn_1752->arityCount = 1; -fn_1752->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1752); +Function *fn_1742 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1742->type = 3; +fn_1742->name = "anon"; +fn_1742->arityCount = 1; +fn_1742->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1742); return (rslt2); }; // --------- analyze-cond main body -------------- -Function fn_1750 = {3, "analyze-cond", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1751}}}; +Function fn_1740 = {3, "analyze-cond", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1741}}}; // --------- next-form -------------- -Function fn_1757; +Function fn_1747; // --------- anon -------------- -Function fn_1759; +Function fn_1749; // --------- anon -------------- -Function fn_1761; -Value *arityImpl_1762(List *closures, Value *arg0) { +Function fn_1751; +Value *arityImpl_1752(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -20961,56 +20879,56 @@ cond0 = rslt2; return (cond0); }; -Value *arityImpl_1760(List *closures, Value *arg0) { +Value *arityImpl_1750(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = protoFnImpl_224((List *)var_31, arg0); -Value *rslt1 = arityImpl_1009((List *)var_31, (Value *)&_kw_15, rslt0); +Value *rslt1 = arityImpl_999((List *)var_31, (Value *)&_kw_13, rslt0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1762; +arity_2->fn = arityImpl_1752; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_1761 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1761->type = 3; -fn_1761->name = "anon"; -fn_1761->arityCount = 1; -fn_1761->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1761); +Function *fn_1751 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1751->type = 3; +fn_1751->name = "anon"; +fn_1751->arityCount = 1; +fn_1751->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1751); return (rslt4); }; -Value *arityImpl_1758(List *closures) { -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_15, var_31); +Value *arityImpl_1748(List *closures) { +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_13, var_31); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1760; +arity_1->fn = arityImpl_1750; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_1759 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1759->type = 3; -fn_1759->name = "anon"; -fn_1759->arityCount = 1; -fn_1759->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1759); +Function *fn_1749 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1749->type = 3; +fn_1749->name = "anon"; +fn_1749->arityCount = 1; +fn_1749->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1749); return (rslt2); }; // --------- next-form main body -------------- -Function fn_1757 = {3, "next-form", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1758}}}; +Function fn_1747 = {3, "next-form", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1748}}}; // --------- is-form? -------------- -Function fn_1764; +Function fn_1754; // --------- anon -------------- -Function fn_1766; -Value *arityImpl_1767(List *closures, Value *arg0) { +Function fn_1756; +Value *arityImpl_1757(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -21053,37 +20971,37 @@ cond0 = rslt2; return (cond0); }; -Value *arityImpl_1765(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_1758((List *)var_31); +Value *arityImpl_1755(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_1748((List *)var_31); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1767; +arity_1->fn = arityImpl_1757; arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_1766 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1766->type = 3; -fn_1766->name = "anon"; -fn_1766->arityCount = 1; -fn_1766->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1766); +Function *fn_1756 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1756->type = 3; +fn_1756->name = "anon"; +fn_1756->arityCount = 1; +fn_1756->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1756); return (rslt2); }; // --------- is-form? main body -------------- -Function fn_1764 = {3, "is-form?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1765}}}; +Function fn_1754 = {3, "is-form?", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1755}}}; struct {int64_t type; int64_t len; - char buffer[6];} _str_76 = {1,5,"_impl"}; + char buffer[6];} _str_75 = {1,5,"_impl"}; // --------- analyze-proto-fn -------------- -Function fn_1769; +Function fn_1759; // --------- anon -------------- -Function fn_1771; -Value *arityImpl_1772(List *closures, Value *arg0) { +Function fn_1761; +Value *arityImpl_1762(List *closures, Value *arg0) { Value *cond0; Value *rslt3 = protoFnImpl_209((List *)var_31, arg0); Value *rslt4 = arityImpl_274((List *)var_31, rslt3); @@ -21100,14 +21018,14 @@ return (cond0); // --------- anon main body -------------- -Function fn_1771 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1772}}}; +Function fn_1761 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1762}}}; // --------- anon -------------- -Function fn_1773; +Function fn_1763; // --------- anon -------------- -Function fn_1775; -Value *arityImpl_1776(List *closures, Value *arg0) { +Function fn_1765; +Value *arityImpl_1766(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -21123,16 +21041,16 @@ varArgs4->type = ListType; varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; -varArgs4 = (List *)listCons((Value *)(Value *)&_str_76, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_75, varArgs4); varArgs4 = (List *)listCons((Value *)rslt3, varArgs4); Value *rslt5 = arityImpl_508((List *)var_31, (Value *)varArgs4); Value *rslt6 = arityImpl_524((List *)var_31, val1, (Value *)&_num_1, var_31); Value *rslt7 = protoFnImpl_224((List *)var_31, rslt6); Value *rslt11; -if((var_824)->type != 3) { -rslt11 = protoFnImpl_5(empty_list, var_824, (Value *)&fn_118); +if((var_814)->type != 3) { +rslt11 = protoFnImpl_5(empty_list, var_814, (Value *)&fn_118); } else { -FnArity *arity8 = findFnArity(var_824, 1); +FnArity *arity8 = findFnArity(var_814, 1); if(arity8 != (FnArity *)0 && !arity8->variadic) { FnType1 *fn10 = (FnType1 *)arity8->fn; rslt11 = fn10(arity8->closures, (Value *)&fn_118); @@ -21146,16 +21064,16 @@ varArgs9->tail = (List *)0; varArgs9 = (List *)listCons((Value *)&fn_118, varArgs9); rslt11 = fn10(arity8->closures, (Value *)varArgs9); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_824)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_814)->name); abort(); } } Value *rslt12 = protoFnImpl_110((List *)var_31, rslt11, arg0); Value *rslt16; -if((var_1496)->type != 3) { -rslt16 = protoFnImpl_7(empty_list, var_1496, rslt7, rslt12); +if((var_1486)->type != 3) { +rslt16 = protoFnImpl_7(empty_list, var_1486, rslt7, rslt12); } else { -FnArity *arity13 = findFnArity(var_1496, 2); +FnArity *arity13 = findFnArity(var_1486, 2); if(arity13 != (FnArity *)0 && !arity13->variadic) { FnType2 *fn15 = (FnType2 *)arity13->fn; rslt16 = fn15(arity13->closures, rslt7, rslt12); @@ -21170,15 +21088,15 @@ varArgs14 = (List *)listCons(rslt12, varArgs14); varArgs14 = (List *)listCons(rslt7, varArgs14); rslt16 = fn15(arity13->closures, (Value *)varArgs14); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1496)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1486)->name); abort(); } } Value *rslt20; -if((var_936)->type != 3) { -rslt20 = protoFnImpl_5(empty_list, var_936, rslt16); +if((var_926)->type != 3) { +rslt20 = protoFnImpl_5(empty_list, var_926, rslt16); } else { -FnArity *arity17 = findFnArity(var_936, 1); +FnArity *arity17 = findFnArity(var_926, 1); if(arity17 != (FnArity *)0 && !arity17->variadic) { FnType1 *fn19 = (FnType1 *)arity17->fn; rslt20 = fn19(arity17->closures, rslt16); @@ -21192,7 +21110,7 @@ varArgs18->tail = (List *)0; varArgs18 = (List *)listCons(rslt16, varArgs18); rslt20 = fn19(arity17->closures, (Value *)varArgs18); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -21204,10 +21122,10 @@ varArgs21->tail = (List *)0; varArgs21 = (List *)listCons((Value *)rslt20, varArgs21); Value *rslt22 = arityImpl_119((List *)var_31, (Value *)varArgs21); Value *rslt26; -if((var_1501)->type != 3) { -rslt26 = protoFnImpl_7(empty_list, var_1501, rslt5, rslt22); +if((var_1491)->type != 3) { +rslt26 = protoFnImpl_7(empty_list, var_1491, rslt5, rslt22); } else { -FnArity *arity23 = findFnArity(var_1501, 2); +FnArity *arity23 = findFnArity(var_1491, 2); if(arity23 != (FnArity *)0 && !arity23->variadic) { FnType2 *fn25 = (FnType2 *)arity23->fn; rslt26 = fn25(arity23->closures, rslt5, rslt22); @@ -21222,15 +21140,15 @@ varArgs24 = (List *)listCons(rslt22, varArgs24); varArgs24 = (List *)listCons(rslt5, varArgs24); rslt26 = fn25(arity23->closures, (Value *)varArgs24); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1501)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1491)->name); abort(); } } Value *rslt30; -if((var_936)->type != 3) { -rslt30 = protoFnImpl_5(empty_list, var_936, rslt26); +if((var_926)->type != 3) { +rslt30 = protoFnImpl_5(empty_list, var_926, rslt26); } else { -FnArity *arity27 = findFnArity(var_936, 1); +FnArity *arity27 = findFnArity(var_926, 1); if(arity27 != (FnArity *)0 && !arity27->variadic) { FnType1 *fn29 = (FnType1 *)arity27->fn; rslt30 = fn29(arity27->closures, rslt26); @@ -21244,7 +21162,7 @@ varArgs28->tail = (List *)0; varArgs28 = (List *)listCons(rslt26, varArgs28); rslt30 = fn29(arity27->closures, (Value *)varArgs28); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -21260,59 +21178,59 @@ Value *rslt33 = protoFnImpl_100((List *)var_31, val0, rslt32); return (rslt33); }; -Value *arityImpl_1774(List *closures, Value *arg0) { +Value *arityImpl_1764(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = arityImpl_514((List *)var_31, arg0, (Value *)&_num_2); -Value *rslt1 = protoFnImpl_232((List *)var_31, rslt0, var_1489); +Value *rslt1 = protoFnImpl_232((List *)var_31, rslt0, var_1479); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1776; +arity_2->fn = arityImpl_1766; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_1775 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1775->type = 3; -fn_1775->name = "anon"; -fn_1775->arityCount = 1; -fn_1775->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1775); +Function *fn_1765 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1765->type = 3; +fn_1765->name = "anon"; +fn_1765->arityCount = 1; +fn_1765->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1765); return (rslt4); }; -Value *arityImpl_1770(List *closures) { -Value *rslt1 = arityImpl_1765((List *)var_31, (Value *)&fn_1771); +Value *arityImpl_1760(List *closures) { +Value *rslt1 = arityImpl_1755((List *)var_31, (Value *)&fn_1761); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1774; +arity_2->fn = arityImpl_1764; arity_2->closures = listCons((Value *)rslt1, (List *)arity_2->closures); -Function *fn_1773 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1773->type = 3; -fn_1773->name = "anon"; -fn_1773->arityCount = 1; -fn_1773->arities[0] = arity_2; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1773); +Function *fn_1763 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1763->type = 3; +fn_1763->name = "anon"; +fn_1763->arityCount = 1; +fn_1763->arities[0] = arity_2; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1763); return (rslt3); }; // --------- analyze-proto-fn main body -------------- -Function fn_1769 = {3, "analyze-proto-fn", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1770}}}; +Function fn_1759 = {3, "analyze-proto-fn", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1760}}}; // --------- analyze-proto-impl -------------- -Function fn_1778; +Function fn_1768; // --------- anon -------------- -Function fn_1780; +Function fn_1770; // --------- anon -------------- -Function fn_1782; -Value *arityImpl_1783(List *closures, Value *arg0) { +Function fn_1772; +Value *arityImpl_1773(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -21333,65 +21251,65 @@ Value *rslt4 = protoFnImpl_100((List *)var_31, val0, rslt3); return (rslt4); }; -Value *arityImpl_1781(List *closures, Value *arg0) { +Value *arityImpl_1771(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1770((List *)var_31); -Value *rslt1 = arityImpl_1070((List *)var_31, rslt0); +Value *rslt0 = arityImpl_1760((List *)var_31); +Value *rslt1 = arityImpl_1060((List *)var_31, rslt0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1783; +arity_2->fn = arityImpl_1773; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_1782 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1782->type = 3; -fn_1782->name = "anon"; -fn_1782->arityCount = 1; -fn_1782->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1782); +Function *fn_1772 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1772->type = 3; +fn_1772->name = "anon"; +fn_1772->arityCount = 1; +fn_1772->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1772); return (rslt4); }; -Value *arityImpl_1779(List *closures) { -Value *rslt0 = arityImpl_1765((List *)var_31, (Value *)&fn_655); +Value *arityImpl_1769(List *closures) { +Value *rslt0 = arityImpl_1755((List *)var_31, (Value *)&fn_645); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1781; +arity_1->fn = arityImpl_1771; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_1780 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1780->type = 3; -fn_1780->name = "anon"; -fn_1780->arityCount = 1; -fn_1780->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1780); +Function *fn_1770 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1770->type = 3; +fn_1770->name = "anon"; +fn_1770->arityCount = 1; +fn_1770->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1770); return (rslt2); }; // --------- analyze-proto-impl main body -------------- -Function fn_1778 = {3, "analyze-proto-impl", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1779}}}; +Function fn_1768 = {3, "analyze-proto-impl", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1769}}}; // --------- analyze-extensions -------------- -Function fn_1785; +Function fn_1775; // --------- anon -------------- -Function fn_1787; +Function fn_1777; // --------- anon -------------- -Function fn_1789; +Function fn_1779; // --------- anon -------------- -Function fn_1791; +Function fn_1781; // --------- anon -------------- -Function fn_1793; -Value *arityImpl_1794(List *closures, Value *arg0) { +Function fn_1783; +Value *arityImpl_1784(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -21426,7 +21344,7 @@ Value *rslt6 = protoFnImpl_100((List *)var_31, val0, rslt5); return (rslt6); }; -Value *arityImpl_1792(List *closures, Value *arg0) { +Value *arityImpl_1782(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -21435,24 +21353,24 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_1009((List *)var_31, (Value *)&_kw_15, val0); +Value *rslt1 = arityImpl_999((List *)var_31, (Value *)&_kw_13, val0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1794; +arity_2->fn = arityImpl_1784; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_1793 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1793->type = 3; -fn_1793->name = "anon"; -fn_1793->arityCount = 1; -fn_1793->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1793); +Function *fn_1783 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1783->type = 3; +fn_1783->name = "anon"; +fn_1783->arityCount = 1; +fn_1783->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1783); return (rslt4); }; -Value *arityImpl_1790(List *closures, Value *arg0) { +Value *arityImpl_1780(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -21461,25 +21379,25 @@ Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1779((List *)var_31); -Value *rslt1 = arityImpl_1070((List *)var_31, rslt0); +Value *rslt0 = arityImpl_1769((List *)var_31); +Value *rslt1 = arityImpl_1060((List *)var_31, rslt0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1792; +arity_2->fn = arityImpl_1782; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); -Function *fn_1791 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1791->type = 3; -fn_1791->name = "anon"; -fn_1791->arityCount = 1; -fn_1791->arities[0] = arity_2; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1791); +Function *fn_1781 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1781->type = 3; +fn_1781->name = "anon"; +fn_1781->arityCount = 1; +fn_1781->arities[0] = arity_2; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1781); return (rslt5); }; -Value *arityImpl_1788(List *closures, Value *arg0) { +Value *arityImpl_1778(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -21488,53 +21406,53 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_1009((List *)var_31, (Value *)&_kw_15, val0); +Value *rslt1 = arityImpl_999((List *)var_31, (Value *)&_kw_13, val0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1790; +arity_2->fn = arityImpl_1780; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_1789 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1789->type = 3; -fn_1789->name = "anon"; -fn_1789->arityCount = 1; -fn_1789->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1789); +Function *fn_1779 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1779->type = 3; +fn_1779->name = "anon"; +fn_1779->arityCount = 1; +fn_1779->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1779); return (rslt4); }; -Value *arityImpl_1786(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_15, var_31); +Value *arityImpl_1776(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_13, var_31); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1788; +arity_1->fn = arityImpl_1778; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); -Function *fn_1787 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1787->type = 3; -fn_1787->name = "anon"; -fn_1787->arityCount = 1; -fn_1787->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1787); +Function *fn_1777 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1777->type = 3; +fn_1777->name = "anon"; +fn_1777->arityCount = 1; +fn_1777->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1777); return (rslt2); }; // --------- analyze-extensions main body -------------- -Function fn_1785 = {3, "analyze-extensions", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1786}}}; +Function fn_1775 = {3, "analyze-extensions", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1776}}}; SymKey _sym_16 = {7, -1, "extend-type"}; -SymKey _kw_40 = {5, -1, ":no-type"}; +SymKey _kw_38 = {5, -1, ":no-type"}; // --------- analyze-extend-type -------------- -Function fn_1796; +Function fn_1786; // --------- anon -------------- -Function fn_1798; -Value *arityImpl_1799(List *closures, Value *arg0) { +Function fn_1788; +Value *arityImpl_1789(List *closures, Value *arg0) { Value *cond0; Value *rslt3 = protoFnImpl_209((List *)var_31, arg0); Value *rslt4 = arityImpl_274((List *)var_31, rslt3); @@ -21559,14 +21477,14 @@ return (cond0); // --------- anon main body -------------- -Function fn_1798 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1799}}}; +Function fn_1788 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1789}}}; // --------- anon -------------- -Function fn_1800; +Function fn_1790; // --------- anon -------------- -Function fn_1802; -Value *arityImpl_1803(List *closures, Value *arg0) { +Function fn_1792; +Value *arityImpl_1793(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -21575,12 +21493,12 @@ Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt2 = arityImpl_524((List *)var_31, val1, (Value *)&_num_1, (Value *)&_kw_40); +Value *rslt2 = arityImpl_524((List *)var_31, val1, (Value *)&_num_1, (Value *)&_kw_38); Value *rslt6; -if((var_1505)->type != 3) { -rslt6 = protoFnImpl_7(empty_list, var_1505, rslt2, arg0); +if((var_1495)->type != 3) { +rslt6 = protoFnImpl_7(empty_list, var_1495, rslt2, arg0); } else { -FnArity *arity3 = findFnArity(var_1505, 2); +FnArity *arity3 = findFnArity(var_1495, 2); if(arity3 != (FnArity *)0 && !arity3->variadic) { FnType2 *fn5 = (FnType2 *)arity3->fn; rslt6 = fn5(arity3->closures, rslt2, arg0); @@ -21595,15 +21513,15 @@ varArgs4 = (List *)listCons(arg0, varArgs4); varArgs4 = (List *)listCons(rslt2, varArgs4); rslt6 = fn5(arity3->closures, (Value *)varArgs4); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1505)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1495)->name); abort(); } } Value *rslt10; -if((var_936)->type != 3) { -rslt10 = protoFnImpl_5(empty_list, var_936, rslt6); +if((var_926)->type != 3) { +rslt10 = protoFnImpl_5(empty_list, var_926, rslt6); } else { -FnArity *arity7 = findFnArity(var_936, 1); +FnArity *arity7 = findFnArity(var_926, 1); if(arity7 != (FnArity *)0 && !arity7->variadic) { FnType1 *fn9 = (FnType1 *)arity7->fn; rslt10 = fn9(arity7->closures, rslt6); @@ -21617,7 +21535,7 @@ varArgs8->tail = (List *)0; varArgs8 = (List *)listCons(rslt6, varArgs8); rslt10 = fn9(arity7->closures, (Value *)varArgs8); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -21625,58 +21543,58 @@ Value *rslt11 = protoFnImpl_100((List *)var_31, val0, rslt10); return (rslt11); }; -Value *arityImpl_1801(List *closures, Value *arg0) { +Value *arityImpl_1791(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = arityImpl_514((List *)var_31, arg0, (Value *)&_num_2); -Value *rslt1 = arityImpl_1786((List *)var_31, rslt0); +Value *rslt1 = arityImpl_1776((List *)var_31, rslt0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1803; +arity_2->fn = arityImpl_1793; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_1802 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1802->type = 3; -fn_1802->name = "anon"; -fn_1802->arityCount = 1; -fn_1802->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1802); +Function *fn_1792 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1792->type = 3; +fn_1792->name = "anon"; +fn_1792->arityCount = 1; +fn_1792->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1792); return (rslt4); }; -Value *arityImpl_1797(List *closures) { -Value *rslt1 = arityImpl_1485((List *)var_31, (Value *)&fn_1798); +Value *arityImpl_1787(List *closures) { +Value *rslt1 = arityImpl_1475((List *)var_31, (Value *)&fn_1788); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1801; +arity_2->fn = arityImpl_1791; arity_2->closures = listCons((Value *)rslt1, (List *)arity_2->closures); -Function *fn_1800 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1800->type = 3; -fn_1800->name = "anon"; -fn_1800->arityCount = 1; -fn_1800->arities[0] = arity_2; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1800); +Function *fn_1790 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1790->type = 3; +fn_1790->name = "anon"; +fn_1790->arityCount = 1; +fn_1790->arities[0] = arity_2; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1790); return (rslt3); }; // --------- analyze-extend-type main body -------------- -Function fn_1796 = {3, "analyze-extend-type", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1797}}}; +Function fn_1786 = {3, "analyze-extend-type", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1787}}}; SymKey _sym_17 = {7, -1, "reify"}; -SymKey _kw_41 = {5, -1, ":not-reify"}; +SymKey _kw_39 = {5, -1, ":not-reify"}; // --------- analyze-reify -------------- -Function fn_1805; +Function fn_1795; // --------- anon -------------- -Function fn_1807; -Value *arityImpl_1808(List *closures, Value *arg0) { +Function fn_1797; +Value *arityImpl_1798(List *closures, Value *arg0) { Value *cond0; Value *rslt3 = protoFnImpl_209((List *)var_31, arg0); Value *rslt4 = arityImpl_274((List *)var_31, rslt3); @@ -21684,7 +21602,7 @@ Value *rslt4 = arityImpl_274((List *)var_31, rslt3); if (isTrue(rslt4)) { cond0 = var_20; } else { -Value *rslt1 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_8, (Value *)&_kw_41); +Value *rslt1 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_8, (Value *)&_kw_39); Value *rslt2 = arityImpl_283((List *)var_31, (Value *)&_sym_17, rslt1); cond0 = rslt2; } @@ -21693,23 +21611,23 @@ return (cond0); // --------- anon main body -------------- -Function fn_1807 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1808}}}; +Function fn_1797 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1798}}}; // --------- anon -------------- -Function fn_1809; +Function fn_1799; // --------- anon -------------- -Function fn_1811; -Value *arityImpl_1812(List *closures, Value *arg0) { +Function fn_1801; +Value *arityImpl_1802(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt4; -if((var_1506)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, var_1506, arg0); +if((var_1496)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, var_1496, arg0); } else { -FnArity *arity1 = findFnArity(var_1506, 1); +FnArity *arity1 = findFnArity(var_1496, 1); if(arity1 != (FnArity *)0 && !arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; rslt4 = fn3(arity1->closures, arg0); @@ -21723,15 +21641,15 @@ varArgs2->tail = (List *)0; varArgs2 = (List *)listCons(arg0, varArgs2); rslt4 = fn3(arity1->closures, (Value *)varArgs2); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1506)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1496)->name); abort(); } } Value *rslt8; -if((var_936)->type != 3) { -rslt8 = protoFnImpl_5(empty_list, var_936, rslt4); +if((var_926)->type != 3) { +rslt8 = protoFnImpl_5(empty_list, var_926, rslt4); } else { -FnArity *arity5 = findFnArity(var_936, 1); +FnArity *arity5 = findFnArity(var_926, 1); if(arity5 != (FnArity *)0 && !arity5->variadic) { FnType1 *fn7 = (FnType1 *)arity5->fn; rslt8 = fn7(arity5->closures, rslt4); @@ -21745,7 +21663,7 @@ varArgs6->tail = (List *)0; varArgs6 = (List *)listCons(rslt4, varArgs6); rslt8 = fn7(arity5->closures, (Value *)varArgs6); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -21753,57 +21671,57 @@ Value *rslt9 = protoFnImpl_100((List *)var_31, val0, rslt8); return (rslt9); }; -Value *arityImpl_1810(List *closures, Value *arg0) { +Value *arityImpl_1800(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = protoFnImpl_224((List *)var_31, arg0); -Value *rslt1 = arityImpl_1786((List *)var_31, rslt0); +Value *rslt1 = arityImpl_1776((List *)var_31, rslt0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1812; +arity_2->fn = arityImpl_1802; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_1811 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1811->type = 3; -fn_1811->name = "anon"; -fn_1811->arityCount = 1; -fn_1811->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1811); +Function *fn_1801 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1801->type = 3; +fn_1801->name = "anon"; +fn_1801->arityCount = 1; +fn_1801->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1801); return (rslt4); }; -Value *arityImpl_1806(List *closures) { -Value *rslt1 = arityImpl_1485((List *)var_31, (Value *)&fn_1807); +Value *arityImpl_1796(List *closures) { +Value *rslt1 = arityImpl_1475((List *)var_31, (Value *)&fn_1797); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1810; +arity_2->fn = arityImpl_1800; arity_2->closures = listCons((Value *)rslt1, (List *)arity_2->closures); -Function *fn_1809 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1809->type = 3; -fn_1809->name = "anon"; -fn_1809->arityCount = 1; -fn_1809->arities[0] = arity_2; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1809); +Function *fn_1799 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1799->type = 3; +fn_1799->name = "anon"; +fn_1799->arityCount = 1; +fn_1799->arities[0] = arity_2; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1799); return (rslt3); }; // --------- analyze-reify main body -------------- -Function fn_1805 = {3, "analyze-reify", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1806}}}; +Function fn_1795 = {3, "analyze-reify", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1796}}}; SymKey _sym_18 = {7, -1, "defprotocol"}; -SymKey _kw_42 = {5, -1, ":no-name"}; +SymKey _kw_40 = {5, -1, ":no-name"}; // --------- analyze-protocol -------------- -Function fn_1814; +Function fn_1804; // --------- anon -------------- -Function fn_1816; -Value *arityImpl_1817(List *closures, Value *arg0) { +Function fn_1806; +Value *arityImpl_1807(List *closures, Value *arg0) { Value *cond0; Value *rslt3 = protoFnImpl_209((List *)var_31, arg0); Value *rslt4 = arityImpl_274((List *)var_31, rslt3); @@ -21828,14 +21746,14 @@ return (cond0); // --------- anon main body -------------- -Function fn_1816 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1817}}}; +Function fn_1806 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1807}}}; // --------- anon -------------- -Function fn_1818; +Function fn_1808; // --------- anon -------------- -Function fn_1820; -Value *arityImpl_1821(List *closures, Value *arg0) { +Function fn_1810; +Value *arityImpl_1811(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -21844,7 +21762,7 @@ Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt2 = arityImpl_524((List *)var_31, val1, (Value *)&_num_1, (Value *)&_kw_42); +Value *rslt2 = arityImpl_524((List *)var_31, val1, (Value *)&_num_1, (Value *)&_kw_40); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; varArgs3->len = 0; @@ -21855,10 +21773,10 @@ varArgs3 = (List *)listCons((Value *)(Value *)&fn_249, varArgs3); varArgs3 = (List *)listCons((Value *)(Value *)&fn_625, varArgs3); Value *rslt4 = arityImpl_113((List *)var_31, (Value *)varArgs3); Value *rslt8; -if((var_1508)->type != 3) { -rslt8 = protoFnImpl_7(empty_list, var_1508, rslt2, rslt4); +if((var_1498)->type != 3) { +rslt8 = protoFnImpl_7(empty_list, var_1498, rslt2, rslt4); } else { -FnArity *arity5 = findFnArity(var_1508, 2); +FnArity *arity5 = findFnArity(var_1498, 2); if(arity5 != (FnArity *)0 && !arity5->variadic) { FnType2 *fn7 = (FnType2 *)arity5->fn; rslt8 = fn7(arity5->closures, rslt2, rslt4); @@ -21873,15 +21791,15 @@ varArgs6 = (List *)listCons(rslt4, varArgs6); varArgs6 = (List *)listCons(rslt2, varArgs6); rslt8 = fn7(arity5->closures, (Value *)varArgs6); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1508)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1498)->name); abort(); } } Value *rslt12; -if((var_936)->type != 3) { -rslt12 = protoFnImpl_5(empty_list, var_936, rslt8); +if((var_926)->type != 3) { +rslt12 = protoFnImpl_5(empty_list, var_926, rslt8); } else { -FnArity *arity9 = findFnArity(var_936, 1); +FnArity *arity9 = findFnArity(var_926, 1); if(arity9 != (FnArity *)0 && !arity9->variadic) { FnType1 *fn11 = (FnType1 *)arity9->fn; rslt12 = fn11(arity9->closures, rslt8); @@ -21895,7 +21813,7 @@ varArgs10->tail = (List *)0; varArgs10 = (List *)listCons(rslt8, varArgs10); rslt12 = fn11(arity9->closures, (Value *)varArgs10); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -21903,57 +21821,57 @@ Value *rslt13 = protoFnImpl_100((List *)var_31, val0, rslt12); return (rslt13); }; -Value *arityImpl_1819(List *closures, Value *arg0) { +Value *arityImpl_1809(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = arityImpl_514((List *)var_31, arg0, (Value *)&_num_2); -Value *rslt1 = protoFnImpl_232((List *)var_31, rslt0, (Value *)&fn_1696); +Value *rslt1 = protoFnImpl_232((List *)var_31, rslt0, (Value *)&fn_1686); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1821; +arity_2->fn = arityImpl_1811; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_1820 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1820->type = 3; -fn_1820->name = "anon"; -fn_1820->arityCount = 1; -fn_1820->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1820); +Function *fn_1810 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1810->type = 3; +fn_1810->name = "anon"; +fn_1810->arityCount = 1; +fn_1810->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1810); return (rslt4); }; -Value *arityImpl_1815(List *closures) { -Value *rslt1 = arityImpl_1485((List *)var_31, (Value *)&fn_1816); +Value *arityImpl_1805(List *closures) { +Value *rslt1 = arityImpl_1475((List *)var_31, (Value *)&fn_1806); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1819; +arity_2->fn = arityImpl_1809; arity_2->closures = listCons((Value *)rslt1, (List *)arity_2->closures); -Function *fn_1818 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1818->type = 3; -fn_1818->name = "anon"; -fn_1818->arityCount = 1; -fn_1818->arities[0] = arity_2; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1818); +Function *fn_1808 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1808->type = 3; +fn_1808->name = "anon"; +fn_1808->arityCount = 1; +fn_1808->arities[0] = arity_2; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1808); return (rslt3); }; // --------- analyze-protocol main body -------------- -Function fn_1814 = {3, "analyze-protocol", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1815}}}; +Function fn_1804 = {3, "analyze-protocol", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1805}}}; SymKey _sym_19 = {7, -1, "deftype"}; // --------- analyze-deftype -------------- -Function fn_1823; +Function fn_1813; // --------- anon -------------- -Function fn_1825; -Value *arityImpl_1826(List *closures, Value *arg0) { +Function fn_1815; +Value *arityImpl_1816(List *closures, Value *arg0) { Value *cond0; Value *rslt3 = protoFnImpl_209((List *)var_31, arg0); Value *rslt4 = arityImpl_274((List *)var_31, rslt3); @@ -21977,11 +21895,11 @@ return (cond0); // --------- anon main body -------------- -Function fn_1825 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1826}}}; +Function fn_1815 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1816}}}; // --------- anon -------------- -Function fn_1827; -Value *arityImpl_1828(List *closures, Value *arg0) { +Function fn_1817; +Value *arityImpl_1818(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -21990,10 +21908,10 @@ Value *rslt1 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_1); Value *rslt2 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_2); Value *rslt3 = arityImpl_514((List *)var_31, arg0, (Value *)&_num_3); Value *rslt7; -if((var_1507)->type != 3) { -rslt7 = protoFnImpl_9(empty_list, var_1507, rslt1, rslt2, rslt3); +if((var_1497)->type != 3) { +rslt7 = protoFnImpl_9(empty_list, var_1497, rslt1, rslt2, rslt3); } else { -FnArity *arity4 = findFnArity(var_1507, 3); +FnArity *arity4 = findFnArity(var_1497, 3); if(arity4 != (FnArity *)0 && !arity4->variadic) { FnType3 *fn6 = (FnType3 *)arity4->fn; rslt7 = fn6(arity4->closures, rslt1, rslt2, rslt3); @@ -22009,15 +21927,15 @@ varArgs5 = (List *)listCons(rslt2, varArgs5); varArgs5 = (List *)listCons(rslt1, varArgs5); rslt7 = fn6(arity4->closures, (Value *)varArgs5); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1507)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1497)->name); abort(); } } Value *rslt11; -if((var_936)->type != 3) { -rslt11 = protoFnImpl_5(empty_list, var_936, rslt7); +if((var_926)->type != 3) { +rslt11 = protoFnImpl_5(empty_list, var_926, rslt7); } else { -FnArity *arity8 = findFnArity(var_936, 1); +FnArity *arity8 = findFnArity(var_926, 1); if(arity8 != (FnArity *)0 && !arity8->variadic) { FnType1 *fn10 = (FnType1 *)arity8->fn; rslt11 = fn10(arity8->closures, rslt7); @@ -22031,7 +21949,7 @@ varArgs9->tail = (List *)0; varArgs9 = (List *)listCons(rslt7, varArgs9); rslt11 = fn10(arity8->closures, (Value *)varArgs9); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -22039,33 +21957,33 @@ Value *rslt12 = protoFnImpl_100((List *)var_31, val0, rslt11); return (rslt12); }; -Value *arityImpl_1824(List *closures) { -Value *rslt1 = arityImpl_1485((List *)var_31, (Value *)&fn_1825); +Value *arityImpl_1814(List *closures) { +Value *rslt1 = arityImpl_1475((List *)var_31, (Value *)&fn_1815); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1828; +arity_2->fn = arityImpl_1818; arity_2->closures = listCons((Value *)rslt1, (List *)arity_2->closures); -Function *fn_1827 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1827->type = 3; -fn_1827->name = "anon"; -fn_1827->arityCount = 1; -fn_1827->arities[0] = arity_2; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1827); +Function *fn_1817 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1817->type = 3; +fn_1817->name = "anon"; +fn_1817->arityCount = 1; +fn_1817->arities[0] = arity_2; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1817); return (rslt3); }; // --------- analyze-deftype main body -------------- -Function fn_1823 = {3, "analyze-deftype", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1824}}}; +Function fn_1813 = {3, "analyze-deftype", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1814}}}; // --------- analyze-main -------------- -Function fn_1830; +Function fn_1820; // --------- anon -------------- -Function fn_1832; -Value *arityImpl_1833(List *closures, Value *arg0) { +Function fn_1822; +Value *arityImpl_1823(List *closures, Value *arg0) { Value *cond0; Value *rslt3 = protoFnImpl_209((List *)var_31, arg0); Value *rslt4 = arityImpl_274((List *)var_31, rslt3); @@ -22090,14 +22008,14 @@ return (cond0); // --------- anon main body -------------- -Function fn_1832 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1833}}}; +Function fn_1822 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1823}}}; // --------- anon -------------- -Function fn_1834; +Function fn_1824; // --------- anon -------------- -Function fn_1836; -Value *arityImpl_1837(List *closures, Value *arg0) { +Function fn_1826; +Value *arityImpl_1827(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -22108,10 +22026,10 @@ closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt2 = arityImpl_524((List *)var_31, val1, (Value *)&_num_1, var_31); Value *rslt6; -if((var_824)->type != 3) { -rslt6 = protoFnImpl_5(empty_list, var_824, (Value *)&fn_118); +if((var_814)->type != 3) { +rslt6 = protoFnImpl_5(empty_list, var_814, (Value *)&fn_118); } else { -FnArity *arity3 = findFnArity(var_824, 1); +FnArity *arity3 = findFnArity(var_814, 1); if(arity3 != (FnArity *)0 && !arity3->variadic) { FnType1 *fn5 = (FnType1 *)arity3->fn; rslt6 = fn5(arity3->closures, (Value *)&fn_118); @@ -22125,16 +22043,16 @@ varArgs4->tail = (List *)0; varArgs4 = (List *)listCons((Value *)&fn_118, varArgs4); rslt6 = fn5(arity3->closures, (Value *)varArgs4); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_824)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_814)->name); abort(); } } Value *rslt7 = protoFnImpl_110((List *)var_31, rslt6, arg0); Value *rslt11; -if((var_1497)->type != 3) { -rslt11 = protoFnImpl_7(empty_list, var_1497, rslt2, rslt7); +if((var_1487)->type != 3) { +rslt11 = protoFnImpl_7(empty_list, var_1487, rslt2, rslt7); } else { -FnArity *arity8 = findFnArity(var_1497, 2); +FnArity *arity8 = findFnArity(var_1487, 2); if(arity8 != (FnArity *)0 && !arity8->variadic) { FnType2 *fn10 = (FnType2 *)arity8->fn; rslt11 = fn10(arity8->closures, rslt2, rslt7); @@ -22149,15 +22067,15 @@ varArgs9 = (List *)listCons(rslt7, varArgs9); varArgs9 = (List *)listCons(rslt2, varArgs9); rslt11 = fn10(arity8->closures, (Value *)varArgs9); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1497)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1487)->name); abort(); } } Value *rslt15; -if((var_936)->type != 3) { -rslt15 = protoFnImpl_5(empty_list, var_936, rslt11); +if((var_926)->type != 3) { +rslt15 = protoFnImpl_5(empty_list, var_926, rslt11); } else { -FnArity *arity12 = findFnArity(var_936, 1); +FnArity *arity12 = findFnArity(var_926, 1); if(arity12 != (FnArity *)0 && !arity12->variadic) { FnType1 *fn14 = (FnType1 *)arity12->fn; rslt15 = fn14(arity12->closures, rslt11); @@ -22171,7 +22089,7 @@ varArgs13->tail = (List *)0; varArgs13 = (List *)listCons(rslt11, varArgs13); rslt15 = fn14(arity12->closures, (Value *)varArgs13); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_936)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_926)->name); abort(); } } @@ -22179,95 +22097,95 @@ Value *rslt16 = protoFnImpl_100((List *)var_31, val0, rslt15); return (rslt16); }; -Value *arityImpl_1835(List *closures, Value *arg0) { +Value *arityImpl_1825(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = arityImpl_514((List *)var_31, arg0, (Value *)&_num_2); -Value *rslt1 = protoFnImpl_232((List *)var_31, rslt0, var_1489); +Value *rslt1 = protoFnImpl_232((List *)var_31, rslt0, var_1479); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1837; +arity_2->fn = arityImpl_1827; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_1836 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1836->type = 3; -fn_1836->name = "anon"; -fn_1836->arityCount = 1; -fn_1836->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1836); +Function *fn_1826 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1826->type = 3; +fn_1826->name = "anon"; +fn_1826->arityCount = 1; +fn_1826->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1826); return (rslt4); }; -Value *arityImpl_1831(List *closures) { -Value *rslt1 = arityImpl_1485((List *)var_31, (Value *)&fn_1832); +Value *arityImpl_1821(List *closures) { +Value *rslt1 = arityImpl_1475((List *)var_31, (Value *)&fn_1822); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1835; +arity_2->fn = arityImpl_1825; arity_2->closures = listCons((Value *)rslt1, (List *)arity_2->closures); -Function *fn_1834 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1834->type = 3; -fn_1834->name = "anon"; -fn_1834->arityCount = 1; -fn_1834->arities[0] = arity_2; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1834); +Function *fn_1824 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1824->type = 3; +fn_1824->name = "anon"; +fn_1824->arityCount = 1; +fn_1824->arities[0] = arity_2; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1824); return (rslt3); }; // --------- analyze-main main body -------------- -Function fn_1830 = {3, "analyze-main", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1831}}}; +Function fn_1820 = {3, "analyze-main", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1821}}}; struct {int64_t type; int64_t len; - char buffer[18];} _str_77 = {1,17,"could not analyze"}; -SymKey _kw_43 = {5, -1, ":expr-nil"}; + char buffer[18];} _str_76 = {1,17,"could not analyze"}; +SymKey _kw_41 = {5, -1, ":expr-nil"}; // --------- expr-to-ast -------------- -Function fn_1839; +Function fn_1829; // --------- anon -------------- -Function fn_1841; -Value *arityImpl_1842(List *closures, Value *arg0) { +Function fn_1831; +Value *arityImpl_1832(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_str_77, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_76, varArgs0); Value *rslt1 = arityImpl_163((List *)var_31, (Value *)varArgs0); return (var_31); }; // --------- anon main body -------------- -Function fn_1841 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1842}}}; -Value *arityImpl_1840(List *closures) { -Value *rslt0 = arityImpl_1519((List *)var_31); -Value *rslt1 = arityImpl_1550((List *)var_31); -Value *rslt2 = arityImpl_1588((List *)var_31); -Value *rslt3 = arityImpl_1621((List *)var_31); -Value *rslt4 = arityImpl_1688((List *)var_31); -Value *rslt5 = arityImpl_1824((List *)var_31); -Value *rslt6 = arityImpl_1815((List *)var_31); -Value *rslt7 = arityImpl_1831((List *)var_31); -Value *rslt8 = arityImpl_1740((List *)var_31); -Value *rslt9 = arityImpl_1751((List *)var_31); -Value *rslt10 = arityImpl_1797((List *)var_31); -Value *rslt11 = arityImpl_1806((List *)var_31); -Value *rslt12 = arityImpl_1512((List *)var_31); -Value *rslt13 = arityImpl_1677((List *)var_31); -Value *rslt14 = arityImpl_1666((List *)var_31); -Value *rslt15 = arityImpl_1650((List *)var_31); -Value *rslt16 = arityImpl_1731((List *)var_31); -Value *rslt17 = arityImpl_1628((List *)var_31); -Value *rslt18 = arityImpl_1004((List *)var_31, (Value *)&_kw_15, (Value *)&_kw_43); -Value *rslt20 = protoFnImpl_78((List *)var_31, rslt18, (Value *)&fn_1841); +Function fn_1831 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1832}}}; +Value *arityImpl_1830(List *closures) { +Value *rslt0 = arityImpl_1509((List *)var_31); +Value *rslt1 = arityImpl_1540((List *)var_31); +Value *rslt2 = arityImpl_1578((List *)var_31); +Value *rslt3 = arityImpl_1611((List *)var_31); +Value *rslt4 = arityImpl_1678((List *)var_31); +Value *rslt5 = arityImpl_1814((List *)var_31); +Value *rslt6 = arityImpl_1805((List *)var_31); +Value *rslt7 = arityImpl_1821((List *)var_31); +Value *rslt8 = arityImpl_1730((List *)var_31); +Value *rslt9 = arityImpl_1741((List *)var_31); +Value *rslt10 = arityImpl_1787((List *)var_31); +Value *rslt11 = arityImpl_1796((List *)var_31); +Value *rslt12 = arityImpl_1502((List *)var_31); +Value *rslt13 = arityImpl_1667((List *)var_31); +Value *rslt14 = arityImpl_1656((List *)var_31); +Value *rslt15 = arityImpl_1640((List *)var_31); +Value *rslt16 = arityImpl_1721((List *)var_31); +Value *rslt17 = arityImpl_1618((List *)var_31); +Value *rslt18 = arityImpl_994((List *)var_31, (Value *)&_kw_13, (Value *)&_kw_41); +Value *rslt20 = protoFnImpl_78((List *)var_31, rslt18, (Value *)&fn_1831); List *varArgs21 = (List *)GC_malloc(sizeof(List)); varArgs21->type = ListType; varArgs21->len = 0; @@ -22298,23 +22216,23 @@ return (rslt22); // --------- expr-to-ast main body -------------- -Function fn_1839 = {3, "expr-to-ast", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1840}}}; +Function fn_1829 = {3, "expr-to-ast", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1830}}}; // --------- analyze-expr -------------- -Function fn_1844; +Function fn_1834; // --------- anon -------------- -Function fn_1846; +Function fn_1836; // --------- anon -------------- -Function fn_1848; +Function fn_1838; // --------- anon -------------- -Function fn_1850; +Function fn_1840; // --------- anon -------------- -Function fn_1852; -Value *arityImpl_1853(List *closures, Value *arg0) { +Function fn_1842; +Value *arityImpl_1843(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -22327,7 +22245,7 @@ Value *rslt2 = protoFnImpl_100((List *)var_31, val0, val1); return (rslt2); }; -Value *arityImpl_1851(List *closures, Value *arg0) { +Value *arityImpl_1841(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -22336,24 +22254,24 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_1482((List *)var_31, val0); +Value *rslt1 = arityImpl_1472((List *)var_31, val0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1853; +arity_2->fn = arityImpl_1843; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_1852 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1852->type = 3; -fn_1852->name = "anon"; -fn_1852->arityCount = 1; -fn_1852->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1852); +Function *fn_1842 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1842->type = 3; +fn_1842->name = "anon"; +fn_1842->arityCount = 1; +fn_1842->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1842); return (rslt4); }; -Value *arityImpl_1849(List *closures, Value *arg0) { +Value *arityImpl_1839(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -22362,24 +22280,24 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1840((List *)var_31); +Value *rslt0 = arityImpl_1830((List *)var_31); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1851; +arity_1->fn = arityImpl_1841; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_1850 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1850->type = 3; -fn_1850->name = "anon"; -fn_1850->arityCount = 1; -fn_1850->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1850); +Function *fn_1840 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1840->type = 3; +fn_1840->name = "anon"; +fn_1840->arityCount = 1; +fn_1840->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1840); return (rslt4); }; -Value *arityImpl_1847(List *closures, Value *arg0) { +Value *arityImpl_1837(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -22388,45 +22306,45 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_1482((List *)var_31, val0); +Value *rslt1 = arityImpl_1472((List *)var_31, val0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1849; +arity_2->fn = arityImpl_1839; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_1848 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1848->type = 3; -fn_1848->name = "anon"; -fn_1848->arityCount = 1; -fn_1848->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1848); +Function *fn_1838 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1838->type = 3; +fn_1838->name = "anon"; +fn_1838->arityCount = 1; +fn_1838->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1838); return (rslt4); }; -Value *arityImpl_1845(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_15, (Value *)&_kw_37); +Value *arityImpl_1835(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_13, (Value *)&_kw_35); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1847; +arity_1->fn = arityImpl_1837; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); -Function *fn_1846 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1846->type = 3; -fn_1846->name = "anon"; -fn_1846->arityCount = 1; -fn_1846->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1846); +Function *fn_1836 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1836->type = 3; +fn_1836->name = "anon"; +fn_1836->arityCount = 1; +fn_1836->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1836); return (rslt2); }; // --------- analyze-expr main body -------------- -Function fn_1844 = {3, "analyze-expr", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1845}}}; -Value *var_1489 = (Value *)&fn_1844; +Function fn_1834 = {3, "analyze-expr", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1835}}}; +Value *var_1479 = (Value *)&fn_1834; SymKey _sym_20 = {7, -1, "String"}; SymKey _sym_21 = {7, -1, "Number"}; SymKey _sym_22 = {7, -1, "Function"}; @@ -22436,8 +22354,8 @@ SymKey _sym_25 = {7, -1, "SubStr"}; SymKey _sym_26 = {7, -1, "Symbol"}; // --------- types -------------- -Function fn_1854; -Value *arityImpl_1855(List *closures) { +Function fn_1844; +Value *arityImpl_1845(List *closures) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; @@ -22463,90 +22381,90 @@ return (rslt1); // --------- types main body -------------- -Function fn_1854 = {3, "types", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1855}}}; +Function fn_1844 = {3, "types", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1845}}}; struct {int64_t type; int64_t len; - char buffer[5];} _str_78 = {1,4,"void"}; + char buffer[5];} _str_77 = {1,4,"void"}; struct {int64_t type; int64_t len; - char buffer[5];} _str_79 = {1,4,"char"}; + char buffer[5];} _str_78 = {1,4,"char"}; struct {int64_t type; int64_t len; - char buffer[7];} _str_80 = {1,6,"char *"}; + char buffer[7];} _str_79 = {1,6,"char *"}; struct {int64_t type; int64_t len; - char buffer[4];} _str_81 = {1,3,"int"}; + char buffer[4];} _str_80 = {1,3,"int"}; struct {int64_t type; int64_t len; - char buffer[8];} _str_82 = {1,7,"int64_t"}; + char buffer[8];} _str_81 = {1,7,"int64_t"}; struct {int64_t type; int64_t len; - char buffer[40];} _str_83 = {1,39,"typedef struct {int64_t type;} Value;\n"}; + char buffer[40];} _str_82 = {1,39,"typedef struct {int64_t type;} Value;\n"}; struct {int64_t type; int64_t len; - char buffer[8];} _str_84 = {1,7,"Value *"}; + char buffer[8];} _str_83 = {1,7,"Value *"}; struct {int64_t type; int64_t len; - char buffer[71];} _str_85 = {1,70,"typedef struct {int64_t type; int32_t refs; int64_t numVal;} Number;\n"}; + char buffer[71];} _str_84 = {1,70,"typedef struct {int64_t type; int32_t refs; int64_t numVal;} Number;\n"}; struct {int64_t type; int64_t len; - char buffer[9];} _str_86 = {1,8,"Number *"}; + char buffer[9];} _str_85 = {1,8,"Number *"}; struct {int64_t type; int64_t len; - char buffer[67];} _str_87 = {1,66,"typedef struct {int64_t type; int32_t refs; char *name;} SymKey;\n"}; + char buffer[67];} _str_86 = {1,66,"typedef struct {int64_t type; int32_t refs; char *name;} SymKey;\n"}; struct {int64_t type; int64_t len; - char buffer[70];} _str_88 = {1,69,"typedef struct {int64_t type; int64_t len; char buffer[0];} String;\n"}; + char buffer[70];} _str_87 = {1,69,"typedef struct {int64_t type; int64_t len; char buffer[0];} String;\n"}; struct {int64_t type; int64_t len; - char buffer[9];} _str_89 = {1,8,"String *"}; + char buffer[9];} _str_88 = {1,8,"String *"}; struct {int64_t type; int64_t len; - char buffer[86];} _str_90 = {1,85,"typedef struct {int64_t type; int64_t len; Value *source; char *buffer;} SubString;\n"}; + char buffer[86];} _str_89 = {1,85,"typedef struct {int64_t type; int64_t len; Value *source; char *buffer;} SubString;\n"}; struct {int64_t type; int64_t len; - char buffer[12];} _str_91 = {1,11,"SubString *"}; + char buffer[12];} _str_90 = {1,11,"SubString *"}; struct {int64_t type; int64_t len; - char buffer[89];} _str_92 = {1,88,"typedef struct List {int64_t type; int64_t len; Value* head; struct List *tail;} List;\n"}; + char buffer[89];} _str_91 = {1,88,"typedef struct List {int64_t type; int64_t len; Value* head; struct List *tail;} List;\n"}; struct {int64_t type; int64_t len; - char buffer[7];} _str_93 = {1,6,"List *"}; + char buffer[7];} _str_92 = {1,6,"List *"}; struct {int64_t type; int64_t len; - char buffer[79];} _str_94 = {1,78,"typedef struct {int count; List *closures; int variadic; void *fn;} FnArity;\n"}; + char buffer[79];} _str_93 = {1,78,"typedef struct {int count; List *closures; int variadic; void *fn;} FnArity;\n"}; struct {int64_t type; int64_t len; - char buffer[10];} _str_95 = {1,9,"FnArity *"}; + char buffer[10];} _str_94 = {1,9,"FnArity *"}; struct {int64_t type; int64_t len; - char buffer[95];} _str_96 = {1,94,"typedef struct {int64_t type; char *name; int64_t arityCount; FnArity *arities[];} Function;\n"}; + char buffer[95];} _str_95 = {1,94,"typedef struct {int64_t type; char *name; int64_t arityCount; FnArity *arities[];} Function;\n"}; struct {int64_t type; int64_t len; - char buffer[59];} _str_97 = {1,58,"typedef struct {int64_t type; Value *implFn;} ProtoImpl;\n"}; + char buffer[59];} _str_96 = {1,58,"typedef struct {int64_t type; Value *implFn;} ProtoImpl;\n"}; struct {int64_t type; int64_t len; - char buffer[89];} _str_98 = {1,88,"typedef struct {int64_t implCount; Value *defaultImpl; ProtoImpl impls[];} ProtoImpls;\n"}; + char buffer[89];} _str_97 = {1,88,"typedef struct {int64_t implCount; Value *defaultImpl; ProtoImpl impls[];} ProtoImpls;\n"}; struct {int64_t type; int64_t len; - char buffer[76];} _str_99 = {1,75,"typedef struct {int64_t type; int implCount; Value* impls[];} ReifiedVal;\n"}; + char buffer[76];} _str_98 = {1,75,"typedef struct {int64_t type; int implCount; Value* impls[];} ReifiedVal;\n"}; struct {int64_t type; int64_t len; - char buffer[13];} _str_100 = {1,12,"ReifiedVal *"}; + char buffer[13];} _str_99 = {1,12,"ReifiedVal *"}; Value *var_19 = (Value *)&trueVal;Value *var_20 = (Value *)&falseVal; // --------- symkey-name -------------- -Function fn_1881; -Value *arityImpl_1882(List *closures, Value *arg0) { +Function fn_1871; +Value *arityImpl_1872(List *closures, Value *arg0) { return(stringValue(((SymKey *)arg0)->name));}; // --------- symkey-name main body -------------- -Function fn_1881 = {3, "symkey-name", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1882}}}; -Value *var_49 = (Value *)&fn_1881; +Function fn_1871 = {3, "symkey-name", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1872}}}; +Value *var_49 = (Value *)&fn_1871; // --------- char-code -------------- -Function fn_1883; -Value *arityImpl_1884(List *closures, Value *arg0) { +Function fn_1873; +Value *arityImpl_1874(List *closures, Value *arg0) { if (arg0->type == StringType) { String *s = (String *)arg0; return(numberValue((int)s->buffer[0])); @@ -22559,12 +22477,12 @@ if (arg0->type == StringType) { // --------- char-code main body -------------- -Function fn_1883 = {3, "char-code", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1884}}}; -Value *var_52 = (Value *)&fn_1883; +Function fn_1873 = {3, "char-code", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1874}}}; +Value *var_52 = (Value *)&fn_1873; // --------- symbol -------------- -Function fn_1885; -Value *arityImpl_1886(List *closures, Value *arg0) { +Function fn_1875; +Value *arityImpl_1876(List *closures, Value *arg0) { SymKey *sym = (SymKey *)GC_malloc(sizeof(SymKey)); sym->type = SymbolType; if(arg0->type == StringType) @@ -22575,12 +22493,12 @@ SymKey *sym = (SymKey *)GC_malloc(sizeof(SymKey)); // --------- symbol main body -------------- -Function fn_1885 = {3, "symbol", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1886}}}; -Value *var_50 = (Value *)&fn_1885; +Function fn_1875 = {3, "symbol", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1876}}}; +Value *var_50 = (Value *)&fn_1875; // --------- new-keyword -------------- -Function fn_1887; -Value *arityImpl_1888(List *closures, Value *arg0) { +Function fn_1877; +Value *arityImpl_1878(List *closures, Value *arg0) { SymKey *sym = (SymKey *)GC_malloc(sizeof(SymKey)); sym->type = KeywordType; if(arg0->type == StringType) @@ -22591,34 +22509,34 @@ SymKey *sym = (SymKey *)GC_malloc(sizeof(SymKey)); // --------- new-keyword main body -------------- -Function fn_1887 = {3, "new-keyword", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1888}}}; -Value *var_51 = (Value *)&fn_1887; +Function fn_1877 = {3, "new-keyword", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1878}}}; +Value *var_51 = (Value *)&fn_1877; // --------- abort -------------- -Function fn_1889; -Value *arityImpl_1890(List *closures) { +Function fn_1879; +Value *arityImpl_1880(List *closures) { abort(); return(true); }; // --------- abort main body -------------- -Function fn_1889 = {3, "abort", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1890}}}; -Value *var_21 = (Value *)&fn_1889; +Function fn_1879 = {3, "abort", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1880}}}; +Value *var_21 = (Value *)&fn_1879; // --------- get-type -------------- -Function fn_1891; -Value *arityImpl_1892(List *closures, Value *arg0) { +Function fn_1881; +Value *arityImpl_1882(List *closures, Value *arg0) { return(numberValue(arg0->type));}; // --------- get-type main body -------------- -Function fn_1891 = {3, "get-type", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1892}}}; -Value *var_22 = (Value *)&fn_1891; +Function fn_1881 = {3, "get-type", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1882}}}; +Value *var_22 = (Value *)&fn_1881; // --------- type= -------------- -Function fn_1893; -Value *arityImpl_1894(List *closures, Value *arg0, Value *arg1) { +Function fn_1883; +Value *arityImpl_1884(List *closures, Value *arg0, Value *arg1) { if (arg0->type == arg1->type) return((Value *)&trueVal); else @@ -22627,12 +22545,12 @@ if (arg0->type == arg1->type) // --------- type= main body -------------- -Function fn_1893 = {3, "type=", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1894}}}; -Value *var_23 = (Value *)&fn_1893; +Function fn_1883 = {3, "type=", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1884}}}; +Value *var_23 = (Value *)&fn_1883; // --------- subs -------------- -Function fn_1895; -Value *arityImpl_1896(List *closures, Value *arg0, Value *arg1) { +Function fn_1885; +Value *arityImpl_1886(List *closures, Value *arg0, Value *arg1) { int64_t idx = ((Number *)arg1)->numVal; if (arg0->type == StringType) { String *s = (String *)arg0; @@ -22668,7 +22586,7 @@ int64_t idx = ((Number *)arg1)->numVal; abort(); }; -Value *arityImpl_1897(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Value *arityImpl_1887(List *closures, Value *arg0, Value *arg1, Value *arg2) { int64_t idx = ((Number *)arg1)->numVal; int64_t len = ((Number *)arg2)->numVal; if (arg0->type == StringType) { @@ -22707,12 +22625,12 @@ int64_t idx = ((Number *)arg1)->numVal; // --------- subs main body -------------- -Function fn_1895 = {3, "subs", 2, {&(FnArity){2, (List *)0, 0, arityImpl_1896}, &(FnArity){3, (List *)0, 0, arityImpl_1897}}}; -Value *var_24 = (Value *)&fn_1895; +Function fn_1885 = {3, "subs", 2, {&(FnArity){2, (List *)0, 0, arityImpl_1886}, &(FnArity){3, (List *)0, 0, arityImpl_1887}}}; +Value *var_24 = (Value *)&fn_1885; // --------- number-str -------------- -Function fn_1898; -Value *arityImpl_1899(List *closures, Value *arg0) { +Function fn_1888; +Value *arityImpl_1889(List *closures, Value *arg0) { char *buffer = (char *)GC_malloc(10); snprintf(buffer, 9, "%lld", ((Number *)arg0)->numVal); return(stringValue(buffer)); @@ -22720,12 +22638,12 @@ char *buffer = (char *)GC_malloc(10); // --------- number-str main body -------------- -Function fn_1898 = {3, "number-str", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1899}}}; -Value *var_25 = (Value *)&fn_1898; +Function fn_1888 = {3, "number-str", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1889}}}; +Value *var_25 = (Value *)&fn_1888; // --------- number= -------------- -Function fn_1900; -Value *arityImpl_1901(List *closures, Value *arg0, Value *arg1) { +Function fn_1890; +Value *arityImpl_1891(List *closures, Value *arg0, Value *arg1) { if (arg0->type != arg1->type) { return(false); } else if (((Number *)arg0)->numVal != ((Number *)arg1)->numVal) @@ -22736,12 +22654,12 @@ if (arg0->type != arg1->type) { // --------- number= main body -------------- -Function fn_1900 = {3, "number=", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1901}}}; -Value *var_26 = (Value *)&fn_1900; +Function fn_1890 = {3, "number=", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1891}}}; +Value *var_26 = (Value *)&fn_1890; // --------- number-less-than -------------- -Function fn_1902; -Value *arityImpl_1903(List *closures, Value *arg0, Value *arg1) { +Function fn_1892; +Value *arityImpl_1893(List *closures, Value *arg0, Value *arg1) { if (arg0->type != arg1->type) { printf("\ninvalid types for 'number-less-than'\n"); abort(); @@ -22753,12 +22671,12 @@ if (arg0->type != arg1->type) { // --------- number-less-than main body -------------- -Function fn_1902 = {3, "number-less-than", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1903}}}; -Value *var_27 = (Value *)&fn_1902; +Function fn_1892 = {3, "number-less-than", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1893}}}; +Value *var_27 = (Value *)&fn_1892; // --------- add-numbers -------------- -Function fn_1904; -Value *arityImpl_1905(List *closures, Value *arg0, Value *arg1) { +Function fn_1894; +Value *arityImpl_1895(List *closures, Value *arg0, Value *arg1) { if (arg0->type != arg1->type) { printf("\ninvalid types for 'add-numbers'\n"); abort(); @@ -22768,12 +22686,12 @@ if (arg0->type != arg1->type) { // --------- add-numbers main body -------------- -Function fn_1904 = {3, "add-numbers", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1905}}}; -Value *var_28 = (Value *)&fn_1904; +Function fn_1894 = {3, "add-numbers", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1895}}}; +Value *var_28 = (Value *)&fn_1894; // --------- subtract-numbers -------------- -Function fn_1906; -Value *arityImpl_1907(List *closures, Value *arg0, Value *arg1) { +Function fn_1896; +Value *arityImpl_1897(List *closures, Value *arg0, Value *arg1) { if (arg0->type != arg1->type) { printf("\ninvalid types for 'subtract-numbers'\n"); abort(); @@ -22783,12 +22701,12 @@ if (arg0->type != arg1->type) { // --------- subtract-numbers main body -------------- -Function fn_1906 = {3, "subtract-numbers", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1907}}}; -Value *var_29 = (Value *)&fn_1906; +Function fn_1896 = {3, "subtract-numbers", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1897}}}; +Value *var_29 = (Value *)&fn_1896; // --------- mult-numbers -------------- -Function fn_1908; -Value *arityImpl_1909(List *closures, Value *arg0, Value *arg1) { +Function fn_1898; +Value *arityImpl_1899(List *closures, Value *arg0, Value *arg1) { if (arg0->type != arg1->type) { fprintf(stderr, "\n*** invalid types for 'mult-numbers'\n"); abort(); @@ -22798,25 +22716,41 @@ if (arg0->type != arg1->type) { // --------- mult-numbers main body -------------- -Function fn_1908 = {3, "mult-numbers", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1909}}}; -Value *var_30 = (Value *)&fn_1908; +Function fn_1898 = {3, "mult-numbers", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1899}}}; +Value *var_30 = (Value *)&fn_1898; + +// --------- rem -------------- +Function fn_1900; +Value *arityImpl_1901(List *closures, Value *arg0, Value *arg1) { +if (arg0->type != NumberType || + arg1->type != NumberType) { + printf("\ninvalid types for 'rem'\n"); + abort(); + } else + return(numberValue(((Number *)arg0)->numVal % + ((Number *)arg1)->numVal)); +}; + + +// --------- rem main body -------------- +Function fn_1900 = {3, "rem", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1901}}}; Value *var_31 = (Value *)&(List){4,0,0,0}; // --------- cons -------------- -Function fn_1910; -Value *arityImpl_1911(List *closures, Value *arg0) { +Function fn_1903; +Value *arityImpl_1904(List *closures, Value *arg0) { return((Value *)listCons(arg0, empty_list));}; -Value *arityImpl_1912(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_1905(List *closures, Value *arg0, Value *arg1) { return((Value *)listCons(arg0, (List *)arg1));}; // --------- cons main body -------------- -Function fn_1910 = {3, "cons", 2, {&(FnArity){1, (List *)0, 0, arityImpl_1911}, &(FnArity){2, (List *)0, 0, arityImpl_1912}}}; -Value *var_32 = (Value *)&fn_1910; +Function fn_1903 = {3, "cons", 2, {&(FnArity){1, (List *)0, 0, arityImpl_1904}, &(FnArity){2, (List *)0, 0, arityImpl_1905}}}; +Value *var_32 = (Value *)&fn_1903; // --------- list-count -------------- -Function fn_1913; -Value *arityImpl_1914(List *closures, Value *arg0) { +Function fn_1906; +Value *arityImpl_1907(List *closures, Value *arg0) { if (arg0->type != ListType) abort(); else @@ -22824,12 +22758,12 @@ if (arg0->type != ListType) // --------- list-count main body -------------- -Function fn_1913 = {3, "list-count", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1914}}}; -Value *var_33 = (Value *)&fn_1913; +Function fn_1906 = {3, "list-count", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1907}}}; +Value *var_33 = (Value *)&fn_1906; // --------- car -------------- -Function fn_1915; -Value *arityImpl_1916(List *closures, Value *arg0) { +Function fn_1908; +Value *arityImpl_1909(List *closures, Value *arg0) { List *lst = (List *)arg0; if (arg0->type != ListType) { fprintf(stderr, "\n*** 'car' requires a list\n"); @@ -22842,12 +22776,12 @@ List *lst = (List *)arg0; // --------- car main body -------------- -Function fn_1915 = {3, "car", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1916}}}; -Value *var_34 = (Value *)&fn_1915; +Function fn_1908 = {3, "car", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1909}}}; +Value *var_34 = (Value *)&fn_1908; // --------- cdr -------------- -Function fn_1917; -Value *arityImpl_1918(List *closures, Value *arg0) { +Function fn_1910; +Value *arityImpl_1911(List *closures, Value *arg0) { List *lst = (List *)arg0; if (arg0->type != ListType) { fprintf(stderr, "\n*** 'cdr' requires a list\n"); @@ -22863,12 +22797,12 @@ List *lst = (List *)arg0; // --------- cdr main body -------------- -Function fn_1917 = {3, "cdr", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1918}}}; -Value *var_35 = (Value *)&fn_1917; +Function fn_1910 = {3, "cdr", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1911}}}; +Value *var_35 = (Value *)&fn_1910; // --------- fn-name -------------- -Function fn_1919; -Value *arityImpl_1920(List *closures, Value *arg0) { +Function fn_1912; +Value *arityImpl_1913(List *closures, Value *arg0) { if (arg0->type != FunctionType) { fprintf(stderr, "\n*** invalid type for 'fn-name'\n"); abort(); @@ -22878,12 +22812,12 @@ if (arg0->type != FunctionType) { // --------- fn-name main body -------------- -Function fn_1919 = {3, "fn-name", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1920}}}; -Value *var_36 = (Value *)&fn_1919; +Function fn_1912 = {3, "fn-name", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1913}}}; +Value *var_36 = (Value *)&fn_1912; // --------- new-list -------------- -Function fn_1921; -Value *arityImpl_1922(List *closures) { +Function fn_1914; +Value *arityImpl_1915(List *closures) { List *newList = (List *)GC_malloc(sizeof(List)); newList->type = ListType; newList->len = 0; @@ -22894,12 +22828,12 @@ List *newList = (List *)GC_malloc(sizeof(List)); // --------- new-list main body -------------- -Function fn_1921 = {3, "new-list", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1922}}}; -Value *var_37 = (Value *)&fn_1921; +Function fn_1914 = {3, "new-list", 1, {&(FnArity){0, (List *)0, 0, arityImpl_1915}}}; +Value *var_37 = (Value *)&fn_1914; // --------- snoc -------------- -Function fn_1923; -Value *arityImpl_1924(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Function fn_1916; +Value *arityImpl_1917(List *closures, Value *arg0, Value *arg1, Value *arg2) { if (arg1->type != ListType || arg0->type != ListType) { printf("\ninvalid type for 'snoc'\n"); abort(); @@ -22921,12 +22855,12 @@ if (arg1->type != ListType || arg0->type != ListType) { // --------- snoc main body -------------- -Function fn_1923 = {3, "snoc", 1, {&(FnArity){3, (List *)0, 0, arityImpl_1924}}}; -Value *var_38 = (Value *)&fn_1923; +Function fn_1916 = {3, "snoc", 1, {&(FnArity){3, (List *)0, 0, arityImpl_1917}}}; +Value *var_38 = (Value *)&fn_1916; // --------- char -------------- -Function fn_1925; -Value *arityImpl_1926(List *closures, Value *arg0) { +Function fn_1918; +Value *arityImpl_1919(List *closures, Value *arg0) { if (arg0->type != NumberType) { printf("\ninvalid type for 'char'\n"); abort(); @@ -22941,12 +22875,12 @@ if (arg0->type != NumberType) { // --------- char main body -------------- -Function fn_1925 = {3, "char", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1926}}}; -Value *var_39 = (Value *)&fn_1925; +Function fn_1918 = {3, "char", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1919}}}; +Value *var_39 = (Value *)&fn_1918; // --------- str-count -------------- -Function fn_1927; -Value *arityImpl_1928(List *closures, Value *arg0) { +Function fn_1920; +Value *arityImpl_1921(List *closures, Value *arg0) { if (arg0->type != StringType && arg0->type != SubStringType ) { printf("\ninvalid type for 'char'\n"); abort(); @@ -22956,12 +22890,12 @@ if (arg0->type != StringType && arg0->type != SubStringType ) { // --------- str-count main body -------------- -Function fn_1927 = {3, "str-count", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1928}}}; -Value *var_40 = (Value *)&fn_1927; +Function fn_1920 = {3, "str-count", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1921}}}; +Value *var_40 = (Value *)&fn_1920; // --------- str= -------------- -Function fn_1929; -Value *arityImpl_1930(List *closures, Value *arg0, Value *arg1) { +Function fn_1922; +Value *arityImpl_1923(List *closures, Value *arg0, Value *arg1) { if (arg0->type == StringType && arg1->type == StringType) { String *s1 = (String *)arg0; String *s2 = (String *)arg1; @@ -22998,12 +22932,12 @@ if (arg0->type == StringType && arg1->type == StringType) { // --------- str= main body -------------- -Function fn_1929 = {3, "str=", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1930}}}; -Value *var_41 = (Value *)&fn_1929; +Function fn_1922 = {3, "str=", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1923}}}; +Value *var_41 = (Value *)&fn_1922; // --------- symkey= -------------- -Function fn_1931; -Value *arityImpl_1932(List *closures, Value *arg0, Value *arg1) { +Function fn_1924; +Value *arityImpl_1925(List *closures, Value *arg0, Value *arg1) { if (arg0->type != arg1->type) return(false); else { @@ -23018,12 +22952,12 @@ if (arg0->type != arg1->type) // --------- symkey= main body -------------- -Function fn_1931 = {3, "symkey=", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1932}}}; -Value *var_42 = (Value *)&fn_1931; +Function fn_1924 = {3, "symkey=", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1925}}}; +Value *var_42 = (Value *)&fn_1924; // --------- str-malloc -------------- -Function fn_1933; -Value *arityImpl_1934(List *closures, Value *arg0) { +Function fn_1926; +Value *arityImpl_1927(List *closures, Value *arg0) { String *strVal = (String *)GC_malloc(sizeof(String) + ((Number *)arg0)->numVal); strVal->type = StringType; strVal->len = 0; @@ -23033,12 +22967,12 @@ String *strVal = (String *)GC_malloc(sizeof(String) + ((Number *)arg0)->numVal); // --------- str-malloc main body -------------- -Function fn_1933 = {3, "str-malloc", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1934}}}; -Value *var_43 = (Value *)&fn_1933; +Function fn_1926 = {3, "str-malloc", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1927}}}; +Value *var_43 = (Value *)&fn_1926; // --------- str-append -------------- -Function fn_1935; -Value *arityImpl_1936(List *closures, Value *arg0, Value *arg1) { +Function fn_1928; +Value *arityImpl_1929(List *closures, Value *arg0, Value *arg1) { String *s1 = (String *)arg0; if (arg0->type != StringType) { printf("\ninvalid type for 'str-append'\n"); @@ -23059,12 +22993,12 @@ String *s1 = (String *)arg0; // --------- str-append main body -------------- -Function fn_1935 = {3, "str-append", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1936}}}; -Value *var_44 = (Value *)&fn_1935; +Function fn_1928 = {3, "str-append", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1929}}}; +Value *var_44 = (Value *)&fn_1928; // --------- pr-err* -------------- -Function fn_1937; -Value *arityImpl_1938(List *closures, Value *arg0) { +Function fn_1930; +Value *arityImpl_1931(List *closures, Value *arg0) { if (arg0->type == StringType) fprintf(stderr, "%-.*s", (int)((String *)arg0)->len, ((String *)arg0)->buffer); else if (arg0->type == SubStringType) @@ -23078,12 +23012,12 @@ if (arg0->type == StringType) // --------- pr-err* main body -------------- -Function fn_1937 = {3, "pr-err*", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1938}}}; -Value *var_45 = (Value *)&fn_1937; +Function fn_1930 = {3, "pr-err*", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1931}}}; +Value *var_45 = (Value *)&fn_1930; // --------- slurp -------------- -Function fn_1939; -Value *arityImpl_1940(List *closures, Value *arg0) { +Function fn_1932; +Value *arityImpl_1933(List *closures, Value *arg0) { char *arg0Str = (char *)GC_malloc(((String *)arg0)->len + 5); if (arg0->type == StringType) snprintf(arg0Str, ((String *)arg0)->len + 1, "%s", ((String *)arg0)->buffer); @@ -23108,12 +23042,12 @@ char *arg0Str = (char *)GC_malloc(((String *)arg0)->len + 5); // --------- slurp main body -------------- -Function fn_1939 = {3, "slurp", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1940}}}; -Value *var_46 = (Value *)&fn_1939; +Function fn_1932 = {3, "slurp", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1933}}}; +Value *var_46 = (Value *)&fn_1932; // --------- fn-apply -------------- -Function fn_1941; -Value *arityImpl_1942(List *closures, Value *arg0, Value *arg1) { +Function fn_1934; +Value *arityImpl_1935(List *closures, Value *arg0, Value *arg1) { List *argList = (List *)arg1; FnArity *_arity = findFnArity(arg0, argList->len); @@ -23245,15 +23179,15 @@ List *argList = (List *)arg1; // --------- fn-apply main body -------------- -Function fn_1941 = {3, "fn-apply", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1942}}}; -Value *var_47 = (Value *)&fn_1941; +Function fn_1934 = {3, "fn-apply", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1935}}}; +Value *var_47 = (Value *)&fn_1934; // --------- write -------------- -Function fn_1943; +Function fn_1936; // --------- anon -------------- -Function fn_1945; -Value *arityImpl_1946(List *closures, Value *arg0) { +Function fn_1938; +Value *arityImpl_1939(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -23276,26 +23210,26 @@ Value *rslt4 = arityImpl_119((List *)var_31, (Value *)varArgs3); return (rslt4); }; -Value *arityImpl_1944(List *closures, Value *arg0) { +Value *arityImpl_1937(List *closures, Value *arg0) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_1946; +arity_0->fn = arityImpl_1939; arity_0->closures = listCons((Value *)arg0, (List *)arity_0->closures); -Function *fn_1945 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1945->type = 3; -fn_1945->name = "anon"; -fn_1945->arityCount = 1; -fn_1945->arities[0] = arity_0; +Function *fn_1938 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1938->type = 3; +fn_1938->name = "anon"; +fn_1938->arityCount = 1; +fn_1938->arities[0] = arity_0; Value *rslt4; -if((var_689)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, var_689, (Value *)fn_1945); +if((var_679)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, var_679, (Value *)fn_1938); } else { -FnArity *arity1 = findFnArity(var_689, 1); +FnArity *arity1 = findFnArity(var_679, 1); if(arity1 != (FnArity *)0 && !arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; -rslt4 = fn3(arity1->closures, (Value *)fn_1945); +rslt4 = fn3(arity1->closures, (Value *)fn_1938); } else if(arity1 != (FnArity *)0 && arity1->variadic) { FnType1 *fn3 = (FnType1 *)arity1->fn; List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -23303,10 +23237,10 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)fn_1945, varArgs2); +varArgs2 = (List *)listCons((Value *)fn_1938, varArgs2); rslt4 = fn3(arity1->closures, (Value *)varArgs2); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_689)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_679)->name); abort(); } } @@ -23315,14 +23249,14 @@ return (rslt4); // --------- write main body -------------- -Function fn_1943 = {3, "write", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1944}}}; +Function fn_1936 = {3, "write", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1937}}}; // --------- write-strs -------------- -Function fn_1948; +Function fn_1941; // --------- anon -------------- -Function fn_1950; -Value *arityImpl_1951(List *closures, Value *arg0) { +Function fn_1943; +Value *arityImpl_1944(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -23339,34 +23273,34 @@ Value *rslt3 = arityImpl_119((List *)var_31, (Value *)varArgs2); return (rslt3); }; -Value *arityImpl_1949(List *closures, Value *arg0) { +Value *arityImpl_1942(List *closures, Value *arg0) { Value *cond0; Value *rslt6 = protoFnImpl_195((List *)var_31, arg0); Value *rslt7 = arityImpl_283((List *)var_31, (Value *)&_num_8, rslt6); if (isTrue(rslt7)) { -Value *rslt8 = arityImpl_985((List *)var_31, (Value *)&_str_19); +Value *rslt8 = arityImpl_975((List *)var_31, (Value *)&_str_19); cond0 = rslt8; } else { FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1951; +arity_1->fn = arityImpl_1944; arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); -Function *fn_1950 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1950->type = 3; -fn_1950->name = "anon"; -fn_1950->arityCount = 1; -fn_1950->arities[0] = arity_1; +Function *fn_1943 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1943->type = 3; +fn_1943->name = "anon"; +fn_1943->arityCount = 1; +fn_1943->arities[0] = arity_1; Value *rslt5; -if((var_689)->type != 3) { -rslt5 = protoFnImpl_5(empty_list, var_689, (Value *)fn_1950); +if((var_679)->type != 3) { +rslt5 = protoFnImpl_5(empty_list, var_679, (Value *)fn_1943); } else { -FnArity *arity2 = findFnArity(var_689, 1); +FnArity *arity2 = findFnArity(var_679, 1); if(arity2 != (FnArity *)0 && !arity2->variadic) { FnType1 *fn4 = (FnType1 *)arity2->fn; -rslt5 = fn4(arity2->closures, (Value *)fn_1950); +rslt5 = fn4(arity2->closures, (Value *)fn_1943); } else if(arity2 != (FnArity *)0 && arity2->variadic) { FnType1 *fn4 = (FnType1 *)arity2->fn; List *varArgs3 = (List *)GC_malloc(sizeof(List)); @@ -23374,10 +23308,10 @@ varArgs3->type = ListType; varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; -varArgs3 = (List *)listCons((Value *)fn_1950, varArgs3); +varArgs3 = (List *)listCons((Value *)fn_1943, varArgs3); rslt5 = fn4(arity2->closures, (Value *)varArgs3); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_689)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_679)->name); abort(); } } @@ -23388,18 +23322,18 @@ return (cond0); // --------- write-strs main body -------------- -Function fn_1948 = {3, "write-strs", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1949}}}; -SymKey _kw_44 = {5, -1, ":gensym-count"}; +Function fn_1941 = {3, "write-strs", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1942}}}; +SymKey _kw_42 = {5, -1, ":gensym-count"}; // --------- gensym -------------- -Function fn_1953; +Function fn_1946; // --------- anon -------------- -Function fn_1955; +Function fn_1948; // --------- anon -------------- -Function fn_1957; -Value *arityImpl_1958(List *closures, Value *arg0) { +Function fn_1950; +Value *arityImpl_1951(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -23420,12 +23354,12 @@ varArgs3->tail = (List *)0; varArgs3 = (List *)listCons((Value *)val2, varArgs3); varArgs3 = (List *)listCons((Value *)val1, varArgs3); Value *rslt4 = arityImpl_508((List *)var_31, (Value *)varArgs3); -Value *rslt5 = arityImpl_1886((List *)var_31, rslt4); +Value *rslt5 = arityImpl_1876((List *)var_31, rslt4); Value *rslt6 = protoFnImpl_100((List *)var_31, val0, rslt5); return (rslt6); }; -Value *arityImpl_1956(List *closures, Value *arg0) { +Value *arityImpl_1949(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -23435,56 +23369,56 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = arityImpl_453((List *)var_31, arg0); -Value *rslt1 = arityImpl_1009((List *)var_31, (Value *)&_kw_44, rslt0); +Value *rslt1 = arityImpl_999((List *)var_31, (Value *)&_kw_42, rslt0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1958; +arity_2->fn = arityImpl_1951; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); -Function *fn_1957 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1957->type = 3; -fn_1957->name = "anon"; -fn_1957->arityCount = 1; -fn_1957->arities[0] = arity_2; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1957); +Function *fn_1950 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1950->type = 3; +fn_1950->name = "anon"; +fn_1950->arityCount = 1; +fn_1950->arities[0] = arity_2; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1950); return (rslt5); }; -Value *arityImpl_1954(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_44, (Value *)&_num_8); +Value *arityImpl_1947(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_42, (Value *)&_num_8); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1956; +arity_1->fn = arityImpl_1949; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); -Function *fn_1955 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1955->type = 3; -fn_1955->name = "anon"; -fn_1955->arityCount = 1; -fn_1955->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1955); +Function *fn_1948 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1948->type = 3; +fn_1948->name = "anon"; +fn_1948->arityCount = 1; +fn_1948->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1948); return (rslt2); }; // --------- gensym main body -------------- -Function fn_1953 = {3, "gensym", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1954}}}; -SymKey _kw_45 = {5, -1, ":local-sym-count"}; +Function fn_1946 = {3, "gensym", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1947}}}; +SymKey _kw_43 = {5, -1, ":local-sym-count"}; // --------- genlocal -------------- -Function fn_1960; +Function fn_1953; // --------- anon -------------- -Function fn_1962; +Function fn_1955; // --------- anon -------------- -Function fn_1964; -Value *arityImpl_1965(List *closures, Value *arg0) { +Function fn_1957; +Value *arityImpl_1958(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -23505,12 +23439,12 @@ varArgs3->tail = (List *)0; varArgs3 = (List *)listCons((Value *)val2, varArgs3); varArgs3 = (List *)listCons((Value *)val1, varArgs3); Value *rslt4 = arityImpl_508((List *)var_31, (Value *)varArgs3); -Value *rslt5 = arityImpl_1886((List *)var_31, rslt4); +Value *rslt5 = arityImpl_1876((List *)var_31, rslt4); Value *rslt6 = protoFnImpl_100((List *)var_31, val0, rslt5); return (rslt6); }; -Value *arityImpl_1963(List *closures, Value *arg0) { +Value *arityImpl_1956(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -23520,53 +23454,53 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = arityImpl_453((List *)var_31, arg0); -Value *rslt1 = arityImpl_1009((List *)var_31, (Value *)&_kw_45, rslt0); +Value *rslt1 = arityImpl_999((List *)var_31, (Value *)&_kw_43, rslt0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_1965; +arity_2->fn = arityImpl_1958; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); -Function *fn_1964 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1964->type = 3; -fn_1964->name = "anon"; -fn_1964->arityCount = 1; -fn_1964->arities[0] = arity_2; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1964); +Function *fn_1957 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1957->type = 3; +fn_1957->name = "anon"; +fn_1957->arityCount = 1; +fn_1957->arities[0] = arity_2; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_1957); return (rslt5); }; -Value *arityImpl_1961(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_45, (Value *)&_num_8); +Value *arityImpl_1954(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_43, (Value *)&_num_8); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1963; +arity_1->fn = arityImpl_1956; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); -Function *fn_1962 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1962->type = 3; -fn_1962->name = "anon"; -fn_1962->arityCount = 1; -fn_1962->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1962); +Function *fn_1955 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1955->type = 3; +fn_1955->name = "anon"; +fn_1955->arityCount = 1; +fn_1955->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1955); return (rslt2); }; // --------- genlocal main body -------------- -Function fn_1960 = {3, "genlocal", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1961}}}; -ProtoImpls *protoImpls_1967; -Value *arityImpl_1970(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_985((List *)var_31, arg0); +Function fn_1953 = {3, "genlocal", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1954}}}; +ProtoImpls *protoImpls_1960; +Value *arityImpl_1963(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_975((List *)var_31, arg0); return (rslt0); }; -Value *protoFnImpl_1971(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_1967); +Value *protoFnImpl_1964(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_1960); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for 'emit-c' %lld\n", arg0->type); abort(); @@ -23579,14 +23513,14 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_1972 = {1, (List *)0, 0, protoFnImpl_1971}; -Function defaultFn_1969 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1970}}}; +FnArity protoFnArity_1965 = {1, (List *)0, 0, protoFnImpl_1964}; +Function defaultFn_1962 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1963}}}; -Function protoFn_1968 = {3, "emit-c", 1, {&protoFnArity_1972}}; +Function protoFn_1961 = {3, "emit-c", 1, {&protoFnArity_1965}}; -ProtoImpls *protoImpls_1973; -Value *protoFnImpl_1976(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_1973); +ProtoImpls *protoImpls_1966; +Value *protoFnImpl_1969(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_1966); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.txt' %lld\n", arg0->type); abort(); @@ -23599,36 +23533,36 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_1977 = {1, (List *)0, 0, protoFnImpl_1976}; -Function protoFn_1974 = {3, ".txt", 1, {&protoFnArity_1977}}; +FnArity protoFnArity_1970 = {1, (List *)0, 0, protoFnImpl_1969}; +Function protoFn_1967 = {3, ".txt", 1, {&protoFnArity_1970}}; -Number _num_33 = {2, -1, 48}; +Number _num_33 = {2, -1, 47}; // --------- instance?_impl -------------- -Function fn_1978; -Value *arityImpl_1979(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1892((List *)var_31, arg1); +Function fn_1971; +Value *arityImpl_1972(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1882((List *)var_31, arg1); Value *rslt1 = arityImpl_283((List *)var_31, (Value *)&_num_33, rslt0); return (rslt1); }; // --------- instance?_impl main body -------------- -Function fn_1978 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1979}}}; -Value *protoImpl_1980(List *closures, Value *arg0, Value *arg1) { +Function fn_1971 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1972}}}; +Value *protoImpl_1973(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_1981 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1980}}}; +Function protoFn_1974 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1973}}}; // --------- invoke_impl -------------- -Function fn_1982; +Function fn_1975; // --------- emit-c_impl -------------- -Function fn_1984; -Value *arityImpl_1985(List *closures, Value *arg0) { +Function fn_1977; +Value *arityImpl_1978(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -23648,21 +23582,21 @@ varArgs3->tail = (List *)0; varArgs3 = (List *)listCons((Value *)rslt2, varArgs3); varArgs3 = (List *)listCons((Value *)(Value *)&_str_19, varArgs3); Value *rslt4 = arityImpl_119((List *)var_31, (Value *)varArgs3); -Value *rslt5 = arityImpl_985((List *)var_31, rslt4); +Value *rslt5 = arityImpl_975((List *)var_31, rslt4); return (rslt5); }; -Value *protoImpl_1986(List *closures, Value *arg0) { +Value *protoImpl_1979(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1987 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1986}}}; +Function protoFn_1980 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1979}}}; // --------- .txt_impl -------------- -Function fn_1988; -Value *arityImpl_1989(List *closures, Value *arg0) { +Function fn_1981; +Value *arityImpl_1982(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -23670,64 +23604,64 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_1990(List *closures, Value *arg0) { +Value *protoImpl_1983(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_1991 = {3, ".txt", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1990}}}; +Function protoFn_1984 = {3, ".txt", 1, {&(FnArity){1, (List *)0, 0, protoImpl_1983}}}; -Value *arityImpl_1983(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_1976(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_1985; +arity_0->fn = arityImpl_1978; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_1984 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1984->type = 3; -fn_1984->name = "emit-c_impl"; -fn_1984->arityCount = 1; -fn_1984->arities[0] = arity_0; +Function *fn_1977 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1977->type = 3; +fn_1977->name = "emit-c_impl"; +fn_1977->arityCount = 1; +fn_1977->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_1989; +arity_1->fn = arityImpl_1982; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_1988 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1988->type = 3; -fn_1988->name = ".txt_impl"; -fn_1988->arityCount = 1; -fn_1988->arities[0] = arity_1; +Function *fn_1981 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1981->type = 3; +fn_1981->name = ".txt_impl"; +fn_1981->arityCount = 1; +fn_1981->arities[0] = arity_1; ReifiedVal *reified_2 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 2); -reified_2->type = 48; +reified_2->type = 47; reified_2->implCount = 2; -reified_2->impls[0] = (Value *)fn_1984; -reified_2->impls[1] = (Value *)fn_1988; +reified_2->impls[0] = (Value *)fn_1977; +reified_2->impls[1] = (Value *)fn_1981; return ((Value *)reified_2); }; // --------- invoke_impl main body -------------- -Function fn_1982 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1983}}}; -Value *protoImpl_1992(List *closures, Value *arg0, Value *arg1) { +Function fn_1975 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_1976}}}; +Value *protoImpl_1985(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_1993 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1992}}}; +Function protoFn_1986 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_1985}}}; -ReifiedVal reified_1994 = {47, 2, {(Value *)&fn_1978, (Value *)&fn_1982}}; -Value *var_1490 = (Value *)&reified_1994; -SymKey _kw_46 = {5, -1, ":local-syms"}; +ReifiedVal reified_1987 = {46, 2, {(Value *)&fn_1971, (Value *)&fn_1975}}; +Value *var_1480 = (Value *)&reified_1987; +SymKey _kw_44 = {5, -1, ":local-syms"}; // --------- local-sym -------------- -Function fn_1995; +Function fn_1988; // --------- anon -------------- -Function fn_1997; -Value *arityImpl_1998(List *closures, Value *arg0) { +Function fn_1990; +Value *arityImpl_1991(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -23744,52 +23678,52 @@ Value *rslt3 = protoFnImpl_100((List *)var_31, val0, rslt2); return (rslt3); }; -Value *arityImpl_1996(List *closures, Value *arg0) { +Value *arityImpl_1989(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_46, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_44, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1014((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1004((List *)var_31, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_1998; +arity_3->fn = arityImpl_1991; arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); -Function *fn_1997 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_1997->type = 3; -fn_1997->name = "anon"; -fn_1997->arityCount = 1; -fn_1997->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_1997); +Function *fn_1990 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1990->type = 3; +fn_1990->name = "anon"; +fn_1990->arityCount = 1; +fn_1990->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_1990); return (rslt4); }; // --------- local-sym main body -------------- -Function fn_1995 = {3, "local-sym", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1996}}}; +Function fn_1988 = {3, "local-sym", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1989}}}; struct {int64_t type; int64_t len; - char buffer[4];} _str_101 = {1,3,"val"}; -SymKey _kw_47 = {5, -1, ":context"}; -SymKey _kw_48 = {5, -1, ":closed-over"}; + char buffer[4];} _str_100 = {1,3,"val"}; +SymKey _kw_45 = {5, -1, ":context"}; +SymKey _kw_46 = {5, -1, ":closed-over"}; // --------- closed-over-sym -------------- -Function fn_2000; +Function fn_1993; // --------- anon -------------- -Function fn_2002; +Function fn_1995; // --------- anon -------------- -Function fn_2004; +Function fn_1997; // --------- anon -------------- -Function fn_2006; -Value *arityImpl_2007(List *closures, Value *arg0, Value *arg1) { +Function fn_1999; +Value *arityImpl_2000(List *closures, Value *arg0, Value *arg1) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -23809,11 +23743,11 @@ return (cond0); // --------- anon -------------- -Function fn_2008; +Function fn_2001; // --------- anon -------------- -Function fn_2010; -Value *arityImpl_2011(List *closures, Value *arg0) { +Function fn_2003; +Value *arityImpl_2004(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -23830,14 +23764,14 @@ varArgs2->tail = (List *)0; varArgs2 = (List *)listCons((Value *)val1, varArgs2); varArgs2 = (List *)listCons((Value *)val0, varArgs2); Value *rslt3 = arityImpl_119((List *)var_31, (Value *)varArgs2); -Value *rslt4 = arityImpl_1912((List *)var_31, rslt3, arg0); +Value *rslt4 = arityImpl_1905((List *)var_31, rslt3, arg0); return (rslt4); }; // --------- anon -------------- -Function fn_2012; -Value *arityImpl_2013(List *closures, Value *arg0) { +Function fn_2005; +Value *arityImpl_2006(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -23850,7 +23784,7 @@ Value *rslt2 = protoFnImpl_100((List *)var_31, val0, val1); return (rslt2); }; -Value *arityImpl_2009(List *closures, Value *arg0) { +Value *arityImpl_2002(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -23864,41 +23798,41 @@ varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_48, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_46, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2011; +arity_2->fn = arityImpl_2004; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); -Function *fn_2010 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2010->type = 3; -fn_2010->name = "anon"; -fn_2010->arityCount = 1; -fn_2010->arities[0] = arity_2; -Value *rslt4 = arityImpl_1027((List *)var_31, rslt1, (Value *)fn_2010); +Function *fn_2003 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2003->type = 3; +fn_2003->name = "anon"; +fn_2003->arityCount = 1; +fn_2003->arities[0] = arity_2; +Value *rslt4 = arityImpl_1017((List *)var_31, rslt1, (Value *)fn_2003); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_2013; +arity_5->fn = arityImpl_2006; arity_5->closures = listCons((Value *)arg0, (List *)arity_5->closures); arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); -Function *fn_2012 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2012->type = 3; -fn_2012->name = "anon"; -fn_2012->arityCount = 1; -fn_2012->arities[0] = arity_5; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_2012); +Function *fn_2005 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2005->type = 3; +fn_2005->name = "anon"; +fn_2005->arityCount = 1; +fn_2005->arities[0] = arity_5; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_2005); return (rslt7); }; // --------- anon -------------- -Function fn_2014; -Value *arityImpl_2015(List *closures, Value *arg0) { +Function fn_2007; +Value *arityImpl_2008(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -23915,7 +23849,7 @@ Value *rslt3 = protoFnImpl_100((List *)var_31, val0, rslt2); return (rslt3); }; -Value *arityImpl_2005(List *closures, Value *arg0) { +Value *arityImpl_1998(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -23928,53 +23862,53 @@ FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 2; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_2007; +arity_0->fn = arityImpl_2000; arity_0->closures = listCons((Value *)val1, (List *)arity_0->closures); -Function *fn_2006 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2006->type = 3; -fn_2006->name = "anon"; -fn_2006->arityCount = 1; -fn_2006->arities[0] = arity_0; -Value *rslt2 = arityImpl_297((List *)var_31, arg0, (Value *)&_kw_4, (Value *)fn_2006); +Function *fn_1999 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1999->type = 3; +fn_1999->name = "anon"; +fn_1999->arityCount = 1; +fn_1999->arities[0] = arity_0; +Value *rslt2 = arityImpl_297((List *)var_31, arg0, (Value *)&_kw_4, (Value *)fn_1999); Value *cond3; Value *rslt5 = arityImpl_283((List *)var_31, rslt2, (Value *)&_kw_4); if (isTrue(rslt5)) { -Value *rslt6 = arityImpl_1961((List *)var_31, (Value *)&_str_101); +Value *rslt6 = arityImpl_1954((List *)var_31, (Value *)&_str_100); FnArity *arity_7 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_7->count = 1; arity_7->closures = empty_list; arity_7->variadic = 0; -arity_7->fn = arityImpl_2009; +arity_7->fn = arityImpl_2002; arity_7->closures = listCons((Value *)rslt6, (List *)arity_7->closures); arity_7->closures = listCons((Value *)val1, (List *)arity_7->closures); -Function *fn_2008 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2008->type = 3; -fn_2008->name = "anon"; -fn_2008->arityCount = 1; -fn_2008->arities[0] = arity_7; -Value *rslt8 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_2008); +Function *fn_2001 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2001->type = 3; +fn_2001->name = "anon"; +fn_2001->arityCount = 1; +fn_2001->arities[0] = arity_7; +Value *rslt8 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_2001); cond3 = rslt8; } else { -Value *rslt4 = arityImpl_985((List *)var_31, rslt2); +Value *rslt4 = arityImpl_975((List *)var_31, rslt2); cond3 = rslt4; } FnArity *arity_9 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_9->count = 1; arity_9->closures = empty_list; arity_9->variadic = 0; -arity_9->fn = arityImpl_2015; +arity_9->fn = arityImpl_2008; arity_9->closures = listCons((Value *)val10, (List *)arity_9->closures); -Function *fn_2014 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2014->type = 3; -fn_2014->name = "anon"; -fn_2014->arityCount = 1; -fn_2014->arities[0] = arity_9; -Value *rslt11 = protoFnImpl_78((List *)var_31, cond3, (Value *)fn_2014); +Function *fn_2007 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2007->type = 3; +fn_2007->name = "anon"; +fn_2007->arityCount = 1; +fn_2007->arities[0] = arity_9; +Value *rslt11 = protoFnImpl_78((List *)var_31, cond3, (Value *)fn_2007); return (rslt11); }; -Value *arityImpl_2003(List *closures, Value *arg0) { +Value *arityImpl_1996(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -23983,60 +23917,60 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_48, var_31); +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_46, var_31); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2005; +arity_1->fn = arityImpl_1998; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_2004 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2004->type = 3; -fn_2004->name = "anon"; -fn_2004->arityCount = 1; -fn_2004->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2004); +Function *fn_1997 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1997->type = 3; +fn_1997->name = "anon"; +fn_1997->arityCount = 1; +fn_1997->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_1997); return (rslt4); }; -Value *arityImpl_2001(List *closures, Value *arg0) { +Value *arityImpl_1994(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_47, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_45, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1014((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1004((List *)var_31, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2003; +arity_3->fn = arityImpl_1996; arity_3->closures = listCons((Value *)arg0, (List *)arity_3->closures); arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); -Function *fn_2002 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2002->type = 3; -fn_2002->name = "anon"; -fn_2002->arityCount = 1; -fn_2002->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2002); +Function *fn_1995 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_1995->type = 3; +fn_1995->name = "anon"; +fn_1995->arityCount = 1; +fn_1995->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_1995); return (rslt4); }; // --------- closed-over-sym main body -------------- -Function fn_2000 = {3, "closed-over-sym", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2001}}}; -SymKey _kw_49 = {5, -1, ":defined-syms"}; +Function fn_1993 = {3, "closed-over-sym", 1, {&(FnArity){1, (List *)0, 0, arityImpl_1994}}}; +SymKey _kw_47 = {5, -1, ":defined-syms"}; // --------- defined-sym -------------- -Function fn_2017; +Function fn_2010; // --------- anon -------------- -Function fn_2019; -Value *arityImpl_2020(List *closures, Value *arg0) { +Function fn_2012; +Value *arityImpl_2013(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -24054,61 +23988,61 @@ Value *rslt4 = protoFnImpl_100((List *)var_31, val0, rslt3); return (rslt4); }; -Value *arityImpl_2018(List *closures, Value *arg0) { +Value *arityImpl_2011(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_49, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_47, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1014((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1004((List *)var_31, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2020; +arity_3->fn = arityImpl_2013; arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); -Function *fn_2019 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2019->type = 3; -fn_2019->name = "anon"; -fn_2019->arityCount = 1; -fn_2019->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2019); +Function *fn_2012 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2012->type = 3; +fn_2012->name = "anon"; +fn_2012->arityCount = 1; +fn_2012->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2012); return (rslt4); }; // --------- defined-sym main body -------------- -Function fn_2017 = {3, "defined-sym", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2018}}}; -SymKey _kw_50 = {5, -1, ":core-defined-syms"}; +Function fn_2010 = {3, "defined-sym", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2011}}}; +SymKey _kw_48 = {5, -1, ":core-defined-syms"}; // --------- core-def -------------- -Function fn_2022; +Function fn_2015; // --------- anon -------------- -Function fn_2024; +Function fn_2017; // --------- anon -------------- -Function fn_2026; +Function fn_2019; // --------- anon -------------- -Function fn_2028; -Value *arityImpl_2029(List *closures, Value *arg0) { +Function fn_2021; +Value *arityImpl_2022(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt1 = arityImpl_523((List *)var_31, val0, (Value *)&_num_8); -Value *rslt2 = arityImpl_1912((List *)var_31, rslt1, arg0); +Value *rslt2 = arityImpl_1905((List *)var_31, rslt1, arg0); return (rslt2); }; // --------- anon -------------- -Function fn_2030; -Value *arityImpl_2031(List *closures, Value *arg0) { +Function fn_2023; +Value *arityImpl_2024(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -24121,7 +24055,7 @@ Value *rslt2 = protoFnImpl_100((List *)var_31, val0, val1); return (rslt2); }; -Value *arityImpl_2027(List *closures, Value *arg0) { +Value *arityImpl_2020(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -24135,37 +24069,37 @@ varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_19, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_17, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2029; +arity_2->fn = arityImpl_2022; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_2028 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2028->type = 3; -fn_2028->name = "anon"; -fn_2028->arityCount = 1; -fn_2028->arities[0] = arity_2; -Value *rslt4 = arityImpl_1027((List *)var_31, rslt1, (Value *)fn_2028); +Function *fn_2021 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2021->type = 3; +fn_2021->name = "anon"; +fn_2021->arityCount = 1; +fn_2021->arities[0] = arity_2; +Value *rslt4 = arityImpl_1017((List *)var_31, rslt1, (Value *)fn_2021); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_2031; +arity_5->fn = arityImpl_2024; arity_5->closures = listCons((Value *)val3, (List *)arity_5->closures); arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); -Function *fn_2030 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2030->type = 3; -fn_2030->name = "anon"; -fn_2030->arityCount = 1; -fn_2030->arities[0] = arity_5; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_2030); +Function *fn_2023 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2023->type = 3; +fn_2023->name = "anon"; +fn_2023->arityCount = 1; +fn_2023->arities[0] = arity_5; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_2023); return (rslt7); }; -Value *arityImpl_2025(List *closures, Value *arg0) { +Value *arityImpl_2018(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -24180,68 +24114,68 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_kw_49, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_kw_47, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1022((List *)var_31, rslt2, arg0); +Value *rslt3 = arityImpl_1012((List *)var_31, rslt2, arg0); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_2027; +arity_4->fn = arityImpl_2020; arity_4->closures = listCons((Value *)val5, (List *)arity_4->closures); arity_4->closures = listCons((Value *)arg0, (List *)arity_4->closures); -Function *fn_2026 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2026->type = 3; -fn_2026->name = "anon"; -fn_2026->arityCount = 1; -fn_2026->arities[0] = arity_4; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2026); +Function *fn_2019 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2019->type = 3; +fn_2019->name = "anon"; +fn_2019->arityCount = 1; +fn_2019->arities[0] = arity_4; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2019); return (rslt6); }; -Value *arityImpl_2023(List *closures, Value *arg0) { +Value *arityImpl_2016(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_50, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_48, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1014((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1004((List *)var_31, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2025; +arity_3->fn = arityImpl_2018; arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); arity_3->closures = listCons((Value *)arg0, (List *)arity_3->closures); -Function *fn_2024 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2024->type = 3; -fn_2024->name = "anon"; -fn_2024->arityCount = 1; -fn_2024->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2024); +Function *fn_2017 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2017->type = 3; +fn_2017->name = "anon"; +fn_2017->arityCount = 1; +fn_2017->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2017); return (rslt4); }; // --------- core-def main body -------------- -Function fn_2022 = {3, "core-def", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2023}}}; +Function fn_2015 = {3, "core-def", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2016}}}; struct {int64_t type; int64_t len; - char buffer[18];} _str_102 = {1,17,"Undefined symbol:"}; + char buffer[18];} _str_101 = {1,17,"Undefined symbol:"}; struct {int64_t type; int64_t len; - char buffer[3];} _str_103 = {1,2,"at"}; -SymKey _kw_51 = {5, -1, ":line-num"}; + char buffer[3];} _str_102 = {1,2,"at"}; +SymKey _kw_49 = {5, -1, ":line-num"}; // --------- lookup-sym -------------- -Function fn_2033; +Function fn_2026; // --------- anon -------------- -Function fn_2035; -Value *arityImpl_2036(List *closures, Value *arg0) { +Function fn_2028; +Value *arityImpl_2029(List *closures, Value *arg0) { Value *rslt0 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_1); List *varArgs1 = (List *)GC_malloc(sizeof(List)); varArgs1->type = ListType; @@ -24256,65 +24190,65 @@ return (rslt2); // --------- anon main body -------------- -Function fn_2035 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2036}}}; +Function fn_2028 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2029}}}; // --------- anon -------------- -Function fn_2037; -Value *arityImpl_2038(List *closures, Value *arg0) { +Function fn_2030; +Value *arityImpl_2031(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = protoFnImpl_261((List *)var_31, arg0, (Value *)&_kw_31, (Value *)&_str_19); -Value *rslt2 = protoFnImpl_261((List *)var_31, arg0, (Value *)&_kw_51, (Value *)&_str_19); +Value *rslt1 = protoFnImpl_261((List *)var_31, arg0, (Value *)&_kw_29, (Value *)&_str_19); +Value *rslt2 = protoFnImpl_261((List *)var_31, arg0, (Value *)&_kw_49, (Value *)&_str_19); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; varArgs3 = (List *)listCons((Value *)rslt2, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_str_25, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_24, varArgs3); varArgs3 = (List *)listCons((Value *)rslt1, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_str_103, varArgs3); -varArgs3 = (List *)listCons((Value *)val0, varArgs3); varArgs3 = (List *)listCons((Value *)(Value *)&_str_102, varArgs3); +varArgs3 = (List *)listCons((Value *)val0, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_101, varArgs3); Value *rslt4 = arityImpl_163((List *)var_31, (Value *)varArgs3); -Value *rslt5 = arityImpl_1890((List *)var_31); +Value *rslt5 = arityImpl_1880((List *)var_31); return (rslt5); }; -Value *arityImpl_2034(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_1996((List *)var_31, arg0); -Value *rslt1 = arityImpl_2001((List *)var_31, arg0); -Value *rslt2 = arityImpl_2018((List *)var_31, arg0); -Value *rslt4 = arityImpl_2023((List *)var_31, arg0); +Value *arityImpl_2027(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_1989((List *)var_31, arg0); +Value *rslt1 = arityImpl_1994((List *)var_31, arg0); +Value *rslt2 = arityImpl_2011((List *)var_31, arg0); +Value *rslt4 = arityImpl_2016((List *)var_31, arg0); List *varArgs5 = (List *)GC_malloc(sizeof(List)); varArgs5->type = ListType; varArgs5->len = 0; varArgs5->head = (Value *)0; varArgs5->tail = (List *)0; varArgs5 = (List *)listCons((Value *)rslt4, varArgs5); -varArgs5 = (List *)listCons((Value *)(Value *)&fn_2035, varArgs5); +varArgs5 = (List *)listCons((Value *)(Value *)&fn_2028, varArgs5); Value *rslt6 = arityImpl_116((List *)var_31, (Value *)varArgs5); FnArity *arity_7 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_7->count = 1; arity_7->closures = empty_list; arity_7->variadic = 0; -arity_7->fn = arityImpl_2038; +arity_7->fn = arityImpl_2031; arity_7->closures = listCons((Value *)arg0, (List *)arity_7->closures); -Function *fn_2037 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2037->type = 3; -fn_2037->name = "anon"; -fn_2037->arityCount = 1; -fn_2037->arities[0] = arity_7; +Function *fn_2030 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2030->type = 3; +fn_2030->name = "anon"; +fn_2030->arityCount = 1; +fn_2030->arities[0] = arity_7; Value *rslt11; -if((var_689)->type != 3) { -rslt11 = protoFnImpl_5(empty_list, var_689, (Value *)fn_2037); +if((var_679)->type != 3) { +rslt11 = protoFnImpl_5(empty_list, var_679, (Value *)fn_2030); } else { -FnArity *arity8 = findFnArity(var_689, 1); +FnArity *arity8 = findFnArity(var_679, 1); if(arity8 != (FnArity *)0 && !arity8->variadic) { FnType1 *fn10 = (FnType1 *)arity8->fn; -rslt11 = fn10(arity8->closures, (Value *)fn_2037); +rslt11 = fn10(arity8->closures, (Value *)fn_2030); } else if(arity8 != (FnArity *)0 && arity8->variadic) { FnType1 *fn10 = (FnType1 *)arity8->fn; List *varArgs9 = (List *)GC_malloc(sizeof(List)); @@ -24322,10 +24256,10 @@ varArgs9->type = ListType; varArgs9->len = 0; varArgs9->head = (Value *)0; varArgs9->tail = (List *)0; -varArgs9 = (List *)listCons((Value *)fn_2037, varArgs9); +varArgs9 = (List *)listCons((Value *)fn_2030, varArgs9); rslt11 = fn10(arity8->closures, (Value *)varArgs9); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_689)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_679)->name); abort(); } } @@ -24345,10 +24279,10 @@ return (rslt13); // --------- lookup-sym main body -------------- -Function fn_2033 = {3, "lookup-sym", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2034}}}; -ProtoImpls *protoImpls_2040; -Value *protoFnImpl_2043(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2040); +Function fn_2026 = {3, "lookup-sym", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2027}}}; +ProtoImpls *protoImpls_2033; +Value *protoFnImpl_2036(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2033); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.sym' %lld\n", arg0->type); abort(); @@ -24361,36 +24295,36 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_2044 = {1, (List *)0, 0, protoFnImpl_2043}; -Function protoFn_2041 = {3, ".sym", 1, {&protoFnArity_2044}}; +FnArity protoFnArity_2037 = {1, (List *)0, 0, protoFnImpl_2036}; +Function protoFn_2034 = {3, ".sym", 1, {&protoFnArity_2037}}; -Number _num_34 = {2, -1, 50}; +Number _num_34 = {2, -1, 49}; // --------- instance?_impl -------------- -Function fn_2045; -Value *arityImpl_2046(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1892((List *)var_31, arg1); +Function fn_2038; +Value *arityImpl_2039(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1882((List *)var_31, arg1); Value *rslt1 = arityImpl_283((List *)var_31, (Value *)&_num_34, rslt0); return (rslt1); }; // --------- instance?_impl main body -------------- -Function fn_2045 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2046}}}; -Value *protoImpl_2047(List *closures, Value *arg0, Value *arg1) { +Function fn_2038 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2039}}}; +Value *protoImpl_2040(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2048 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2047}}}; +Function protoFn_2041 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2040}}}; // --------- invoke_impl -------------- -Function fn_2049; +Function fn_2042; // --------- string-list_impl -------------- -Function fn_2051; -Value *arityImpl_2052(List *closures, Value *arg0) { +Function fn_2044; +Value *arityImpl_2045(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -24412,36 +24346,36 @@ Value *rslt4 = arityImpl_119((List *)var_31, (Value *)varArgs3); return (rslt4); }; -Value *protoImpl_2053(List *closures, Value *arg0) { +Value *protoImpl_2046(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2054 = {3, "string-list", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2053}}}; +Function protoFn_2047 = {3, "string-list", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2046}}}; // --------- emit-c_impl -------------- -Function fn_2055; -Value *arityImpl_2056(List *closures, Value *arg0) { +Function fn_2048; +Value *arityImpl_2049(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_2034((List *)var_31, val0); +Value *rslt1 = arityImpl_2027((List *)var_31, val0); return (rslt1); }; -Value *protoImpl_2057(List *closures, Value *arg0) { +Value *protoImpl_2050(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2058 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2057}}}; +Function protoFn_2051 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2050}}}; // --------- .sym_impl -------------- -Function fn_2059; -Value *arityImpl_2060(List *closures, Value *arg0) { +Function fn_2052; +Value *arityImpl_2053(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -24449,71 +24383,71 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2061(List *closures, Value *arg0) { +Value *protoImpl_2054(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2062 = {3, ".sym", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2061}}}; +Function protoFn_2055 = {3, ".sym", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2054}}}; -Value *arityImpl_2050(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_2043(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_2052; +arity_0->fn = arityImpl_2045; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_2051 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2051->type = 3; -fn_2051->name = "string-list_impl"; -fn_2051->arityCount = 1; -fn_2051->arities[0] = arity_0; +Function *fn_2044 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2044->type = 3; +fn_2044->name = "string-list_impl"; +fn_2044->arityCount = 1; +fn_2044->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2056; +arity_1->fn = arityImpl_2049; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_2055 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2055->type = 3; -fn_2055->name = "emit-c_impl"; -fn_2055->arityCount = 1; -fn_2055->arities[0] = arity_1; +Function *fn_2048 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2048->type = 3; +fn_2048->name = "emit-c_impl"; +fn_2048->arityCount = 1; +fn_2048->arities[0] = arity_1; FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2060; +arity_2->fn = arityImpl_2053; arity_2->closures = listCons((Value *)arg1, (List *)arity_2->closures); -Function *fn_2059 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2059->type = 3; -fn_2059->name = ".sym_impl"; -fn_2059->arityCount = 1; -fn_2059->arities[0] = arity_2; +Function *fn_2052 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2052->type = 3; +fn_2052->name = ".sym_impl"; +fn_2052->arityCount = 1; +fn_2052->arities[0] = arity_2; ReifiedVal *reified_3 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 3); -reified_3->type = 50; +reified_3->type = 49; reified_3->implCount = 3; -reified_3->impls[0] = (Value *)fn_2051; -reified_3->impls[1] = (Value *)fn_2055; -reified_3->impls[2] = (Value *)fn_2059; +reified_3->impls[0] = (Value *)fn_2044; +reified_3->impls[1] = (Value *)fn_2048; +reified_3->impls[2] = (Value *)fn_2052; return ((Value *)reified_3); }; // --------- invoke_impl main body -------------- -Function fn_2049 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2050}}}; -Value *protoImpl_2063(List *closures, Value *arg0, Value *arg1) { +Function fn_2042 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2043}}}; +Value *protoImpl_2056(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2064 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2063}}}; +Function protoFn_2057 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2056}}}; -ReifiedVal reified_2065 = {49, 2, {(Value *)&fn_2045, (Value *)&fn_2049}}; -Value *var_1491 = (Value *)&reified_2065; -ProtoImpls *protoImpls_2066; -Value *protoFnImpl_2069(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2066); +ReifiedVal reified_2058 = {48, 2, {(Value *)&fn_2038, (Value *)&fn_2042}}; +Value *var_1481 = (Value *)&reified_2058; +ProtoImpls *protoImpls_2059; +Value *protoFnImpl_2062(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2059); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.kw' %lld\n", arg0->type); abort(); @@ -24526,42 +24460,42 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_2070 = {1, (List *)0, 0, protoFnImpl_2069}; -Function protoFn_2067 = {3, ".kw", 1, {&protoFnArity_2070}}; +FnArity protoFnArity_2063 = {1, (List *)0, 0, protoFnImpl_2062}; +Function protoFn_2060 = {3, ".kw", 1, {&protoFnArity_2063}}; struct {int64_t type; int64_t len; - char buffer[11];} _str_104 = {1,10,"(Value *)&"}; -Number _num_35 = {2, -1, 52}; + char buffer[11];} _str_103 = {1,10,"(Value *)&"}; +Number _num_35 = {2, -1, 51}; // --------- instance?_impl -------------- -Function fn_2071; -Value *arityImpl_2072(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1892((List *)var_31, arg1); +Function fn_2064; +Value *arityImpl_2065(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1882((List *)var_31, arg1); Value *rslt1 = arityImpl_283((List *)var_31, (Value *)&_num_35, rslt0); return (rslt1); }; // --------- instance?_impl main body -------------- -Function fn_2071 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2072}}}; -Value *protoImpl_2073(List *closures, Value *arg0, Value *arg1) { +Function fn_2064 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2065}}}; +Value *protoImpl_2066(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2074 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2073}}}; +Function protoFn_2067 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2066}}}; // --------- invoke_impl -------------- -Function fn_2075; +Function fn_2068; // --------- emit-c_impl -------------- -Function fn_2077; +Function fn_2070; // --------- anon -------------- -Function fn_2079; -Value *arityImpl_2080(List *closures, Value *arg0) { +Function fn_2072; +Value *arityImpl_2073(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -24572,7 +24506,7 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)arg0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_104, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_103, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; @@ -24586,7 +24520,7 @@ Value *rslt5 = protoFnImpl_100((List *)var_31, val0, rslt4); return (rslt5); }; -Value *arityImpl_2078(List *closures, Value *arg0) { +Value *arityImpl_2071(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -24597,35 +24531,35 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_kw_16, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_kw_14, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1014((List *)var_31, rslt2); +Value *rslt3 = arityImpl_1004((List *)var_31, rslt2); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_2080; +arity_4->fn = arityImpl_2073; arity_4->closures = listCons((Value *)rslt3, (List *)arity_4->closures); -Function *fn_2079 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2079->type = 3; -fn_2079->name = "anon"; -fn_2079->arityCount = 1; -fn_2079->arities[0] = arity_4; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2079); +Function *fn_2072 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2072->type = 3; +fn_2072->name = "anon"; +fn_2072->arityCount = 1; +fn_2072->arities[0] = arity_4; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2072); return (rslt5); }; -Value *protoImpl_2081(List *closures, Value *arg0) { +Value *protoImpl_2074(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2082 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2081}}}; +Function protoFn_2075 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2074}}}; // --------- .kw_impl -------------- -Function fn_2083; -Value *arityImpl_2084(List *closures, Value *arg0) { +Function fn_2076; +Value *arityImpl_2077(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -24633,59 +24567,59 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2085(List *closures, Value *arg0) { +Value *protoImpl_2078(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2086 = {3, ".kw", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2085}}}; +Function protoFn_2079 = {3, ".kw", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2078}}}; -Value *arityImpl_2076(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_2069(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_2078; +arity_0->fn = arityImpl_2071; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_2077 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2077->type = 3; -fn_2077->name = "emit-c_impl"; -fn_2077->arityCount = 1; -fn_2077->arities[0] = arity_0; +Function *fn_2070 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2070->type = 3; +fn_2070->name = "emit-c_impl"; +fn_2070->arityCount = 1; +fn_2070->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2084; +arity_1->fn = arityImpl_2077; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_2083 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2083->type = 3; -fn_2083->name = ".kw_impl"; -fn_2083->arityCount = 1; -fn_2083->arities[0] = arity_1; +Function *fn_2076 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2076->type = 3; +fn_2076->name = ".kw_impl"; +fn_2076->arityCount = 1; +fn_2076->arities[0] = arity_1; ReifiedVal *reified_2 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 2); -reified_2->type = 52; +reified_2->type = 51; reified_2->implCount = 2; -reified_2->impls[0] = (Value *)fn_2077; -reified_2->impls[1] = (Value *)fn_2083; +reified_2->impls[0] = (Value *)fn_2070; +reified_2->impls[1] = (Value *)fn_2076; return ((Value *)reified_2); }; // --------- invoke_impl main body -------------- -Function fn_2075 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2076}}}; -Value *protoImpl_2087(List *closures, Value *arg0, Value *arg1) { +Function fn_2068 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2069}}}; +Value *protoImpl_2080(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2088 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2087}}}; +Function protoFn_2081 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2080}}}; -ReifiedVal reified_2089 = {51, 2, {(Value *)&fn_2071, (Value *)&fn_2075}}; -Value *var_1492 = (Value *)&reified_2089; -ProtoImpls *protoImpls_2090; -Value *protoFnImpl_2093(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2090); +ReifiedVal reified_2082 = {50, 2, {(Value *)&fn_2064, (Value *)&fn_2068}}; +Value *var_1482 = (Value *)&reified_2082; +ProtoImpls *protoImpls_2083; +Value *protoFnImpl_2086(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2083); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.num' %lld\n", arg0->type); abort(); @@ -24698,39 +24632,39 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_2094 = {1, (List *)0, 0, protoFnImpl_2093}; -Function protoFn_2091 = {3, ".num", 1, {&protoFnArity_2094}}; +FnArity protoFnArity_2087 = {1, (List *)0, 0, protoFnImpl_2086}; +Function protoFn_2084 = {3, ".num", 1, {&protoFnArity_2087}}; -Number _num_36 = {2, -1, 54}; +Number _num_36 = {2, -1, 53}; // --------- instance?_impl -------------- -Function fn_2095; -Value *arityImpl_2096(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1892((List *)var_31, arg1); +Function fn_2088; +Value *arityImpl_2089(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1882((List *)var_31, arg1); Value *rslt1 = arityImpl_283((List *)var_31, (Value *)&_num_36, rslt0); return (rslt1); }; // --------- instance?_impl main body -------------- -Function fn_2095 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2096}}}; -Value *protoImpl_2097(List *closures, Value *arg0, Value *arg1) { +Function fn_2088 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2089}}}; +Value *protoImpl_2090(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2098 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2097}}}; +Function protoFn_2091 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2090}}}; // --------- invoke_impl -------------- -Function fn_2099; +Function fn_2092; // --------- emit-c_impl -------------- -Function fn_2101; +Function fn_2094; // --------- anon -------------- -Function fn_2103; -Value *arityImpl_2104(List *closures, Value *arg0) { +Function fn_2096; +Value *arityImpl_2097(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -24741,7 +24675,7 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)arg0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_104, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_103, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; @@ -24755,7 +24689,7 @@ Value *rslt5 = protoFnImpl_100((List *)var_31, val0, rslt4); return (rslt5); }; -Value *arityImpl_2102(List *closures, Value *arg0) { +Value *arityImpl_2095(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -24766,18 +24700,18 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_kw_21, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_kw_19, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1014((List *)var_31, rslt2); +Value *rslt3 = arityImpl_1004((List *)var_31, rslt2); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; varArgs4 = (List *)listCons((Value *)val0, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&_kw_22, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_kw_20, varArgs4); Value *rslt5 = arityImpl_119((List *)var_31, (Value *)varArgs4); -Value *rslt6 = arityImpl_1014((List *)var_31, rslt5); +Value *rslt6 = arityImpl_1004((List *)var_31, rslt5); List *varArgs7 = (List *)GC_malloc(sizeof(List)); varArgs7->type = ListType; varArgs7->len = 0; @@ -24790,28 +24724,28 @@ FnArity *arity_9 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_9->count = 1; arity_9->closures = empty_list; arity_9->variadic = 0; -arity_9->fn = arityImpl_2104; +arity_9->fn = arityImpl_2097; arity_9->closures = listCons((Value *)rslt8, (List *)arity_9->closures); -Function *fn_2103 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2103->type = 3; -fn_2103->name = "anon"; -fn_2103->arityCount = 1; -fn_2103->arities[0] = arity_9; -Value *rslt10 = protoFnImpl_78((List *)var_31, rslt8, (Value *)fn_2103); +Function *fn_2096 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2096->type = 3; +fn_2096->name = "anon"; +fn_2096->arityCount = 1; +fn_2096->arities[0] = arity_9; +Value *rslt10 = protoFnImpl_78((List *)var_31, rslt8, (Value *)fn_2096); return (rslt10); }; -Value *protoImpl_2105(List *closures, Value *arg0) { +Value *protoImpl_2098(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2106 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2105}}}; +Function protoFn_2099 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2098}}}; // --------- .num_impl -------------- -Function fn_2107; -Value *arityImpl_2108(List *closures, Value *arg0) { +Function fn_2100; +Value *arityImpl_2101(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -24819,59 +24753,59 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2109(List *closures, Value *arg0) { +Value *protoImpl_2102(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2110 = {3, ".num", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2109}}}; +Function protoFn_2103 = {3, ".num", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2102}}}; -Value *arityImpl_2100(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_2093(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_2102; +arity_0->fn = arityImpl_2095; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_2101 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2101->type = 3; -fn_2101->name = "emit-c_impl"; -fn_2101->arityCount = 1; -fn_2101->arities[0] = arity_0; +Function *fn_2094 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2094->type = 3; +fn_2094->name = "emit-c_impl"; +fn_2094->arityCount = 1; +fn_2094->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2108; +arity_1->fn = arityImpl_2101; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_2107 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2107->type = 3; -fn_2107->name = ".num_impl"; -fn_2107->arityCount = 1; -fn_2107->arities[0] = arity_1; +Function *fn_2100 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2100->type = 3; +fn_2100->name = ".num_impl"; +fn_2100->arityCount = 1; +fn_2100->arities[0] = arity_1; ReifiedVal *reified_2 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 2); -reified_2->type = 54; +reified_2->type = 53; reified_2->implCount = 2; -reified_2->impls[0] = (Value *)fn_2101; -reified_2->impls[1] = (Value *)fn_2107; +reified_2->impls[0] = (Value *)fn_2094; +reified_2->impls[1] = (Value *)fn_2100; return ((Value *)reified_2); }; // --------- invoke_impl main body -------------- -Function fn_2099 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2100}}}; -Value *protoImpl_2111(List *closures, Value *arg0, Value *arg1) { +Function fn_2092 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2093}}}; +Value *protoImpl_2104(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2112 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2111}}}; +Function protoFn_2105 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2104}}}; -ReifiedVal reified_2113 = {53, 2, {(Value *)&fn_2095, (Value *)&fn_2099}}; -Value *var_1493 = (Value *)&reified_2113; -ProtoImpls *protoImpls_2114; -Value *protoFnImpl_2117(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2114); +ReifiedVal reified_2106 = {52, 2, {(Value *)&fn_2088, (Value *)&fn_2092}}; +Value *var_1483 = (Value *)&reified_2106; +ProtoImpls *protoImpls_2107; +Value *protoFnImpl_2110(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2107); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.const-str' %lld\n", arg0->type); abort(); @@ -24884,40 +24818,40 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_2118 = {1, (List *)0, 0, protoFnImpl_2117}; -Function protoFn_2115 = {3, ".const-str", 1, {&protoFnArity_2118}}; +FnArity protoFnArity_2111 = {1, (List *)0, 0, protoFnImpl_2110}; +Function protoFn_2108 = {3, ".const-str", 1, {&protoFnArity_2111}}; -Number _num_37 = {2, -1, 56}; -SymKey _kw_52 = {5, -1, ":no-static-str"}; +Number _num_37 = {2, -1, 55}; +SymKey _kw_50 = {5, -1, ":no-static-str"}; // --------- instance?_impl -------------- -Function fn_2119; -Value *arityImpl_2120(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1892((List *)var_31, arg1); +Function fn_2112; +Value *arityImpl_2113(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1882((List *)var_31, arg1); Value *rslt1 = arityImpl_283((List *)var_31, (Value *)&_num_37, rslt0); return (rslt1); }; // --------- instance?_impl main body -------------- -Function fn_2119 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2120}}}; -Value *protoImpl_2121(List *closures, Value *arg0, Value *arg1) { +Function fn_2112 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2113}}}; +Value *protoImpl_2114(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2122 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2121}}}; +Function protoFn_2115 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2114}}}; // --------- invoke_impl -------------- -Function fn_2123; +Function fn_2116; // --------- emit-c_impl -------------- -Function fn_2125; +Function fn_2118; // --------- anon -------------- -Function fn_2127; -Value *arityImpl_2128(List *closures, Value *arg0) { +Function fn_2120; +Value *arityImpl_2121(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -24928,7 +24862,7 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)arg0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_104, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_103, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; @@ -24942,7 +24876,7 @@ Value *rslt5 = protoFnImpl_100((List *)var_31, val0, rslt4); return (rslt5); }; -Value *arityImpl_2126(List *closures, Value *arg0) { +Value *arityImpl_2119(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -24953,35 +24887,35 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_kw_26, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_kw_24, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1017((List *)var_31, rslt2, (Value *)&_kw_52); +Value *rslt3 = arityImpl_1007((List *)var_31, rslt2, (Value *)&_kw_50); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_2128; +arity_4->fn = arityImpl_2121; arity_4->closures = listCons((Value *)rslt3, (List *)arity_4->closures); -Function *fn_2127 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2127->type = 3; -fn_2127->name = "anon"; -fn_2127->arityCount = 1; -fn_2127->arities[0] = arity_4; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2127); +Function *fn_2120 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2120->type = 3; +fn_2120->name = "anon"; +fn_2120->arityCount = 1; +fn_2120->arities[0] = arity_4; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2120); return (rslt5); }; -Value *protoImpl_2129(List *closures, Value *arg0) { +Value *protoImpl_2122(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2130 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2129}}}; +Function protoFn_2123 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2122}}}; // --------- .const-str_impl -------------- -Function fn_2131; -Value *arityImpl_2132(List *closures, Value *arg0) { +Function fn_2124; +Value *arityImpl_2125(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -24989,98 +24923,98 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2133(List *closures, Value *arg0) { +Value *protoImpl_2126(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2134 = {3, ".const-str", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2133}}}; +Function protoFn_2127 = {3, ".const-str", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2126}}}; -Value *arityImpl_2124(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_2117(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_2126; +arity_0->fn = arityImpl_2119; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_2125 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2125->type = 3; -fn_2125->name = "emit-c_impl"; -fn_2125->arityCount = 1; -fn_2125->arities[0] = arity_0; +Function *fn_2118 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2118->type = 3; +fn_2118->name = "emit-c_impl"; +fn_2118->arityCount = 1; +fn_2118->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2132; +arity_1->fn = arityImpl_2125; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_2131 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2131->type = 3; -fn_2131->name = ".const-str_impl"; -fn_2131->arityCount = 1; -fn_2131->arities[0] = arity_1; +Function *fn_2124 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2124->type = 3; +fn_2124->name = ".const-str_impl"; +fn_2124->arityCount = 1; +fn_2124->arities[0] = arity_1; ReifiedVal *reified_2 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 2); -reified_2->type = 56; +reified_2->type = 55; reified_2->implCount = 2; -reified_2->impls[0] = (Value *)fn_2125; -reified_2->impls[1] = (Value *)fn_2131; +reified_2->impls[0] = (Value *)fn_2118; +reified_2->impls[1] = (Value *)fn_2124; return ((Value *)reified_2); }; // --------- invoke_impl main body -------------- -Function fn_2123 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2124}}}; -Value *protoImpl_2135(List *closures, Value *arg0, Value *arg1) { +Function fn_2116 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2117}}}; +Value *protoImpl_2128(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2136 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2135}}}; +Function protoFn_2129 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2128}}}; -ReifiedVal reified_2137 = {55, 2, {(Value *)&fn_2119, (Value *)&fn_2123}}; -Value *var_1494 = (Value *)&reified_2137; -SymKey _kw_53 = {5, -1, ":curr-arity-fn-sym"}; -SymKey _kw_54 = {5, -1, ":curr-arg-count"}; +ReifiedVal reified_2130 = {54, 2, {(Value *)&fn_2112, (Value *)&fn_2116}}; +Value *var_1484 = (Value *)&reified_2130; +SymKey _kw_51 = {5, -1, ":curr-arity-fn-sym"}; +SymKey _kw_52 = {5, -1, ":curr-arg-count"}; // --------- reset-fn-context -------------- -Function fn_2138; +Function fn_2131; // --------- anon -------------- -Function fn_2140; +Function fn_2133; // --------- anon -------------- -Function fn_2142; +Function fn_2135; // --------- anon -------------- -Function fn_2144; +Function fn_2137; // --------- anon -------------- -Function fn_2146; +Function fn_2139; // --------- anon -------------- -Function fn_2148; +Function fn_2141; // --------- anon -------------- -Function fn_2150; +Function fn_2143; // --------- anon -------------- -Function fn_2152; +Function fn_2145; // --------- anon -------------- -Function fn_2154; +Function fn_2147; // --------- anon -------------- -Function fn_2156; +Function fn_2149; // --------- anon -------------- -Function fn_2158; +Function fn_2151; // --------- anon -------------- -Function fn_2160; +Function fn_2153; // --------- anon -------------- -Function fn_2162; -Value *arityImpl_2163(List *closures, Value *arg0) { +Function fn_2155; +Value *arityImpl_2156(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -25125,7 +25059,7 @@ Value *rslt9 = protoFnImpl_100((List *)var_31, val0, rslt8); return (rslt9); }; -Value *arityImpl_2161(List *closures, Value *arg0) { +Value *arityImpl_2154(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -25154,12 +25088,12 @@ Value *val8 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_1009((List *)var_31, (Value *)&_kw_54, val0); +Value *rslt1 = arityImpl_999((List *)var_31, (Value *)&_kw_52, val0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2163; +arity_2->fn = arityImpl_2156; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); @@ -25167,16 +25101,16 @@ arity_2->closures = listCons((Value *)val5, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val6, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val7, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val8, (List *)arity_2->closures); -Function *fn_2162 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2162->type = 3; -fn_2162->name = "anon"; -fn_2162->arityCount = 1; -fn_2162->arities[0] = arity_2; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2162); +Function *fn_2155 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2155->type = 3; +fn_2155->name = "anon"; +fn_2155->arityCount = 1; +fn_2155->arities[0] = arity_2; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2155); return (rslt9); }; -Value *arityImpl_2159(List *closures, Value *arg0) { +Value *arityImpl_2152(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -25205,12 +25139,12 @@ Value *val8 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_54, (Value *)&_num_8); +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_52, (Value *)&_num_8); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2161; +arity_1->fn = arityImpl_2154; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); @@ -25218,16 +25152,16 @@ arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val6, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val7, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val8, (List *)arity_1->closures); -Function *fn_2160 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2160->type = 3; -fn_2160->name = "anon"; -fn_2160->arityCount = 1; -fn_2160->arities[0] = arity_1; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2160); +Function *fn_2153 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2153->type = 3; +fn_2153->name = "anon"; +fn_2153->arityCount = 1; +fn_2153->arities[0] = arity_1; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2153); return (rslt9); }; -Value *arityImpl_2157(List *closures, Value *arg0) { +Value *arityImpl_2150(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -25256,12 +25190,12 @@ Value *val8 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_1009((List *)var_31, (Value *)&_kw_53, val0); +Value *rslt1 = arityImpl_999((List *)var_31, (Value *)&_kw_51, val0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2159; +arity_2->fn = arityImpl_2152; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); @@ -25269,16 +25203,16 @@ arity_2->closures = listCons((Value *)val5, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val6, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val7, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val8, (List *)arity_2->closures); -Function *fn_2158 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2158->type = 3; -fn_2158->name = "anon"; -fn_2158->arityCount = 1; -fn_2158->arities[0] = arity_2; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2158); +Function *fn_2151 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2151->type = 3; +fn_2151->name = "anon"; +fn_2151->arityCount = 1; +fn_2151->arities[0] = arity_2; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2151); return (rslt9); }; -Value *arityImpl_2155(List *closures, Value *arg0) { +Value *arityImpl_2148(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -25307,12 +25241,12 @@ Value *val8 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_53, (Value *)&_str_19); +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_51, (Value *)&_str_19); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2157; +arity_1->fn = arityImpl_2150; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); @@ -25320,16 +25254,16 @@ arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val6, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val7, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val8, (List *)arity_1->closures); -Function *fn_2156 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2156->type = 3; -fn_2156->name = "anon"; -fn_2156->arityCount = 1; -fn_2156->arities[0] = arity_1; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2156); +Function *fn_2149 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2149->type = 3; +fn_2149->name = "anon"; +fn_2149->arityCount = 1; +fn_2149->arities[0] = arity_1; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2149); return (rslt9); }; -Value *arityImpl_2153(List *closures, Value *arg0) { +Value *arityImpl_2146(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -25354,12 +25288,12 @@ Value *val7 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1009((List *)var_31, (Value *)&_kw_48, var_31); +Value *rslt0 = arityImpl_999((List *)var_31, (Value *)&_kw_46, var_31); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2155; +arity_1->fn = arityImpl_2148; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); @@ -25367,16 +25301,16 @@ arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val6, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val7, (List *)arity_1->closures); -Function *fn_2154 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2154->type = 3; -fn_2154->name = "anon"; -fn_2154->arityCount = 1; -fn_2154->arities[0] = arity_1; -Value *rslt8 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2154); +Function *fn_2147 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2147->type = 3; +fn_2147->name = "anon"; +fn_2147->arityCount = 1; +fn_2147->arities[0] = arity_1; +Value *rslt8 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2147); return (rslt8); }; -Value *arityImpl_2151(List *closures, Value *arg0) { +Value *arityImpl_2144(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -25401,28 +25335,28 @@ Value *val7 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_48, var_31); +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_46, var_31); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2153; +arity_1->fn = arityImpl_2146; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val6, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val7, (List *)arity_1->closures); -Function *fn_2152 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2152->type = 3; -fn_2152->name = "anon"; -fn_2152->arityCount = 1; -fn_2152->arities[0] = arity_1; -Value *rslt8 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2152); +Function *fn_2145 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2145->type = 3; +fn_2145->name = "anon"; +fn_2145->arityCount = 1; +fn_2145->arities[0] = arity_1; +Value *rslt8 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2145); return (rslt8); }; -Value *arityImpl_2149(List *closures, Value *arg0) { +Value *arityImpl_2142(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -25451,28 +25385,28 @@ varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); varArgs1 = (List *)listCons((Value *)arg0, varArgs1); Value *rslt2 = arityImpl_250((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1009((List *)var_31, (Value *)&_kw_47, rslt2); +Value *rslt3 = arityImpl_999((List *)var_31, (Value *)&_kw_45, rslt2); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_2151; +arity_4->fn = arityImpl_2144; arity_4->closures = listCons((Value *)val5, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val6, (List *)arity_4->closures); arity_4->closures = listCons((Value *)arg0, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val7, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val0, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val8, (List *)arity_4->closures); -Function *fn_2150 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2150->type = 3; -fn_2150->name = "anon"; -fn_2150->arityCount = 1; -fn_2150->arities[0] = arity_4; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2150); +Function *fn_2143 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2143->type = 3; +fn_2143->name = "anon"; +fn_2143->arityCount = 1; +fn_2143->arities[0] = arity_4; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2143); return (rslt9); }; -Value *arityImpl_2147(List *closures, Value *arg0) { +Value *arityImpl_2140(List *closures, Value *arg0) { Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -25499,27 +25433,27 @@ varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; Value *rslt1 = arityImpl_623((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1004((List *)var_31, (Value *)&_kw_47, rslt1); +Value *rslt2 = arityImpl_994((List *)var_31, (Value *)&_kw_45, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2149; +arity_3->fn = arityImpl_2142; arity_3->closures = listCons((Value *)val4, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val5, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val6, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val7, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val8, (List *)arity_3->closures); -Function *fn_2148 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2148->type = 3; -fn_2148->name = "anon"; -fn_2148->arityCount = 1; -fn_2148->arities[0] = arity_3; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2148); +Function *fn_2141 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2141->type = 3; +fn_2141->name = "anon"; +fn_2141->arityCount = 1; +fn_2141->arities[0] = arity_3; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2141); return (rslt9); }; -Value *arityImpl_2145(List *closures, Value *arg0) { +Value *arityImpl_2138(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -25536,27 +25470,27 @@ Value *val5 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1009((List *)var_31, (Value *)&_kw_45, (Value *)&_num_8); +Value *rslt0 = arityImpl_999((List *)var_31, (Value *)&_kw_43, (Value *)&_num_8); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2147; +arity_1->fn = arityImpl_2140; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); -Function *fn_2146 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2146->type = 3; -fn_2146->name = "anon"; -fn_2146->arityCount = 1; -fn_2146->arities[0] = arity_1; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2146); +Function *fn_2139 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2139->type = 3; +fn_2139->name = "anon"; +fn_2139->arityCount = 1; +fn_2139->arities[0] = arity_1; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2139); return (rslt6); }; -Value *arityImpl_2143(List *closures, Value *arg0) { +Value *arityImpl_2136(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -25573,26 +25507,26 @@ Value *val5 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_45, (Value *)&_num_8); +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_43, (Value *)&_num_8); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2145; +arity_1->fn = arityImpl_2138; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); -Function *fn_2144 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2144->type = 3; -fn_2144->name = "anon"; -fn_2144->arityCount = 1; -fn_2144->arities[0] = arity_1; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2144); +Function *fn_2137 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2137->type = 3; +fn_2137->name = "anon"; +fn_2137->arityCount = 1; +fn_2137->arities[0] = arity_1; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2137); return (rslt6); }; -Value *arityImpl_2141(List *closures, Value *arg0) { +Value *arityImpl_2134(List *closures, Value *arg0) { Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -25611,57 +25545,57 @@ varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; Value *rslt1 = arityImpl_623((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1009((List *)var_31, (Value *)&_kw_46, rslt1); +Value *rslt2 = arityImpl_999((List *)var_31, (Value *)&_kw_44, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2143; +arity_3->fn = arityImpl_2136; arity_3->closures = listCons((Value *)arg0, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val4, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val5, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val6, (List *)arity_3->closures); -Function *fn_2142 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2142->type = 3; -fn_2142->name = "anon"; -fn_2142->arityCount = 1; -fn_2142->arities[0] = arity_3; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2142); +Function *fn_2135 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2135->type = 3; +fn_2135->name = "anon"; +fn_2135->arityCount = 1; +fn_2135->arities[0] = arity_3; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2135); return (rslt7); }; -Value *arityImpl_2139(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_2132(List *closures, Value *arg0, Value *arg1) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; Value *rslt1 = arityImpl_623((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1004((List *)var_31, (Value *)&_kw_46, rslt1); +Value *rslt2 = arityImpl_994((List *)var_31, (Value *)&_kw_44, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2141; +arity_3->fn = arityImpl_2134; arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); arity_3->closures = listCons((Value *)arg1, (List *)arity_3->closures); arity_3->closures = listCons((Value *)arg0, (List *)arity_3->closures); -Function *fn_2140 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2140->type = 3; -fn_2140->name = "anon"; -fn_2140->arityCount = 1; -fn_2140->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2140); +Function *fn_2133 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2133->type = 3; +fn_2133->name = "anon"; +fn_2133->arityCount = 1; +fn_2133->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2133); return (rslt4); }; // --------- reset-fn-context main body -------------- -Function fn_2138 = {3, "reset-fn-context", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2139}}}; +Function fn_2131 = {3, "reset-fn-context", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2132}}}; // --------- restore-fn-context -------------- -Function fn_2165; -Value *arityImpl_2166(List *closures, Value *arg0) { +Function fn_2158; +Value *arityImpl_2159(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; @@ -25680,12 +25614,12 @@ Value *rslt6 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_2, rslt5); Value *rslt7 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_3, var_31); Value *rslt8 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_4, var_31); Value *rslt9 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_5, var_31); -Value *rslt10 = arityImpl_1009((List *)var_31, (Value *)&_kw_47, rslt6); -Value *rslt11 = arityImpl_1009((List *)var_31, (Value *)&_kw_46, rslt2); -Value *rslt12 = arityImpl_1009((List *)var_31, (Value *)&_kw_45, rslt3); -Value *rslt13 = arityImpl_1009((List *)var_31, (Value *)&_kw_48, rslt7); -Value *rslt14 = arityImpl_1009((List *)var_31, (Value *)&_kw_53, rslt8); -Value *rslt15 = arityImpl_1009((List *)var_31, (Value *)&_kw_54, rslt9); +Value *rslt10 = arityImpl_999((List *)var_31, (Value *)&_kw_45, rslt6); +Value *rslt11 = arityImpl_999((List *)var_31, (Value *)&_kw_44, rslt2); +Value *rslt12 = arityImpl_999((List *)var_31, (Value *)&_kw_43, rslt3); +Value *rslt13 = arityImpl_999((List *)var_31, (Value *)&_kw_46, rslt7); +Value *rslt14 = arityImpl_999((List *)var_31, (Value *)&_kw_51, rslt8); +Value *rslt15 = arityImpl_999((List *)var_31, (Value *)&_kw_52, rslt9); List *varArgs16 = (List *)GC_malloc(sizeof(List)); varArgs16->type = ListType; varArgs16->len = 0; @@ -25704,48 +25638,48 @@ return (rslt17); // --------- restore-fn-context main body -------------- -Function fn_2165 = {3, "restore-fn-context", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2166}}}; +Function fn_2158 = {3, "restore-fn-context", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2159}}}; struct {int64_t type; int64_t len; - char buffer[21];} _str_105 = {1,20," = closures->head;\n"}; + char buffer[21];} _str_104 = {1,20," = closures->head;\n"}; struct {int64_t type; int64_t len; - char buffer[64];} _str_106 = {1,63,"if (closures->tail)\nclosures->tail->len = closures->len - 1;\n"}; + char buffer[64];} _str_105 = {1,63,"if (closures->tail)\nclosures->tail->len = closures->len - 1;\n"}; struct {int64_t type; int64_t len; - char buffer[29];} _str_107 = {1,28,"closures = closures->tail;\n"}; + char buffer[29];} _str_106 = {1,28,"closures = closures->tail;\n"}; // --------- emit-closures -------------- -Function fn_2168; +Function fn_2161; // --------- anon -------------- -Function fn_2170; +Function fn_2163; // --------- anon -------------- -Function fn_2172; -Value *arityImpl_2173(List *closures, Value *arg0) { +Function fn_2165; +Value *arityImpl_2166(List *closures, Value *arg0) { Value *rslt0 = protoFnImpl_219((List *)var_31, arg0); List *varArgs1 = (List *)GC_malloc(sizeof(List)); varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)(Value *)&_str_107, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_106, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_105, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_104, varArgs1); varArgs1 = (List *)listCons((Value *)rslt0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_84, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_83, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); return (rslt2); }; // --------- anon main body -------------- -Function fn_2172 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2173}}}; +Function fn_2165 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2166}}}; // --------- anon -------------- -Function fn_2174; -Value *arityImpl_2175(List *closures, Value *arg0) { +Function fn_2167; +Value *arityImpl_2168(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -25754,67 +25688,67 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_2171(List *closures, Value *arg0) { +Value *arityImpl_2164(List *closures, Value *arg0) { Value *val5 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = arityImpl_310((List *)var_31, arg0); -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)&fn_2172); -Value *rslt3 = arityImpl_1949((List *)var_31, rslt2); +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)&fn_2165); +Value *rslt3 = arityImpl_1942((List *)var_31, rslt2); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_2175; +arity_4->fn = arityImpl_2168; arity_4->closures = listCons((Value *)val5, (List *)arity_4->closures); -Function *fn_2174 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2174->type = 3; -fn_2174->name = "anon"; -fn_2174->arityCount = 1; -fn_2174->arities[0] = arity_4; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2174); +Function *fn_2167 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2167->type = 3; +fn_2167->name = "anon"; +fn_2167->arityCount = 1; +fn_2167->arities[0] = arity_4; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2167); return (rslt6); }; -Value *arityImpl_2169(List *closures) { -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_48, var_31); +Value *arityImpl_2162(List *closures) { +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_46, var_31); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2171; +arity_1->fn = arityImpl_2164; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_2170 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2170->type = 3; -fn_2170->name = "anon"; -fn_2170->arityCount = 1; -fn_2170->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2170); +Function *fn_2163 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2163->type = 3; +fn_2163->name = "anon"; +fn_2163->arityCount = 1; +fn_2163->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2163); return (rslt2); }; // --------- emit-closures main body -------------- -Function fn_2168 = {3, "emit-closures", 1, {&(FnArity){0, (List *)0, 0, arityImpl_2169}}}; +Function fn_2161 = {3, "emit-closures", 1, {&(FnArity){0, (List *)0, 0, arityImpl_2162}}}; struct {int64_t type; int64_t len; - char buffer[9];} _str_108 = {1,8,"return ("}; + char buffer[9];} _str_107 = {1,8,"return ("}; struct {int64_t type; int64_t len; - char buffer[5];} _str_109 = {1,4,");\n"}; + char buffer[5];} _str_108 = {1,4,");\n"}; // --------- emit-body -------------- -Function fn_2177; -Value *arityImpl_2178(List *closures, Value *arg0) { +Function fn_2170; +Value *arityImpl_2171(List *closures, Value *arg0) { Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_8, (Value *)&_str_19); Value *rslt1 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, var_31); -Value *rslt2 = arityImpl_1949((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1942((List *)var_31, rslt1); Value *cond3; Value *rslt7 = arityImpl_283((List *)var_31, rslt0, (Value *)&_str_19); if (isTrue(rslt7)) { -Value *rslt8 = arityImpl_985((List *)var_31, (Value *)&_str_19); +Value *rslt8 = arityImpl_975((List *)var_31, (Value *)&_str_19); cond3 = rslt8; } else { List *varArgs4 = (List *)GC_malloc(sizeof(List)); @@ -25822,11 +25756,11 @@ varArgs4->type = ListType; varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; -varArgs4 = (List *)listCons((Value *)(Value *)&_str_109, varArgs4); -varArgs4 = (List *)listCons((Value *)rslt0, varArgs4); varArgs4 = (List *)listCons((Value *)(Value *)&_str_108, varArgs4); +varArgs4 = (List *)listCons((Value *)rslt0, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_107, varArgs4); Value *rslt5 = arityImpl_508((List *)var_31, (Value *)varArgs4); -Value *rslt6 = arityImpl_1944((List *)var_31, rslt5); +Value *rslt6 = arityImpl_1937((List *)var_31, rslt5); cond3 = rslt6; } List *varArgs9 = (List *)GC_malloc(sizeof(List)); @@ -25843,18 +25777,18 @@ return (rslt10); // --------- emit-body main body -------------- -Function fn_2177 = {3, "emit-body", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2178}}}; +Function fn_2170 = {3, "emit-body", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2171}}}; struct {int64_t type; int64_t len; - char buffer[12];} _str_110 = {1,11,"&(FnArity){"}; + char buffer[12];} _str_109 = {1,11,"&(FnArity){"}; struct {int64_t type; int64_t len; - char buffer[14];} _str_111 = {1,13,", (List *)0, "}; -SymKey _kw_55 = {5, -1, ":variadic"}; + char buffer[14];} _str_110 = {1,13,", (List *)0, "}; +SymKey _kw_53 = {5, -1, ":variadic"}; // --------- static-arity -------------- -Function fn_2180; -Value *arityImpl_2181(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Function fn_2173; +Value *arityImpl_2174(List *closures, Value *arg0, Value *arg1, Value *arg2) { Value *rslt0 = protoFnImpl_195((List *)var_31, arg1); List *varArgs1 = (List *)GC_malloc(sizeof(List)); varArgs1->type = ListType; @@ -25865,9 +25799,9 @@ varArgs1 = (List *)listCons((Value *)(Value *)&_str_23, varArgs1); varArgs1 = (List *)listCons((Value *)arg0, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_17, varArgs1); varArgs1 = (List *)listCons((Value *)arg2, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_111, varArgs1); -varArgs1 = (List *)listCons((Value *)rslt0, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_110, varArgs1); +varArgs1 = (List *)listCons((Value *)rslt0, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_109, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); Value *cond3; @@ -25878,7 +25812,7 @@ varArgs7->len = 0; varArgs7->head = (Value *)0; varArgs7->tail = (List *)0; varArgs7 = (List *)listCons((Value *)arg0, varArgs7); -varArgs7 = (List *)listCons((Value *)(Value *)&_kw_55, varArgs7); +varArgs7 = (List *)listCons((Value *)(Value *)&_kw_53, varArgs7); Value *rslt8 = arityImpl_623((List *)var_31, (Value *)varArgs7); cond3 = rslt8; } else { @@ -25902,50 +25836,50 @@ varArgs9 = (List *)listCons((Value *)cond3, varArgs9); varArgs9 = (List *)listCons((Value *)var_31, varArgs9); varArgs9 = (List *)listCons((Value *)rslt2, varArgs9); Value *rslt10 = arityImpl_119((List *)var_31, (Value *)varArgs9); -Value *rslt11 = arityImpl_985((List *)var_31, rslt10); +Value *rslt11 = arityImpl_975((List *)var_31, rslt10); return (rslt11); }; // --------- static-arity main body -------------- -Function fn_2180 = {3, "static-arity", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2181}}}; +Function fn_2173 = {3, "static-arity", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2174}}}; struct {int64_t type; int64_t len; - char buffer[32];} _str_112 = {1,31,"->closures = listCons((Value *)"}; + char buffer[32];} _str_111 = {1,31,"->closures = listCons((Value *)"}; struct {int64_t type; int64_t len; - char buffer[11];} _str_113 = {1,10,", (List *)"}; + char buffer[11];} _str_112 = {1,10,", (List *)"}; struct {int64_t type; int64_t len; - char buffer[15];} _str_114 = {1,14,"->closures);\n"}; + char buffer[15];} _str_113 = {1,14,"->closures);\n"}; struct {int64_t type; int64_t len; - char buffer[44];} _str_115 = {1,43," = (FnArity *)GC_malloc(sizeof(FnArity));\n"}; + char buffer[44];} _str_114 = {1,43," = (FnArity *)GC_malloc(sizeof(FnArity));\n"}; struct {int64_t type; int64_t len; - char buffer[11];} _str_116 = {1,10,"->count = "}; + char buffer[11];} _str_115 = {1,10,"->count = "}; struct {int64_t type; int64_t len; - char buffer[4];} _str_117 = {1,3,";\n"}; + char buffer[4];} _str_116 = {1,3,";\n"}; struct {int64_t type; int64_t len; - char buffer[27];} _str_118 = {1,26,"->closures = empty_list;\n"}; + char buffer[27];} _str_117 = {1,26,"->closures = empty_list;\n"}; struct {int64_t type; int64_t len; - char buffer[14];} _str_119 = {1,13,"->variadic = "}; + char buffer[14];} _str_118 = {1,13,"->variadic = "}; struct {int64_t type; int64_t len; - char buffer[8];} _str_120 = {1,7,"->fn = "}; + char buffer[8];} _str_119 = {1,7,"->fn = "}; // --------- arity-closes-over -------------- -Function fn_2183; +Function fn_2176; // --------- anon -------------- -Function fn_2185; +Function fn_2178; // --------- anon -------------- -Function fn_2187; -Value *arityImpl_2188(List *closures, Value *arg0) { +Function fn_2180; +Value *arityImpl_2181(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -25960,44 +25894,44 @@ varArgs3->type = ListType; varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; -varArgs3 = (List *)listCons((Value *)(Value *)&_str_114, varArgs3); -varArgs3 = (List *)listCons((Value *)val1, varArgs3); varArgs3 = (List *)listCons((Value *)(Value *)&_str_113, varArgs3); -varArgs3 = (List *)listCons((Value *)rslt2, varArgs3); +varArgs3 = (List *)listCons((Value *)val1, varArgs3); varArgs3 = (List *)listCons((Value *)(Value *)&_str_112, varArgs3); +varArgs3 = (List *)listCons((Value *)rslt2, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_111, varArgs3); varArgs3 = (List *)listCons((Value *)val1, varArgs3); Value *rslt4 = arityImpl_508((List *)var_31, (Value *)varArgs3); Value *rslt5 = protoFnImpl_100((List *)var_31, val0, rslt4); return (rslt5); }; -Value *arityImpl_2186(List *closures, Value *arg0) { +Value *arityImpl_2179(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, (Value *)&_str_19); -Value *rslt1 = arityImpl_2034((List *)var_31, rslt0); +Value *rslt1 = arityImpl_2027((List *)var_31, rslt0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2188; +arity_2->fn = arityImpl_2181; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)rslt1, (List *)arity_2->closures); -Function *fn_2187 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2187->type = 3; -fn_2187->name = "anon"; -fn_2187->arityCount = 1; -fn_2187->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2187); +Function *fn_2180 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2180->type = 3; +fn_2180->name = "anon"; +fn_2180->arityCount = 1; +fn_2180->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2180); return (rslt4); }; // --------- anon -------------- -Function fn_2189; -Value *arityImpl_2190(List *closures, Value *arg0) { +Function fn_2182; +Value *arityImpl_2183(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -26023,9 +25957,9 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)(Value *)&_str_115, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_114, varArgs2); varArgs2 = (List *)listCons((Value *)val1, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_95, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_94, varArgs2); Value *rslt3 = arityImpl_508((List *)var_31, (Value *)varArgs2); Value *rslt5 = protoFnImpl_195((List *)var_31, val4); List *varArgs6 = (List *)GC_malloc(sizeof(List)); @@ -26033,9 +25967,9 @@ varArgs6->type = ListType; varArgs6->len = 0; varArgs6->head = (Value *)0; varArgs6->tail = (List *)0; -varArgs6 = (List *)listCons((Value *)(Value *)&_str_117, varArgs6); -varArgs6 = (List *)listCons((Value *)rslt5, varArgs6); varArgs6 = (List *)listCons((Value *)(Value *)&_str_116, varArgs6); +varArgs6 = (List *)listCons((Value *)rslt5, varArgs6); +varArgs6 = (List *)listCons((Value *)(Value *)&_str_115, varArgs6); varArgs6 = (List *)listCons((Value *)val1, varArgs6); Value *rslt7 = arityImpl_508((List *)var_31, (Value *)varArgs6); List *varArgs8 = (List *)GC_malloc(sizeof(List)); @@ -26043,7 +25977,7 @@ varArgs8->type = ListType; varArgs8->len = 0; varArgs8->head = (Value *)0; varArgs8->tail = (List *)0; -varArgs8 = (List *)listCons((Value *)(Value *)&_str_118, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_str_117, varArgs8); varArgs8 = (List *)listCons((Value *)val1, varArgs8); Value *rslt9 = arityImpl_508((List *)var_31, (Value *)varArgs8); List *varArgs11 = (List *)GC_malloc(sizeof(List)); @@ -26051,9 +25985,9 @@ varArgs11->type = ListType; varArgs11->len = 0; varArgs11->head = (Value *)0; varArgs11->tail = (List *)0; -varArgs11 = (List *)listCons((Value *)(Value *)&_str_117, varArgs11); +varArgs11 = (List *)listCons((Value *)(Value *)&_str_116, varArgs11); varArgs11 = (List *)listCons((Value *)val10, varArgs11); -varArgs11 = (List *)listCons((Value *)(Value *)&_str_119, varArgs11); +varArgs11 = (List *)listCons((Value *)(Value *)&_str_118, varArgs11); varArgs11 = (List *)listCons((Value *)val1, varArgs11); Value *rslt12 = arityImpl_508((List *)var_31, (Value *)varArgs11); List *varArgs14 = (List *)GC_malloc(sizeof(List)); @@ -26061,9 +25995,9 @@ varArgs14->type = ListType; varArgs14->len = 0; varArgs14->head = (Value *)0; varArgs14->tail = (List *)0; -varArgs14 = (List *)listCons((Value *)(Value *)&_str_117, varArgs14); +varArgs14 = (List *)listCons((Value *)(Value *)&_str_116, varArgs14); varArgs14 = (List *)listCons((Value *)val13, varArgs14); -varArgs14 = (List *)listCons((Value *)(Value *)&_str_120, varArgs14); +varArgs14 = (List *)listCons((Value *)(Value *)&_str_119, varArgs14); varArgs14 = (List *)listCons((Value *)val1, varArgs14); Value *rslt15 = arityImpl_508((List *)var_31, (Value *)varArgs14); List *varArgs16 = (List *)GC_malloc(sizeof(List)); @@ -26090,90 +26024,90 @@ Value *rslt20 = protoFnImpl_100((List *)var_31, val0, rslt19); return (rslt20); }; -Value *arityImpl_2184(List *closures, Value *arg0, Value *arg1, Value *arg2, Value *arg3, Value *arg4) { +Value *arityImpl_2177(List *closures, Value *arg0, Value *arg1, Value *arg2, Value *arg3, Value *arg4) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_2186; +arity_0->fn = arityImpl_2179; arity_0->closures = listCons((Value *)arg0, (List *)arity_0->closures); -Function *fn_2185 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2185->type = 3; -fn_2185->name = "anon"; -fn_2185->arityCount = 1; -fn_2185->arities[0] = arity_0; -Value *rslt1 = protoFnImpl_232((List *)var_31, arg3, (Value *)fn_2185); +Function *fn_2178 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2178->type = 3; +fn_2178->name = "anon"; +fn_2178->arityCount = 1; +fn_2178->arities[0] = arity_0; +Value *rslt1 = protoFnImpl_232((List *)var_31, arg3, (Value *)fn_2178); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2190; +arity_2->fn = arityImpl_2183; arity_2->closures = listCons((Value *)arg1, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg4, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg2, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)rslt1, (List *)arity_2->closures); -Function *fn_2189 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2189->type = 3; -fn_2189->name = "anon"; -fn_2189->arityCount = 1; -fn_2189->arities[0] = arity_2; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2189); +Function *fn_2182 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2182->type = 3; +fn_2182->name = "anon"; +fn_2182->arityCount = 1; +fn_2182->arities[0] = arity_2; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2182); return (rslt3); }; // --------- arity-closes-over main body -------------- -Function fn_2183 = {3, "arity-closes-over", 1, {&(FnArity){5, (List *)0, 0, arityImpl_2184}}}; +Function fn_2176 = {3, "arity-closes-over", 1, {&(FnArity){5, (List *)0, 0, arityImpl_2177}}}; struct {int64_t type; int64_t len; - char buffer[8];} _str_121 = {1,7,"extern "}; -SymKey _kw_56 = {5, -1, ":bootstrapping"}; -SymKey _kw_57 = {5, -1, ":new-static-fns"}; + char buffer[8];} _str_120 = {1,7,"extern "}; +SymKey _kw_54 = {5, -1, ":bootstrapping"}; +SymKey _kw_55 = {5, -1, ":new-static-fns"}; // --------- emit-externs -------------- -Function fn_2192; +Function fn_2185; // --------- anon -------------- -Function fn_2194; +Function fn_2187; // --------- anon -------------- -Function fn_2196; +Function fn_2189; // --------- anon -------------- -Function fn_2198; -Value *arityImpl_2199(List *closures, Value *arg0) { +Function fn_2191; +Value *arityImpl_2192(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_str_117, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_116, varArgs0); varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_str_121, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_120, varArgs0); Value *rslt1 = arityImpl_508((List *)var_31, (Value *)varArgs0); return (rslt1); }; // --------- anon main body -------------- -Function fn_2198 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2199}}}; +Function fn_2191 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2192}}}; // --------- anon -------------- -Function fn_2200; +Function fn_2193; // --------- anon -------------- -Function fn_2202; +Function fn_2195; // --------- anon -------------- -Function fn_2204; +Function fn_2197; // --------- anon -------------- -Function fn_2206; +Function fn_2199; // --------- anon -------------- -Function fn_2208; -Value *arityImpl_2209(List *closures, Value *arg0) { +Function fn_2201; +Value *arityImpl_2202(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -26182,163 +26116,163 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_2207(List *closures, Value *arg0) { +Value *arityImpl_2200(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1009((List *)var_31, (Value *)&_kw_57, var_31); +Value *rslt0 = arityImpl_999((List *)var_31, (Value *)&_kw_55, var_31); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2209; +arity_1->fn = arityImpl_2202; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_2208 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2208->type = 3; -fn_2208->name = "anon"; -fn_2208->arityCount = 1; -fn_2208->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2208); +Function *fn_2201 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2201->type = 3; +fn_2201->name = "anon"; +fn_2201->arityCount = 1; +fn_2201->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2201); return (rslt3); }; -Value *arityImpl_2205(List *closures, Value *arg0) { +Value *arityImpl_2198(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1949((List *)var_31, arg0); +Value *rslt0 = arityImpl_1942((List *)var_31, arg0); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2207; +arity_1->fn = arityImpl_2200; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_2206 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2206->type = 3; -fn_2206->name = "anon"; -fn_2206->arityCount = 1; -fn_2206->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2206); +Function *fn_2199 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2199->type = 3; +fn_2199->name = "anon"; +fn_2199->arityCount = 1; +fn_2199->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2199); return (rslt3); }; -Value *arityImpl_2203(List *closures, Value *arg0) { +Value *arityImpl_2196(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_57, var_31); +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_55, var_31); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2205; +arity_1->fn = arityImpl_2198; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_2204 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2204->type = 3; -fn_2204->name = "anon"; -fn_2204->arityCount = 1; -fn_2204->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2204); +Function *fn_2197 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2197->type = 3; +fn_2197->name = "anon"; +fn_2197->arityCount = 1; +fn_2197->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2197); return (rslt3); }; -Value *arityImpl_2201(List *closures, Value *arg0) { +Value *arityImpl_2194(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1009((List *)var_31, (Value *)&_kw_19, var_31); +Value *rslt0 = arityImpl_999((List *)var_31, (Value *)&_kw_17, var_31); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2203; +arity_1->fn = arityImpl_2196; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_2202 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2202->type = 3; -fn_2202->name = "anon"; -fn_2202->arityCount = 1; -fn_2202->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2202); +Function *fn_2195 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2195->type = 3; +fn_2195->name = "anon"; +fn_2195->arityCount = 1; +fn_2195->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2195); return (rslt3); }; -Value *arityImpl_2197(List *closures, Value *arg0) { +Value *arityImpl_2190(List *closures, Value *arg0) { Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = protoFnImpl_125((List *)var_31, arg0, (Value *)&fn_2198); -Value *rslt2 = arityImpl_1949((List *)var_31, rslt1); +Value *rslt1 = protoFnImpl_125((List *)var_31, arg0, (Value *)&fn_2191); +Value *rslt2 = arityImpl_1942((List *)var_31, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2201; +arity_3->fn = arityImpl_2194; arity_3->closures = listCons((Value *)val4, (List *)arity_3->closures); -Function *fn_2200 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2200->type = 3; -fn_2200->name = "anon"; -fn_2200->arityCount = 1; -fn_2200->arities[0] = arity_3; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2200); +Function *fn_2193 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2193->type = 3; +fn_2193->name = "anon"; +fn_2193->arityCount = 1; +fn_2193->arities[0] = arity_3; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2193); return (rslt5); }; -Value *arityImpl_2195(List *closures, Value *arg0) { +Value *arityImpl_2188(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_19, var_31); +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_17, var_31); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2197; +arity_1->fn = arityImpl_2190; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_2196 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2196->type = 3; -fn_2196->name = "anon"; -fn_2196->arityCount = 1; -fn_2196->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2196); +Function *fn_2189 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2189->type = 3; +fn_2189->name = "anon"; +fn_2189->arityCount = 1; +fn_2189->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2189); return (rslt3); }; -Value *arityImpl_2193(List *closures) { -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_56, var_20); +Value *arityImpl_2186(List *closures) { +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_54, var_20); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2195; +arity_1->fn = arityImpl_2188; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_2194 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2194->type = 3; -fn_2194->name = "anon"; -fn_2194->arityCount = 1; -fn_2194->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2194); +Function *fn_2187 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2187->type = 3; +fn_2187->name = "anon"; +fn_2187->arityCount = 1; +fn_2187->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2187); return (rslt2); }; // --------- emit-externs main body -------------- -Function fn_2192 = {3, "emit-externs", 1, {&(FnArity){0, (List *)0, 0, arityImpl_2193}}}; +Function fn_2185 = {3, "emit-externs", 1, {&(FnArity){0, (List *)0, 0, arityImpl_2186}}}; // --------- eval-exprs -------------- -Function fn_2211; +Function fn_2204; // --------- anon -------------- -Function fn_2213; +Function fn_2206; // --------- anon -------------- -Function fn_2215; -Value *arityImpl_2216(List *closures, Value *arg0, Value *arg1) { +Function fn_2208; +Value *arityImpl_2209(List *closures, Value *arg0, Value *arg1) { Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, var_31); Value *rslt1 = arityImpl_524((List *)var_31, arg1, (Value *)&_num_8, (Value *)&_str_19); Value *rslt2 = arityImpl_524((List *)var_31, arg1, (Value *)&_num_1, var_31); @@ -26363,50 +26297,50 @@ return (rslt6); // --------- anon main body -------------- -Function fn_2215 = {3, "anon", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2216}}}; -Value *arityImpl_2214(List *closures, Value *arg0) { +Function fn_2208 = {3, "anon", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2209}}}; +Value *arityImpl_2207(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt2 = arityImpl_297((List *)var_31, arg0, var_31, (Value *)&fn_2215); +Value *rslt2 = arityImpl_297((List *)var_31, arg0, var_31, (Value *)&fn_2208); Value *rslt3 = protoFnImpl_100((List *)var_31, val0, rslt2); return (rslt3); }; -Value *arityImpl_2212(List *closures, Value *arg0) { -Value *rslt0 = protoFnImpl_740((List *)var_31, arg0, (Value *)&protoFn_1968); +Value *arityImpl_2205(List *closures, Value *arg0) { +Value *rslt0 = protoFnImpl_730((List *)var_31, arg0, (Value *)&protoFn_1961); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2214; +arity_1->fn = arityImpl_2207; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_2213 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2213->type = 3; -fn_2213->name = "anon"; -fn_2213->arityCount = 1; -fn_2213->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2213); +Function *fn_2206 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2206->type = 3; +fn_2206->name = "anon"; +fn_2206->arityCount = 1; +fn_2206->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2206); return (rslt2); }; // --------- eval-exprs main body -------------- -Function fn_2211 = {3, "eval-exprs", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2212}}}; +Function fn_2204 = {3, "eval-exprs", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2205}}}; struct {int64_t type; int64_t len; - char buffer[4];} _str_122 = {1,3,"arg"}; + char buffer[4];} _str_121 = {1,3,"arg"}; // --------- gen-arg-syms -------------- -Function fn_2218; +Function fn_2211; // --------- anon -------------- -Function fn_2220; +Function fn_2213; // --------- anon -------------- -Function fn_2222; -Value *arityImpl_2223(List *closures, Value *arg0) { +Function fn_2215; +Value *arityImpl_2216(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -26419,7 +26353,7 @@ Value *rslt2 = protoFnImpl_100((List *)var_31, val0, val1); return (rslt2); }; -Value *arityImpl_2221(List *closures, Value *arg0) { +Value *arityImpl_2214(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -26430,7 +26364,7 @@ varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_str_122, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_121, varArgs0); Value *rslt1 = arityImpl_508((List *)var_31, (Value *)varArgs0); Value *rslt3 = arityImpl_524((List *)var_31, val2, arg0, (Value *)&_str_19); List *varArgs4 = (List *)GC_malloc(sizeof(List)); @@ -26439,48 +26373,48 @@ varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; varArgs4 = (List *)listCons((Value *)rslt3, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&_kw_46, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_kw_44, varArgs4); Value *rslt5 = arityImpl_119((List *)var_31, (Value *)varArgs4); -Value *rslt6 = arityImpl_1022((List *)var_31, rslt5, rslt1); +Value *rslt6 = arityImpl_1012((List *)var_31, rslt5, rslt1); FnArity *arity_7 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_7->count = 1; arity_7->closures = empty_list; arity_7->variadic = 0; -arity_7->fn = arityImpl_2223; +arity_7->fn = arityImpl_2216; arity_7->closures = listCons((Value *)rslt1, (List *)arity_7->closures); arity_7->closures = listCons((Value *)rslt6, (List *)arity_7->closures); -Function *fn_2222 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2222->type = 3; -fn_2222->name = "anon"; -fn_2222->arityCount = 1; -fn_2222->arities[0] = arity_7; -Value *rslt8 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_2222); +Function *fn_2215 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2215->type = 3; +fn_2215->name = "anon"; +fn_2215->arityCount = 1; +fn_2215->arities[0] = arity_7; +Value *rslt8 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_2215); return (rslt8); }; -Value *arityImpl_2219(List *closures, Value *arg0) { +Value *arityImpl_2212(List *closures, Value *arg0) { Value *cond0; Value *rslt2 = protoFnImpl_195((List *)var_31, arg0); Value *rslt3 = arityImpl_287((List *)var_31, (Value *)&_num_8, rslt2); if (isTrue(rslt3)) { Value *rslt4 = protoFnImpl_195((List *)var_31, arg0); -Value *rslt5 = arityImpl_674((List *)var_31, rslt4); +Value *rslt5 = arityImpl_664((List *)var_31, rslt4); FnArity *arity_6 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_6->count = 1; arity_6->closures = empty_list; arity_6->variadic = 0; -arity_6->fn = arityImpl_2221; +arity_6->fn = arityImpl_2214; arity_6->closures = listCons((Value *)arg0, (List *)arity_6->closures); -Function *fn_2220 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2220->type = 3; -fn_2220->name = "anon"; -fn_2220->arityCount = 1; -fn_2220->arities[0] = arity_6; -Value *rslt7 = protoFnImpl_232((List *)var_31, rslt5, (Value *)fn_2220); +Function *fn_2213 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2213->type = 3; +fn_2213->name = "anon"; +fn_2213->arityCount = 1; +fn_2213->arities[0] = arity_6; +Value *rslt7 = protoFnImpl_232((List *)var_31, rslt5, (Value *)fn_2213); cond0 = rslt7; } else { -Value *rslt1 = arityImpl_985((List *)var_31, var_31); +Value *rslt1 = arityImpl_975((List *)var_31, var_31); cond0 = rslt1; } return (cond0); @@ -26488,10 +26422,10 @@ return (cond0); // --------- gen-arg-syms main body -------------- -Function fn_2218 = {3, "gen-arg-syms", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2219}}}; -ProtoImpls *protoImpls_2225; -Value *protoFnImpl_2228(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2225); +Function fn_2211 = {3, "gen-arg-syms", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2212}}}; +ProtoImpls *protoImpls_2218; +Value *protoFnImpl_2221(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2218); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.body' %lld\n", arg0->type); abort(); @@ -26504,90 +26438,90 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_2229 = {1, (List *)0, 0, protoFnImpl_2228}; -Function protoFn_2226 = {3, ".body", 1, {&protoFnArity_2229}}; +FnArity protoFnArity_2222 = {1, (List *)0, 0, protoFnImpl_2221}; +Function protoFn_2219 = {3, ".body", 1, {&protoFnArity_2222}}; struct {int64_t type; int64_t len; - char buffer[9];} _str_123 = {1,8,"closures"}; + char buffer[9];} _str_122 = {1,8,"closures"}; struct {int64_t type; int64_t len; - char buffer[8];} _str_124 = {1,7,"varArgs"}; + char buffer[8];} _str_123 = {1,7,"varArgs"}; struct {int64_t type; int64_t len; - char buffer[11];} _str_125 = {1,10,"arityImpl_"}; + char buffer[11];} _str_124 = {1,10,"arityImpl_"}; struct {int64_t type; int64_t len; - char buffer[7];} _str_126 = {1,6,"arity_"}; + char buffer[7];} _str_125 = {1,6,"arity_"}; struct {int64_t type; int64_t len; - char buffer[37];} _str_127 = {1,36,"(List *closures, Value *varArgs) {\n"}; + char buffer[37];} _str_126 = {1,36,"(List *closures, Value *varArgs) {\n"}; struct {int64_t type; int64_t len; - char buffer[36];} _str_128 = {1,35,"List *argsList = (List *)varArgs;\n"}; + char buffer[36];} _str_127 = {1,35,"List *argsList = (List *)varArgs;\n"}; struct {int64_t type; int64_t len; - char buffer[21];} _str_129 = {1,20," = argsList->head;\n"}; + char buffer[21];} _str_128 = {1,20," = argsList->head;\n"}; struct {int64_t type; int64_t len; - char buffer[63];} _str_130 = {1,62,"if (argsList->tail) argsList->tail->len = argsList->len - 1;\n"}; + char buffer[63];} _str_129 = {1,62,"if (argsList->tail) argsList->tail->len = argsList->len - 1;\n"}; struct {int64_t type; int64_t len; - char buffer[29];} _str_131 = {1,28,"argsList = argsList->tail;\n"}; + char buffer[29];} _str_130 = {1,28,"argsList = argsList->tail;\n"}; struct {int64_t type; int64_t len; - char buffer[24];} _str_132 = {1,23," = (Value *)argsList;\n"}; + char buffer[24];} _str_131 = {1,23," = (Value *)argsList;\n"}; struct {int64_t type; int64_t len; - char buffer[5];} _str_133 = {1,4,"};\n"}; -Number _num_38 = {2, -1, 58}; + char buffer[5];} _str_132 = {1,4,"};\n"}; +Number _num_38 = {2, -1, 57}; // --------- instance?_impl -------------- -Function fn_2230; -Value *arityImpl_2231(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1892((List *)var_31, arg1); +Function fn_2223; +Value *arityImpl_2224(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1882((List *)var_31, arg1); Value *rslt1 = arityImpl_283((List *)var_31, (Value *)&_num_38, rslt0); return (rslt1); }; // --------- instance?_impl main body -------------- -Function fn_2230 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2231}}}; -Value *protoImpl_2232(List *closures, Value *arg0, Value *arg1) { +Function fn_2223 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2224}}}; +Value *protoImpl_2225(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2233 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2232}}}; +Function protoFn_2226 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2225}}}; // --------- invoke_impl -------------- -Function fn_2234; +Function fn_2227; // --------- emit-c_impl -------------- -Function fn_2236; +Function fn_2229; // --------- anon -------------- -Function fn_2238; +Function fn_2231; // --------- anon -------------- -Function fn_2240; +Function fn_2233; // --------- anon -------------- -Function fn_2242; +Function fn_2235; // --------- anon -------------- -Function fn_2244; +Function fn_2237; // --------- anon -------------- -Function fn_2246; +Function fn_2239; // --------- anon -------------- -Function fn_2248; +Function fn_2241; // --------- anon -------------- -Function fn_2250; -Value *arityImpl_2251(List *closures, Value *arg0) { +Function fn_2243; +Value *arityImpl_2244(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -26607,11 +26541,11 @@ varArgs8->type = ListType; varArgs8->len = 0; varArgs8->head = (Value *)0; varArgs8->tail = (List *)0; -varArgs8 = (List *)listCons((Value *)(Value *)&_str_131, varArgs8); varArgs8 = (List *)listCons((Value *)(Value *)&_str_130, varArgs8); varArgs8 = (List *)listCons((Value *)(Value *)&_str_129, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_str_128, varArgs8); varArgs8 = (List *)listCons((Value *)rslt1, varArgs8); -varArgs8 = (List *)listCons((Value *)(Value *)&_str_84, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_str_83, varArgs8); Value *rslt9 = arityImpl_508((List *)var_31, (Value *)varArgs8); cond2 = rslt9; } else { @@ -26620,9 +26554,9 @@ varArgs3->type = ListType; varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; -varArgs3 = (List *)listCons((Value *)(Value *)&_str_132, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_131, varArgs3); varArgs3 = (List *)listCons((Value *)rslt1, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_str_84, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_83, varArgs3); Value *rslt4 = arityImpl_508((List *)var_31, (Value *)varArgs3); cond2 = rslt4; } @@ -26631,20 +26565,20 @@ return (cond2); // --------- anon -------------- -Function fn_2252; +Function fn_2245; // --------- anon -------------- -Function fn_2254; +Function fn_2247; // --------- anon -------------- -Function fn_2256; +Function fn_2249; // --------- anon -------------- -Function fn_2258; +Function fn_2251; // --------- anon -------------- -Function fn_2260; -Value *arityImpl_2261(List *closures, Value *arg0) { +Function fn_2253; +Value *arityImpl_2254(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -26653,7 +26587,7 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, arg0); return (rslt1); }; -Value *arityImpl_2259(List *closures, Value *arg0) { +Value *arityImpl_2252(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -26679,28 +26613,28 @@ Value *rslt5 = protoFnImpl_195((List *)var_31, val4); Value *rslt6 = arityImpl_287((List *)var_31, (Value *)&_num_8, rslt5); if (isTrue(rslt6)) { -Value *rslt8 = arityImpl_2184((List *)var_31, val7, val1, val2, val4, (Value *)&_num_1); +Value *rslt8 = arityImpl_2177((List *)var_31, val7, val1, val2, val4, (Value *)&_num_1); cond0 = rslt8; } else { -Value *rslt3 = arityImpl_2181((List *)var_31, val1, val2, (Value *)&_num_1); +Value *rslt3 = arityImpl_2174((List *)var_31, val1, val2, (Value *)&_num_1); cond0 = rslt3; } FnArity *arity_9 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_9->count = 1; arity_9->closures = empty_list; arity_9->variadic = 0; -arity_9->fn = arityImpl_2261; +arity_9->fn = arityImpl_2254; arity_9->closures = listCons((Value *)val10, (List *)arity_9->closures); -Function *fn_2260 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2260->type = 3; -fn_2260->name = "anon"; -fn_2260->arityCount = 1; -fn_2260->arities[0] = arity_9; -Value *rslt11 = protoFnImpl_78((List *)var_31, cond0, (Value *)fn_2260); +Function *fn_2253 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2253->type = 3; +fn_2253->name = "anon"; +fn_2253->arityCount = 1; +fn_2253->arities[0] = arity_9; +Value *rslt11 = protoFnImpl_78((List *)var_31, cond0, (Value *)fn_2253); return (rslt11); }; -Value *arityImpl_2257(List *closures, Value *arg0) { +Value *arityImpl_2250(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -26721,27 +26655,27 @@ Value *val6 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_2166((List *)var_31, val0); +Value *rslt1 = arityImpl_2159((List *)var_31, val0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2259; +arity_2->fn = arityImpl_2252; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val5, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val6, (List *)arity_2->closures); -Function *fn_2258 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2258->type = 3; -fn_2258->name = "anon"; -fn_2258->arityCount = 1; -fn_2258->arities[0] = arity_2; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2258); +Function *fn_2251 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2251->type = 3; +fn_2251->name = "anon"; +fn_2251->arityCount = 1; +fn_2251->arities[0] = arity_2; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2251); return (rslt7); }; -Value *arityImpl_2255(List *closures, Value *arg0) { +Value *arityImpl_2248(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -26762,27 +26696,27 @@ Value *val6 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_48, var_31); +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_46, var_31); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2257; +arity_1->fn = arityImpl_2250; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val6, (List *)arity_1->closures); -Function *fn_2256 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2256->type = 3; -fn_2256->name = "anon"; -fn_2256->arityCount = 1; -fn_2256->arities[0] = arity_1; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2256); +Function *fn_2249 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2249->type = 3; +fn_2249->name = "anon"; +fn_2249->arityCount = 1; +fn_2249->arities[0] = arity_1; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2249); return (rslt7); }; -Value *arityImpl_2253(List *closures, Value *arg0) { +Value *arityImpl_2246(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -26807,9 +26741,9 @@ Value *val11 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_2169((List *)var_31); -Value *rslt2 = arityImpl_2178((List *)var_31, val1); -Value *rslt3 = arityImpl_1944((List *)var_31, (Value *)&_str_133); +Value *rslt0 = arityImpl_2162((List *)var_31); +Value *rslt2 = arityImpl_2171((List *)var_31, val1); +Value *rslt3 = arityImpl_1937((List *)var_31, (Value *)&_str_132); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; varArgs4->len = 0; @@ -26824,22 +26758,22 @@ FnArity *arity_6 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_6->count = 1; arity_6->closures = empty_list; arity_6->variadic = 0; -arity_6->fn = arityImpl_2255; +arity_6->fn = arityImpl_2248; arity_6->closures = listCons((Value *)val7, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val8, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val9, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val10, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val11, (List *)arity_6->closures); -Function *fn_2254 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2254->type = 3; -fn_2254->name = "anon"; -fn_2254->arityCount = 1; -fn_2254->arities[0] = arity_6; -Value *rslt12 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_2254); +Function *fn_2247 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2247->type = 3; +fn_2247->name = "anon"; +fn_2247->arityCount = 1; +fn_2247->arities[0] = arity_6; +Value *rslt12 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_2247); return (rslt12); }; -Value *arityImpl_2249(List *closures, Value *arg0) { +Value *arityImpl_2242(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -26877,55 +26811,55 @@ varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)(Value *)&_str_127, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_126, varArgs1); varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_84, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_83, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); -Value *rslt4 = arityImpl_674((List *)var_31, val3); +Value *rslt4 = arityImpl_664((List *)var_31, val3); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_2251; +arity_5->fn = arityImpl_2244; arity_5->closures = listCons((Value *)val3, (List *)arity_5->closures); arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); -Function *fn_2250 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2250->type = 3; -fn_2250->name = "anon"; -fn_2250->arityCount = 1; -fn_2250->arities[0] = arity_5; -Value *rslt7 = protoFnImpl_125((List *)var_31, rslt4, (Value *)fn_2250); +Function *fn_2243 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2243->type = 3; +fn_2243->name = "anon"; +fn_2243->arityCount = 1; +fn_2243->arities[0] = arity_5; +Value *rslt7 = protoFnImpl_125((List *)var_31, rslt4, (Value *)fn_2243); List *varArgs8 = (List *)GC_malloc(sizeof(List)); varArgs8->type = ListType; varArgs8->len = 0; varArgs8->head = (Value *)0; varArgs8->tail = (List *)0; varArgs8 = (List *)listCons((Value *)rslt7, varArgs8); -varArgs8 = (List *)listCons((Value *)(Value *)&_str_128, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_str_127, varArgs8); varArgs8 = (List *)listCons((Value *)rslt2, varArgs8); Value *rslt9 = arityImpl_294((List *)var_31, (Value *)varArgs8); -Value *rslt10 = arityImpl_1949((List *)var_31, rslt9); +Value *rslt10 = arityImpl_1942((List *)var_31, rslt9); FnArity *arity_11 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_11->count = 1; arity_11->closures = empty_list; arity_11->variadic = 0; -arity_11->fn = arityImpl_2253; +arity_11->fn = arityImpl_2246; arity_11->closures = listCons((Value *)val0, (List *)arity_11->closures); arity_11->closures = listCons((Value *)val12, (List *)arity_11->closures); arity_11->closures = listCons((Value *)val13, (List *)arity_11->closures); arity_11->closures = listCons((Value *)val14, (List *)arity_11->closures); arity_11->closures = listCons((Value *)val15, (List *)arity_11->closures); arity_11->closures = listCons((Value *)val16, (List *)arity_11->closures); -Function *fn_2252 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2252->type = 3; -fn_2252->name = "anon"; -fn_2252->arityCount = 1; -fn_2252->arities[0] = arity_11; -Value *rslt17 = protoFnImpl_78((List *)var_31, rslt10, (Value *)fn_2252); +Function *fn_2245 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2245->type = 3; +fn_2245->name = "anon"; +fn_2245->arityCount = 1; +fn_2245->arities[0] = arity_11; +Value *rslt17 = protoFnImpl_78((List *)var_31, rslt10, (Value *)fn_2245); return (rslt17); }; -Value *arityImpl_2247(List *closures, Value *arg0) { +Value *arityImpl_2240(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -26954,12 +26888,12 @@ Value *val8 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_2193((List *)var_31); +Value *rslt0 = arityImpl_2186((List *)var_31); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2249; +arity_1->fn = arityImpl_2242; arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); @@ -26968,16 +26902,16 @@ arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val6, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val7, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val8, (List *)arity_1->closures); -Function *fn_2248 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2248->type = 3; -fn_2248->name = "anon"; -fn_2248->arityCount = 1; -fn_2248->arities[0] = arity_1; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2248); +Function *fn_2241 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2241->type = 3; +fn_2241->name = "anon"; +fn_2241->arityCount = 1; +fn_2241->arities[0] = arity_1; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2241); return (rslt9); }; -Value *arityImpl_2245(List *closures, Value *arg0) { +Value *arityImpl_2238(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -27006,12 +26940,12 @@ Value *val8 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_2212((List *)var_31, val0); +Value *rslt1 = arityImpl_2205((List *)var_31, val0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2247; +arity_2->fn = arityImpl_2240; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); @@ -27019,16 +26953,16 @@ arity_2->closures = listCons((Value *)val5, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val6, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val7, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val8, (List *)arity_2->closures); -Function *fn_2246 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2246->type = 3; -fn_2246->name = "anon"; -fn_2246->arityCount = 1; -fn_2246->arities[0] = arity_2; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2246); +Function *fn_2239 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2239->type = 3; +fn_2239->name = "anon"; +fn_2239->arityCount = 1; +fn_2239->arities[0] = arity_2; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2239); return (rslt9); }; -Value *arityImpl_2243(List *closures, Value *arg0) { +Value *arityImpl_2236(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -27057,12 +26991,12 @@ Value *val8 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_2219((List *)var_31, val0); +Value *rslt1 = arityImpl_2212((List *)var_31, val0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2245; +arity_2->fn = arityImpl_2238; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); @@ -27070,16 +27004,16 @@ arity_2->closures = listCons((Value *)val5, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val6, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val7, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val8, (List *)arity_2->closures); -Function *fn_2244 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2244->type = 3; -fn_2244->name = "anon"; -fn_2244->arityCount = 1; -fn_2244->arities[0] = arity_2; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2244); +Function *fn_2237 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2237->type = 3; +fn_2237->name = "anon"; +fn_2237->arityCount = 1; +fn_2237->arities[0] = arity_2; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2237); return (rslt9); }; -Value *arityImpl_2241(List *closures, Value *arg0) { +Value *arityImpl_2234(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -27104,12 +27038,12 @@ Value *val7 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt2 = arityImpl_2139((List *)var_31, val0, val1); +Value *rslt2 = arityImpl_2132((List *)var_31, val0, val1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2243; +arity_3->fn = arityImpl_2236; arity_3->closures = listCons((Value *)val4, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val0, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val1, (List *)arity_3->closures); @@ -27117,16 +27051,16 @@ arity_3->closures = listCons((Value *)val5, (List *)arity_3->closures); arity_3->closures = listCons((Value *)arg0, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val6, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val7, (List *)arity_3->closures); -Function *fn_2242 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2242->type = 3; -fn_2242->name = "anon"; -fn_2242->arityCount = 1; -fn_2242->arities[0] = arity_3; -Value *rslt8 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2242); +Function *fn_2235 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2235->type = 3; +fn_2235->name = "anon"; +fn_2235->arityCount = 1; +fn_2235->arities[0] = arity_3; +Value *rslt8 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2235); return (rslt8); }; -Value *arityImpl_2239(List *closures, Value *arg0) { +Value *arityImpl_2232(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -27147,28 +27081,28 @@ Value *val6 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1961((List *)var_31, (Value *)&_str_126); +Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_125); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2241; +arity_1->fn = arityImpl_2234; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val6, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); -Function *fn_2240 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2240->type = 3; -fn_2240->name = "anon"; -fn_2240->arityCount = 1; -fn_2240->arities[0] = arity_1; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2240); +Function *fn_2233 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2233->type = 3; +fn_2233->name = "anon"; +fn_2233->arityCount = 1; +fn_2233->arities[0] = arity_1; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2233); return (rslt7); }; -Value *arityImpl_2237(List *closures, Value *arg0) { +Value *arityImpl_2230(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -27182,41 +27116,41 @@ varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_str_124, varArgs0); varArgs0 = (List *)listCons((Value *)(Value *)&_str_123, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_122, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); Value *rslt3 = protoFnImpl_195((List *)var_31, val2); -Value *rslt4 = arityImpl_1954((List *)var_31, (Value *)&_str_125); +Value *rslt4 = arityImpl_1947((List *)var_31, (Value *)&_str_124); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_2239; +arity_5->fn = arityImpl_2232; arity_5->closures = listCons((Value *)rslt3, (List *)arity_5->closures); arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); arity_5->closures = listCons((Value *)rslt1, (List *)arity_5->closures); arity_5->closures = listCons((Value *)rslt4, (List *)arity_5->closures); arity_5->closures = listCons((Value *)val2, (List *)arity_5->closures); -Function *fn_2238 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2238->type = 3; -fn_2238->name = "anon"; -fn_2238->arityCount = 1; -fn_2238->arities[0] = arity_5; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_2238); +Function *fn_2231 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2231->type = 3; +fn_2231->name = "anon"; +fn_2231->arityCount = 1; +fn_2231->arities[0] = arity_5; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_2231); return (rslt7); }; -Value *protoImpl_2262(List *closures, Value *arg0) { +Value *protoImpl_2255(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2263 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2262}}}; +Function protoFn_2256 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2255}}}; // --------- .args_impl -------------- -Function fn_2264; -Value *arityImpl_2265(List *closures, Value *arg0) { +Function fn_2257; +Value *arityImpl_2258(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -27224,17 +27158,17 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2266(List *closures, Value *arg0) { +Value *protoImpl_2259(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2267 = {3, ".args", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2266}}}; +Function protoFn_2260 = {3, ".args", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2259}}}; // --------- .body_impl -------------- -Function fn_2268; -Value *arityImpl_2269(List *closures, Value *arg0) { +Function fn_2261; +Value *arityImpl_2262(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -27242,153 +27176,153 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2270(List *closures, Value *arg0) { +Value *protoImpl_2263(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2271 = {3, ".body", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2270}}}; +Function protoFn_2264 = {3, ".body", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2263}}}; -Value *arityImpl_2235(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Value *arityImpl_2228(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_2237; +arity_0->fn = arityImpl_2230; arity_0->closures = listCons((Value *)arg2, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_2236 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2236->type = 3; -fn_2236->name = "emit-c_impl"; -fn_2236->arityCount = 1; -fn_2236->arities[0] = arity_0; +Function *fn_2229 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2229->type = 3; +fn_2229->name = "emit-c_impl"; +fn_2229->arityCount = 1; +fn_2229->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2265; +arity_1->fn = arityImpl_2258; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_2264 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2264->type = 3; -fn_2264->name = ".args_impl"; -fn_2264->arityCount = 1; -fn_2264->arities[0] = arity_1; +Function *fn_2257 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2257->type = 3; +fn_2257->name = ".args_impl"; +fn_2257->arityCount = 1; +fn_2257->arities[0] = arity_1; FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2269; +arity_2->fn = arityImpl_2262; arity_2->closures = listCons((Value *)arg2, (List *)arity_2->closures); -Function *fn_2268 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2268->type = 3; -fn_2268->name = ".body_impl"; -fn_2268->arityCount = 1; -fn_2268->arities[0] = arity_2; +Function *fn_2261 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2261->type = 3; +fn_2261->name = ".body_impl"; +fn_2261->arityCount = 1; +fn_2261->arities[0] = arity_2; ReifiedVal *reified_3 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 3); -reified_3->type = 58; +reified_3->type = 57; reified_3->implCount = 3; -reified_3->impls[0] = (Value *)fn_2236; -reified_3->impls[1] = (Value *)fn_2264; -reified_3->impls[2] = (Value *)fn_2268; +reified_3->impls[0] = (Value *)fn_2229; +reified_3->impls[1] = (Value *)fn_2257; +reified_3->impls[2] = (Value *)fn_2261; return ((Value *)reified_3); }; // --------- invoke_impl main body -------------- -Function fn_2234 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2235}}}; -Value *protoImpl_2272(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Function fn_2227 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2228}}}; +Value *protoImpl_2265(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType3 *)arityPtr->fn)(arityPtr->closures, arg0, arg1, arg2)); }; -Function protoFn_2273 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2272}}}; +Function protoFn_2266 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2265}}}; -ReifiedVal reified_2274 = {57, 2, {(Value *)&fn_2230, (Value *)&fn_2234}}; -Value *var_1495 = (Value *)&reified_2274; +ReifiedVal reified_2267 = {56, 2, {(Value *)&fn_2223, (Value *)&fn_2227}}; +Value *var_1485 = (Value *)&reified_2267; struct {int64_t type; int64_t len; - char buffer[15];} _str_134 = {1,14,"List *closures"}; + char buffer[15];} _str_133 = {1,14,"List *closures"}; struct {int64_t type; int64_t len; - char buffer[6];} _str_135 = {1,5,") {\n"}; + char buffer[6];} _str_134 = {1,5,") {\n"}; struct {int64_t type; int64_t len; - char buffer[7];} _str_136 = {1,6,"};\n\n"}; -Number _num_39 = {2, -1, 60}; + char buffer[7];} _str_135 = {1,6,"};\n\n"}; +Number _num_39 = {2, -1, 59}; // --------- instance?_impl -------------- -Function fn_2275; -Value *arityImpl_2276(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1892((List *)var_31, arg1); +Function fn_2268; +Value *arityImpl_2269(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1882((List *)var_31, arg1); Value *rslt1 = arityImpl_283((List *)var_31, (Value *)&_num_39, rslt0); return (rslt1); }; // --------- instance?_impl main body -------------- -Function fn_2275 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2276}}}; -Value *protoImpl_2277(List *closures, Value *arg0, Value *arg1) { +Function fn_2268 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2269}}}; +Value *protoImpl_2270(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2278 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2277}}}; +Function protoFn_2271 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2270}}}; // --------- invoke_impl -------------- -Function fn_2279; +Function fn_2272; // --------- emit-c_impl -------------- -Function fn_2281; +Function fn_2274; // --------- anon -------------- -Function fn_2283; +Function fn_2276; // --------- anon -------------- -Function fn_2285; +Function fn_2278; // --------- anon -------------- -Function fn_2287; +Function fn_2280; // --------- anon -------------- -Function fn_2289; +Function fn_2282; // --------- anon -------------- -Function fn_2291; +Function fn_2284; // --------- anon -------------- -Function fn_2293; +Function fn_2286; // --------- anon -------------- -Function fn_2295; -Value *arityImpl_2296(List *closures, Value *arg0) { +Function fn_2288; +Value *arityImpl_2289(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_str_84, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_83, varArgs0); Value *rslt1 = arityImpl_508((List *)var_31, (Value *)varArgs0); return (rslt1); }; // --------- anon main body -------------- -Function fn_2295 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2296}}}; +Function fn_2288 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2289}}}; // --------- anon -------------- -Function fn_2297; +Function fn_2290; // --------- anon -------------- -Function fn_2299; +Function fn_2292; // --------- anon -------------- -Function fn_2301; +Function fn_2294; // --------- anon -------------- -Function fn_2303; -Value *arityImpl_2304(List *closures, Value *arg0) { +Function fn_2296; +Value *arityImpl_2297(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -27397,7 +27331,7 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, arg0); return (rslt1); }; -Value *arityImpl_2302(List *closures, Value *arg0) { +Value *arityImpl_2295(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -27423,28 +27357,28 @@ Value *rslt5 = protoFnImpl_195((List *)var_31, val4); Value *rslt6 = arityImpl_287((List *)var_31, (Value *)&_num_8, rslt5); if (isTrue(rslt6)) { -Value *rslt8 = arityImpl_2184((List *)var_31, val7, val1, val2, val4, (Value *)&_num_8); +Value *rslt8 = arityImpl_2177((List *)var_31, val7, val1, val2, val4, (Value *)&_num_8); cond0 = rslt8; } else { -Value *rslt3 = arityImpl_2181((List *)var_31, val1, val2, (Value *)&_num_8); +Value *rslt3 = arityImpl_2174((List *)var_31, val1, val2, (Value *)&_num_8); cond0 = rslt3; } FnArity *arity_9 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_9->count = 1; arity_9->closures = empty_list; arity_9->variadic = 0; -arity_9->fn = arityImpl_2304; +arity_9->fn = arityImpl_2297; arity_9->closures = listCons((Value *)val10, (List *)arity_9->closures); -Function *fn_2303 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2303->type = 3; -fn_2303->name = "anon"; -fn_2303->arityCount = 1; -fn_2303->arities[0] = arity_9; -Value *rslt11 = protoFnImpl_78((List *)var_31, cond0, (Value *)fn_2303); +Function *fn_2296 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2296->type = 3; +fn_2296->name = "anon"; +fn_2296->arityCount = 1; +fn_2296->arities[0] = arity_9; +Value *rslt11 = protoFnImpl_78((List *)var_31, cond0, (Value *)fn_2296); return (rslt11); }; -Value *arityImpl_2300(List *closures, Value *arg0) { +Value *arityImpl_2293(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -27465,27 +27399,27 @@ Value *val6 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_2166((List *)var_31, val0); +Value *rslt1 = arityImpl_2159((List *)var_31, val0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2302; +arity_2->fn = arityImpl_2295; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val5, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val6, (List *)arity_2->closures); -Function *fn_2301 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2301->type = 3; -fn_2301->name = "anon"; -fn_2301->arityCount = 1; -fn_2301->arities[0] = arity_2; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2301); +Function *fn_2294 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2294->type = 3; +fn_2294->name = "anon"; +fn_2294->arityCount = 1; +fn_2294->arities[0] = arity_2; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2294); return (rslt7); }; -Value *arityImpl_2298(List *closures, Value *arg0) { +Value *arityImpl_2291(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -27506,27 +27440,27 @@ Value *val6 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_48, var_31); +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_46, var_31); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2300; +arity_1->fn = arityImpl_2293; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val6, (List *)arity_1->closures); -Function *fn_2299 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2299->type = 3; -fn_2299->name = "anon"; -fn_2299->arityCount = 1; -fn_2299->arities[0] = arity_1; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2299); +Function *fn_2292 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2292->type = 3; +fn_2292->name = "anon"; +fn_2292->arityCount = 1; +fn_2292->arities[0] = arity_1; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2292); return (rslt7); }; -Value *arityImpl_2294(List *closures, Value *arg0) { +Value *arityImpl_2287(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -27558,17 +27492,17 @@ varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)(Value *)&_str_16, varArgs1); varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_84, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_83, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1944((List *)var_31, rslt2); -Value *rslt6 = protoFnImpl_125((List *)var_31, val4, (Value *)&fn_2295); -Value *rslt7 = arityImpl_1912((List *)var_31, (Value *)&_str_134, rslt6); +Value *rslt3 = arityImpl_1937((List *)var_31, rslt2); +Value *rslt6 = protoFnImpl_125((List *)var_31, val4, (Value *)&fn_2288); +Value *rslt7 = arityImpl_1905((List *)var_31, (Value *)&_str_133, rslt6); Value *rslt8 = arityImpl_149((List *)var_31, rslt7, (Value *)&_str_17); -Value *rslt9 = arityImpl_1949((List *)var_31, rslt8); -Value *rslt10 = arityImpl_1944((List *)var_31, (Value *)&_str_135); -Value *rslt11 = arityImpl_2169((List *)var_31); -Value *rslt13 = arityImpl_2178((List *)var_31, val12); -Value *rslt14 = arityImpl_1944((List *)var_31, (Value *)&_str_136); +Value *rslt9 = arityImpl_1942((List *)var_31, rslt8); +Value *rslt10 = arityImpl_1937((List *)var_31, (Value *)&_str_134); +Value *rslt11 = arityImpl_2162((List *)var_31); +Value *rslt13 = arityImpl_2171((List *)var_31, val12); +Value *rslt14 = arityImpl_1937((List *)var_31, (Value *)&_str_135); List *varArgs15 = (List *)GC_malloc(sizeof(List)); varArgs15->type = ListType; varArgs15->len = 0; @@ -27586,22 +27520,22 @@ FnArity *arity_17 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_17->count = 1; arity_17->closures = empty_list; arity_17->variadic = 0; -arity_17->fn = arityImpl_2298; +arity_17->fn = arityImpl_2291; arity_17->closures = listCons((Value *)val18, (List *)arity_17->closures); arity_17->closures = listCons((Value *)val19, (List *)arity_17->closures); arity_17->closures = listCons((Value *)val20, (List *)arity_17->closures); arity_17->closures = listCons((Value *)val4, (List *)arity_17->closures); arity_17->closures = listCons((Value *)val0, (List *)arity_17->closures); -Function *fn_2297 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2297->type = 3; -fn_2297->name = "anon"; -fn_2297->arityCount = 1; -fn_2297->arities[0] = arity_17; -Value *rslt21 = protoFnImpl_78((List *)var_31, rslt16, (Value *)fn_2297); +Function *fn_2290 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2290->type = 3; +fn_2290->name = "anon"; +fn_2290->arityCount = 1; +fn_2290->arities[0] = arity_17; +Value *rslt21 = protoFnImpl_78((List *)var_31, rslt16, (Value *)fn_2290); return (rslt21); }; -Value *arityImpl_2292(List *closures, Value *arg0) { +Value *arityImpl_2285(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -27622,28 +27556,28 @@ Value *val6 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_2193((List *)var_31); +Value *rslt0 = arityImpl_2186((List *)var_31); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2294; +arity_1->fn = arityImpl_2287; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val6, (List *)arity_1->closures); -Function *fn_2293 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2293->type = 3; -fn_2293->name = "anon"; -fn_2293->arityCount = 1; -fn_2293->arities[0] = arity_1; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2293); +Function *fn_2286 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2286->type = 3; +fn_2286->name = "anon"; +fn_2286->arityCount = 1; +fn_2286->arities[0] = arity_1; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2286); return (rslt7); }; -Value *arityImpl_2290(List *closures, Value *arg0) { +Value *arityImpl_2283(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -27664,27 +27598,27 @@ Value *val6 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_2212((List *)var_31, val0); +Value *rslt1 = arityImpl_2205((List *)var_31, val0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2292; +arity_2->fn = arityImpl_2285; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val5, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val6, (List *)arity_2->closures); -Function *fn_2291 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2291->type = 3; -fn_2291->name = "anon"; -fn_2291->arityCount = 1; -fn_2291->arities[0] = arity_2; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2291); +Function *fn_2284 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2284->type = 3; +fn_2284->name = "anon"; +fn_2284->arityCount = 1; +fn_2284->arities[0] = arity_2; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2284); return (rslt7); }; -Value *arityImpl_2288(List *closures, Value *arg0) { +Value *arityImpl_2281(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -27705,27 +27639,27 @@ Value *val6 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_2219((List *)var_31, val0); +Value *rslt1 = arityImpl_2212((List *)var_31, val0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2290; +arity_2->fn = arityImpl_2283; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val5, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val6, (List *)arity_2->closures); -Function *fn_2289 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2289->type = 3; -fn_2289->name = "anon"; -fn_2289->arityCount = 1; -fn_2289->arities[0] = arity_2; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2289); +Function *fn_2282 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2282->type = 3; +fn_2282->name = "anon"; +fn_2282->arityCount = 1; +fn_2282->arities[0] = arity_2; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2282); return (rslt7); }; -Value *arityImpl_2286(List *closures, Value *arg0) { +Value *arityImpl_2279(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -27743,27 +27677,27 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt1 = protoFnImpl_195((List *)var_31, val0); -Value *rslt2 = arityImpl_2139((List *)var_31, arg0, rslt1); +Value *rslt2 = arityImpl_2132((List *)var_31, arg0, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2288; +arity_3->fn = arityImpl_2281; arity_3->closures = listCons((Value *)val4, (List *)arity_3->closures); arity_3->closures = listCons((Value *)arg0, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val5, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val6, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val0, (List *)arity_3->closures); -Function *fn_2287 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2287->type = 3; -fn_2287->name = "anon"; -fn_2287->arityCount = 1; -fn_2287->arities[0] = arity_3; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2287); +Function *fn_2280 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2280->type = 3; +fn_2280->name = "anon"; +fn_2280->arityCount = 1; +fn_2280->arities[0] = arity_3; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2280); return (rslt7); }; -Value *arityImpl_2284(List *closures, Value *arg0) { +Value *arityImpl_2277(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -27776,26 +27710,26 @@ Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_125); +Value *rslt0 = arityImpl_1947((List *)var_31, (Value *)&_str_124); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2286; +arity_1->fn = arityImpl_2279; arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); -Function *fn_2285 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2285->type = 3; -fn_2285->name = "anon"; -fn_2285->arityCount = 1; -fn_2285->arities[0] = arity_1; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2285); +Function *fn_2278 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2278->type = 3; +fn_2278->name = "anon"; +fn_2278->arityCount = 1; +fn_2278->arities[0] = arity_1; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2278); return (rslt5); }; -Value *arityImpl_2282(List *closures, Value *arg0) { +Value *arityImpl_2275(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -27804,35 +27738,35 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1961((List *)var_31, (Value *)&_str_126); +Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_125); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2284; +arity_1->fn = arityImpl_2277; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_2283 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2283->type = 3; -fn_2283->name = "anon"; -fn_2283->arityCount = 1; -fn_2283->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2283); +Function *fn_2276 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2276->type = 3; +fn_2276->name = "anon"; +fn_2276->arityCount = 1; +fn_2276->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2276); return (rslt4); }; -Value *protoImpl_2305(List *closures, Value *arg0) { +Value *protoImpl_2298(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2306 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2305}}}; +Function protoFn_2299 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2298}}}; // --------- .args_impl -------------- -Function fn_2307; -Value *arityImpl_2308(List *closures, Value *arg0) { +Function fn_2300; +Value *arityImpl_2301(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -27840,17 +27774,17 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2309(List *closures, Value *arg0) { +Value *protoImpl_2302(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2310 = {3, ".args", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2309}}}; +Function protoFn_2303 = {3, ".args", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2302}}}; // --------- .body_impl -------------- -Function fn_2311; -Value *arityImpl_2312(List *closures, Value *arg0) { +Function fn_2304; +Value *arityImpl_2305(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -27858,160 +27792,160 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2313(List *closures, Value *arg0) { +Value *protoImpl_2306(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2314 = {3, ".body", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2313}}}; +Function protoFn_2307 = {3, ".body", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2306}}}; -Value *arityImpl_2280(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Value *arityImpl_2273(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_2282; +arity_0->fn = arityImpl_2275; arity_0->closures = listCons((Value *)arg2, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_2281 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2281->type = 3; -fn_2281->name = "emit-c_impl"; -fn_2281->arityCount = 1; -fn_2281->arities[0] = arity_0; +Function *fn_2274 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2274->type = 3; +fn_2274->name = "emit-c_impl"; +fn_2274->arityCount = 1; +fn_2274->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2308; +arity_1->fn = arityImpl_2301; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_2307 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2307->type = 3; -fn_2307->name = ".args_impl"; -fn_2307->arityCount = 1; -fn_2307->arities[0] = arity_1; +Function *fn_2300 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2300->type = 3; +fn_2300->name = ".args_impl"; +fn_2300->arityCount = 1; +fn_2300->arities[0] = arity_1; FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2312; +arity_2->fn = arityImpl_2305; arity_2->closures = listCons((Value *)arg2, (List *)arity_2->closures); -Function *fn_2311 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2311->type = 3; -fn_2311->name = ".body_impl"; -fn_2311->arityCount = 1; -fn_2311->arities[0] = arity_2; +Function *fn_2304 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2304->type = 3; +fn_2304->name = ".body_impl"; +fn_2304->arityCount = 1; +fn_2304->arities[0] = arity_2; ReifiedVal *reified_3 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 3); -reified_3->type = 60; +reified_3->type = 59; reified_3->implCount = 3; -reified_3->impls[0] = (Value *)fn_2281; -reified_3->impls[1] = (Value *)fn_2307; -reified_3->impls[2] = (Value *)fn_2311; +reified_3->impls[0] = (Value *)fn_2274; +reified_3->impls[1] = (Value *)fn_2300; +reified_3->impls[2] = (Value *)fn_2304; return ((Value *)reified_3); }; // --------- invoke_impl main body -------------- -Function fn_2279 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2280}}}; -Value *protoImpl_2315(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Function fn_2272 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2273}}}; +Value *protoImpl_2308(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType3 *)arityPtr->fn)(arityPtr->closures, arg0, arg1, arg2)); }; -Function protoFn_2316 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2315}}}; +Function protoFn_2309 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2308}}}; -ReifiedVal reified_2317 = {59, 2, {(Value *)&fn_2275, (Value *)&fn_2279}}; -Value *var_1496 = (Value *)&reified_2317; +ReifiedVal reified_2310 = {58, 2, {(Value *)&fn_2268, (Value *)&fn_2272}}; +Value *var_1486 = (Value *)&reified_2310; struct {int64_t type; int64_t len; - char buffer[6];} _str_137 = {1,5,"main_"}; + char buffer[6];} _str_136 = {1,5,"main_"}; struct {int64_t type; int64_t len; - char buffer[7];} _str_138 = {1,6,"\nint "}; + char buffer[7];} _str_137 = {1,6,"\nint "}; struct {int64_t type; int64_t len; - char buffer[3];} _str_139 = {1,2," ("}; + char buffer[3];} _str_138 = {1,2," ("}; struct {int64_t type; int64_t len; - char buffer[20];} _str_140 = {1,19,"\nreturn(0);\n}\n\n"}; -Number _num_40 = {2, -1, 62}; -SymKey _kw_58 = {5, -1, ":main-sym"}; + char buffer[20];} _str_139 = {1,19,"\nreturn(0);\n}\n\n"}; +Number _num_40 = {2, -1, 61}; +SymKey _kw_56 = {5, -1, ":main-sym"}; // --------- instance?_impl -------------- -Function fn_2318; -Value *arityImpl_2319(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1892((List *)var_31, arg1); +Function fn_2311; +Value *arityImpl_2312(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1882((List *)var_31, arg1); Value *rslt1 = arityImpl_283((List *)var_31, (Value *)&_num_40, rslt0); return (rslt1); }; // --------- instance?_impl main body -------------- -Function fn_2318 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2319}}}; -Value *protoImpl_2320(List *closures, Value *arg0, Value *arg1) { +Function fn_2311 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2312}}}; +Value *protoImpl_2313(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2321 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2320}}}; +Function protoFn_2314 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2313}}}; // --------- invoke_impl -------------- -Function fn_2322; +Function fn_2315; // --------- emit-c_impl -------------- -Function fn_2324; +Function fn_2317; // --------- anon -------------- -Function fn_2326; +Function fn_2319; // --------- anon -------------- -Function fn_2328; +Function fn_2321; // --------- anon -------------- -Function fn_2330; +Function fn_2323; // --------- anon -------------- -Function fn_2332; +Function fn_2325; // --------- anon -------------- -Function fn_2334; +Function fn_2327; // --------- anon -------------- -Function fn_2336; +Function fn_2329; // --------- anon -------------- -Function fn_2338; +Function fn_2331; // --------- anon -------------- -Function fn_2340; -Value *arityImpl_2341(List *closures, Value *arg0) { +Function fn_2333; +Value *arityImpl_2334(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_str_84, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_83, varArgs0); Value *rslt1 = arityImpl_508((List *)var_31, (Value *)varArgs0); return (rslt1); }; // --------- anon main body -------------- -Function fn_2340 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2341}}}; +Function fn_2333 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2334}}}; // --------- anon -------------- -Function fn_2342; +Function fn_2335; // --------- anon -------------- -Function fn_2344; +Function fn_2337; // --------- anon -------------- -Function fn_2346; +Function fn_2339; // --------- anon -------------- -Function fn_2348; -Value *arityImpl_2349(List *closures, Value *arg0) { +Function fn_2341; +Value *arityImpl_2342(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -28020,28 +27954,28 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_2347(List *closures, Value *arg0) { +Value *arityImpl_2340(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_140); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_139); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2349; +arity_1->fn = arityImpl_2342; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_2348 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2348->type = 3; -fn_2348->name = "anon"; -fn_2348->arityCount = 1; -fn_2348->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2348); +Function *fn_2341 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2341->type = 3; +fn_2341->name = "anon"; +fn_2341->arityCount = 1; +fn_2341->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2341); return (rslt3); }; -Value *arityImpl_2345(List *closures, Value *arg0) { +Value *arityImpl_2338(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -28051,23 +27985,23 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt1 = arityImpl_524((List *)var_31, val0, (Value *)&_num_1, var_31); -Value *rslt2 = arityImpl_1949((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1942((List *)var_31, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2347; +arity_3->fn = arityImpl_2340; arity_3->closures = listCons((Value *)val4, (List *)arity_3->closures); -Function *fn_2346 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2346->type = 3; -fn_2346->name = "anon"; -fn_2346->arityCount = 1; -fn_2346->arities[0] = arity_3; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2346); +Function *fn_2339 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2339->type = 3; +fn_2339->name = "anon"; +fn_2339->arityCount = 1; +fn_2339->arities[0] = arity_3; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2339); return (rslt5); }; -Value *arityImpl_2343(List *closures, Value *arg0) { +Value *arityImpl_2336(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -28076,24 +28010,24 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_135); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_134); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2345; +arity_1->fn = arityImpl_2338; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_2344 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2344->type = 3; -fn_2344->name = "anon"; -fn_2344->arityCount = 1; -fn_2344->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2344); +Function *fn_2337 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2337->type = 3; +fn_2337->name = "anon"; +fn_2337->arityCount = 1; +fn_2337->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2337); return (rslt4); }; -Value *arityImpl_2339(List *closures, Value *arg0) { +Value *arityImpl_2332(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -28106,26 +28040,26 @@ Value *val7 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt2 = protoFnImpl_125((List *)var_31, val0, (Value *)&fn_2340); +Value *rslt2 = protoFnImpl_125((List *)var_31, val0, (Value *)&fn_2333); Value *rslt3 = arityImpl_149((List *)var_31, rslt2, (Value *)&_str_17); -Value *rslt4 = arityImpl_1949((List *)var_31, rslt3); +Value *rslt4 = arityImpl_1942((List *)var_31, rslt3); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_2343; +arity_5->fn = arityImpl_2336; arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); arity_5->closures = listCons((Value *)val7, (List *)arity_5->closures); -Function *fn_2342 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2342->type = 3; -fn_2342->name = "anon"; -fn_2342->arityCount = 1; -fn_2342->arities[0] = arity_5; -Value *rslt8 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_2342); +Function *fn_2335 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2335->type = 3; +fn_2335->name = "anon"; +fn_2335->arityCount = 1; +fn_2335->arities[0] = arity_5; +Value *rslt8 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_2335); return (rslt8); }; -Value *arityImpl_2337(List *closures, Value *arg0) { +Value *arityImpl_2330(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -28147,29 +28081,29 @@ varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)(Value *)&_str_139, varArgs1); -varArgs1 = (List *)listCons((Value *)val0, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_138, varArgs1); +varArgs1 = (List *)listCons((Value *)val0, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_137, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1944((List *)var_31, rslt2); +Value *rslt3 = arityImpl_1937((List *)var_31, rslt2); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_2339; +arity_4->fn = arityImpl_2332; arity_4->closures = listCons((Value *)val5, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val6, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val7, (List *)arity_4->closures); -Function *fn_2338 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2338->type = 3; -fn_2338->name = "anon"; -fn_2338->arityCount = 1; -fn_2338->arities[0] = arity_4; -Value *rslt8 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2338); +Function *fn_2331 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2331->type = 3; +fn_2331->name = "anon"; +fn_2331->arityCount = 1; +fn_2331->arities[0] = arity_4; +Value *rslt8 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2331); return (rslt8); }; -Value *arityImpl_2335(List *closures, Value *arg0) { +Value *arityImpl_2328(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -28182,26 +28116,26 @@ Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_2193((List *)var_31); +Value *rslt0 = arityImpl_2186((List *)var_31); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2337; +arity_1->fn = arityImpl_2330; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); -Function *fn_2336 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2336->type = 3; -fn_2336->name = "anon"; -fn_2336->arityCount = 1; -fn_2336->arities[0] = arity_1; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2336); +Function *fn_2329 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2329->type = 3; +fn_2329->name = "anon"; +fn_2329->arityCount = 1; +fn_2329->arities[0] = arity_1; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2329); return (rslt5); }; -Value *arityImpl_2333(List *closures, Value *arg0) { +Value *arityImpl_2326(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -28218,25 +28152,25 @@ Value *val5 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_2212((List *)var_31, val0); +Value *rslt1 = arityImpl_2205((List *)var_31, val0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2335; +arity_2->fn = arityImpl_2328; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val5, (List *)arity_2->closures); -Function *fn_2334 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2334->type = 3; -fn_2334->name = "anon"; -fn_2334->arityCount = 1; -fn_2334->arities[0] = arity_2; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2334); +Function *fn_2327 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2327->type = 3; +fn_2327->name = "anon"; +fn_2327->arityCount = 1; +fn_2327->arities[0] = arity_2; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2327); return (rslt6); }; -Value *arityImpl_2331(List *closures, Value *arg0) { +Value *arityImpl_2324(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -28249,26 +28183,26 @@ Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1009((List *)var_31, (Value *)&_kw_45, (Value *)&_num_8); +Value *rslt0 = arityImpl_999((List *)var_31, (Value *)&_kw_43, (Value *)&_num_8); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2333; +arity_1->fn = arityImpl_2326; arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); -Function *fn_2332 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2332->type = 3; -fn_2332->name = "anon"; -fn_2332->arityCount = 1; -fn_2332->arities[0] = arity_1; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2332); +Function *fn_2325 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2325->type = 3; +fn_2325->name = "anon"; +fn_2325->arityCount = 1; +fn_2325->arities[0] = arity_1; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2325); return (rslt5); }; -Value *arityImpl_2329(List *closures, Value *arg0) { +Value *arityImpl_2322(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -28285,25 +28219,25 @@ Value *val5 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_2219((List *)var_31, val0); +Value *rslt1 = arityImpl_2212((List *)var_31, val0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2331; +arity_2->fn = arityImpl_2324; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val5, (List *)arity_2->closures); -Function *fn_2330 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2330->type = 3; -fn_2330->name = "anon"; -fn_2330->arityCount = 1; -fn_2330->arities[0] = arity_2; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2330); +Function *fn_2323 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2323->type = 3; +fn_2323->name = "anon"; +fn_2323->arityCount = 1; +fn_2323->arities[0] = arity_2; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2323); return (rslt6); }; -Value *arityImpl_2327(List *closures, Value *arg0) { +Value *arityImpl_2320(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -28316,26 +28250,26 @@ Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1009((List *)var_31, (Value *)&_kw_58, arg0); +Value *rslt0 = arityImpl_999((List *)var_31, (Value *)&_kw_56, arg0); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2329; +arity_1->fn = arityImpl_2322; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); -Function *fn_2328 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2328->type = 3; -fn_2328->name = "anon"; -fn_2328->arityCount = 1; -fn_2328->arities[0] = arity_1; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2328); +Function *fn_2321 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2321->type = 3; +fn_2321->name = "anon"; +fn_2321->arityCount = 1; +fn_2321->arities[0] = arity_1; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2321); return (rslt5); }; -Value *arityImpl_2325(List *closures, Value *arg0) { +Value *arityImpl_2318(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -28344,35 +28278,35 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_137); +Value *rslt0 = arityImpl_1947((List *)var_31, (Value *)&_str_136); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2327; +arity_1->fn = arityImpl_2320; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_2326 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2326->type = 3; -fn_2326->name = "anon"; -fn_2326->arityCount = 1; -fn_2326->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2326); +Function *fn_2319 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2319->type = 3; +fn_2319->name = "anon"; +fn_2319->arityCount = 1; +fn_2319->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2319); return (rslt4); }; -Value *protoImpl_2350(List *closures, Value *arg0) { +Value *protoImpl_2343(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2351 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2350}}}; +Function protoFn_2344 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2343}}}; // --------- .args_impl -------------- -Function fn_2352; -Value *arityImpl_2353(List *closures, Value *arg0) { +Function fn_2345; +Value *arityImpl_2346(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -28380,17 +28314,17 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2354(List *closures, Value *arg0) { +Value *protoImpl_2347(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2355 = {3, ".args", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2354}}}; +Function protoFn_2348 = {3, ".args", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2347}}}; // --------- .body_impl -------------- -Function fn_2356; -Value *arityImpl_2357(List *closures, Value *arg0) { +Function fn_2349; +Value *arityImpl_2350(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -28398,94 +28332,94 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2358(List *closures, Value *arg0) { +Value *protoImpl_2351(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2359 = {3, ".body", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2358}}}; +Function protoFn_2352 = {3, ".body", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2351}}}; -Value *arityImpl_2323(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Value *arityImpl_2316(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_2325; +arity_0->fn = arityImpl_2318; arity_0->closures = listCons((Value *)arg2, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_2324 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2324->type = 3; -fn_2324->name = "emit-c_impl"; -fn_2324->arityCount = 1; -fn_2324->arities[0] = arity_0; +Function *fn_2317 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2317->type = 3; +fn_2317->name = "emit-c_impl"; +fn_2317->arityCount = 1; +fn_2317->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2353; +arity_1->fn = arityImpl_2346; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_2352 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2352->type = 3; -fn_2352->name = ".args_impl"; -fn_2352->arityCount = 1; -fn_2352->arities[0] = arity_1; +Function *fn_2345 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2345->type = 3; +fn_2345->name = ".args_impl"; +fn_2345->arityCount = 1; +fn_2345->arities[0] = arity_1; FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2357; +arity_2->fn = arityImpl_2350; arity_2->closures = listCons((Value *)arg2, (List *)arity_2->closures); -Function *fn_2356 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2356->type = 3; -fn_2356->name = ".body_impl"; -fn_2356->arityCount = 1; -fn_2356->arities[0] = arity_2; +Function *fn_2349 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2349->type = 3; +fn_2349->name = ".body_impl"; +fn_2349->arityCount = 1; +fn_2349->arities[0] = arity_2; ReifiedVal *reified_3 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 3); -reified_3->type = 62; +reified_3->type = 61; reified_3->implCount = 3; -reified_3->impls[0] = (Value *)fn_2324; -reified_3->impls[1] = (Value *)fn_2352; -reified_3->impls[2] = (Value *)fn_2356; +reified_3->impls[0] = (Value *)fn_2317; +reified_3->impls[1] = (Value *)fn_2345; +reified_3->impls[2] = (Value *)fn_2349; return ((Value *)reified_3); }; // --------- invoke_impl main body -------------- -Function fn_2322 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2323}}}; -Value *protoImpl_2360(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Function fn_2315 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2316}}}; +Value *protoImpl_2353(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType3 *)arityPtr->fn)(arityPtr->closures, arg0, arg1, arg2)); }; -Function protoFn_2361 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2360}}}; +Function protoFn_2354 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2353}}}; -ReifiedVal reified_2362 = {61, 2, {(Value *)&fn_2318, (Value *)&fn_2322}}; -Value *var_1497 = (Value *)&reified_2362; -SymKey _kw_59 = {5, -1, ":no-arg-sym"}; +ReifiedVal reified_2355 = {60, 2, {(Value *)&fn_2311, (Value *)&fn_2315}}; +Value *var_1487 = (Value *)&reified_2355; +SymKey _kw_57 = {5, -1, ":no-arg-sym"}; // --------- eval-args -------------- -Function fn_2363; +Function fn_2356; // --------- anon -------------- -Function fn_2365; -Value *arityImpl_2366(List *closures, Value *arg0) { -Value *rslt0 = protoFnImpl_740((List *)var_31, arg0, (Value *)&protoFn_1968); +Function fn_2358; +Value *arityImpl_2359(List *closures, Value *arg0) { +Value *rslt0 = protoFnImpl_730((List *)var_31, arg0, (Value *)&protoFn_1961); return (rslt0); }; // --------- anon main body -------------- -Function fn_2365 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2366}}}; +Function fn_2358 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2359}}}; // --------- anon -------------- -Function fn_2367; +Function fn_2360; // --------- anon -------------- -Function fn_2369; -Value *arityImpl_2370(List *closures, Value *arg0, Value *arg1) { +Function fn_2362; +Value *arityImpl_2363(List *closures, Value *arg0, Value *arg1) { Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_8, var_31); Value *rslt1 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, var_31); -Value *rslt2 = arityImpl_524((List *)var_31, arg1, (Value *)&_num_8, (Value *)&_kw_59); +Value *rslt2 = arityImpl_524((List *)var_31, arg1, (Value *)&_num_8, (Value *)&_kw_57); Value *rslt3 = arityImpl_524((List *)var_31, arg1, (Value *)&_num_1, var_31); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; @@ -28523,8 +28457,8 @@ return (rslt11); // --------- anon main body -------------- -Function fn_2369 = {3, "anon", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2370}}}; -Value *arityImpl_2368(List *closures, Value *arg0) { +Function fn_2362 = {3, "anon", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2363}}}; +Value *arityImpl_2361(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -28537,32 +28471,32 @@ varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)var_31, varArgs1); varArgs1 = (List *)listCons((Value *)var_31, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); -Value *rslt4 = arityImpl_297((List *)var_31, arg0, rslt2, (Value *)&fn_2369); +Value *rslt4 = arityImpl_297((List *)var_31, arg0, rslt2, (Value *)&fn_2362); Value *rslt5 = protoFnImpl_100((List *)var_31, val0, rslt4); return (rslt5); }; -Value *arityImpl_2364(List *closures, Value *arg0) { +Value *arityImpl_2357(List *closures, Value *arg0) { Value *cond0; Value *rslt5 = protoFnImpl_179((List *)var_31, arg0); if (isTrue(rslt5)) { -Value *rslt6 = arityImpl_985((List *)var_31, (Value *)&_str_19); +Value *rslt6 = arityImpl_975((List *)var_31, (Value *)&_str_19); cond0 = rslt6; } else { -Value *rslt2 = protoFnImpl_232((List *)var_31, arg0, (Value *)&fn_2365); +Value *rslt2 = protoFnImpl_232((List *)var_31, arg0, (Value *)&fn_2358); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2368; +arity_3->fn = arityImpl_2361; arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); -Function *fn_2367 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2367->type = 3; -fn_2367->name = "anon"; -fn_2367->arityCount = 1; -fn_2367->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2367); +Function *fn_2360 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2360->type = 3; +fn_2360->name = "anon"; +fn_2360->arityCount = 1; +fn_2360->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2360); cond0 = rslt4; } return (cond0); @@ -28570,28 +28504,28 @@ return (cond0); // --------- eval-args main body -------------- -Function fn_2363 = {3, "eval-args", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2364}}}; -SymKey _kw_60 = {5, -1, ":core-static-fns"}; +Function fn_2356 = {3, "eval-args", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2357}}}; +SymKey _kw_58 = {5, -1, ":core-static-fns"}; // --------- core-static-fn -------------- -Function fn_2372; +Function fn_2365; // --------- anon -------------- -Function fn_2374; -Value *arityImpl_2375(List *closures, Value *arg0) { -return ((Value *)&_str_84); +Function fn_2367; +Value *arityImpl_2368(List *closures, Value *arg0) { +return ((Value *)&_str_83); }; // --------- anon main body -------------- -Function fn_2374 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2375}}}; +Function fn_2367 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2368}}}; // --------- anon -------------- -Function fn_2376; +Function fn_2369; // --------- anon -------------- -Function fn_2378; -Value *arityImpl_2379(List *closures, Value *arg0) { +Function fn_2371; +Value *arityImpl_2372(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -28605,20 +28539,20 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)(Value *)&_str_109, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_108, varArgs2); varArgs2 = (List *)listCons((Value *)val1, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_16, varArgs2); varArgs2 = (List *)listCons((Value *)val0, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_84, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_83, varArgs2); Value *rslt3 = arityImpl_508((List *)var_31, (Value *)varArgs2); -Value *rslt4 = arityImpl_1912((List *)var_31, rslt3, arg0); +Value *rslt4 = arityImpl_1905((List *)var_31, rslt3, arg0); return (rslt4); }; // --------- anon -------------- -Function fn_2380; -Value *arityImpl_2381(List *closures, Value *arg0) { +Function fn_2373; +Value *arityImpl_2374(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -28631,7 +28565,7 @@ Value *rslt2 = protoFnImpl_100((List *)var_31, val0, val1); return (rslt2); }; -Value *arityImpl_2377(List *closures, Value *arg0) { +Value *arityImpl_2370(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -28645,45 +28579,45 @@ varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_57, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_55, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2379; +arity_2->fn = arityImpl_2372; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); -Function *fn_2378 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2378->type = 3; -fn_2378->name = "anon"; -fn_2378->arityCount = 1; -fn_2378->arities[0] = arity_2; -Value *rslt4 = arityImpl_1027((List *)var_31, rslt1, (Value *)fn_2378); +Function *fn_2371 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2371->type = 3; +fn_2371->name = "anon"; +fn_2371->arityCount = 1; +fn_2371->arities[0] = arity_2; +Value *rslt4 = arityImpl_1017((List *)var_31, rslt1, (Value *)fn_2371); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_2381; +arity_5->fn = arityImpl_2374; arity_5->closures = listCons((Value *)arg0, (List *)arity_5->closures); arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); -Function *fn_2380 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2380->type = 3; -fn_2380->name = "anon"; -fn_2380->arityCount = 1; -fn_2380->arities[0] = arity_5; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_2380); +Function *fn_2373 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2373->type = 3; +fn_2373->name = "anon"; +fn_2373->arityCount = 1; +fn_2373->arities[0] = arity_5; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_2373); return (rslt7); }; -Value *arityImpl_2373(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_2366(List *closures, Value *arg0, Value *arg1) { Value *cond0; Value *rslt4 = arityImpl_283((List *)var_31, (Value *)&_num_8, arg1); if (isTrue(rslt4)) { cond0 = var_31; } else { -Value *rslt5 = arityImpl_283((List *)var_31, (Value *)&_kw_55, arg1); +Value *rslt5 = arityImpl_283((List *)var_31, (Value *)&_kw_53, arg1); if (isTrue(rslt5)) { List *varArgs6 = (List *)GC_malloc(sizeof(List)); @@ -28691,16 +28625,16 @@ varArgs6->type = ListType; varArgs6->len = 0; varArgs6->head = (Value *)0; varArgs6->tail = (List *)0; -varArgs6 = (List *)listCons((Value *)(Value *)&_str_84, varArgs6); +varArgs6 = (List *)listCons((Value *)(Value *)&_str_83, varArgs6); Value *rslt7 = arityImpl_119((List *)var_31, (Value *)varArgs6); cond0 = rslt7; } else { -Value *rslt1 = arityImpl_674((List *)var_31, arg1); -Value *rslt3 = protoFnImpl_125((List *)var_31, rslt1, (Value *)&fn_2374); +Value *rslt1 = arityImpl_664((List *)var_31, arg1); +Value *rslt3 = protoFnImpl_125((List *)var_31, rslt1, (Value *)&fn_2367); cond0 = rslt3; } } -Value *rslt8 = arityImpl_1912((List *)var_31, (Value *)&_str_93, cond0); +Value *rslt8 = arityImpl_1905((List *)var_31, (Value *)&_str_92, cond0); Value *rslt9 = arityImpl_149((List *)var_31, rslt8, (Value *)&_str_17); List *varArgs10 = (List *)GC_malloc(sizeof(List)); varArgs10->type = ListType; @@ -28717,33 +28651,33 @@ varArgs12->head = (Value *)0; varArgs12->tail = (List *)0; varArgs12 = (List *)listCons((Value *)arg1, varArgs12); varArgs12 = (List *)listCons((Value *)arg0, varArgs12); -varArgs12 = (List *)listCons((Value *)(Value *)&_kw_60, varArgs12); +varArgs12 = (List *)listCons((Value *)(Value *)&_kw_58, varArgs12); Value *rslt13 = arityImpl_119((List *)var_31, (Value *)varArgs12); -Value *rslt14 = arityImpl_1014((List *)var_31, rslt13); +Value *rslt14 = arityImpl_1004((List *)var_31, rslt13); FnArity *arity_15 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_15->count = 1; arity_15->closures = empty_list; arity_15->variadic = 0; -arity_15->fn = arityImpl_2377; +arity_15->fn = arityImpl_2370; arity_15->closures = listCons((Value *)rslt14, (List *)arity_15->closures); arity_15->closures = listCons((Value *)rslt11, (List *)arity_15->closures); -Function *fn_2376 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2376->type = 3; -fn_2376->name = "anon"; -fn_2376->arityCount = 1; -fn_2376->arities[0] = arity_15; -Value *rslt16 = protoFnImpl_78((List *)var_31, rslt14, (Value *)fn_2376); +Function *fn_2369 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2369->type = 3; +fn_2369->name = "anon"; +fn_2369->arityCount = 1; +fn_2369->arities[0] = arity_15; +Value *rslt16 = protoFnImpl_78((List *)var_31, rslt14, (Value *)fn_2369); return (rslt16); }; // --------- core-static-fn main body -------------- -Function fn_2372 = {3, "core-static-fn", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2373}}}; -SymKey _kw_61 = {5, -1, ":static-fns"}; +Function fn_2365 = {3, "core-static-fn", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2366}}}; +SymKey _kw_59 = {5, -1, ":static-fns"}; // --------- lookup-static-fn -------------- -Function fn_2383; -Value *arityImpl_2384(List *closures, Value *arg0, Value *arg1) { +Function fn_2376; +Value *arityImpl_2377(List *closures, Value *arg0, Value *arg1) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; @@ -28751,10 +28685,10 @@ varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg1, varArgs0); varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_61, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_59, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1014((List *)var_31, rslt1); -Value *rslt3 = arityImpl_2373((List *)var_31, arg0, arg1); +Value *rslt2 = arityImpl_1004((List *)var_31, rslt1); +Value *rslt3 = arityImpl_2366((List *)var_31, arg0, arg1); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; varArgs4->len = 0; @@ -28768,130 +28702,130 @@ return (rslt5); // --------- lookup-static-fn main body -------------- -Function fn_2383 = {3, "lookup-static-fn", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2384}}}; +Function fn_2376 = {3, "lookup-static-fn", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2377}}}; struct {int64_t type; int64_t len; - char buffer[6];} _str_141 = {1,5,"arity"}; + char buffer[6];} _str_140 = {1,5,"arity"}; struct {int64_t type; int64_t len; - char buffer[5];} _str_142 = {1,4,"rslt"}; + char buffer[5];} _str_141 = {1,4,"rslt"}; struct {int64_t type; int64_t len; - char buffer[11];} _str_143 = {1,10,"->closures"}; + char buffer[11];} _str_142 = {1,10,"->closures"}; struct {int64_t type; int64_t len; - char buffer[5];} _str_144 = {1,4,"if(("}; + char buffer[5];} _str_143 = {1,4,"if(("}; struct {int64_t type; int64_t len; - char buffer[12];} _str_145 = {1,11,")->type != "}; + char buffer[12];} _str_144 = {1,11,")->type != "}; struct {int64_t type; int64_t len; - char buffer[4];} _str_146 = {1,3," = "}; + char buffer[4];} _str_145 = {1,3," = "}; struct {int64_t type; int64_t len; - char buffer[14];} _str_147 = {1,13,"(empty_list, "}; + char buffer[14];} _str_146 = {1,13,"(empty_list, "}; struct {int64_t type; int64_t len; - char buffer[15];} _str_148 = {1,14,");\n} else {\n"}; + char buffer[15];} _str_147 = {1,14,");\n} else {\n"}; struct {int64_t type; int64_t len; - char buffer[16];} _str_149 = {1,15," = findFnArity("}; + char buffer[16];} _str_148 = {1,15," = findFnArity("}; struct {int64_t type; int64_t len; - char buffer[4];} _str_150 = {1,3,"if("}; + char buffer[4];} _str_149 = {1,3,"if("}; struct {int64_t type; int64_t len; - char buffer[22];} _str_151 = {1,21," != (FnArity *)0 && !"}; + char buffer[22];} _str_150 = {1,21," != (FnArity *)0 && !"}; struct {int64_t type; int64_t len; - char buffer[16];} _str_152 = {1,15,"->variadic) {\n"}; + char buffer[16];} _str_151 = {1,15,"->variadic) {\n"}; struct {int64_t type; int64_t len; - char buffer[7];} _str_153 = {1,6,"FnType"}; + char buffer[7];} _str_152 = {1,6,"FnType"}; struct {int64_t type; int64_t len; - char buffer[3];} _str_154 = {1,2," *"}; + char buffer[3];} _str_153 = {1,2," *"}; struct {int64_t type; int64_t len; - char buffer[11];} _str_155 = {1,10," = (FnType"}; + char buffer[11];} _str_154 = {1,10," = (FnType"}; struct {int64_t type; int64_t len; - char buffer[4];} _str_156 = {1,3," *)"}; + char buffer[4];} _str_155 = {1,3," *)"}; struct {int64_t type; int64_t len; - char buffer[8];} _str_157 = {1,7,"->fn;\n"}; + char buffer[8];} _str_156 = {1,7,"->fn;\n"}; struct {int64_t type; int64_t len; - char buffer[11];} _str_158 = {1,10,"} else if("}; + char buffer[11];} _str_157 = {1,10,"} else if("}; struct {int64_t type; int64_t len; - char buffer[21];} _str_159 = {1,20," != (FnArity *)0 && "}; + char buffer[21];} _str_158 = {1,20," != (FnArity *)0 && "}; struct {int64_t type; int64_t len; - char buffer[10];} _str_160 = {1,9,"FnType1 *"}; + char buffer[10];} _str_159 = {1,9,"FnType1 *"}; struct {int64_t type; int64_t len; - char buffer[15];} _str_161 = {1,14," = (FnType1 *)"}; + char buffer[15];} _str_160 = {1,14," = (FnType1 *)"}; struct {int64_t type; int64_t len; - char buffer[38];} _str_162 = {1,37," = (List *)GC_malloc(sizeof(List));\n"}; + char buffer[38];} _str_161 = {1,37," = (List *)GC_malloc(sizeof(List));\n"}; struct {int64_t type; int64_t len; - char buffer[22];} _str_163 = {1,21,"->type = ListType;\n"}; + char buffer[22];} _str_162 = {1,21,"->type = ListType;\n"}; struct {int64_t type; int64_t len; - char buffer[13];} _str_164 = {1,12,"->len = 0;\n"}; + char buffer[13];} _str_163 = {1,12,"->len = 0;\n"}; struct {int64_t type; int64_t len; - char buffer[23];} _str_165 = {1,22,"->head = (Value *)0;\n"}; + char buffer[23];} _str_164 = {1,22,"->head = (Value *)0;\n"}; struct {int64_t type; int64_t len; - char buffer[22];} _str_166 = {1,21,"->tail = (List *)0;\n"}; + char buffer[22];} _str_165 = {1,21,"->tail = (List *)0;\n"}; struct {int64_t type; int64_t len; - char buffer[21];} _str_167 = {1,20," = (List *)listCons("}; + char buffer[21];} _str_166 = {1,20," = (List *)listCons("}; struct {int64_t type; int64_t len; - char buffer[12];} _str_168 = {1,11,", (Value *)"}; + char buffer[12];} _str_167 = {1,11,", (Value *)"}; struct {int64_t type; int64_t len; - char buffer[67];} _str_169 = {1,66,"} else {\nfprintf(stderr, \"\\n*** no arity found for '%s'.\\n\", "}; + char buffer[67];} _str_168 = {1,66,"} else {\nfprintf(stderr, \"\\n*** no arity found for '%s'.\\n\", "}; struct {int64_t type; int64_t len; - char buffer[14];} _str_170 = {1,13,"((Function *)"}; + char buffer[14];} _str_169 = {1,13,"((Function *)"}; struct {int64_t type; int64_t len; - char buffer[8];} _str_171 = {1,7,")->name"}; + char buffer[8];} _str_170 = {1,7,")->name"}; struct {int64_t type; int64_t len; - char buffer[23];} _str_172 = {1,22,");\n abort();\n}\n}\n"}; + char buffer[23];} _str_171 = {1,22,");\n abort();\n}\n}\n"}; SymKey _sym_27 = {7, -1, "invoke"}; -SymKey _kw_62 = {5, -1, ":no-fn-type"}; +SymKey _kw_60 = {5, -1, ":no-fn-type"}; // --------- call-dynamic-fn -------------- -Function fn_2386; +Function fn_2379; // --------- anon -------------- -Function fn_2388; +Function fn_2381; // --------- anon -------------- -Function fn_2390; +Function fn_2383; // --------- anon -------------- -Function fn_2392; +Function fn_2385; // --------- anon -------------- -Function fn_2394; +Function fn_2387; // --------- anon -------------- -Function fn_2396; +Function fn_2389; // --------- anon -------------- -Function fn_2398; +Function fn_2391; // --------- anon -------------- -Function fn_2400; -Value *arityImpl_2401(List *closures, Value *arg0, Value *arg1) { +Function fn_2393; +Value *arityImpl_2394(List *closures, Value *arg0, Value *arg1) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -28901,18 +28835,18 @@ varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)(Value *)&_str_109, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_108, varArgs1); varArgs1 = (List *)listCons((Value *)val0, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_17, varArgs1); varArgs1 = (List *)listCons((Value *)arg1, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_167, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_166, varArgs1); varArgs1 = (List *)listCons((Value *)val0, varArgs1); varArgs1 = (List *)listCons((Value *)arg0, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); return (rslt2); }; -Value *arityImpl_2399(List *closures, Value *arg0) { +Value *arityImpl_2392(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -28958,13 +28892,13 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)(Value *)&_str_143, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_142, varArgs2); varArgs2 = (List *)listCons((Value *)val1, varArgs2); Value *rslt3 = arityImpl_508((List *)var_31, (Value *)varArgs2); -Value *rslt5 = arityImpl_1912((List *)var_31, rslt3, val4); -Value *rslt10 = arityImpl_1855((List *)var_31); -Value *rslt11 = protoFnImpl_261((List *)var_31, rslt10, (Value *)&_sym_22, (Value *)&_kw_62); -Value *rslt12 = arityImpl_1912((List *)var_31, val9, val4); +Value *rslt5 = arityImpl_1905((List *)var_31, rslt3, val4); +Value *rslt10 = arityImpl_1845((List *)var_31); +Value *rslt11 = protoFnImpl_261((List *)var_31, rslt10, (Value *)&_sym_22, (Value *)&_kw_60); +Value *rslt12 = arityImpl_1905((List *)var_31, val9, val4); Value *rslt13 = arityImpl_149((List *)var_31, rslt12, (Value *)&_str_17); List *varArgs14 = (List *)GC_malloc(sizeof(List)); varArgs14->type = ListType; @@ -28989,36 +28923,34 @@ FnArity *arity_24 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_24->count = 2; arity_24->closures = empty_list; arity_24->variadic = 0; -arity_24->fn = arityImpl_2401; +arity_24->fn = arityImpl_2394; arity_24->closures = listCons((Value *)val21, (List *)arity_24->closures); -Function *fn_2400 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2400->type = 3; -fn_2400->name = "anon"; -fn_2400->arityCount = 1; -fn_2400->arities[0] = arity_24; -Value *rslt25 = arityImpl_297((List *)var_31, rslt23, (Value *)&_str_19, (Value *)fn_2400); +Function *fn_2393 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2393->type = 3; +fn_2393->name = "anon"; +fn_2393->arityCount = 1; +fn_2393->arities[0] = arity_24; +Value *rslt25 = arityImpl_297((List *)var_31, rslt23, (Value *)&_str_19, (Value *)fn_2393); Value *rslt26 = protoFnImpl_219((List *)var_31, rslt5); List *varArgs27 = (List *)GC_malloc(sizeof(List)); varArgs27->type = ListType; varArgs27->len = 0; varArgs27->head = (Value *)0; varArgs27->tail = (List *)0; -varArgs27 = (List *)listCons((Value *)(Value *)&_str_172, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_171, varArgs27); -varArgs27 = (List *)listCons((Value *)val9, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_170, varArgs27); +varArgs27 = (List *)listCons((Value *)val9, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_169, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_str_109, varArgs27); -varArgs27 = (List *)listCons((Value *)val21, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_168, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_str_108, varArgs27); +varArgs27 = (List *)listCons((Value *)val21, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_str_167, varArgs27); varArgs27 = (List *)listCons((Value *)rslt26, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_16, varArgs27); varArgs27 = (List *)listCons((Value *)val17, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_str_146, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_str_145, varArgs27); varArgs27 = (List *)listCons((Value *)val6, varArgs27); varArgs27 = (List *)listCons((Value *)rslt25, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_str_166, varArgs27); -varArgs27 = (List *)listCons((Value *)val21, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_165, varArgs27); varArgs27 = (List *)listCons((Value *)val21, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_164, varArgs27); @@ -29027,58 +28959,60 @@ varArgs27 = (List *)listCons((Value *)(Value *)&_str_163, varArgs27); varArgs27 = (List *)listCons((Value *)val21, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_162, varArgs27); varArgs27 = (List *)listCons((Value *)val21, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_str_93, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_str_157, varArgs27); -varArgs27 = (List *)listCons((Value *)val1, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_161, varArgs27); -varArgs27 = (List *)listCons((Value *)val17, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_str_160, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_str_152, varArgs27); +varArgs27 = (List *)listCons((Value *)val21, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_str_92, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_str_156, varArgs27); varArgs27 = (List *)listCons((Value *)val1, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_str_160, varArgs27); +varArgs27 = (List *)listCons((Value *)val17, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_159, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_str_151, varArgs27); varArgs27 = (List *)listCons((Value *)val1, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_158, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_str_109, varArgs27); +varArgs27 = (List *)listCons((Value *)val1, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_str_157, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_str_108, varArgs27); varArgs27 = (List *)listCons((Value *)rslt20, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_16, varArgs27); varArgs27 = (List *)listCons((Value *)val17, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_str_146, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_str_145, varArgs27); varArgs27 = (List *)listCons((Value *)val6, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_str_157, varArgs27); -varArgs27 = (List *)listCons((Value *)val1, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_156, varArgs27); -varArgs27 = (List *)listCons((Value *)val16, varArgs27); +varArgs27 = (List *)listCons((Value *)val1, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_155, varArgs27); -varArgs27 = (List *)listCons((Value *)val17, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_str_154, varArgs27); varArgs27 = (List *)listCons((Value *)val16, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_str_154, varArgs27); +varArgs27 = (List *)listCons((Value *)val17, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_153, varArgs27); +varArgs27 = (List *)listCons((Value *)val16, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_152, varArgs27); -varArgs27 = (List *)listCons((Value *)val1, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_151, varArgs27); varArgs27 = (List *)listCons((Value *)val1, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_150, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_str_109, varArgs27); +varArgs27 = (List *)listCons((Value *)val1, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_str_149, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_str_108, varArgs27); varArgs27 = (List *)listCons((Value *)val16, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_17, varArgs27); varArgs27 = (List *)listCons((Value *)val9, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_str_149, varArgs27); -varArgs27 = (List *)listCons((Value *)val1, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_str_95, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_148, varArgs27); -varArgs27 = (List *)listCons((Value *)rslt15, varArgs27); +varArgs27 = (List *)listCons((Value *)val1, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_str_94, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_147, varArgs27); -varArgs27 = (List *)listCons((Value *)arg0, varArgs27); +varArgs27 = (List *)listCons((Value *)rslt15, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_146, varArgs27); +varArgs27 = (List *)listCons((Value *)arg0, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_str_145, varArgs27); varArgs27 = (List *)listCons((Value *)val6, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_str_135, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_str_134, varArgs27); varArgs27 = (List *)listCons((Value *)rslt11, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_str_145, varArgs27); -varArgs27 = (List *)listCons((Value *)val9, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_str_144, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_str_117, varArgs27); +varArgs27 = (List *)listCons((Value *)val9, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_str_143, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_str_116, varArgs27); varArgs27 = (List *)listCons((Value *)val6, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_str_84, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_str_83, varArgs27); Value *rslt28 = arityImpl_119((List *)var_31, (Value *)varArgs27); List *varArgs29 = (List *)GC_malloc(sizeof(List)); varArgs29->type = ListType; @@ -29101,7 +29035,7 @@ Value *rslt33 = protoFnImpl_100((List *)var_31, val0, rslt32); return (rslt33); }; -Value *arityImpl_2397(List *closures, Value *arg0) { +Value *arityImpl_2390(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -29144,12 +29078,12 @@ closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = protoFnImpl_219((List *)var_31, arg0); Value *rslt2 = arityImpl_453((List *)var_31, val1); -Value *rslt3 = arityImpl_2384((List *)var_31, rslt0, rslt2); +Value *rslt3 = arityImpl_2377((List *)var_31, rslt0, rslt2); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_2399; +arity_4->fn = arityImpl_2392; arity_4->closures = listCons((Value *)val5, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val6, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val1, (List *)arity_4->closures); @@ -29160,16 +29094,16 @@ arity_4->closures = listCons((Value *)val10, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val11, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val12, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val13, (List *)arity_4->closures); -Function *fn_2398 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2398->type = 3; -fn_2398->name = "anon"; -fn_2398->arityCount = 1; -fn_2398->arities[0] = arity_4; -Value *rslt14 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2398); +Function *fn_2391 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2391->type = 3; +fn_2391->name = "anon"; +fn_2391->arityCount = 1; +fn_2391->arities[0] = arity_4; +Value *rslt14 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2391); return (rslt14); }; -Value *arityImpl_2395(List *closures, Value *arg0) { +Value *arityImpl_2388(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -29206,12 +29140,12 @@ Value *val10 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_2034((List *)var_31, (Value *)&_sym_27); +Value *rslt0 = arityImpl_2027((List *)var_31, (Value *)&_sym_27); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2397; +arity_1->fn = arityImpl_2390; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); @@ -29222,16 +29156,16 @@ arity_1->closures = listCons((Value *)val7, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val8, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val9, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val10, (List *)arity_1->closures); -Function *fn_2396 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2396->type = 3; -fn_2396->name = "anon"; -fn_2396->arityCount = 1; -fn_2396->arities[0] = arity_1; -Value *rslt11 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2396); +Function *fn_2389 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2389->type = 3; +fn_2389->name = "anon"; +fn_2389->arityCount = 1; +fn_2389->arities[0] = arity_1; +Value *rslt11 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2389); return (rslt11); }; -Value *arityImpl_2393(List *closures, Value *arg0) { +Value *arityImpl_2386(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -29264,12 +29198,12 @@ Value *val9 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1961((List *)var_31, (Value *)&_str_142); +Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_141); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2395; +arity_1->fn = arityImpl_2388; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); @@ -29279,16 +29213,16 @@ arity_1->closures = listCons((Value *)val6, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val7, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val8, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val9, (List *)arity_1->closures); -Function *fn_2394 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2394->type = 3; -fn_2394->name = "anon"; -fn_2394->arityCount = 1; -fn_2394->arities[0] = arity_1; -Value *rslt10 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2394); +Function *fn_2387 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2387->type = 3; +fn_2387->name = "anon"; +fn_2387->arityCount = 1; +fn_2387->arities[0] = arity_1; +Value *rslt10 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2387); return (rslt10); }; -Value *arityImpl_2391(List *closures, Value *arg0) { +Value *arityImpl_2384(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -29317,12 +29251,12 @@ Value *val8 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1961((List *)var_31, (Value *)&_str_61); +Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_60); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2393; +arity_1->fn = arityImpl_2386; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); @@ -29331,16 +29265,16 @@ arity_1->closures = listCons((Value *)val6, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val7, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val8, (List *)arity_1->closures); -Function *fn_2392 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2392->type = 3; -fn_2392->name = "anon"; -fn_2392->arityCount = 1; -fn_2392->arities[0] = arity_1; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2392); +Function *fn_2385 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2385->type = 3; +fn_2385->name = "anon"; +fn_2385->arityCount = 1; +fn_2385->arities[0] = arity_1; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2385); return (rslt9); }; -Value *arityImpl_2389(List *closures, Value *arg0) { +Value *arityImpl_2382(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -29365,12 +29299,12 @@ Value *val7 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1961((List *)var_31, (Value *)&_str_124); +Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_123); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2391; +arity_1->fn = arityImpl_2384; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); @@ -29378,62 +29312,62 @@ arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val6, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val7, (List *)arity_1->closures); -Function *fn_2390 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2390->type = 3; -fn_2390->name = "anon"; -fn_2390->arityCount = 1; -fn_2390->arities[0] = arity_1; -Value *rslt8 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2390); +Function *fn_2383 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2383->type = 3; +fn_2383->name = "anon"; +fn_2383->arityCount = 1; +fn_2383->arities[0] = arity_1; +Value *rslt8 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2383); return (rslt8); }; -Value *arityImpl_2387(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_2380(List *closures, Value *arg0, Value *arg1) { Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_8, (Value *)&_str_19); Value *rslt1 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, var_31); Value *rslt2 = arityImpl_524((List *)var_31, arg1, (Value *)&_num_1, var_31); Value *rslt3 = arityImpl_524((List *)var_31, arg1, (Value *)&_num_8, var_31); Value *rslt4 = protoFnImpl_195((List *)var_31, rslt3); -Value *rslt5 = arityImpl_1961((List *)var_31, (Value *)&_str_141); +Value *rslt5 = arityImpl_1954((List *)var_31, (Value *)&_str_140); FnArity *arity_6 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_6->count = 1; arity_6->closures = empty_list; arity_6->variadic = 0; -arity_6->fn = arityImpl_2389; +arity_6->fn = arityImpl_2382; arity_6->closures = listCons((Value *)rslt5, (List *)arity_6->closures); arity_6->closures = listCons((Value *)rslt3, (List *)arity_6->closures); arity_6->closures = listCons((Value *)rslt1, (List *)arity_6->closures); arity_6->closures = listCons((Value *)rslt2, (List *)arity_6->closures); arity_6->closures = listCons((Value *)rslt0, (List *)arity_6->closures); arity_6->closures = listCons((Value *)rslt4, (List *)arity_6->closures); -Function *fn_2388 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2388->type = 3; -fn_2388->name = "anon"; -fn_2388->arityCount = 1; -fn_2388->arities[0] = arity_6; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_2388); +Function *fn_2381 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2381->type = 3; +fn_2381->name = "anon"; +fn_2381->arityCount = 1; +fn_2381->arities[0] = arity_6; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_2381); return (rslt7); }; // --------- call-dynamic-fn main body -------------- -Function fn_2386 = {3, "call-dynamic-fn", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2387}}}; -SymKey _kw_63 = {5, -1, ":curr-fn-sym"}; +Function fn_2379 = {3, "call-dynamic-fn", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2380}}}; +SymKey _kw_61 = {5, -1, ":curr-fn-sym"}; // --------- call-recursive -------------- -Function fn_2403; +Function fn_2396; // --------- anon -------------- -Function fn_2405; +Function fn_2398; // --------- anon -------------- -Function fn_2407; +Function fn_2400; // --------- anon -------------- -Function fn_2409; +Function fn_2402; // --------- anon -------------- -Function fn_2411; -Value *arityImpl_2412(List *closures, Value *arg0) { +Function fn_2404; +Value *arityImpl_2405(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -29454,7 +29388,7 @@ Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt5 = arityImpl_1912((List *)var_31, (Value *)&_str_123, val4); +Value *rslt5 = arityImpl_1905((List *)var_31, (Value *)&_str_122, val4); Value *rslt6 = arityImpl_149((List *)var_31, rslt5, (Value *)&_str_17); List *varArgs7 = (List *)GC_malloc(sizeof(List)); varArgs7->type = ListType; @@ -29469,13 +29403,13 @@ varArgs9->type = ListType; varArgs9->len = 0; varArgs9->head = (Value *)0; varArgs9->tail = (List *)0; -varArgs9 = (List *)listCons((Value *)(Value *)&_str_109, varArgs9); +varArgs9 = (List *)listCons((Value *)(Value *)&_str_108, varArgs9); varArgs9 = (List *)listCons((Value *)rslt8, varArgs9); varArgs9 = (List *)listCons((Value *)(Value *)&_str_16, varArgs9); varArgs9 = (List *)listCons((Value *)val3, varArgs9); -varArgs9 = (List *)listCons((Value *)(Value *)&_str_146, varArgs9); +varArgs9 = (List *)listCons((Value *)(Value *)&_str_145, varArgs9); varArgs9 = (List *)listCons((Value *)arg0, varArgs9); -varArgs9 = (List *)listCons((Value *)(Value *)&_str_84, varArgs9); +varArgs9 = (List *)listCons((Value *)(Value *)&_str_83, varArgs9); Value *rslt10 = arityImpl_119((List *)var_31, (Value *)varArgs9); List *varArgs11 = (List *)GC_malloc(sizeof(List)); varArgs11->type = ListType; @@ -29498,7 +29432,7 @@ Value *rslt15 = protoFnImpl_100((List *)var_31, val0, rslt14); return (rslt15); }; -Value *arityImpl_2410(List *closures, Value *arg0) { +Value *arityImpl_2403(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -29515,27 +29449,27 @@ Value *val5 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1961((List *)var_31, (Value *)&_str_142); +Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_141); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2412; +arity_1->fn = arityImpl_2405; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); -Function *fn_2411 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2411->type = 3; -fn_2411->name = "anon"; -fn_2411->arityCount = 1; -fn_2411->arities[0] = arity_1; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2411); +Function *fn_2404 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2404->type = 3; +fn_2404->name = "anon"; +fn_2404->arityCount = 1; +fn_2404->arities[0] = arity_1; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2404); return (rslt6); }; -Value *arityImpl_2408(List *closures, Value *arg0) { +Value *arityImpl_2401(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -29567,7 +29501,7 @@ varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; varArgs4 = (List *)listCons((Value *)val3, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&_str_104, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_103, varArgs4); Value *rslt5 = arityImpl_508((List *)var_31, (Value *)varArgs4); Value *rslt7 = arityImpl_524((List *)var_31, val6, (Value *)&_num_8, (Value *)&_str_19); Value *rslt8 = arityImpl_283((List *)var_31, rslt5, rslt7); @@ -29583,22 +29517,22 @@ varArgs12 = (List *)listCons((Value *)rslt8, varArgs12); Value *rslt13 = arityImpl_277((List *)var_31, (Value *)varArgs12); if (isTrue(rslt13)) { -Value *rslt14 = arityImpl_1001((List *)var_31, (Value *)&_kw_53); +Value *rslt14 = arityImpl_991((List *)var_31, (Value *)&_kw_51); FnArity *arity_15 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_15->count = 1; arity_15->closures = empty_list; arity_15->variadic = 0; -arity_15->fn = arityImpl_2410; +arity_15->fn = arityImpl_2403; arity_15->closures = listCons((Value *)val1, (List *)arity_15->closures); arity_15->closures = listCons((Value *)val16, (List *)arity_15->closures); arity_15->closures = listCons((Value *)val17, (List *)arity_15->closures); arity_15->closures = listCons((Value *)val9, (List *)arity_15->closures); -Function *fn_2409 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2409->type = 3; -fn_2409->name = "anon"; -fn_2409->arityCount = 1; -fn_2409->arities[0] = arity_15; -Value *rslt18 = protoFnImpl_78((List *)var_31, rslt14, (Value *)fn_2409); +Function *fn_2402 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2402->type = 3; +fn_2402->name = "anon"; +fn_2402->arityCount = 1; +fn_2402->arities[0] = arity_15; +Value *rslt18 = protoFnImpl_78((List *)var_31, rslt14, (Value *)fn_2402); cond0 = rslt18; } else { Value *rslt2 = protoFnImpl_242((List *)var_31, val1); @@ -29607,7 +29541,7 @@ cond0 = rslt2; return (cond0); }; -Value *arityImpl_2406(List *closures, Value *arg0) { +Value *arityImpl_2399(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -29628,71 +29562,71 @@ Value *val6 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_54, (Value *)&_num_29); +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_52, (Value *)&_num_29); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2408; +arity_1->fn = arityImpl_2401; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val6, (List *)arity_1->closures); -Function *fn_2407 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2407->type = 3; -fn_2407->name = "anon"; -fn_2407->arityCount = 1; -fn_2407->arities[0] = arity_1; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2407); +Function *fn_2400 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2400->type = 3; +fn_2400->name = "anon"; +fn_2400->arityCount = 1; +fn_2400->arities[0] = arity_1; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2400); return (rslt7); }; -Value *arityImpl_2404(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_2397(List *closures, Value *arg0, Value *arg1) { Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, var_31); Value *rslt1 = arityImpl_524((List *)var_31, arg1, (Value *)&_num_1, var_31); Value *rslt2 = arityImpl_524((List *)var_31, arg1, (Value *)&_num_8, var_31); -Value *rslt3 = arityImpl_1001((List *)var_31, (Value *)&_kw_63); +Value *rslt3 = arityImpl_991((List *)var_31, (Value *)&_kw_61); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_2406; +arity_4->fn = arityImpl_2399; arity_4->closures = listCons((Value *)rslt3, (List *)arity_4->closures); arity_4->closures = listCons((Value *)arg0, (List *)arity_4->closures); arity_4->closures = listCons((Value *)rslt2, (List *)arity_4->closures); arity_4->closures = listCons((Value *)rslt0, (List *)arity_4->closures); arity_4->closures = listCons((Value *)rslt1, (List *)arity_4->closures); -Function *fn_2405 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2405->type = 3; -fn_2405->name = "anon"; -fn_2405->arityCount = 1; -fn_2405->arities[0] = arity_4; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2405); +Function *fn_2398 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2398->type = 3; +fn_2398->name = "anon"; +fn_2398->arityCount = 1; +fn_2398->arities[0] = arity_4; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2398); return (rslt5); }; // --------- call-recursive main body -------------- -Function fn_2403 = {3, "call-recursive", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2404}}}; +Function fn_2396 = {3, "call-recursive", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2397}}}; struct {int64_t type; int64_t len; - char buffer[9];} _str_173 = {1,8,"(List *)"}; + char buffer[9];} _str_172 = {1,8,"(List *)"}; SymKey _sym_28 = {7, -1, "empty-list"}; // --------- call-static-fixed -------------- -Function fn_2414; +Function fn_2407; // --------- anon -------------- -Function fn_2416; +Function fn_2409; // --------- anon -------------- -Function fn_2418; +Function fn_2411; // --------- anon -------------- -Function fn_2420; -Value *arityImpl_2421(List *closures, Value *arg0) { +Function fn_2413; +Value *arityImpl_2414(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -29724,9 +29658,9 @@ varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; varArgs3 = (List *)listCons((Value *)rslt2, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_str_173, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_172, varArgs3); Value *rslt4 = arityImpl_508((List *)var_31, (Value *)varArgs3); -Value *rslt6 = arityImpl_1912((List *)var_31, rslt4, val5); +Value *rslt6 = arityImpl_1905((List *)var_31, rslt4, val5); Value *rslt10 = arityImpl_149((List *)var_31, rslt6, (Value *)&_str_17); List *varArgs11 = (List *)GC_malloc(sizeof(List)); varArgs11->type = ListType; @@ -29741,13 +29675,13 @@ varArgs13->type = ListType; varArgs13->len = 0; varArgs13->head = (Value *)0; varArgs13->tail = (List *)0; -varArgs13 = (List *)listCons((Value *)(Value *)&_str_109, varArgs13); +varArgs13 = (List *)listCons((Value *)(Value *)&_str_108, varArgs13); varArgs13 = (List *)listCons((Value *)rslt12, varArgs13); varArgs13 = (List *)listCons((Value *)(Value *)&_str_16, varArgs13); varArgs13 = (List *)listCons((Value *)val9, varArgs13); -varArgs13 = (List *)listCons((Value *)(Value *)&_str_146, varArgs13); +varArgs13 = (List *)listCons((Value *)(Value *)&_str_145, varArgs13); varArgs13 = (List *)listCons((Value *)arg0, varArgs13); -varArgs13 = (List *)listCons((Value *)(Value *)&_str_84, varArgs13); +varArgs13 = (List *)listCons((Value *)(Value *)&_str_83, varArgs13); Value *rslt14 = arityImpl_508((List *)var_31, (Value *)varArgs13); List *varArgs15 = (List *)GC_malloc(sizeof(List)); varArgs15->type = ListType; @@ -29777,7 +29711,7 @@ Value *rslt21 = protoFnImpl_100((List *)var_31, val0, rslt20); return (rslt21); }; -Value *arityImpl_2419(List *closures, Value *arg0) { +Value *arityImpl_2412(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -29798,28 +29732,28 @@ Value *val6 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1961((List *)var_31, (Value *)&_str_142); +Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_141); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2421; +arity_1->fn = arityImpl_2414; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val6, (List *)arity_1->closures); -Function *fn_2420 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2420->type = 3; -fn_2420->name = "anon"; -fn_2420->arityCount = 1; -fn_2420->arities[0] = arity_1; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2420); +Function *fn_2413 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2413->type = 3; +fn_2413->name = "anon"; +fn_2413->arityCount = 1; +fn_2413->arities[0] = arity_1; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2413); return (rslt7); }; -Value *arityImpl_2417(List *closures, Value *arg0) { +Value *arityImpl_2410(List *closures, Value *arg0) { Value *val7 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -29842,10 +29776,10 @@ varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)(Value *)&_sym_28, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_49, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_47, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1014((List *)var_31, rslt1); -Value *rslt3 = arityImpl_2023((List *)var_31, (Value *)&_sym_28); +Value *rslt2 = arityImpl_1004((List *)var_31, rslt1); +Value *rslt3 = arityImpl_2016((List *)var_31, (Value *)&_sym_28); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; varArgs4->len = 0; @@ -29858,71 +29792,71 @@ FnArity *arity_6 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_6->count = 1; arity_6->closures = empty_list; arity_6->variadic = 0; -arity_6->fn = arityImpl_2419; +arity_6->fn = arityImpl_2412; arity_6->closures = listCons((Value *)val7, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val8, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val9, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val10, (List *)arity_6->closures); arity_6->closures = listCons((Value *)arg0, (List *)arity_6->closures); -Function *fn_2418 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2418->type = 3; -fn_2418->name = "anon"; -fn_2418->arityCount = 1; -fn_2418->arities[0] = arity_6; -Value *rslt11 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_2418); +Function *fn_2411 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2411->type = 3; +fn_2411->name = "anon"; +fn_2411->arityCount = 1; +fn_2411->arities[0] = arity_6; +Value *rslt11 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_2411); return (rslt11); }; -Value *arityImpl_2415(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_2408(List *closures, Value *arg0, Value *arg1) { Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_8, (Value *)&_str_19); Value *rslt1 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, var_31); Value *rslt2 = arityImpl_524((List *)var_31, arg1, (Value *)&_num_1, var_31); Value *rslt3 = arityImpl_524((List *)var_31, arg1, (Value *)&_num_8, var_31); Value *rslt4 = protoFnImpl_195((List *)var_31, rslt3); -Value *rslt5 = arityImpl_2384((List *)var_31, rslt0, rslt4); +Value *rslt5 = arityImpl_2377((List *)var_31, rslt0, rslt4); FnArity *arity_6 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_6->count = 1; arity_6->closures = empty_list; arity_6->variadic = 0; -arity_6->fn = arityImpl_2417; +arity_6->fn = arityImpl_2410; arity_6->closures = listCons((Value *)rslt2, (List *)arity_6->closures); arity_6->closures = listCons((Value *)rslt1, (List *)arity_6->closures); arity_6->closures = listCons((Value *)rslt3, (List *)arity_6->closures); arity_6->closures = listCons((Value *)rslt5, (List *)arity_6->closures); -Function *fn_2416 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2416->type = 3; -fn_2416->name = "anon"; -fn_2416->arityCount = 1; -fn_2416->arities[0] = arity_6; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_2416); +Function *fn_2409 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2409->type = 3; +fn_2409->name = "anon"; +fn_2409->arityCount = 1; +fn_2409->arities[0] = arity_6; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_2409); return (rslt7); }; // --------- call-static-fixed main body -------------- -Function fn_2414 = {3, "call-static-fixed", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2415}}}; +Function fn_2407 = {3, "call-static-fixed", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2408}}}; struct {int64_t type; int64_t len; - char buffer[10];} _str_174 = {1,9,"(Value *)"}; + char buffer[10];} _str_173 = {1,9,"(Value *)"}; // --------- call-static-variadic -------------- -Function fn_2423; +Function fn_2416; // --------- anon -------------- -Function fn_2425; +Function fn_2418; // --------- anon -------------- -Function fn_2427; +Function fn_2420; // --------- anon -------------- -Function fn_2429; +Function fn_2422; // --------- anon -------------- -Function fn_2431; +Function fn_2424; // --------- anon -------------- -Function fn_2433; -Value *arityImpl_2434(List *closures, Value *arg0, Value *arg1) { +Function fn_2426; +Value *arityImpl_2427(List *closures, Value *arg0, Value *arg1) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -29932,19 +29866,19 @@ varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)(Value *)&_str_109, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_108, varArgs1); varArgs1 = (List *)listCons((Value *)val0, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_17, varArgs1); varArgs1 = (List *)listCons((Value *)arg1, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_174, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_167, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_173, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_166, varArgs1); varArgs1 = (List *)listCons((Value *)val0, varArgs1); varArgs1 = (List *)listCons((Value *)arg0, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); return (rslt2); }; -Value *arityImpl_2432(List *closures, Value *arg0) { +Value *arityImpl_2425(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -29980,41 +29914,39 @@ varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; varArgs3 = (List *)listCons((Value *)rslt2, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_str_173, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_172, varArgs3); Value *rslt4 = arityImpl_508((List *)var_31, (Value *)varArgs3); -Value *rslt6 = arityImpl_1912((List *)var_31, rslt4, val5); +Value *rslt6 = arityImpl_1905((List *)var_31, rslt4, val5); Value *rslt10 = protoFnImpl_224((List *)var_31, rslt6); Value *rslt11 = arityImpl_310((List *)var_31, rslt10); FnArity *arity_12 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_12->count = 2; arity_12->closures = empty_list; arity_12->variadic = 0; -arity_12->fn = arityImpl_2434; +arity_12->fn = arityImpl_2427; arity_12->closures = listCons((Value *)val9, (List *)arity_12->closures); -Function *fn_2433 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2433->type = 3; -fn_2433->name = "anon"; -fn_2433->arityCount = 1; -fn_2433->arities[0] = arity_12; -Value *rslt13 = arityImpl_297((List *)var_31, rslt11, (Value *)&_str_19, (Value *)fn_2433); +Function *fn_2426 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2426->type = 3; +fn_2426->name = "anon"; +fn_2426->arityCount = 1; +fn_2426->arities[0] = arity_12; +Value *rslt13 = arityImpl_297((List *)var_31, rslt11, (Value *)&_str_19, (Value *)fn_2426); Value *rslt15 = protoFnImpl_219((List *)var_31, rslt6); List *varArgs16 = (List *)GC_malloc(sizeof(List)); varArgs16->type = ListType; varArgs16->len = 0; varArgs16->head = (Value *)0; varArgs16->tail = (List *)0; -varArgs16 = (List *)listCons((Value *)(Value *)&_str_109, varArgs16); +varArgs16 = (List *)listCons((Value *)(Value *)&_str_108, varArgs16); varArgs16 = (List *)listCons((Value *)val9, varArgs16); -varArgs16 = (List *)listCons((Value *)(Value *)&_str_168, varArgs16); +varArgs16 = (List *)listCons((Value *)(Value *)&_str_167, varArgs16); varArgs16 = (List *)listCons((Value *)rslt15, varArgs16); varArgs16 = (List *)listCons((Value *)(Value *)&_str_16, varArgs16); varArgs16 = (List *)listCons((Value *)val14, varArgs16); -varArgs16 = (List *)listCons((Value *)(Value *)&_str_146, varArgs16); +varArgs16 = (List *)listCons((Value *)(Value *)&_str_145, varArgs16); varArgs16 = (List *)listCons((Value *)arg0, varArgs16); -varArgs16 = (List *)listCons((Value *)(Value *)&_str_84, varArgs16); +varArgs16 = (List *)listCons((Value *)(Value *)&_str_83, varArgs16); varArgs16 = (List *)listCons((Value *)rslt13, varArgs16); -varArgs16 = (List *)listCons((Value *)(Value *)&_str_166, varArgs16); -varArgs16 = (List *)listCons((Value *)val9, varArgs16); varArgs16 = (List *)listCons((Value *)(Value *)&_str_165, varArgs16); varArgs16 = (List *)listCons((Value *)val9, varArgs16); varArgs16 = (List *)listCons((Value *)(Value *)&_str_164, varArgs16); @@ -30023,7 +29955,9 @@ varArgs16 = (List *)listCons((Value *)(Value *)&_str_163, varArgs16); varArgs16 = (List *)listCons((Value *)val9, varArgs16); varArgs16 = (List *)listCons((Value *)(Value *)&_str_162, varArgs16); varArgs16 = (List *)listCons((Value *)val9, varArgs16); -varArgs16 = (List *)listCons((Value *)(Value *)&_str_93, varArgs16); +varArgs16 = (List *)listCons((Value *)(Value *)&_str_161, varArgs16); +varArgs16 = (List *)listCons((Value *)val9, varArgs16); +varArgs16 = (List *)listCons((Value *)(Value *)&_str_92, varArgs16); Value *rslt17 = arityImpl_508((List *)var_31, (Value *)varArgs16); List *varArgs18 = (List *)GC_malloc(sizeof(List)); varArgs18->type = ListType; @@ -30053,7 +29987,7 @@ Value *rslt24 = protoFnImpl_100((List *)var_31, val0, rslt23); return (rslt24); }; -Value *arityImpl_2430(List *closures, Value *arg0) { +Value *arityImpl_2423(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -30078,12 +30012,12 @@ Value *val7 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1961((List *)var_31, (Value *)&_str_142); +Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_141); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2432; +arity_1->fn = arityImpl_2425; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); @@ -30091,16 +30025,16 @@ arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val6, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val7, (List *)arity_1->closures); -Function *fn_2431 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2431->type = 3; -fn_2431->name = "anon"; -fn_2431->arityCount = 1; -fn_2431->arities[0] = arity_1; -Value *rslt8 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2431); +Function *fn_2424 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2424->type = 3; +fn_2424->name = "anon"; +fn_2424->arityCount = 1; +fn_2424->arities[0] = arity_1; +Value *rslt8 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2424); return (rslt8); }; -Value *arityImpl_2428(List *closures, Value *arg0) { +Value *arityImpl_2421(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -30121,28 +30055,28 @@ Value *val6 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1961((List *)var_31, (Value *)&_str_124); +Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_123); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2430; +arity_1->fn = arityImpl_2423; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val6, (List *)arity_1->closures); -Function *fn_2429 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2429->type = 3; -fn_2429->name = "anon"; -fn_2429->arityCount = 1; -fn_2429->arities[0] = arity_1; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2429); +Function *fn_2422 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2422->type = 3; +fn_2422->name = "anon"; +fn_2422->arityCount = 1; +fn_2422->arities[0] = arity_1; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2422); return (rslt7); }; -Value *arityImpl_2426(List *closures, Value *arg0) { +Value *arityImpl_2419(List *closures, Value *arg0) { Value *val7 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -30165,10 +30099,10 @@ varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)(Value *)&_sym_28, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_49, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_47, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1014((List *)var_31, rslt1); -Value *rslt3 = arityImpl_2023((List *)var_31, (Value *)&_sym_28); +Value *rslt2 = arityImpl_1004((List *)var_31, rslt1); +Value *rslt3 = arityImpl_2016((List *)var_31, (Value *)&_sym_28); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; varArgs4->len = 0; @@ -30181,52 +30115,52 @@ FnArity *arity_6 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_6->count = 1; arity_6->closures = empty_list; arity_6->variadic = 0; -arity_6->fn = arityImpl_2428; +arity_6->fn = arityImpl_2421; arity_6->closures = listCons((Value *)arg0, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val7, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val8, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val9, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val10, (List *)arity_6->closures); -Function *fn_2427 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2427->type = 3; -fn_2427->name = "anon"; -fn_2427->arityCount = 1; -fn_2427->arities[0] = arity_6; -Value *rslt11 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_2427); +Function *fn_2420 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2420->type = 3; +fn_2420->name = "anon"; +fn_2420->arityCount = 1; +fn_2420->arities[0] = arity_6; +Value *rslt11 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_2420); return (rslt11); }; -Value *arityImpl_2424(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_2417(List *closures, Value *arg0, Value *arg1) { Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_8, (Value *)&_str_19); Value *rslt1 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, var_31); Value *rslt2 = arityImpl_524((List *)var_31, arg1, (Value *)&_num_1, var_31); Value *rslt3 = arityImpl_524((List *)var_31, arg1, (Value *)&_num_8, var_31); Value *rslt4 = protoFnImpl_195((List *)var_31, rslt3); -Value *rslt5 = arityImpl_2384((List *)var_31, rslt0, (Value *)&_kw_55); +Value *rslt5 = arityImpl_2377((List *)var_31, rslt0, (Value *)&_kw_53); FnArity *arity_6 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_6->count = 1; arity_6->closures = empty_list; arity_6->variadic = 0; -arity_6->fn = arityImpl_2426; +arity_6->fn = arityImpl_2419; arity_6->closures = listCons((Value *)rslt5, (List *)arity_6->closures); arity_6->closures = listCons((Value *)rslt3, (List *)arity_6->closures); arity_6->closures = listCons((Value *)rslt1, (List *)arity_6->closures); arity_6->closures = listCons((Value *)rslt2, (List *)arity_6->closures); -Function *fn_2425 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2425->type = 3; -fn_2425->name = "anon"; -fn_2425->arityCount = 1; -fn_2425->arities[0] = arity_6; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_2425); +Function *fn_2418 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2418->type = 3; +fn_2418->name = "anon"; +fn_2418->arityCount = 1; +fn_2418->arities[0] = arity_6; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_2418); return (rslt7); }; // --------- call-static-variadic main body -------------- -Function fn_2423 = {3, "call-static-variadic", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2424}}}; -ProtoImpls *protoImpls_2436; -Value *protoFnImpl_2439(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2436); +Function fn_2416 = {3, "call-static-variadic", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2417}}}; +ProtoImpls *protoImpls_2429; +Value *protoFnImpl_2432(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2429); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.callee' %lld\n", arg0->type); abort(); @@ -30239,12 +30173,12 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_2440 = {1, (List *)0, 0, protoFnImpl_2439}; -Function protoFn_2437 = {3, ".callee", 1, {&protoFnArity_2440}}; +FnArity protoFnArity_2433 = {1, (List *)0, 0, protoFnImpl_2432}; +Function protoFn_2430 = {3, ".callee", 1, {&protoFnArity_2433}}; -ProtoImpls *protoImpls_2441; -Value *protoFnImpl_2444(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2441); +ProtoImpls *protoImpls_2434; +Value *protoFnImpl_2437(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2434); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.params' %lld\n", arg0->type); abort(); @@ -30257,49 +30191,49 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_2445 = {1, (List *)0, 0, protoFnImpl_2444}; -Function protoFn_2442 = {3, ".params", 1, {&protoFnArity_2445}}; +FnArity protoFnArity_2438 = {1, (List *)0, 0, protoFnImpl_2437}; +Function protoFn_2435 = {3, ".params", 1, {&protoFnArity_2438}}; struct {int64_t type; int64_t len; - char buffer[30];} _str_175 = {1,29,"could not emit callsite for '"}; -Number _num_41 = {2, -1, 64}; -SymKey _kw_64 = {5, -1, ":target"}; + char buffer[30];} _str_174 = {1,29,"could not emit callsite for '"}; +Number _num_41 = {2, -1, 63}; +SymKey _kw_62 = {5, -1, ":target"}; // --------- instance?_impl -------------- -Function fn_2446; -Value *arityImpl_2447(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1892((List *)var_31, arg1); +Function fn_2439; +Value *arityImpl_2440(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1882((List *)var_31, arg1); Value *rslt1 = arityImpl_283((List *)var_31, (Value *)&_num_41, rslt0); return (rslt1); }; // --------- instance?_impl main body -------------- -Function fn_2446 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2447}}}; -Value *protoImpl_2448(List *closures, Value *arg0, Value *arg1) { +Function fn_2439 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2440}}}; +Value *protoImpl_2441(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2449 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2448}}}; +Function protoFn_2442 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2441}}}; // --------- invoke_impl -------------- -Function fn_2450; +Function fn_2443; // --------- emit-c_impl -------------- -Function fn_2452; +Function fn_2445; // --------- anon -------------- -Function fn_2454; +Function fn_2447; // --------- anon -------------- -Function fn_2456; +Function fn_2449; // --------- anon -------------- -Function fn_2458; -Value *arityImpl_2459(List *closures, Value *arg0) { +Function fn_2451; +Value *arityImpl_2452(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -30308,16 +30242,16 @@ Value *val7 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = protoFnImpl_740((List *)var_31, val0, (Value *)&protoFn_134); +Value *rslt1 = protoFnImpl_730((List *)var_31, val0, (Value *)&protoFn_134); Value *rslt2 = protoFnImpl_219((List *)var_31, rslt1); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; -varArgs3 = (List *)listCons((Value *)(Value *)&_str_66, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_65, varArgs3); varArgs3 = (List *)listCons((Value *)rslt2, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_str_175, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_174, varArgs3); Value *rslt4 = arityImpl_508((List *)var_31, (Value *)varArgs3); List *varArgs5 = (List *)GC_malloc(sizeof(List)); varArgs5->type = ListType; @@ -30333,16 +30267,16 @@ varArgs9->len = 0; varArgs9->head = (Value *)0; varArgs9->tail = (List *)0; varArgs9 = (List *)listCons((Value *)rslt8, varArgs9); -varArgs9 = (List *)listCons((Value *)(Value *)&_kw_64, varArgs9); +varArgs9 = (List *)listCons((Value *)(Value *)&_kw_62, varArgs9); Value *rslt10 = arityImpl_163((List *)var_31, (Value *)varArgs9); -Value *rslt11 = arityImpl_1890((List *)var_31); +Value *rslt11 = arityImpl_1880((List *)var_31); return (rslt11); }; // --------- anon -------------- -Function fn_2460; -Value *arityImpl_2461(List *closures, Value *arg0) { +Function fn_2453; +Value *arityImpl_2454(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -30351,7 +30285,7 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, arg0); return (rslt1); }; -Value *arityImpl_2457(List *closures, Value *arg0) { +Value *arityImpl_2450(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -30364,30 +30298,30 @@ Value *val14 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_2415((List *)var_31, val0, arg0); -Value *rslt2 = arityImpl_2424((List *)var_31, val0, arg0); -Value *rslt3 = arityImpl_2404((List *)var_31, val0, arg0); -Value *rslt4 = arityImpl_2387((List *)var_31, val0, arg0); +Value *rslt1 = arityImpl_2408((List *)var_31, val0, arg0); +Value *rslt2 = arityImpl_2417((List *)var_31, val0, arg0); +Value *rslt3 = arityImpl_2397((List *)var_31, val0, arg0); +Value *rslt4 = arityImpl_2380((List *)var_31, val0, arg0); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_2459; +arity_5->fn = arityImpl_2452; arity_5->closures = listCons((Value *)val0, (List *)arity_5->closures); arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); -Function *fn_2458 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2458->type = 3; -fn_2458->name = "anon"; -fn_2458->arityCount = 1; -fn_2458->arities[0] = arity_5; +Function *fn_2451 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2451->type = 3; +fn_2451->name = "anon"; +fn_2451->arityCount = 1; +fn_2451->arities[0] = arity_5; Value *rslt10; -if((var_689)->type != 3) { -rslt10 = protoFnImpl_5(empty_list, var_689, (Value *)fn_2458); +if((var_679)->type != 3) { +rslt10 = protoFnImpl_5(empty_list, var_679, (Value *)fn_2451); } else { -FnArity *arity7 = findFnArity(var_689, 1); +FnArity *arity7 = findFnArity(var_679, 1); if(arity7 != (FnArity *)0 && !arity7->variadic) { FnType1 *fn9 = (FnType1 *)arity7->fn; -rslt10 = fn9(arity7->closures, (Value *)fn_2458); +rslt10 = fn9(arity7->closures, (Value *)fn_2451); } else if(arity7 != (FnArity *)0 && arity7->variadic) { FnType1 *fn9 = (FnType1 *)arity7->fn; List *varArgs8 = (List *)GC_malloc(sizeof(List)); @@ -30395,10 +30329,10 @@ varArgs8->type = ListType; varArgs8->len = 0; varArgs8->head = (Value *)0; varArgs8->tail = (List *)0; -varArgs8 = (List *)listCons((Value *)fn_2458, varArgs8); +varArgs8 = (List *)listCons((Value *)fn_2451, varArgs8); rslt10 = fn9(arity7->closures, (Value *)varArgs8); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_689)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_679)->name); abort(); } } @@ -30417,18 +30351,18 @@ FnArity *arity_13 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_13->count = 1; arity_13->closures = empty_list; arity_13->variadic = 0; -arity_13->fn = arityImpl_2461; +arity_13->fn = arityImpl_2454; arity_13->closures = listCons((Value *)val14, (List *)arity_13->closures); -Function *fn_2460 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2460->type = 3; -fn_2460->name = "anon"; -fn_2460->arityCount = 1; -fn_2460->arities[0] = arity_13; -Value *rslt15 = protoFnImpl_78((List *)var_31, rslt12, (Value *)fn_2460); +Function *fn_2453 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2453->type = 3; +fn_2453->name = "anon"; +fn_2453->arityCount = 1; +fn_2453->arities[0] = arity_13; +Value *rslt15 = protoFnImpl_78((List *)var_31, rslt12, (Value *)fn_2453); return (rslt15); }; -Value *arityImpl_2455(List *closures, Value *arg0) { +Value *arityImpl_2448(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -30441,25 +30375,25 @@ Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_2364((List *)var_31, val0); +Value *rslt1 = arityImpl_2357((List *)var_31, val0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2457; +arity_2->fn = arityImpl_2450; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); -Function *fn_2456 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2456->type = 3; -fn_2456->name = "anon"; -fn_2456->arityCount = 1; -fn_2456->arities[0] = arity_2; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2456); +Function *fn_2449 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2449->type = 3; +fn_2449->name = "anon"; +fn_2449->arityCount = 1; +fn_2449->arities[0] = arity_2; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2449); return (rslt5); }; -Value *arityImpl_2453(List *closures, Value *arg0) { +Value *arityImpl_2446(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -30468,35 +30402,35 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = protoFnImpl_740((List *)var_31, val0, (Value *)&protoFn_1968); +Value *rslt1 = protoFnImpl_730((List *)var_31, val0, (Value *)&protoFn_1961); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2455; +arity_2->fn = arityImpl_2448; arity_2->closures = listCons((Value *)val0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)rslt1, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_2454 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2454->type = 3; -fn_2454->name = "anon"; -fn_2454->arityCount = 1; -fn_2454->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2454); +Function *fn_2447 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2447->type = 3; +fn_2447->name = "anon"; +fn_2447->arityCount = 1; +fn_2447->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2447); return (rslt4); }; -Value *protoImpl_2462(List *closures, Value *arg0) { +Value *protoImpl_2455(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2463 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2462}}}; +Function protoFn_2456 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2455}}}; // --------- .callee_impl -------------- -Function fn_2464; -Value *arityImpl_2465(List *closures, Value *arg0) { +Function fn_2457; +Value *arityImpl_2458(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -30504,17 +30438,17 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2466(List *closures, Value *arg0) { +Value *protoImpl_2459(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2467 = {3, ".callee", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2466}}}; +Function protoFn_2460 = {3, ".callee", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2459}}}; // --------- .params_impl -------------- -Function fn_2468; -Value *arityImpl_2469(List *closures, Value *arg0) { +Function fn_2461; +Value *arityImpl_2462(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -30522,72 +30456,72 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2470(List *closures, Value *arg0) { +Value *protoImpl_2463(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2471 = {3, ".params", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2470}}}; +Function protoFn_2464 = {3, ".params", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2463}}}; -Value *arityImpl_2451(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Value *arityImpl_2444(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_2453; +arity_0->fn = arityImpl_2446; arity_0->closures = listCons((Value *)arg2, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_2452 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2452->type = 3; -fn_2452->name = "emit-c_impl"; -fn_2452->arityCount = 1; -fn_2452->arities[0] = arity_0; +Function *fn_2445 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2445->type = 3; +fn_2445->name = "emit-c_impl"; +fn_2445->arityCount = 1; +fn_2445->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2465; +arity_1->fn = arityImpl_2458; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_2464 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2464->type = 3; -fn_2464->name = ".callee_impl"; -fn_2464->arityCount = 1; -fn_2464->arities[0] = arity_1; +Function *fn_2457 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2457->type = 3; +fn_2457->name = ".callee_impl"; +fn_2457->arityCount = 1; +fn_2457->arities[0] = arity_1; FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2469; +arity_2->fn = arityImpl_2462; arity_2->closures = listCons((Value *)arg2, (List *)arity_2->closures); -Function *fn_2468 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2468->type = 3; -fn_2468->name = ".params_impl"; -fn_2468->arityCount = 1; -fn_2468->arities[0] = arity_2; +Function *fn_2461 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2461->type = 3; +fn_2461->name = ".params_impl"; +fn_2461->arityCount = 1; +fn_2461->arities[0] = arity_2; ReifiedVal *reified_3 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 3); -reified_3->type = 64; +reified_3->type = 63; reified_3->implCount = 3; -reified_3->impls[0] = (Value *)fn_2452; -reified_3->impls[1] = (Value *)fn_2464; -reified_3->impls[2] = (Value *)fn_2468; +reified_3->impls[0] = (Value *)fn_2445; +reified_3->impls[1] = (Value *)fn_2457; +reified_3->impls[2] = (Value *)fn_2461; return ((Value *)reified_3); }; // --------- invoke_impl main body -------------- -Function fn_2450 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2451}}}; -Value *protoImpl_2472(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Function fn_2443 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2444}}}; +Value *protoImpl_2465(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType3 *)arityPtr->fn)(arityPtr->closures, arg0, arg1, arg2)); }; -Function protoFn_2473 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2472}}}; +Function protoFn_2466 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2465}}}; -ReifiedVal reified_2474 = {63, 2, {(Value *)&fn_2446, (Value *)&fn_2450}}; -Value *var_1498 = (Value *)&reified_2474; -ProtoImpls *protoImpls_2475; -Value *protoFnImpl_2478(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2475); +ReifiedVal reified_2467 = {62, 2, {(Value *)&fn_2439, (Value *)&fn_2443}}; +Value *var_1488 = (Value *)&reified_2467; +ProtoImpls *protoImpls_2468; +Value *protoFnImpl_2471(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2468); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.binding' %lld\n", arg0->type); abort(); @@ -30600,12 +30534,12 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_2479 = {1, (List *)0, 0, protoFnImpl_2478}; -Function protoFn_2476 = {3, ".binding", 1, {&protoFnArity_2479}}; +FnArity protoFnArity_2472 = {1, (List *)0, 0, protoFnImpl_2471}; +Function protoFn_2469 = {3, ".binding", 1, {&protoFnArity_2472}}; -ProtoImpls *protoImpls_2480; -Value *protoFnImpl_2483(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2480); +ProtoImpls *protoImpls_2473; +Value *protoFnImpl_2476(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2473); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.val' %lld\n", arg0->type); abort(); @@ -30618,42 +30552,42 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_2484 = {1, (List *)0, 0, protoFnImpl_2483}; -Function protoFn_2481 = {3, ".val", 1, {&protoFnArity_2484}}; +FnArity protoFnArity_2477 = {1, (List *)0, 0, protoFnImpl_2476}; +Function protoFn_2474 = {3, ".val", 1, {&protoFnArity_2477}}; -Number _num_42 = {2, -1, 66}; +Number _num_42 = {2, -1, 65}; // --------- instance?_impl -------------- -Function fn_2485; -Value *arityImpl_2486(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1892((List *)var_31, arg1); +Function fn_2478; +Value *arityImpl_2479(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1882((List *)var_31, arg1); Value *rslt1 = arityImpl_283((List *)var_31, (Value *)&_num_42, rslt0); return (rslt1); }; // --------- instance?_impl main body -------------- -Function fn_2485 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2486}}}; -Value *protoImpl_2487(List *closures, Value *arg0, Value *arg1) { +Function fn_2478 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2479}}}; +Value *protoImpl_2480(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2488 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2487}}}; +Function protoFn_2481 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2480}}}; // --------- invoke_impl -------------- -Function fn_2489; +Function fn_2482; // --------- emit-c_impl -------------- -Function fn_2491; +Function fn_2484; // --------- anon -------------- -Function fn_2493; +Function fn_2486; // --------- anon -------------- -Function fn_2495; -Value *arityImpl_2496(List *closures, Value *arg0) { +Function fn_2488; +Value *arityImpl_2489(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -30675,7 +30609,7 @@ Value *rslt5 = protoFnImpl_100((List *)var_31, val0, rslt4); return (rslt5); }; -Value *arityImpl_2494(List *closures, Value *arg0) { +Value *arityImpl_2487(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -30690,27 +30624,27 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_kw_46, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_kw_44, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); Value *rslt3 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_8, (Value *)&_str_19); -Value *rslt4 = arityImpl_1022((List *)var_31, rslt2, rslt3); +Value *rslt4 = arityImpl_1012((List *)var_31, rslt2, rslt3); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_2496; +arity_5->fn = arityImpl_2489; arity_5->closures = listCons((Value *)arg0, (List *)arity_5->closures); arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); -Function *fn_2495 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2495->type = 3; -fn_2495->name = "anon"; -fn_2495->arityCount = 1; -fn_2495->arities[0] = arity_5; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_2495); +Function *fn_2488 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2488->type = 3; +fn_2488->name = "anon"; +fn_2488->arityCount = 1; +fn_2488->arities[0] = arity_5; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_2488); return (rslt7); }; -Value *arityImpl_2492(List *closures, Value *arg0) { +Value *arityImpl_2485(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -30719,34 +30653,34 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = protoFnImpl_740((List *)var_31, val0, (Value *)&protoFn_1968); +Value *rslt1 = protoFnImpl_730((List *)var_31, val0, (Value *)&protoFn_1961); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2494; +arity_2->fn = arityImpl_2487; arity_2->closures = listCons((Value *)rslt1, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_2493 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2493->type = 3; -fn_2493->name = "anon"; -fn_2493->arityCount = 1; -fn_2493->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2493); +Function *fn_2486 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2486->type = 3; +fn_2486->name = "anon"; +fn_2486->arityCount = 1; +fn_2486->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2486); return (rslt4); }; -Value *protoImpl_2497(List *closures, Value *arg0) { +Value *protoImpl_2490(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2498 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2497}}}; +Function protoFn_2491 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2490}}}; // --------- .binding_impl -------------- -Function fn_2499; -Value *arityImpl_2500(List *closures, Value *arg0) { +Function fn_2492; +Value *arityImpl_2493(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -30754,17 +30688,17 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2501(List *closures, Value *arg0) { +Value *protoImpl_2494(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2502 = {3, ".binding", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2501}}}; +Function protoFn_2495 = {3, ".binding", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2494}}}; // --------- .val_impl -------------- -Function fn_2503; -Value *arityImpl_2504(List *closures, Value *arg0) { +Function fn_2496; +Value *arityImpl_2497(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -30772,72 +30706,72 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2505(List *closures, Value *arg0) { +Value *protoImpl_2498(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2506 = {3, ".val", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2505}}}; +Function protoFn_2499 = {3, ".val", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2498}}}; -Value *arityImpl_2490(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Value *arityImpl_2483(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_2492; +arity_0->fn = arityImpl_2485; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg2, (List *)arity_0->closures); -Function *fn_2491 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2491->type = 3; -fn_2491->name = "emit-c_impl"; -fn_2491->arityCount = 1; -fn_2491->arities[0] = arity_0; +Function *fn_2484 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2484->type = 3; +fn_2484->name = "emit-c_impl"; +fn_2484->arityCount = 1; +fn_2484->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2500; +arity_1->fn = arityImpl_2493; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_2499 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2499->type = 3; -fn_2499->name = ".binding_impl"; -fn_2499->arityCount = 1; -fn_2499->arities[0] = arity_1; +Function *fn_2492 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2492->type = 3; +fn_2492->name = ".binding_impl"; +fn_2492->arityCount = 1; +fn_2492->arities[0] = arity_1; FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2504; +arity_2->fn = arityImpl_2497; arity_2->closures = listCons((Value *)arg2, (List *)arity_2->closures); -Function *fn_2503 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2503->type = 3; -fn_2503->name = ".val_impl"; -fn_2503->arityCount = 1; -fn_2503->arities[0] = arity_2; +Function *fn_2496 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2496->type = 3; +fn_2496->name = ".val_impl"; +fn_2496->arityCount = 1; +fn_2496->arities[0] = arity_2; ReifiedVal *reified_3 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 3); -reified_3->type = 66; +reified_3->type = 65; reified_3->implCount = 3; -reified_3->impls[0] = (Value *)fn_2491; -reified_3->impls[1] = (Value *)fn_2499; -reified_3->impls[2] = (Value *)fn_2503; +reified_3->impls[0] = (Value *)fn_2484; +reified_3->impls[1] = (Value *)fn_2492; +reified_3->impls[2] = (Value *)fn_2496; return ((Value *)reified_3); }; // --------- invoke_impl main body -------------- -Function fn_2489 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2490}}}; -Value *protoImpl_2507(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Function fn_2482 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2483}}}; +Value *protoImpl_2500(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType3 *)arityPtr->fn)(arityPtr->closures, arg0, arg1, arg2)); }; -Function protoFn_2508 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2507}}}; +Function protoFn_2501 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2500}}}; -ReifiedVal reified_2509 = {65, 2, {(Value *)&fn_2485, (Value *)&fn_2489}}; -Value *var_1499 = (Value *)&reified_2509; -ProtoImpls *protoImpls_2510; -Value *protoFnImpl_2513(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2510); +ReifiedVal reified_2502 = {64, 2, {(Value *)&fn_2478, (Value *)&fn_2482}}; +Value *var_1489 = (Value *)&reified_2502; +ProtoImpls *protoImpls_2503; +Value *protoFnImpl_2506(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2503); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.bindings' %lld\n", arg0->type); abort(); @@ -30850,59 +30784,59 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_2514 = {1, (List *)0, 0, protoFnImpl_2513}; -Function protoFn_2511 = {3, ".bindings", 1, {&protoFnArity_2514}}; +FnArity protoFnArity_2507 = {1, (List *)0, 0, protoFnImpl_2506}; +Function protoFn_2504 = {3, ".bindings", 1, {&protoFnArity_2507}}; -Number _num_43 = {2, -1, 68}; +Number _num_43 = {2, -1, 67}; // --------- instance?_impl -------------- -Function fn_2515; -Value *arityImpl_2516(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1892((List *)var_31, arg1); +Function fn_2508; +Value *arityImpl_2509(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1882((List *)var_31, arg1); Value *rslt1 = arityImpl_283((List *)var_31, (Value *)&_num_43, rslt0); return (rslt1); }; // --------- instance?_impl main body -------------- -Function fn_2515 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2516}}}; -Value *protoImpl_2517(List *closures, Value *arg0, Value *arg1) { +Function fn_2508 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2509}}}; +Value *protoImpl_2510(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2518 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2517}}}; +Function protoFn_2511 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2510}}}; // --------- invoke_impl -------------- -Function fn_2519; +Function fn_2512; // --------- emit-c_impl -------------- -Function fn_2521; +Function fn_2514; // --------- anon -------------- -Function fn_2523; +Function fn_2516; // --------- anon -------------- -Function fn_2525; +Function fn_2518; // --------- anon -------------- -Function fn_2527; +Function fn_2520; // --------- anon -------------- -Function fn_2529; +Function fn_2522; // --------- anon -------------- -Function fn_2531; -Value *arityImpl_2532(List *closures, Value *arg0) { +Function fn_2524; +Value *arityImpl_2525(List *closures, Value *arg0) { Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, var_31); return (rslt0); }; // --------- anon main body -------------- -Function fn_2531 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2532}}}; -Value *arityImpl_2530(List *closures, Value *arg0) { +Function fn_2524 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2525}}}; +Value *arityImpl_2523(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -30915,7 +30849,7 @@ Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt3 = protoFnImpl_237((List *)var_31, val1, (Value *)&fn_2531); +Value *rslt3 = protoFnImpl_237((List *)var_31, val1, (Value *)&fn_2524); Value *rslt5 = arityImpl_524((List *)var_31, val4, (Value *)&_num_8, (Value *)&_str_19); Value *rslt6 = arityImpl_524((List *)var_31, val4, (Value *)&_num_1, var_31); List *varArgs7 = (List *)GC_malloc(sizeof(List)); @@ -30938,7 +30872,7 @@ Value *rslt11 = protoFnImpl_100((List *)var_31, val0, rslt10); return (rslt11); }; -Value *arityImpl_2528(List *closures, Value *arg0) { +Value *arityImpl_2521(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -30951,25 +30885,25 @@ Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_1009((List *)var_31, (Value *)&_kw_46, val0); +Value *rslt1 = arityImpl_999((List *)var_31, (Value *)&_kw_44, val0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2530; +arity_2->fn = arityImpl_2523; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); -Function *fn_2529 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2529->type = 3; -fn_2529->name = "anon"; -fn_2529->arityCount = 1; -fn_2529->arities[0] = arity_2; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2529); +Function *fn_2522 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2522->type = 3; +fn_2522->name = "anon"; +fn_2522->arityCount = 1; +fn_2522->arities[0] = arity_2; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2522); return (rslt5); }; -Value *arityImpl_2526(List *closures, Value *arg0) { +Value *arityImpl_2519(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -30982,25 +30916,25 @@ Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_2212((List *)var_31, val0); +Value *rslt1 = arityImpl_2205((List *)var_31, val0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2528; +arity_2->fn = arityImpl_2521; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); -Function *fn_2527 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2527->type = 3; -fn_2527->name = "anon"; -fn_2527->arityCount = 1; -fn_2527->arities[0] = arity_2; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2527); +Function *fn_2520 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2520->type = 3; +fn_2520->name = "anon"; +fn_2520->arityCount = 1; +fn_2520->arities[0] = arity_2; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2520); return (rslt5); }; -Value *arityImpl_2524(List *closures, Value *arg0) { +Value *arityImpl_2517(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -31013,25 +30947,25 @@ Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = protoFnImpl_740((List *)var_31, val0, (Value *)&protoFn_1968); +Value *rslt1 = protoFnImpl_730((List *)var_31, val0, (Value *)&protoFn_1961); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2526; +arity_2->fn = arityImpl_2519; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); -Function *fn_2525 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2525->type = 3; -fn_2525->name = "anon"; -fn_2525->arityCount = 1; -fn_2525->arities[0] = arity_2; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2525); +Function *fn_2518 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2518->type = 3; +fn_2518->name = "anon"; +fn_2518->arityCount = 1; +fn_2518->arities[0] = arity_2; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2518); return (rslt5); }; -Value *arityImpl_2522(List *closures, Value *arg0) { +Value *arityImpl_2515(List *closures, Value *arg0) { Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -31046,35 +30980,35 @@ varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; Value *rslt1 = arityImpl_623((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1004((List *)var_31, (Value *)&_kw_46, rslt1); +Value *rslt2 = arityImpl_994((List *)var_31, (Value *)&_kw_44, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2524; +arity_3->fn = arityImpl_2517; arity_3->closures = listCons((Value *)val4, (List *)arity_3->closures); arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val5, (List *)arity_3->closures); -Function *fn_2523 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2523->type = 3; -fn_2523->name = "anon"; -fn_2523->arityCount = 1; -fn_2523->arities[0] = arity_3; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2523); +Function *fn_2516 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2516->type = 3; +fn_2516->name = "anon"; +fn_2516->arityCount = 1; +fn_2516->arities[0] = arity_3; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2516); return (rslt6); }; -Value *protoImpl_2533(List *closures, Value *arg0) { +Value *protoImpl_2526(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2534 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2533}}}; +Function protoFn_2527 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2526}}}; // --------- .bindings_impl -------------- -Function fn_2535; -Value *arityImpl_2536(List *closures, Value *arg0) { +Function fn_2528; +Value *arityImpl_2529(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -31082,17 +31016,17 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2537(List *closures, Value *arg0) { +Value *protoImpl_2530(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2538 = {3, ".bindings", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2537}}}; +Function protoFn_2531 = {3, ".bindings", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2530}}}; // --------- .body_impl -------------- -Function fn_2539; -Value *arityImpl_2540(List *closures, Value *arg0) { +Function fn_2532; +Value *arityImpl_2533(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -31100,72 +31034,72 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2541(List *closures, Value *arg0) { +Value *protoImpl_2534(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2542 = {3, ".body", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2541}}}; +Function protoFn_2535 = {3, ".body", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2534}}}; -Value *arityImpl_2520(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Value *arityImpl_2513(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_2522; +arity_0->fn = arityImpl_2515; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg2, (List *)arity_0->closures); -Function *fn_2521 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2521->type = 3; -fn_2521->name = "emit-c_impl"; -fn_2521->arityCount = 1; -fn_2521->arities[0] = arity_0; +Function *fn_2514 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2514->type = 3; +fn_2514->name = "emit-c_impl"; +fn_2514->arityCount = 1; +fn_2514->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2536; +arity_1->fn = arityImpl_2529; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_2535 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2535->type = 3; -fn_2535->name = ".bindings_impl"; -fn_2535->arityCount = 1; -fn_2535->arities[0] = arity_1; +Function *fn_2528 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2528->type = 3; +fn_2528->name = ".bindings_impl"; +fn_2528->arityCount = 1; +fn_2528->arities[0] = arity_1; FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2540; +arity_2->fn = arityImpl_2533; arity_2->closures = listCons((Value *)arg2, (List *)arity_2->closures); -Function *fn_2539 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2539->type = 3; -fn_2539->name = ".body_impl"; -fn_2539->arityCount = 1; -fn_2539->arities[0] = arity_2; +Function *fn_2532 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2532->type = 3; +fn_2532->name = ".body_impl"; +fn_2532->arityCount = 1; +fn_2532->arities[0] = arity_2; ReifiedVal *reified_3 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 3); -reified_3->type = 68; +reified_3->type = 67; reified_3->implCount = 3; -reified_3->impls[0] = (Value *)fn_2521; -reified_3->impls[1] = (Value *)fn_2535; -reified_3->impls[2] = (Value *)fn_2539; +reified_3->impls[0] = (Value *)fn_2514; +reified_3->impls[1] = (Value *)fn_2528; +reified_3->impls[2] = (Value *)fn_2532; return ((Value *)reified_3); }; // --------- invoke_impl main body -------------- -Function fn_2519 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2520}}}; -Value *protoImpl_2543(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Function fn_2512 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2513}}}; +Value *protoImpl_2536(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType3 *)arityPtr->fn)(arityPtr->closures, arg0, arg1, arg2)); }; -Function protoFn_2544 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2543}}}; +Function protoFn_2537 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2536}}}; -ReifiedVal reified_2545 = {67, 2, {(Value *)&fn_2515, (Value *)&fn_2519}}; -Value *var_1500 = (Value *)&reified_2545; -ProtoImpls *protoImpls_2546; -Value *protoFnImpl_2549(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2546); +ReifiedVal reified_2538 = {66, 2, {(Value *)&fn_2508, (Value *)&fn_2512}}; +Value *var_1490 = (Value *)&reified_2538; +ProtoImpls *protoImpls_2539; +Value *protoFnImpl_2542(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2539); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.arities' %lld\n", arg0->type); abort(); @@ -31178,125 +31112,125 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_2550 = {1, (List *)0, 0, protoFnImpl_2549}; -Function protoFn_2547 = {3, ".arities", 1, {&protoFnArity_2550}}; +FnArity protoFnArity_2543 = {1, (List *)0, 0, protoFnImpl_2542}; +Function protoFn_2540 = {3, ".arities", 1, {&protoFnArity_2543}}; struct {int64_t type; int64_t len; - char buffer[4];} _str_176 = {1,3,"fn_"}; + char buffer[4];} _str_175 = {1,3,"fn_"}; struct {int64_t type; int64_t len; - char buffer[16];} _str_177 = {1,15,"\n// --------- "}; + char buffer[16];} _str_176 = {1,15,"\n// --------- "}; struct {int64_t type; int64_t len; - char buffer[18];} _str_178 = {1,17," --------------\n"}; + char buffer[18];} _str_177 = {1,17," --------------\n"}; struct {int64_t type; int64_t len; - char buffer[10];} _str_179 = {1,9,"Function "}; + char buffer[10];} _str_178 = {1,9,"Function "}; struct {int64_t type; int64_t len; - char buffer[28];} _str_180 = {1,27," main body --------------\n"}; + char buffer[28];} _str_179 = {1,27," main body --------------\n"}; struct {int64_t type; int64_t len; - char buffer[5];} _str_181 = {1,4," = {"}; + char buffer[5];} _str_180 = {1,4," = {"}; struct {int64_t type; int64_t len; - char buffer[5];} _str_182 = {1,4,", \""}; + char buffer[5];} _str_181 = {1,4,", \""}; struct {int64_t type; int64_t len; - char buffer[5];} _str_183 = {1,4,"\", "}; + char buffer[5];} _str_182 = {1,4,"\", "}; struct {int64_t type; int64_t len; - char buffer[6];} _str_184 = {1,5,"}};\n"}; + char buffer[6];} _str_183 = {1,5,"}};\n"}; struct {int64_t type; int64_t len; - char buffer[11];} _str_185 = {1,10,"Function *"}; + char buffer[11];} _str_184 = {1,10,"Function *"}; struct {int64_t type; int64_t len; - char buffer[42];} _str_186 = {1,41," = (Function *)GC_malloc(sizeof(Function)"}; + char buffer[42];} _str_185 = {1,41," = (Function *)GC_malloc(sizeof(Function)"}; struct {int64_t type; int64_t len; - char buffer[24];} _str_187 = {1,23," + sizeof(FnArity *) * "}; + char buffer[24];} _str_186 = {1,23," + sizeof(FnArity *) * "}; struct {int64_t type; int64_t len; - char buffer[10];} _str_188 = {1,9,"->type = "}; + char buffer[10];} _str_187 = {1,9,"->type = "}; struct {int64_t type; int64_t len; - char buffer[12];} _str_189 = {1,11,"->name = \""}; + char buffer[12];} _str_188 = {1,11,"->name = \""}; struct {int64_t type; int64_t len; - char buffer[6];} _str_190 = {1,5,"\";\n"}; + char buffer[6];} _str_189 = {1,5,"\";\n"}; struct {int64_t type; int64_t len; - char buffer[16];} _str_191 = {1,15,"->arityCount = "}; + char buffer[16];} _str_190 = {1,15,"->arityCount = "}; struct {int64_t type; int64_t len; - char buffer[11];} _str_192 = {1,10,"->arities["}; + char buffer[11];} _str_191 = {1,10,"->arities["}; struct {int64_t type; int64_t len; - char buffer[5];} _str_193 = {1,4,"] = "}; -Number _num_44 = {2, -1, 70}; + char buffer[5];} _str_192 = {1,4,"] = "}; +Number _num_44 = {2, -1, 69}; // --------- instance?_impl -------------- -Function fn_2551; -Value *arityImpl_2552(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1892((List *)var_31, arg1); +Function fn_2544; +Value *arityImpl_2545(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1882((List *)var_31, arg1); Value *rslt1 = arityImpl_283((List *)var_31, (Value *)&_num_44, rslt0); return (rslt1); }; // --------- instance?_impl main body -------------- -Function fn_2551 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2552}}}; -Value *protoImpl_2553(List *closures, Value *arg0, Value *arg1) { +Function fn_2544 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2545}}}; +Value *protoImpl_2546(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2554 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2553}}}; +Function protoFn_2547 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2546}}}; // --------- invoke_impl -------------- -Function fn_2555; +Function fn_2548; // --------- emit-c_impl -------------- -Function fn_2557; +Function fn_2550; // --------- anon -------------- -Function fn_2559; +Function fn_2552; // --------- anon -------------- -Function fn_2561; +Function fn_2554; // --------- anon -------------- -Function fn_2563; +Function fn_2556; // --------- anon -------------- -Function fn_2565; +Function fn_2558; // --------- anon -------------- -Function fn_2567; +Function fn_2560; // --------- anon -------------- -Function fn_2569; +Function fn_2562; // --------- anon -------------- -Function fn_2571; -Value *arityImpl_2572(List *closures, Value *arg0) { -Value *rslt0 = protoFnImpl_740((List *)var_31, arg0, (Value *)&protoFn_1968); +Function fn_2564; +Value *arityImpl_2565(List *closures, Value *arg0) { +Value *rslt0 = protoFnImpl_730((List *)var_31, arg0, (Value *)&protoFn_1961); return (rslt0); }; // --------- anon main body -------------- -Function fn_2571 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2572}}}; +Function fn_2564 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2565}}}; // --------- anon -------------- -Function fn_2573; +Function fn_2566; // --------- anon -------------- -Function fn_2575; -Value *arityImpl_2576(List *closures, Value *arg0) { +Function fn_2568; +Value *arityImpl_2569(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; @@ -31309,17 +31243,17 @@ return (rslt2); // --------- anon main body -------------- -Function fn_2575 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2576}}}; +Function fn_2568 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2569}}}; // --------- anon -------------- -Function fn_2577; +Function fn_2570; // --------- anon -------------- -Function fn_2579; +Function fn_2572; // --------- anon -------------- -Function fn_2581; -Value *arityImpl_2582(List *closures, Value *arg0) { +Function fn_2574; +Value *arityImpl_2575(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -31334,17 +31268,17 @@ varArgs3->type = ListType; varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; -varArgs3 = (List *)listCons((Value *)(Value *)&_str_117, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_116, varArgs3); varArgs3 = (List *)listCons((Value *)rslt2, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_str_193, varArgs3); -varArgs3 = (List *)listCons((Value *)arg0, varArgs3); varArgs3 = (List *)listCons((Value *)(Value *)&_str_192, varArgs3); +varArgs3 = (List *)listCons((Value *)arg0, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_191, varArgs3); varArgs3 = (List *)listCons((Value *)val0, varArgs3); Value *rslt4 = arityImpl_508((List *)var_31, (Value *)varArgs3); return (rslt4); }; -Value *arityImpl_2580(List *closures, Value *arg0) { +Value *arityImpl_2573(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -31380,7 +31314,7 @@ varArgs32->len = 0; varArgs32->head = (Value *)0; varArgs32->tail = (List *)0; varArgs32 = (List *)listCons((Value *)val2, varArgs32); -varArgs32 = (List *)listCons((Value *)(Value *)&_str_104, varArgs32); +varArgs32 = (List *)listCons((Value *)(Value *)&_str_103, varArgs32); Value *rslt33 = arityImpl_508((List *)var_31, (Value *)varArgs32); List *varArgs34 = (List *)GC_malloc(sizeof(List)); varArgs34->type = ListType; @@ -31388,7 +31322,7 @@ varArgs34->len = 0; varArgs34->head = (Value *)0; varArgs34->tail = (List *)0; varArgs34 = (List *)listCons((Value *)val2, varArgs34); -varArgs34 = (List *)listCons((Value *)(Value *)&_str_179, varArgs34); +varArgs34 = (List *)listCons((Value *)(Value *)&_str_178, varArgs34); Value *rslt35 = arityImpl_508((List *)var_31, (Value *)varArgs34); List *varArgs36 = (List *)GC_malloc(sizeof(List)); varArgs36->type = ListType; @@ -31407,30 +31341,30 @@ varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; varArgs3 = (List *)listCons((Value *)val2, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_str_174, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_173, varArgs3); Value *rslt4 = arityImpl_508((List *)var_31, (Value *)varArgs3); List *varArgs7 = (List *)GC_malloc(sizeof(List)); varArgs7->type = ListType; varArgs7->len = 0; varArgs7->head = (Value *)0; varArgs7->tail = (List *)0; -varArgs7 = (List *)listCons((Value *)(Value *)&_str_109, varArgs7); +varArgs7 = (List *)listCons((Value *)(Value *)&_str_108, varArgs7); varArgs7 = (List *)listCons((Value *)val6, varArgs7); -varArgs7 = (List *)listCons((Value *)(Value *)&_str_187, varArgs7); varArgs7 = (List *)listCons((Value *)(Value *)&_str_186, varArgs7); -varArgs7 = (List *)listCons((Value *)val2, varArgs7); varArgs7 = (List *)listCons((Value *)(Value *)&_str_185, varArgs7); +varArgs7 = (List *)listCons((Value *)val2, varArgs7); +varArgs7 = (List *)listCons((Value *)(Value *)&_str_184, varArgs7); Value *rslt8 = arityImpl_508((List *)var_31, (Value *)varArgs7); -Value *rslt9 = arityImpl_1855((List *)var_31); -Value *rslt10 = protoFnImpl_261((List *)var_31, rslt9, (Value *)&_sym_22, (Value *)&_kw_62); +Value *rslt9 = arityImpl_1845((List *)var_31); +Value *rslt10 = protoFnImpl_261((List *)var_31, rslt9, (Value *)&_sym_22, (Value *)&_kw_60); List *varArgs11 = (List *)GC_malloc(sizeof(List)); varArgs11->type = ListType; varArgs11->len = 0; varArgs11->head = (Value *)0; varArgs11->tail = (List *)0; -varArgs11 = (List *)listCons((Value *)(Value *)&_str_117, varArgs11); +varArgs11 = (List *)listCons((Value *)(Value *)&_str_116, varArgs11); varArgs11 = (List *)listCons((Value *)rslt10, varArgs11); -varArgs11 = (List *)listCons((Value *)(Value *)&_str_188, varArgs11); +varArgs11 = (List *)listCons((Value *)(Value *)&_str_187, varArgs11); varArgs11 = (List *)listCons((Value *)val2, varArgs11); Value *rslt12 = arityImpl_508((List *)var_31, (Value *)varArgs11); List *varArgs14 = (List *)GC_malloc(sizeof(List)); @@ -31438,9 +31372,9 @@ varArgs14->type = ListType; varArgs14->len = 0; varArgs14->head = (Value *)0; varArgs14->tail = (List *)0; -varArgs14 = (List *)listCons((Value *)(Value *)&_str_190, varArgs14); -varArgs14 = (List *)listCons((Value *)val13, varArgs14); varArgs14 = (List *)listCons((Value *)(Value *)&_str_189, varArgs14); +varArgs14 = (List *)listCons((Value *)val13, varArgs14); +varArgs14 = (List *)listCons((Value *)(Value *)&_str_188, varArgs14); varArgs14 = (List *)listCons((Value *)val2, varArgs14); Value *rslt15 = arityImpl_508((List *)var_31, (Value *)varArgs14); List *varArgs16 = (List *)GC_malloc(sizeof(List)); @@ -31448,25 +31382,25 @@ varArgs16->type = ListType; varArgs16->len = 0; varArgs16->head = (Value *)0; varArgs16->tail = (List *)0; -varArgs16 = (List *)listCons((Value *)(Value *)&_str_117, varArgs16); +varArgs16 = (List *)listCons((Value *)(Value *)&_str_116, varArgs16); varArgs16 = (List *)listCons((Value *)val6, varArgs16); -varArgs16 = (List *)listCons((Value *)(Value *)&_str_191, varArgs16); +varArgs16 = (List *)listCons((Value *)(Value *)&_str_190, varArgs16); varArgs16 = (List *)listCons((Value *)val2, varArgs16); Value *rslt17 = arityImpl_508((List *)var_31, (Value *)varArgs16); -Value *rslt18 = arityImpl_674((List *)var_31, val6); +Value *rslt18 = arityImpl_664((List *)var_31, val6); FnArity *arity_19 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_19->count = 1; arity_19->closures = empty_list; arity_19->variadic = 0; -arity_19->fn = arityImpl_2582; +arity_19->fn = arityImpl_2575; arity_19->closures = listCons((Value *)val20, (List *)arity_19->closures); arity_19->closures = listCons((Value *)val2, (List *)arity_19->closures); -Function *fn_2581 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2581->type = 3; -fn_2581->name = "anon"; -fn_2581->arityCount = 1; -fn_2581->arities[0] = arity_19; -Value *rslt21 = protoFnImpl_125((List *)var_31, rslt18, (Value *)fn_2581); +Function *fn_2574 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2574->type = 3; +fn_2574->name = "anon"; +fn_2574->arityCount = 1; +fn_2574->arities[0] = arity_19; +Value *rslt21 = protoFnImpl_125((List *)var_31, rslt18, (Value *)fn_2574); List *varArgs22 = (List *)GC_malloc(sizeof(List)); varArgs22->type = ListType; varArgs22->len = 0; @@ -31492,7 +31426,7 @@ varArgs26->len = 0; varArgs26->head = (Value *)0; varArgs26->tail = (List *)0; varArgs26 = (List *)listCons((Value *)val2, varArgs26); -varArgs26 = (List *)listCons((Value *)(Value *)&_str_179, varArgs26); +varArgs26 = (List *)listCons((Value *)(Value *)&_str_178, varArgs26); Value *rslt27 = arityImpl_508((List *)var_31, (Value *)varArgs26); List *varArgs28 = (List *)GC_malloc(sizeof(List)); varArgs28->type = ListType; @@ -31509,7 +31443,7 @@ Value *rslt38 = protoFnImpl_100((List *)var_31, val0, cond1); return (rslt38); }; -Value *arityImpl_2578(List *closures, Value *arg0) { +Value *arityImpl_2571(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -31538,28 +31472,28 @@ Value *val8 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_1009((List *)var_31, (Value *)&_kw_63, val0); +Value *rslt1 = arityImpl_999((List *)var_31, (Value *)&_kw_61, val0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2580; +arity_2->fn = arityImpl_2573; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val5, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val6, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val7, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val8, (List *)arity_2->closures); -Function *fn_2579 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2579->type = 3; -fn_2579->name = "anon"; -fn_2579->arityCount = 1; -fn_2579->arities[0] = arity_2; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2579); +Function *fn_2572 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2572->type = 3; +fn_2572->name = "anon"; +fn_2572->arityCount = 1; +fn_2572->arities[0] = arity_2; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2572); return (rslt9); }; -Value *arityImpl_2574(List *closures, Value *arg0) { +Value *arityImpl_2567(List *closures, Value *arg0) { Value *val8 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -31582,7 +31516,7 @@ closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = protoFnImpl_125((List *)var_31, arg0, (Value *)&protoFn_217); Value *rslt1 = protoFnImpl_237((List *)var_31, arg0, (Value *)&fn_226); -Value *rslt3 = protoFnImpl_237((List *)var_31, arg0, (Value *)&fn_2575); +Value *rslt3 = protoFnImpl_237((List *)var_31, arg0, (Value *)&fn_2568); Value *cond4; Value *rslt6 = protoFnImpl_195((List *)var_31, rslt1); Value *rslt7 = arityImpl_283((List *)var_31, (Value *)&_num_8, rslt6); @@ -31593,13 +31527,13 @@ varArgs9->type = ListType; varArgs9->len = 0; varArgs9->head = (Value *)0; varArgs9->tail = (List *)0; -varArgs9 = (List *)listCons((Value *)(Value *)&_str_180, varArgs9); +varArgs9 = (List *)listCons((Value *)(Value *)&_str_179, varArgs9); varArgs9 = (List *)listCons((Value *)val8, varArgs9); -varArgs9 = (List *)listCons((Value *)(Value *)&_str_177, varArgs9); +varArgs9 = (List *)listCons((Value *)(Value *)&_str_176, varArgs9); Value *rslt10 = arityImpl_508((List *)var_31, (Value *)varArgs9); -Value *rslt11 = arityImpl_1944((List *)var_31, rslt10); -Value *rslt13 = arityImpl_1855((List *)var_31); -Value *rslt14 = protoFnImpl_261((List *)var_31, rslt13, (Value *)&_sym_22, (Value *)&_kw_62); +Value *rslt11 = arityImpl_1937((List *)var_31, rslt10); +Value *rslt13 = arityImpl_1845((List *)var_31); +Value *rslt14 = protoFnImpl_261((List *)var_31, rslt13, (Value *)&_sym_22, (Value *)&_kw_60); Value *rslt16 = arityImpl_149((List *)var_31, rslt0, (Value *)&_str_17); List *varArgs17 = (List *)GC_malloc(sizeof(List)); varArgs17->type = ListType; @@ -31614,27 +31548,27 @@ varArgs19->type = ListType; varArgs19->len = 0; varArgs19->head = (Value *)0; varArgs19->tail = (List *)0; -varArgs19 = (List *)listCons((Value *)(Value *)&_str_184, varArgs19); +varArgs19 = (List *)listCons((Value *)(Value *)&_str_183, varArgs19); varArgs19 = (List *)listCons((Value *)rslt18, varArgs19); varArgs19 = (List *)listCons((Value *)(Value *)&_str_22, varArgs19); varArgs19 = (List *)listCons((Value *)(Value *)&_str_17, varArgs19); varArgs19 = (List *)listCons((Value *)val15, varArgs19); -varArgs19 = (List *)listCons((Value *)(Value *)&_str_183, varArgs19); -varArgs19 = (List *)listCons((Value *)val8, varArgs19); varArgs19 = (List *)listCons((Value *)(Value *)&_str_182, varArgs19); -varArgs19 = (List *)listCons((Value *)rslt14, varArgs19); +varArgs19 = (List *)listCons((Value *)val8, varArgs19); varArgs19 = (List *)listCons((Value *)(Value *)&_str_181, varArgs19); +varArgs19 = (List *)listCons((Value *)rslt14, varArgs19); +varArgs19 = (List *)listCons((Value *)(Value *)&_str_180, varArgs19); varArgs19 = (List *)listCons((Value *)val12, varArgs19); -varArgs19 = (List *)listCons((Value *)(Value *)&_str_179, varArgs19); +varArgs19 = (List *)listCons((Value *)(Value *)&_str_178, varArgs19); Value *rslt20 = arityImpl_508((List *)var_31, (Value *)varArgs19); -Value *rslt21 = arityImpl_1944((List *)var_31, rslt20); +Value *rslt21 = arityImpl_1937((List *)var_31, rslt20); List *varArgs22 = (List *)GC_malloc(sizeof(List)); varArgs22->type = ListType; varArgs22->len = 0; varArgs22->head = (Value *)0; varArgs22->tail = (List *)0; varArgs22 = (List *)listCons((Value *)val12, varArgs22); -varArgs22 = (List *)listCons((Value *)(Value *)&_str_104, varArgs22); +varArgs22 = (List *)listCons((Value *)(Value *)&_str_103, varArgs22); Value *rslt23 = arityImpl_508((List *)var_31, (Value *)varArgs22); List *varArgs24 = (List *)GC_malloc(sizeof(List)); varArgs24->type = ListType; @@ -31642,9 +31576,9 @@ varArgs24->len = 0; varArgs24->head = (Value *)0; varArgs24->tail = (List *)0; varArgs24 = (List *)listCons((Value *)rslt23, varArgs24); -varArgs24 = (List *)listCons((Value *)(Value *)&_kw_61, varArgs24); +varArgs24 = (List *)listCons((Value *)(Value *)&_kw_59, varArgs24); Value *rslt25 = arityImpl_119((List *)var_31, (Value *)varArgs24); -Value *rslt26 = arityImpl_1022((List *)var_31, rslt25, rslt3); +Value *rslt26 = arityImpl_1012((List *)var_31, rslt25, rslt3); List *varArgs27 = (List *)GC_malloc(sizeof(List)); varArgs27->type = ListType; varArgs27->len = 0; @@ -31657,14 +31591,14 @@ varArgs27 = (List *)listCons((Value *)(Value *)&fn_118, varArgs27); Value *rslt28 = arityImpl_116((List *)var_31, (Value *)varArgs27); cond4 = rslt28; } else { -Value *rslt5 = arityImpl_985((List *)var_31, (Value *)&_str_19); +Value *rslt5 = arityImpl_975((List *)var_31, (Value *)&_str_19); cond4 = rslt5; } FnArity *arity_29 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_29->count = 1; arity_29->closures = empty_list; arity_29->variadic = 0; -arity_29->fn = arityImpl_2578; +arity_29->fn = arityImpl_2571; arity_29->closures = listCons((Value *)val30, (List *)arity_29->closures); arity_29->closures = listCons((Value *)val12, (List *)arity_29->closures); arity_29->closures = listCons((Value *)rslt1, (List *)arity_29->closures); @@ -31672,16 +31606,16 @@ arity_29->closures = listCons((Value *)val15, (List *)arity_29->closures); arity_29->closures = listCons((Value *)val8, (List *)arity_29->closures); arity_29->closures = listCons((Value *)rslt0, (List *)arity_29->closures); arity_29->closures = listCons((Value *)val31, (List *)arity_29->closures); -Function *fn_2577 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2577->type = 3; -fn_2577->name = "anon"; -fn_2577->arityCount = 1; -fn_2577->arities[0] = arity_29; -Value *rslt32 = protoFnImpl_78((List *)var_31, cond4, (Value *)fn_2577); +Function *fn_2570 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2570->type = 3; +fn_2570->name = "anon"; +fn_2570->arityCount = 1; +fn_2570->arities[0] = arity_29; +Value *rslt32 = protoFnImpl_78((List *)var_31, cond4, (Value *)fn_2570); return (rslt32); }; -Value *arityImpl_2570(List *closures, Value *arg0) { +Value *arityImpl_2563(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -31706,27 +31640,27 @@ Value *val8 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt2 = protoFnImpl_232((List *)var_31, val0, (Value *)&fn_2571); +Value *rslt2 = protoFnImpl_232((List *)var_31, val0, (Value *)&fn_2564); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2574; +arity_3->fn = arityImpl_2567; arity_3->closures = listCons((Value *)val4, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val5, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val6, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val7, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val8, (List *)arity_3->closures); -Function *fn_2573 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2573->type = 3; -fn_2573->name = "anon"; -fn_2573->arityCount = 1; -fn_2573->arities[0] = arity_3; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2573); +Function *fn_2566 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2566->type = 3; +fn_2566->name = "anon"; +fn_2566->arityCount = 1; +fn_2566->arities[0] = arity_3; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2566); return (rslt9); }; -Value *arityImpl_2568(List *closures, Value *arg0) { +Value *arityImpl_2561(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -31757,7 +31691,7 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_kw_49, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_kw_47, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; @@ -31765,7 +31699,7 @@ varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; varArgs4 = (List *)listCons((Value *)val3, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&_str_179, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_178, varArgs4); Value *rslt5 = arityImpl_508((List *)var_31, (Value *)varArgs4); List *varArgs6 = (List *)GC_malloc(sizeof(List)); varArgs6->type = ListType; @@ -31773,7 +31707,7 @@ varArgs6->len = 0; varArgs6->head = (Value *)0; varArgs6->tail = (List *)0; varArgs6 = (List *)listCons((Value *)val3, varArgs6); -varArgs6 = (List *)listCons((Value *)(Value *)&_str_104, varArgs6); +varArgs6 = (List *)listCons((Value *)(Value *)&_str_103, varArgs6); Value *rslt7 = arityImpl_508((List *)var_31, (Value *)varArgs6); List *varArgs8 = (List *)GC_malloc(sizeof(List)); varArgs8->type = ListType; @@ -31783,28 +31717,28 @@ varArgs8->tail = (List *)0; varArgs8 = (List *)listCons((Value *)rslt7, varArgs8); varArgs8 = (List *)listCons((Value *)rslt5, varArgs8); Value *rslt9 = arityImpl_119((List *)var_31, (Value *)varArgs8); -Value *rslt10 = arityImpl_1022((List *)var_31, rslt2, rslt9); +Value *rslt10 = arityImpl_1012((List *)var_31, rslt2, rslt9); FnArity *arity_11 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_11->count = 1; arity_11->closures = empty_list; arity_11->variadic = 0; -arity_11->fn = arityImpl_2570; +arity_11->fn = arityImpl_2563; arity_11->closures = listCons((Value *)val0, (List *)arity_11->closures); arity_11->closures = listCons((Value *)val3, (List *)arity_11->closures); arity_11->closures = listCons((Value *)val12, (List *)arity_11->closures); arity_11->closures = listCons((Value *)val13, (List *)arity_11->closures); arity_11->closures = listCons((Value *)val14, (List *)arity_11->closures); arity_11->closures = listCons((Value *)val15, (List *)arity_11->closures); -Function *fn_2569 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2569->type = 3; -fn_2569->name = "anon"; -fn_2569->arityCount = 1; -fn_2569->arities[0] = arity_11; -Value *rslt16 = protoFnImpl_78((List *)var_31, rslt10, (Value *)fn_2569); +Function *fn_2562 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2562->type = 3; +fn_2562->name = "anon"; +fn_2562->arityCount = 1; +fn_2562->arities[0] = arity_11; +Value *rslt16 = protoFnImpl_78((List *)var_31, rslt10, (Value *)fn_2562); return (rslt16); }; -Value *arityImpl_2566(List *closures, Value *arg0) { +Value *arityImpl_2559(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -31834,32 +31768,32 @@ varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)(Value *)&_str_117, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_116, varArgs1); varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_179, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_178, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1944((List *)var_31, rslt2); +Value *rslt3 = arityImpl_1937((List *)var_31, rslt2); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_2568; +arity_4->fn = arityImpl_2561; arity_4->closures = listCons((Value *)val5, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val6, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val7, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val8, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val0, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val9, (List *)arity_4->closures); -Function *fn_2567 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2567->type = 3; -fn_2567->name = "anon"; -fn_2567->arityCount = 1; -fn_2567->arities[0] = arity_4; -Value *rslt10 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2567); +Function *fn_2560 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2560->type = 3; +fn_2560->name = "anon"; +fn_2560->arityCount = 1; +fn_2560->arities[0] = arity_4; +Value *rslt10 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2560); return (rslt10); }; -Value *arityImpl_2564(List *closures, Value *arg0) { +Value *arityImpl_2557(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -31889,32 +31823,32 @@ varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)(Value *)&_str_178, varArgs1); -varArgs1 = (List *)listCons((Value *)val0, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_177, varArgs1); +varArgs1 = (List *)listCons((Value *)val0, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_176, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1944((List *)var_31, rslt2); +Value *rslt3 = arityImpl_1937((List *)var_31, rslt2); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_2566; +arity_4->fn = arityImpl_2559; arity_4->closures = listCons((Value *)val0, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val5, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val6, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val7, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val8, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val9, (List *)arity_4->closures); -Function *fn_2565 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2565->type = 3; -fn_2565->name = "anon"; -fn_2565->arityCount = 1; -fn_2565->arities[0] = arity_4; -Value *rslt10 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2565); +Function *fn_2558 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2558->type = 3; +fn_2558->name = "anon"; +fn_2558->arityCount = 1; +fn_2558->arities[0] = arity_4; +Value *rslt10 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2558); return (rslt10); }; -Value *arityImpl_2562(List *closures, Value *arg0) { +Value *arityImpl_2555(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -31935,28 +31869,28 @@ Value *val6 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1009((List *)var_31, (Value *)&_kw_63, arg0); +Value *rslt0 = arityImpl_999((List *)var_31, (Value *)&_kw_61, arg0); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2564; +arity_1->fn = arityImpl_2557; arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val6, (List *)arity_1->closures); -Function *fn_2563 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2563->type = 3; -fn_2563->name = "anon"; -fn_2563->arityCount = 1; -fn_2563->arities[0] = arity_1; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2563); +Function *fn_2556 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2556->type = 3; +fn_2556->name = "anon"; +fn_2556->arityCount = 1; +fn_2556->arities[0] = arity_1; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2556); return (rslt7); }; -Value *arityImpl_2560(List *closures, Value *arg0) { +Value *arityImpl_2553(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -31973,27 +31907,27 @@ Value *val5 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_176); +Value *rslt0 = arityImpl_1947((List *)var_31, (Value *)&_str_175); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2562; +arity_1->fn = arityImpl_2555; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); -Function *fn_2561 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2561->type = 3; -fn_2561->name = "anon"; -fn_2561->arityCount = 1; -fn_2561->arities[0] = arity_1; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2561); +Function *fn_2554 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2554->type = 3; +fn_2554->name = "anon"; +fn_2554->arityCount = 1; +fn_2554->arities[0] = arity_1; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2554); return (rslt6); }; -Value *arityImpl_2558(List *closures, Value *arg0) { +Value *arityImpl_2551(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -32003,36 +31937,36 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt1 = protoFnImpl_195((List *)var_31, val0); -Value *rslt2 = arityImpl_1004((List *)var_31, (Value *)&_kw_63, (Value *)&_str_19); +Value *rslt2 = arityImpl_994((List *)var_31, (Value *)&_kw_61, (Value *)&_str_19); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2560; +arity_3->fn = arityImpl_2553; arity_3->closures = listCons((Value *)val0, (List *)arity_3->closures); arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); arity_3->closures = listCons((Value *)rslt1, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val4, (List *)arity_3->closures); -Function *fn_2559 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2559->type = 3; -fn_2559->name = "anon"; -fn_2559->arityCount = 1; -fn_2559->arities[0] = arity_3; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2559); +Function *fn_2552 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2552->type = 3; +fn_2552->name = "anon"; +fn_2552->arityCount = 1; +fn_2552->arities[0] = arity_3; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2552); return (rslt5); }; -Value *protoImpl_2583(List *closures, Value *arg0) { +Value *protoImpl_2576(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2584 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2583}}}; +Function protoFn_2577 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2576}}}; // --------- .name_impl -------------- -Function fn_2585; -Value *arityImpl_2586(List *closures, Value *arg0) { +Function fn_2578; +Value *arityImpl_2579(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -32040,17 +31974,17 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2587(List *closures, Value *arg0) { +Value *protoImpl_2580(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2588 = {3, ".name", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2587}}}; +Function protoFn_2581 = {3, ".name", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2580}}}; // --------- .arities_impl -------------- -Function fn_2589; -Value *arityImpl_2590(List *closures, Value *arg0) { +Function fn_2582; +Value *arityImpl_2583(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -32058,80 +31992,80 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2591(List *closures, Value *arg0) { +Value *protoImpl_2584(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2592 = {3, ".arities", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2591}}}; +Function protoFn_2585 = {3, ".arities", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2584}}}; -Value *arityImpl_2556(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Value *arityImpl_2549(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_2558; +arity_0->fn = arityImpl_2551; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg2, (List *)arity_0->closures); -Function *fn_2557 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2557->type = 3; -fn_2557->name = "emit-c_impl"; -fn_2557->arityCount = 1; -fn_2557->arities[0] = arity_0; +Function *fn_2550 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2550->type = 3; +fn_2550->name = "emit-c_impl"; +fn_2550->arityCount = 1; +fn_2550->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2586; +arity_1->fn = arityImpl_2579; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_2585 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2585->type = 3; -fn_2585->name = ".name_impl"; -fn_2585->arityCount = 1; -fn_2585->arities[0] = arity_1; +Function *fn_2578 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2578->type = 3; +fn_2578->name = ".name_impl"; +fn_2578->arityCount = 1; +fn_2578->arities[0] = arity_1; FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2590; +arity_2->fn = arityImpl_2583; arity_2->closures = listCons((Value *)arg2, (List *)arity_2->closures); -Function *fn_2589 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2589->type = 3; -fn_2589->name = ".arities_impl"; -fn_2589->arityCount = 1; -fn_2589->arities[0] = arity_2; +Function *fn_2582 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2582->type = 3; +fn_2582->name = ".arities_impl"; +fn_2582->arityCount = 1; +fn_2582->arities[0] = arity_2; ReifiedVal *reified_3 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 3); -reified_3->type = 70; +reified_3->type = 69; reified_3->implCount = 3; -reified_3->impls[0] = (Value *)fn_2557; -reified_3->impls[1] = (Value *)fn_2585; -reified_3->impls[2] = (Value *)fn_2589; +reified_3->impls[0] = (Value *)fn_2550; +reified_3->impls[1] = (Value *)fn_2578; +reified_3->impls[2] = (Value *)fn_2582; return ((Value *)reified_3); }; // --------- invoke_impl main body -------------- -Function fn_2555 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2556}}}; -Value *protoImpl_2593(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Function fn_2548 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2549}}}; +Value *protoImpl_2586(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType3 *)arityPtr->fn)(arityPtr->closures, arg0, arg1, arg2)); }; -Function protoFn_2594 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2593}}}; +Function protoFn_2587 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2586}}}; -ReifiedVal reified_2595 = {69, 2, {(Value *)&fn_2551, (Value *)&fn_2555}}; -Value *var_1501 = (Value *)&reified_2595; +ReifiedVal reified_2588 = {68, 2, {(Value *)&fn_2544, (Value *)&fn_2548}}; +Value *var_1491 = (Value *)&reified_2588; struct {int64_t type; int64_t len; - char buffer[10];} _str_194 = {1,9,"not found"}; -SymKey _kw_65 = {5, -1, ":no-static-sym"}; + char buffer[10];} _str_193 = {1,9,"not found"}; +SymKey _kw_63 = {5, -1, ":no-static-sym"}; // --------- emit-static-sym -------------- -Function fn_2596; +Function fn_2589; // --------- anon -------------- -Function fn_2598; -Value *arityImpl_2599(List *closures, Value *arg0) { +Function fn_2591; +Value *arityImpl_2592(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -32141,7 +32075,7 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *cond1; -Value *rslt2 = arityImpl_283((List *)var_31, (Value *)&_kw_65, arg0); +Value *rslt2 = arityImpl_283((List *)var_31, (Value *)&_kw_63, arg0); if (isTrue(rslt2)) { List *varArgs4 = (List *)GC_malloc(sizeof(List)); @@ -32150,7 +32084,7 @@ varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; varArgs4 = (List *)listCons((Value *)val3, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&_str_194, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_193, varArgs4); Value *rslt5 = arityImpl_163((List *)var_31, (Value *)varArgs4); cond1 = rslt5; } else { @@ -32162,7 +32096,7 @@ varArgs6->len = 0; varArgs6->head = (Value *)0; varArgs6->tail = (List *)0; varArgs6 = (List *)listCons((Value *)arg0, varArgs6); -varArgs6 = (List *)listCons((Value *)(Value *)&_str_104, varArgs6); +varArgs6 = (List *)listCons((Value *)(Value *)&_str_103, varArgs6); Value *rslt7 = arityImpl_508((List *)var_31, (Value *)varArgs6); List *varArgs8 = (List *)GC_malloc(sizeof(List)); varArgs8->type = ListType; @@ -32176,81 +32110,81 @@ Value *rslt10 = protoFnImpl_100((List *)var_31, val0, rslt9); return (rslt10); }; -Value *arityImpl_2597(List *closures, Value *arg0) { +Value *arityImpl_2590(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_33, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_31, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1017((List *)var_31, rslt1, (Value *)&_kw_65); +Value *rslt2 = arityImpl_1007((List *)var_31, rslt1, (Value *)&_kw_63); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2599; +arity_3->fn = arityImpl_2592; arity_3->closures = listCons((Value *)arg0, (List *)arity_3->closures); arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); -Function *fn_2598 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2598->type = 3; -fn_2598->name = "anon"; -fn_2598->arityCount = 1; -fn_2598->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2598); +Function *fn_2591 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2591->type = 3; +fn_2591->name = "anon"; +fn_2591->arityCount = 1; +fn_2591->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2591); return (rslt4); }; // --------- emit-static-sym main body -------------- -Function fn_2596 = {3, "emit-static-sym", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2597}}}; -Number _num_45 = {2, -1, 72}; +Function fn_2589 = {3, "emit-static-sym", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2590}}}; +Number _num_45 = {2, -1, 71}; // --------- instance?_impl -------------- -Function fn_2601; -Value *arityImpl_2602(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1892((List *)var_31, arg1); +Function fn_2594; +Value *arityImpl_2595(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1882((List *)var_31, arg1); Value *rslt1 = arityImpl_283((List *)var_31, (Value *)&_num_45, rslt0); return (rslt1); }; // --------- instance?_impl main body -------------- -Function fn_2601 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2602}}}; -Value *protoImpl_2603(List *closures, Value *arg0, Value *arg1) { +Function fn_2594 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2595}}}; +Value *protoImpl_2596(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2604 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2603}}}; +Function protoFn_2597 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2596}}}; // --------- invoke_impl -------------- -Function fn_2605; +Function fn_2598; // --------- emit-c_impl -------------- -Function fn_2607; -Value *arityImpl_2608(List *closures, Value *arg0) { +Function fn_2600; +Value *arityImpl_2601(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_2597((List *)var_31, val0); +Value *rslt1 = arityImpl_2590((List *)var_31, val0); return (rslt1); }; -Value *protoImpl_2609(List *closures, Value *arg0) { +Value *protoImpl_2602(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2610 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2609}}}; +Function protoFn_2603 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2602}}}; // --------- .sym_impl -------------- -Function fn_2611; -Value *arityImpl_2612(List *closures, Value *arg0) { +Function fn_2604; +Value *arityImpl_2605(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -32258,81 +32192,81 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2613(List *closures, Value *arg0) { +Value *protoImpl_2606(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2614 = {3, ".sym", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2613}}}; +Function protoFn_2607 = {3, ".sym", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2606}}}; -Value *arityImpl_2606(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_2599(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_2608; +arity_0->fn = arityImpl_2601; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_2607 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2607->type = 3; -fn_2607->name = "emit-c_impl"; -fn_2607->arityCount = 1; -fn_2607->arities[0] = arity_0; +Function *fn_2600 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2600->type = 3; +fn_2600->name = "emit-c_impl"; +fn_2600->arityCount = 1; +fn_2600->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2612; +arity_1->fn = arityImpl_2605; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_2611 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2611->type = 3; -fn_2611->name = ".sym_impl"; -fn_2611->arityCount = 1; -fn_2611->arities[0] = arity_1; +Function *fn_2604 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2604->type = 3; +fn_2604->name = ".sym_impl"; +fn_2604->arityCount = 1; +fn_2604->arities[0] = arity_1; ReifiedVal *reified_2 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 2); -reified_2->type = 72; +reified_2->type = 71; reified_2->implCount = 2; -reified_2->impls[0] = (Value *)fn_2607; -reified_2->impls[1] = (Value *)fn_2611; +reified_2->impls[0] = (Value *)fn_2600; +reified_2->impls[1] = (Value *)fn_2604; return ((Value *)reified_2); }; // --------- invoke_impl main body -------------- -Function fn_2605 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2606}}}; -Value *protoImpl_2615(List *closures, Value *arg0, Value *arg1) { +Function fn_2598 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2599}}}; +Value *protoImpl_2608(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2616 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2615}}}; +Function protoFn_2609 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2608}}}; -ReifiedVal reified_2617 = {71, 2, {(Value *)&fn_2601, (Value *)&fn_2605}}; -Value *var_1502 = (Value *)&reified_2617; +ReifiedVal reified_2610 = {70, 2, {(Value *)&fn_2594, (Value *)&fn_2598}}; +Value *var_1492 = (Value *)&reified_2610; struct {int64_t type; int64_t len; - char buffer[5];} _str_195 = {1,4,"var_"}; + char buffer[5];} _str_194 = {1,4,"var_"}; struct {int64_t type; int64_t len; - char buffer[29];} _str_196 = {1,28,"// forward declaration for '"}; + char buffer[29];} _str_195 = {1,28,"// forward declaration for '"}; struct {int64_t type; int64_t len; - char buffer[4];} _str_197 = {1,3,"'\n"}; + char buffer[4];} _str_196 = {1,3,"'\n"}; struct {int64_t type; int64_t len; - char buffer[6];} _str_198 = {1,5,";\n\n"}; + char buffer[6];} _str_197 = {1,5,";\n\n"}; // --------- forward-decl -------------- -Function fn_2618; +Function fn_2611; // --------- anon -------------- -Function fn_2620; +Function fn_2613; // --------- anon -------------- -Function fn_2622; +Function fn_2615; // --------- anon -------------- -Function fn_2624; -Value *arityImpl_2625(List *closures, Value *arg0) { +Function fn_2617; +Value *arityImpl_2618(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -32341,7 +32275,7 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_2623(List *closures, Value *arg0) { +Value *arityImpl_2616(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -32360,7 +32294,7 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_kw_49, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_kw_47, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; @@ -32368,7 +32302,7 @@ varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; varArgs4 = (List *)listCons((Value *)val3, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&_str_84, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_83, varArgs4); Value *rslt5 = arityImpl_508((List *)var_31, (Value *)varArgs4); List *varArgs6 = (List *)GC_malloc(sizeof(List)); varArgs6->type = ListType; @@ -32378,23 +32312,23 @@ varArgs6->tail = (List *)0; varArgs6 = (List *)listCons((Value *)val3, varArgs6); varArgs6 = (List *)listCons((Value *)rslt5, varArgs6); Value *rslt7 = arityImpl_119((List *)var_31, (Value *)varArgs6); -Value *rslt8 = arityImpl_1022((List *)var_31, rslt2, rslt7); +Value *rslt8 = arityImpl_1012((List *)var_31, rslt2, rslt7); FnArity *arity_9 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_9->count = 1; arity_9->closures = empty_list; arity_9->variadic = 0; -arity_9->fn = arityImpl_2625; +arity_9->fn = arityImpl_2618; arity_9->closures = listCons((Value *)val10, (List *)arity_9->closures); -Function *fn_2624 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2624->type = 3; -fn_2624->name = "anon"; -fn_2624->arityCount = 1; -fn_2624->arities[0] = arity_9; -Value *rslt11 = protoFnImpl_78((List *)var_31, rslt8, (Value *)fn_2624); +Function *fn_2617 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2617->type = 3; +fn_2617->name = "anon"; +fn_2617->arityCount = 1; +fn_2617->arities[0] = arity_9; +Value *rslt11 = protoFnImpl_78((List *)var_31, rslt8, (Value *)fn_2617); return (rslt11); }; -Value *arityImpl_2621(List *closures, Value *arg0) { +Value *arityImpl_2614(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -32408,18 +32342,18 @@ varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)(Value *)&_str_197, varArgs1); -varArgs1 = (List *)listCons((Value *)val0, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_196, varArgs1); +varArgs1 = (List *)listCons((Value *)val0, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_195, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; -varArgs3 = (List *)listCons((Value *)(Value *)&_str_198, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_197, varArgs3); varArgs3 = (List *)listCons((Value *)arg0, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_str_84, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_83, varArgs3); Value *rslt4 = arityImpl_508((List *)var_31, (Value *)varArgs3); List *varArgs5 = (List *)GC_malloc(sizeof(List)); varArgs5->type = ListType; @@ -32429,43 +32363,43 @@ varArgs5->tail = (List *)0; varArgs5 = (List *)listCons((Value *)rslt4, varArgs5); varArgs5 = (List *)listCons((Value *)rslt2, varArgs5); Value *rslt6 = arityImpl_119((List *)var_31, (Value *)varArgs5); -Value *rslt7 = arityImpl_1949((List *)var_31, rslt6); +Value *rslt7 = arityImpl_1942((List *)var_31, rslt6); FnArity *arity_8 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_8->count = 1; arity_8->closures = empty_list; arity_8->variadic = 0; -arity_8->fn = arityImpl_2623; +arity_8->fn = arityImpl_2616; arity_8->closures = listCons((Value *)val9, (List *)arity_8->closures); arity_8->closures = listCons((Value *)arg0, (List *)arity_8->closures); arity_8->closures = listCons((Value *)val0, (List *)arity_8->closures); -Function *fn_2622 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2622->type = 3; -fn_2622->name = "anon"; -fn_2622->arityCount = 1; -fn_2622->arities[0] = arity_8; -Value *rslt10 = protoFnImpl_78((List *)var_31, rslt7, (Value *)fn_2622); +Function *fn_2615 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2615->type = 3; +fn_2615->name = "anon"; +fn_2615->arityCount = 1; +fn_2615->arities[0] = arity_8; +Value *rslt10 = protoFnImpl_78((List *)var_31, rslt7, (Value *)fn_2615); return (rslt10); }; -Value *arityImpl_2619(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_2612(List *closures, Value *arg0, Value *arg1) { Value *cond0; -Value *rslt1 = arityImpl_283((List *)var_31, (Value *)&_kw_39, arg1); +Value *rslt1 = arityImpl_283((List *)var_31, (Value *)&_kw_37, arg1); if (isTrue(rslt1)) { -Value *rslt2 = arityImpl_1954((List *)var_31, (Value *)&_str_195); +Value *rslt2 = arityImpl_1947((List *)var_31, (Value *)&_str_194); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2621; +arity_3->fn = arityImpl_2614; arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); arity_3->closures = listCons((Value *)arg0, (List *)arity_3->closures); -Function *fn_2620 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2620->type = 3; -fn_2620->name = "anon"; -fn_2620->arityCount = 1; -fn_2620->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2620); +Function *fn_2613 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2613->type = 3; +fn_2613->name = "anon"; +fn_2613->arityCount = 1; +fn_2613->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2613); cond0 = rslt4; } else { cond0 = var_31; @@ -32475,23 +32409,23 @@ return (cond0); // --------- forward-decl main body -------------- -Function fn_2618 = {3, "forward-decl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2619}}}; +Function fn_2611 = {3, "forward-decl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2612}}}; struct {int64_t type; int64_t len; - char buffer[21];} _str_199 = {1,20,"invalid definition: "}; + char buffer[21];} _str_198 = {1,20,"invalid definition: "}; // --------- define-fwd-decl -------------- -Function fn_2627; +Function fn_2620; // --------- anon -------------- -Function fn_2629; +Function fn_2622; // --------- anon -------------- -Function fn_2631; +Function fn_2624; // --------- anon -------------- -Function fn_2633; -Value *arityImpl_2634(List *closures, Value *arg0) { +Function fn_2626; +Value *arityImpl_2627(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -32500,7 +32434,7 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_2632(List *closures, Value *arg0) { +Value *arityImpl_2625(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -32543,11 +32477,11 @@ varArgs19->len = 0; varArgs19->head = (Value *)0; varArgs19->tail = (List *)0; varArgs19 = (List *)listCons((Value *)rslt18, varArgs19); -varArgs19 = (List *)listCons((Value *)(Value *)&_str_146, varArgs19); +varArgs19 = (List *)listCons((Value *)(Value *)&_str_145, varArgs19); varArgs19 = (List *)listCons((Value *)rslt1, varArgs19); -varArgs19 = (List *)listCons((Value *)(Value *)&_str_84, varArgs19); +varArgs19 = (List *)listCons((Value *)(Value *)&_str_83, varArgs19); Value *rslt20 = arityImpl_508((List *)var_31, (Value *)varArgs19); -Value *rslt21 = arityImpl_1944((List *)var_31, rslt20); +Value *rslt21 = arityImpl_1937((List *)var_31, rslt20); cond9 = rslt21; } else { Value *rslt22 = arityImpl_287((List *)var_31, (Value *)&_num_1, rslt4); @@ -32559,7 +32493,7 @@ varArgs24->len = 0; varArgs24->head = (Value *)0; varArgs24->tail = (List *)0; varArgs24 = (List *)listCons((Value *)val23, varArgs24); -varArgs24 = (List *)listCons((Value *)(Value *)&_str_199, varArgs24); +varArgs24 = (List *)listCons((Value *)(Value *)&_str_198, varArgs24); Value *rslt25 = arityImpl_508((List *)var_31, (Value *)varArgs24); List *varArgs26 = (List *)GC_malloc(sizeof(List)); varArgs26->type = ListType; @@ -32568,24 +32502,24 @@ varArgs26->head = (Value *)0; varArgs26->tail = (List *)0; varArgs26 = (List *)listCons((Value *)rslt25, varArgs26); Value *rslt27 = arityImpl_163((List *)var_31, (Value *)varArgs26); -Value *rslt28 = arityImpl_1890((List *)var_31); -Value *rslt29 = arityImpl_985((List *)var_31, rslt28); +Value *rslt28 = arityImpl_1880((List *)var_31); +Value *rslt29 = arityImpl_975((List *)var_31, rslt28); cond9 = rslt29; } else { Value *rslt10 = protoFnImpl_219((List *)var_31, cond5); -Value *rslt11 = arityImpl_1944((List *)var_31, rslt10); +Value *rslt11 = arityImpl_1937((List *)var_31, rslt10); List *varArgs12 = (List *)GC_malloc(sizeof(List)); varArgs12->type = ListType; varArgs12->len = 0; varArgs12->head = (Value *)0; varArgs12->tail = (List *)0; -varArgs12 = (List *)listCons((Value *)(Value *)&_str_117, varArgs12); +varArgs12 = (List *)listCons((Value *)(Value *)&_str_116, varArgs12); varArgs12 = (List *)listCons((Value *)rslt2, varArgs12); -varArgs12 = (List *)listCons((Value *)(Value *)&_str_146, varArgs12); +varArgs12 = (List *)listCons((Value *)(Value *)&_str_145, varArgs12); varArgs12 = (List *)listCons((Value *)rslt1, varArgs12); -varArgs12 = (List *)listCons((Value *)(Value *)&_str_84, varArgs12); +varArgs12 = (List *)listCons((Value *)(Value *)&_str_83, varArgs12); Value *rslt13 = arityImpl_508((List *)var_31, (Value *)varArgs12); -Value *rslt14 = arityImpl_1944((List *)var_31, rslt13); +Value *rslt14 = arityImpl_1937((List *)var_31, rslt13); List *varArgs15 = (List *)GC_malloc(sizeof(List)); varArgs15->type = ListType; varArgs15->len = 0; @@ -32602,18 +32536,18 @@ FnArity *arity_30 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_30->count = 1; arity_30->closures = empty_list; arity_30->variadic = 0; -arity_30->fn = arityImpl_2634; +arity_30->fn = arityImpl_2627; arity_30->closures = listCons((Value *)val31, (List *)arity_30->closures); -Function *fn_2633 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2633->type = 3; -fn_2633->name = "anon"; -fn_2633->arityCount = 1; -fn_2633->arities[0] = arity_30; -Value *rslt32 = protoFnImpl_78((List *)var_31, cond9, (Value *)fn_2633); +Function *fn_2626 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2626->type = 3; +fn_2626->name = "anon"; +fn_2626->arityCount = 1; +fn_2626->arities[0] = arity_30; +Value *rslt32 = protoFnImpl_78((List *)var_31, cond9, (Value *)fn_2626); return (rslt32); }; -Value *arityImpl_2630(List *closures, Value *arg0) { +Value *arityImpl_2623(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -32626,67 +32560,67 @@ Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = protoFnImpl_740((List *)var_31, val0, (Value *)&protoFn_1968); +Value *rslt1 = protoFnImpl_730((List *)var_31, val0, (Value *)&protoFn_1961); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2632; +arity_2->fn = arityImpl_2625; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); -Function *fn_2631 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2631->type = 3; -fn_2631->name = "anon"; -fn_2631->arityCount = 1; -fn_2631->arities[0] = arity_2; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2631); +Function *fn_2624 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2624->type = 3; +fn_2624->name = "anon"; +fn_2624->arityCount = 1; +fn_2624->arities[0] = arity_2; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2624); return (rslt5); }; -Value *arityImpl_2628(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_2621(List *closures, Value *arg0, Value *arg1) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_49, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_47, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1014((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1004((List *)var_31, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2630; +arity_3->fn = arityImpl_2623; arity_3->closures = listCons((Value *)arg0, (List *)arity_3->closures); arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); arity_3->closures = listCons((Value *)arg1, (List *)arity_3->closures); -Function *fn_2629 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2629->type = 3; -fn_2629->name = "anon"; -fn_2629->arityCount = 1; -fn_2629->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2629); +Function *fn_2622 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2622->type = 3; +fn_2622->name = "anon"; +fn_2622->arityCount = 1; +fn_2622->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2622); return (rslt4); }; // --------- define-fwd-decl main body -------------- -Function fn_2627 = {3, "define-fwd-decl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2628}}}; +Function fn_2620 = {3, "define-fwd-decl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2621}}}; // --------- inline-text-definition -------------- -Function fn_2636; +Function fn_2629; // --------- anon -------------- -Function fn_2638; +Function fn_2631; // --------- anon -------------- -Function fn_2640; +Function fn_2633; // --------- anon -------------- -Function fn_2642; -Value *arityImpl_2643(List *closures, Value *arg0) { +Function fn_2635; +Value *arityImpl_2636(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -32699,7 +32633,7 @@ Value *rslt2 = protoFnImpl_100((List *)var_31, val0, val1); return (rslt2); }; -Value *arityImpl_2641(List *closures, Value *arg0) { +Value *arityImpl_2634(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -32718,16 +32652,16 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_kw_49, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_kw_47, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; -varArgs4 = (List *)listCons((Value *)(Value *)&_str_56, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_55, varArgs4); varArgs4 = (List *)listCons((Value *)val3, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&_str_84, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_83, varArgs4); Value *rslt5 = arityImpl_508((List *)var_31, (Value *)varArgs4); List *varArgs6 = (List *)GC_malloc(sizeof(List)); varArgs6->type = ListType; @@ -32737,24 +32671,24 @@ varArgs6->tail = (List *)0; varArgs6 = (List *)listCons((Value *)val3, varArgs6); varArgs6 = (List *)listCons((Value *)rslt5, varArgs6); Value *rslt7 = arityImpl_119((List *)var_31, (Value *)varArgs6); -Value *rslt8 = arityImpl_1022((List *)var_31, rslt2, rslt7); +Value *rslt8 = arityImpl_1012((List *)var_31, rslt2, rslt7); FnArity *arity_9 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_9->count = 1; arity_9->closures = empty_list; arity_9->variadic = 0; -arity_9->fn = arityImpl_2643; +arity_9->fn = arityImpl_2636; arity_9->closures = listCons((Value *)val3, (List *)arity_9->closures); arity_9->closures = listCons((Value *)val10, (List *)arity_9->closures); -Function *fn_2642 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2642->type = 3; -fn_2642->name = "anon"; -fn_2642->arityCount = 1; -fn_2642->arities[0] = arity_9; -Value *rslt11 = protoFnImpl_78((List *)var_31, rslt8, (Value *)fn_2642); +Function *fn_2635 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2635->type = 3; +fn_2635->name = "anon"; +fn_2635->arityCount = 1; +fn_2635->arities[0] = arity_9; +Value *rslt11 = protoFnImpl_78((List *)var_31, rslt8, (Value *)fn_2635); return (rslt11); }; -Value *arityImpl_2639(List *closures, Value *arg0) { +Value *arityImpl_2632(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -32773,65 +32707,65 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)(Value *)&_str_117, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_116, varArgs2); varArgs2 = (List *)listCons((Value *)rslt1, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_146, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_145, varArgs2); varArgs2 = (List *)listCons((Value *)arg0, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_84, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_83, varArgs2); Value *rslt3 = arityImpl_508((List *)var_31, (Value *)varArgs2); -Value *rslt4 = arityImpl_1944((List *)var_31, rslt3); +Value *rslt4 = arityImpl_1937((List *)var_31, rslt3); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_2641; +arity_5->fn = arityImpl_2634; arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); arity_5->closures = listCons((Value *)arg0, (List *)arity_5->closures); arity_5->closures = listCons((Value *)val7, (List *)arity_5->closures); -Function *fn_2640 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2640->type = 3; -fn_2640->name = "anon"; -fn_2640->arityCount = 1; -fn_2640->arities[0] = arity_5; -Value *rslt8 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_2640); +Function *fn_2633 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2633->type = 3; +fn_2633->name = "anon"; +fn_2633->arityCount = 1; +fn_2633->arities[0] = arity_5; +Value *rslt8 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_2633); return (rslt8); }; -Value *arityImpl_2637(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_195); +Value *arityImpl_2630(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1947((List *)var_31, (Value *)&_str_194); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2639; +arity_1->fn = arityImpl_2632; arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_2638 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2638->type = 3; -fn_2638->name = "anon"; -fn_2638->arityCount = 1; -fn_2638->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2638); +Function *fn_2631 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2631->type = 3; +fn_2631->name = "anon"; +fn_2631->arityCount = 1; +fn_2631->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2631); return (rslt2); }; // --------- inline-text-definition main body -------------- -Function fn_2636 = {3, "inline-text-definition", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2637}}}; +Function fn_2629 = {3, "inline-text-definition", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2630}}}; // --------- expression-definition -------------- -Function fn_2645; +Function fn_2638; // --------- anon -------------- -Function fn_2647; +Function fn_2640; // --------- anon -------------- -Function fn_2649; +Function fn_2642; // --------- anon -------------- -Function fn_2651; -Value *arityImpl_2652(List *closures, Value *arg0) { +Function fn_2644; +Value *arityImpl_2645(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -32844,7 +32778,7 @@ Value *rslt2 = protoFnImpl_100((List *)var_31, val0, val1); return (rslt2); }; -Value *arityImpl_2650(List *closures, Value *arg0) { +Value *arityImpl_2643(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -32871,7 +32805,7 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_kw_49, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_kw_47, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); List *varArgs5 = (List *)GC_malloc(sizeof(List)); varArgs5->type = ListType; @@ -32881,24 +32815,24 @@ varArgs5->tail = (List *)0; varArgs5 = (List *)listCons((Value *)val4, varArgs5); varArgs5 = (List *)listCons((Value *)val3, varArgs5); Value *rslt6 = arityImpl_119((List *)var_31, (Value *)varArgs5); -Value *rslt7 = arityImpl_1022((List *)var_31, rslt2, rslt6); +Value *rslt7 = arityImpl_1012((List *)var_31, rslt2, rslt6); FnArity *arity_8 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_8->count = 1; arity_8->closures = empty_list; arity_8->variadic = 0; -arity_8->fn = arityImpl_2652; +arity_8->fn = arityImpl_2645; arity_8->closures = listCons((Value *)val9, (List *)arity_8->closures); arity_8->closures = listCons((Value *)val10, (List *)arity_8->closures); -Function *fn_2651 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2651->type = 3; -fn_2651->name = "anon"; -fn_2651->arityCount = 1; -fn_2651->arities[0] = arity_8; -Value *rslt11 = protoFnImpl_78((List *)var_31, rslt7, (Value *)fn_2651); +Function *fn_2644 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2644->type = 3; +fn_2644->name = "anon"; +fn_2644->arityCount = 1; +fn_2644->arities[0] = arity_8; +Value *rslt11 = protoFnImpl_78((List *)var_31, rslt7, (Value *)fn_2644); return (rslt11); }; -Value *arityImpl_2648(List *closures, Value *arg0) { +Value *arityImpl_2641(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -32925,65 +32859,65 @@ Value *rslt4 = arityImpl_287((List *)var_31, (Value *)&_num_8, rslt3); if (isTrue(rslt4)) { Value *rslt5 = protoFnImpl_219((List *)var_31, val2); -Value *rslt6 = arityImpl_1944((List *)var_31, rslt5); +Value *rslt6 = arityImpl_1937((List *)var_31, rslt5); cond0 = rslt6; } else { -Value *rslt1 = arityImpl_985((List *)var_31, (Value *)&_str_19); +Value *rslt1 = arityImpl_975((List *)var_31, (Value *)&_str_19); cond0 = rslt1; } FnArity *arity_7 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_7->count = 1; arity_7->closures = empty_list; arity_7->variadic = 0; -arity_7->fn = arityImpl_2650; +arity_7->fn = arityImpl_2643; arity_7->closures = listCons((Value *)val8, (List *)arity_7->closures); arity_7->closures = listCons((Value *)arg0, (List *)arity_7->closures); arity_7->closures = listCons((Value *)val9, (List *)arity_7->closures); arity_7->closures = listCons((Value *)val10, (List *)arity_7->closures); arity_7->closures = listCons((Value *)val11, (List *)arity_7->closures); -Function *fn_2649 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2649->type = 3; -fn_2649->name = "anon"; -fn_2649->arityCount = 1; -fn_2649->arities[0] = arity_7; -Value *rslt12 = protoFnImpl_78((List *)var_31, cond0, (Value *)fn_2649); +Function *fn_2642 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2642->type = 3; +fn_2642->name = "anon"; +fn_2642->arityCount = 1; +fn_2642->arities[0] = arity_7; +Value *rslt12 = protoFnImpl_78((List *)var_31, cond0, (Value *)fn_2642); return (rslt12); }; -Value *arityImpl_2646(List *closures, Value *arg0, Value *arg1, Value *arg2, Value *arg3) { -Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_195); +Value *arityImpl_2639(List *closures, Value *arg0, Value *arg1, Value *arg2, Value *arg3) { +Value *rslt0 = arityImpl_1947((List *)var_31, (Value *)&_str_194); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2648; +arity_1->fn = arityImpl_2641; arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg2, (List *)arity_1->closures); -Function *fn_2647 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2647->type = 3; -fn_2647->name = "anon"; -fn_2647->arityCount = 1; -fn_2647->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2647); +Function *fn_2640 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2640->type = 3; +fn_2640->name = "anon"; +fn_2640->arityCount = 1; +fn_2640->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2640); return (rslt2); }; // --------- expression-definition main body -------------- -Function fn_2645 = {3, "expression-definition", 1, {&(FnArity){4, (List *)0, 0, arityImpl_2646}}}; +Function fn_2638 = {3, "expression-definition", 1, {&(FnArity){4, (List *)0, 0, arityImpl_2639}}}; // --------- define-value -------------- -Function fn_2654; +Function fn_2647; // --------- anon -------------- -Function fn_2656; +Function fn_2649; // --------- anon -------------- -Function fn_2658; -Value *arityImpl_2659(List *closures, Value *arg0) { +Function fn_2651; +Value *arityImpl_2652(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -32992,7 +32926,7 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_2657(List *closures, Value *arg0) { +Value *arityImpl_2650(List *closures, Value *arg0) { Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -33008,7 +32942,7 @@ Value *cond3; Value *rslt6 = arityImpl_283((List *)var_31, rslt0, (Value *)&_str_19); if (isTrue(rslt6)) { -Value *rslt7 = arityImpl_2637((List *)var_31, val4, rslt1); +Value *rslt7 = arityImpl_2630((List *)var_31, val4, rslt1); cond3 = rslt7; } else { Value *rslt8 = protoFnImpl_195((List *)var_31, rslt1); @@ -33021,7 +32955,7 @@ varArgs10->len = 0; varArgs10->head = (Value *)0; varArgs10->tail = (List *)0; varArgs10 = (List *)listCons((Value *)val4, varArgs10); -varArgs10 = (List *)listCons((Value *)(Value *)&_str_199, varArgs10); +varArgs10 = (List *)listCons((Value *)(Value *)&_str_198, varArgs10); Value *rslt11 = arityImpl_508((List *)var_31, (Value *)varArgs10); List *varArgs12 = (List *)GC_malloc(sizeof(List)); varArgs12->type = ListType; @@ -33030,11 +32964,11 @@ varArgs12->head = (Value *)0; varArgs12->tail = (List *)0; varArgs12 = (List *)listCons((Value *)rslt11, varArgs12); Value *rslt13 = arityImpl_163((List *)var_31, (Value *)varArgs12); -Value *rslt14 = arityImpl_1890((List *)var_31); -Value *rslt15 = arityImpl_985((List *)var_31, rslt14); +Value *rslt14 = arityImpl_1880((List *)var_31); +Value *rslt15 = arityImpl_975((List *)var_31, rslt14); cond3 = rslt15; } else { -Value *rslt5 = arityImpl_2646((List *)var_31, val4, rslt0, rslt1, rslt2); +Value *rslt5 = arityImpl_2639((List *)var_31, val4, rslt0, rslt1, rslt2); cond3 = rslt5; } } @@ -33042,41 +32976,41 @@ FnArity *arity_16 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_16->count = 1; arity_16->closures = empty_list; arity_16->variadic = 0; -arity_16->fn = arityImpl_2659; +arity_16->fn = arityImpl_2652; arity_16->closures = listCons((Value *)val17, (List *)arity_16->closures); -Function *fn_2658 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2658->type = 3; -fn_2658->name = "anon"; -fn_2658->arityCount = 1; -fn_2658->arities[0] = arity_16; -Value *rslt18 = protoFnImpl_78((List *)var_31, cond3, (Value *)fn_2658); +Function *fn_2651 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2651->type = 3; +fn_2651->name = "anon"; +fn_2651->arityCount = 1; +fn_2651->arities[0] = arity_16; +Value *rslt18 = protoFnImpl_78((List *)var_31, cond3, (Value *)fn_2651); return (rslt18); }; -Value *arityImpl_2655(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = protoFnImpl_740((List *)var_31, arg1, (Value *)&protoFn_1968); +Value *arityImpl_2648(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = protoFnImpl_730((List *)var_31, arg1, (Value *)&protoFn_1961); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2657; +arity_1->fn = arityImpl_2650; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); -Function *fn_2656 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2656->type = 3; -fn_2656->name = "anon"; -fn_2656->arityCount = 1; -fn_2656->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2656); +Function *fn_2649 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2649->type = 3; +fn_2649->name = "anon"; +fn_2649->arityCount = 1; +fn_2649->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2649); return (rslt2); }; // --------- define-value main body -------------- -Function fn_2654 = {3, "define-value", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2655}}}; -ProtoImpls *protoImpls_2661; -Value *protoFnImpl_2664(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2661); +Function fn_2647 = {3, "define-value", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2648}}}; +ProtoImpls *protoImpls_2654; +Value *protoFnImpl_2657(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2654); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.value' %lld\n", arg0->type); abort(); @@ -33089,36 +33023,36 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_2665 = {1, (List *)0, 0, protoFnImpl_2664}; -Function protoFn_2662 = {3, ".value", 1, {&protoFnArity_2665}}; +FnArity protoFnArity_2658 = {1, (List *)0, 0, protoFnImpl_2657}; +Function protoFn_2655 = {3, ".value", 1, {&protoFnArity_2658}}; -Number _num_46 = {2, -1, 74}; +Number _num_46 = {2, -1, 73}; // --------- instance?_impl -------------- -Function fn_2666; -Value *arityImpl_2667(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1892((List *)var_31, arg1); +Function fn_2659; +Value *arityImpl_2660(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1882((List *)var_31, arg1); Value *rslt1 = arityImpl_283((List *)var_31, (Value *)&_num_46, rslt0); return (rslt1); }; // --------- instance?_impl main body -------------- -Function fn_2666 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2667}}}; -Value *protoImpl_2668(List *closures, Value *arg0, Value *arg1) { +Function fn_2659 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2660}}}; +Value *protoImpl_2661(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2669 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2668}}}; +Function protoFn_2662 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2661}}}; // --------- invoke_impl -------------- -Function fn_2670; +Function fn_2663; // --------- emit-c_impl -------------- -Function fn_2672; -Value *arityImpl_2673(List *closures, Value *arg0) { +Function fn_2665; +Value *arityImpl_2666(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -33128,14 +33062,14 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *cond0; -Value *rslt7 = arityImpl_283((List *)var_31, (Value *)&_kw_39, val2); +Value *rslt7 = arityImpl_283((List *)var_31, (Value *)&_kw_37, val2); if (isTrue(rslt7)) { -Value *rslt8 = arityImpl_2619((List *)var_31, val1, val2); +Value *rslt8 = arityImpl_2612((List *)var_31, val1, val2); cond0 = rslt8; } else { -Value *rslt3 = arityImpl_2628((List *)var_31, val1, val2); -Value *rslt4 = arityImpl_2655((List *)var_31, val1, val2); +Value *rslt3 = arityImpl_2621((List *)var_31, val1, val2); +Value *rslt4 = arityImpl_2648((List *)var_31, val1, val2); List *varArgs5 = (List *)GC_malloc(sizeof(List)); varArgs5->type = ListType; varArgs5->len = 0; @@ -33149,17 +33083,17 @@ cond0 = rslt6; return (cond0); }; -Value *protoImpl_2674(List *closures, Value *arg0) { +Value *protoImpl_2667(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2675 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2674}}}; +Function protoFn_2668 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2667}}}; // --------- .name_impl -------------- -Function fn_2676; -Value *arityImpl_2677(List *closures, Value *arg0) { +Function fn_2669; +Value *arityImpl_2670(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -33167,17 +33101,17 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2678(List *closures, Value *arg0) { +Value *protoImpl_2671(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2679 = {3, ".name", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2678}}}; +Function protoFn_2672 = {3, ".name", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2671}}}; // --------- .value_impl -------------- -Function fn_2680; -Value *arityImpl_2681(List *closures, Value *arg0) { +Function fn_2673; +Value *arityImpl_2674(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -33185,94 +33119,94 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2682(List *closures, Value *arg0) { +Value *protoImpl_2675(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2683 = {3, ".value", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2682}}}; +Function protoFn_2676 = {3, ".value", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2675}}}; -Value *arityImpl_2671(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Value *arityImpl_2664(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_2673; +arity_0->fn = arityImpl_2666; arity_0->closures = listCons((Value *)arg2, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_2672 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2672->type = 3; -fn_2672->name = "emit-c_impl"; -fn_2672->arityCount = 1; -fn_2672->arities[0] = arity_0; +Function *fn_2665 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2665->type = 3; +fn_2665->name = "emit-c_impl"; +fn_2665->arityCount = 1; +fn_2665->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2677; +arity_1->fn = arityImpl_2670; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_2676 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2676->type = 3; -fn_2676->name = ".name_impl"; -fn_2676->arityCount = 1; -fn_2676->arities[0] = arity_1; +Function *fn_2669 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2669->type = 3; +fn_2669->name = ".name_impl"; +fn_2669->arityCount = 1; +fn_2669->arities[0] = arity_1; FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2681; +arity_2->fn = arityImpl_2674; arity_2->closures = listCons((Value *)arg2, (List *)arity_2->closures); -Function *fn_2680 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2680->type = 3; -fn_2680->name = ".value_impl"; -fn_2680->arityCount = 1; -fn_2680->arities[0] = arity_2; +Function *fn_2673 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2673->type = 3; +fn_2673->name = ".value_impl"; +fn_2673->arityCount = 1; +fn_2673->arities[0] = arity_2; ReifiedVal *reified_3 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 3); -reified_3->type = 74; +reified_3->type = 73; reified_3->implCount = 3; -reified_3->impls[0] = (Value *)fn_2672; -reified_3->impls[1] = (Value *)fn_2676; -reified_3->impls[2] = (Value *)fn_2680; +reified_3->impls[0] = (Value *)fn_2665; +reified_3->impls[1] = (Value *)fn_2669; +reified_3->impls[2] = (Value *)fn_2673; return ((Value *)reified_3); }; // --------- invoke_impl main body -------------- -Function fn_2670 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2671}}}; -Value *protoImpl_2684(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Function fn_2663 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2664}}}; +Value *protoImpl_2677(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType3 *)arityPtr->fn)(arityPtr->closures, arg0, arg1, arg2)); }; -Function protoFn_2685 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2684}}}; +Function protoFn_2678 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2677}}}; -ReifiedVal reified_2686 = {73, 2, {(Value *)&fn_2666, (Value *)&fn_2670}}; -Value *var_1503 = (Value *)&reified_2686; +ReifiedVal reified_2679 = {72, 2, {(Value *)&fn_2659, (Value *)&fn_2663}}; +Value *var_1493 = (Value *)&reified_2679; struct {int64_t type; int64_t len; - char buffer[14];} _str_200 = {1,13,"\nif (isTrue("}; + char buffer[14];} _str_199 = {1,13,"\nif (isTrue("}; struct {int64_t type; int64_t len; - char buffer[7];} _str_201 = {1,6,")) {\n"}; + char buffer[7];} _str_200 = {1,6,")) {\n"}; struct {int64_t type; int64_t len; - char buffer[14];} _str_202 = {1,13,";\n} else {\n"}; + char buffer[14];} _str_201 = {1,13,";\n} else {\n"}; struct {int64_t type; int64_t len; - char buffer[4];} _str_203 = {1,3,"}\n"}; + char buffer[4];} _str_202 = {1,3,"}\n"}; // --------- eval-cond-clause -------------- -Function fn_2687; +Function fn_2680; // --------- anon -------------- -Function fn_2689; +Function fn_2682; // --------- anon -------------- -Function fn_2691; +Function fn_2684; // --------- anon -------------- -Function fn_2693; -Value *arityImpl_2694(List *closures, Value *arg0) { +Function fn_2686; +Value *arityImpl_2687(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -33298,9 +33232,9 @@ varArgs8->type = ListType; varArgs8->len = 0; varArgs8->head = (Value *)0; varArgs8->tail = (List *)0; -varArgs8 = (List *)listCons((Value *)(Value *)&_str_201, varArgs8); -varArgs8 = (List *)listCons((Value *)rslt2, varArgs8); varArgs8 = (List *)listCons((Value *)(Value *)&_str_200, varArgs8); +varArgs8 = (List *)listCons((Value *)rslt2, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_str_199, varArgs8); Value *rslt9 = arityImpl_508((List *)var_31, (Value *)varArgs8); List *varArgs10 = (List *)GC_malloc(sizeof(List)); varArgs10->type = ListType; @@ -33314,9 +33248,9 @@ varArgs12->type = ListType; varArgs12->len = 0; varArgs12->head = (Value *)0; varArgs12->tail = (List *)0; -varArgs12 = (List *)listCons((Value *)(Value *)&_str_202, varArgs12); +varArgs12 = (List *)listCons((Value *)(Value *)&_str_201, varArgs12); varArgs12 = (List *)listCons((Value *)rslt5, varArgs12); -varArgs12 = (List *)listCons((Value *)(Value *)&_str_146, varArgs12); +varArgs12 = (List *)listCons((Value *)(Value *)&_str_145, varArgs12); varArgs12 = (List *)listCons((Value *)val7, varArgs12); Value *rslt13 = arityImpl_508((List *)var_31, (Value *)varArgs12); List *varArgs14 = (List *)GC_malloc(sizeof(List)); @@ -33332,7 +33266,7 @@ varArgs17->type = ListType; varArgs17->len = 0; varArgs17->head = (Value *)0; varArgs17->tail = (List *)0; -varArgs17 = (List *)listCons((Value *)(Value *)&_str_203, varArgs17); +varArgs17 = (List *)listCons((Value *)(Value *)&_str_202, varArgs17); Value *rslt18 = arityImpl_119((List *)var_31, (Value *)varArgs17); List *varArgs19 = (List *)GC_malloc(sizeof(List)); varArgs19->type = ListType; @@ -33358,7 +33292,7 @@ Value *rslt23 = protoFnImpl_100((List *)var_31, val0, rslt22); return (rslt23); }; -Value *arityImpl_2692(List *closures, Value *arg0) { +Value *arityImpl_2685(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -33381,10 +33315,10 @@ closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt1 = protoFnImpl_224((List *)var_31, val0); Value *rslt7; -if(((Value *)&fn_2687)->type != 3) { -rslt7 = protoFnImpl_9(empty_list, (Value *)&fn_2687, rslt1, val2, val3); +if(((Value *)&fn_2680)->type != 3) { +rslt7 = protoFnImpl_9(empty_list, (Value *)&fn_2680, rslt1, val2, val3); } else { -FnArity *arity4 = findFnArity((Value *)&fn_2687, 3); +FnArity *arity4 = findFnArity((Value *)&fn_2680, 3); if(arity4 != (FnArity *)0 && !arity4->variadic) { FnType3 *fn6 = (FnType3 *)arity4->fn; rslt7 = fn6(arity4->closures, rslt1, val2, val3); @@ -33400,7 +33334,7 @@ varArgs5 = (List *)listCons(val2, varArgs5); varArgs5 = (List *)listCons(rslt1, varArgs5); rslt7 = fn6(arity4->closures, (Value *)varArgs5); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)(Value *)&fn_2687)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)(Value *)&fn_2680)->name); abort(); } } @@ -33408,21 +33342,21 @@ FnArity *arity_8 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_8->count = 1; arity_8->closures = empty_list; arity_8->variadic = 0; -arity_8->fn = arityImpl_2694; +arity_8->fn = arityImpl_2687; arity_8->closures = listCons((Value *)val3, (List *)arity_8->closures); arity_8->closures = listCons((Value *)arg0, (List *)arity_8->closures); arity_8->closures = listCons((Value *)val9, (List *)arity_8->closures); arity_8->closures = listCons((Value *)val10, (List *)arity_8->closures); -Function *fn_2693 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2693->type = 3; -fn_2693->name = "anon"; -fn_2693->arityCount = 1; -fn_2693->arities[0] = arity_8; -Value *rslt11 = protoFnImpl_78((List *)var_31, rslt7, (Value *)fn_2693); +Function *fn_2686 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2686->type = 3; +fn_2686->name = "anon"; +fn_2686->arityCount = 1; +fn_2686->arities[0] = arity_8; +Value *rslt11 = protoFnImpl_78((List *)var_31, rslt7, (Value *)fn_2686); return (rslt11); }; -Value *arityImpl_2690(List *closures, Value *arg0) { +Value *arityImpl_2683(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -33444,27 +33378,27 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt1 = arityImpl_523((List *)var_31, val0, (Value *)&_num_1); -Value *rslt2 = protoFnImpl_740((List *)var_31, rslt1, (Value *)&protoFn_1968); +Value *rslt2 = protoFnImpl_730((List *)var_31, rslt1, (Value *)&protoFn_1961); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2692; +arity_3->fn = arityImpl_2685; arity_3->closures = listCons((Value *)val4, (List *)arity_3->closures); arity_3->closures = listCons((Value *)arg0, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val5, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val6, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val7, (List *)arity_3->closures); -Function *fn_2691 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2691->type = 3; -fn_2691->name = "anon"; -fn_2691->arityCount = 1; -fn_2691->arities[0] = arity_3; -Value *rslt8 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2691); +Function *fn_2684 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2684->type = 3; +fn_2684->name = "anon"; +fn_2684->arityCount = 1; +fn_2684->arities[0] = arity_3; +Value *rslt8 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2684); return (rslt8); }; -Value *arityImpl_2688(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Value *arityImpl_2681(List *closures, Value *arg0, Value *arg1, Value *arg2) { Value *cond0; Value *rslt6 = protoFnImpl_179((List *)var_31, arg0); @@ -33477,9 +33411,9 @@ varArgs10->type = ListType; varArgs10->len = 0; varArgs10->head = (Value *)0; varArgs10->tail = (List *)0; -varArgs10 = (List *)listCons((Value *)(Value *)&_str_117, varArgs10); +varArgs10 = (List *)listCons((Value *)(Value *)&_str_116, varArgs10); varArgs10 = (List *)listCons((Value *)rslt9, varArgs10); -varArgs10 = (List *)listCons((Value *)(Value *)&_str_146, varArgs10); +varArgs10 = (List *)listCons((Value *)(Value *)&_str_145, varArgs10); varArgs10 = (List *)listCons((Value *)arg2, varArgs10); Value *rslt11 = arityImpl_508((List *)var_31, (Value *)varArgs10); List *varArgs12 = (List *)GC_malloc(sizeof(List)); @@ -33505,28 +33439,28 @@ varArgs16->tail = (List *)0; varArgs16 = (List *)listCons((Value *)rslt15, varArgs16); varArgs16 = (List *)listCons((Value *)arg2, varArgs16); Value *rslt17 = arityImpl_119((List *)var_31, (Value *)varArgs16); -Value *rslt18 = arityImpl_985((List *)var_31, rslt17); +Value *rslt18 = arityImpl_975((List *)var_31, rslt17); cond0 = rslt18; } else { Value *rslt1 = protoFnImpl_219((List *)var_31, arg0); Value *rslt2 = protoFnImpl_219((List *)var_31, rslt1); -Value *rslt3 = protoFnImpl_740((List *)var_31, rslt2, (Value *)&protoFn_1968); +Value *rslt3 = protoFnImpl_730((List *)var_31, rslt2, (Value *)&protoFn_1961); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_2690; +arity_4->fn = arityImpl_2683; arity_4->closures = listCons((Value *)arg0, (List *)arity_4->closures); arity_4->closures = listCons((Value *)arg1, (List *)arity_4->closures); arity_4->closures = listCons((Value *)arg2, (List *)arity_4->closures); arity_4->closures = listCons((Value *)rslt3, (List *)arity_4->closures); arity_4->closures = listCons((Value *)rslt1, (List *)arity_4->closures); -Function *fn_2689 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2689->type = 3; -fn_2689->name = "anon"; -fn_2689->arityCount = 1; -fn_2689->arities[0] = arity_4; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2689); +Function *fn_2682 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2682->type = 3; +fn_2682->name = "anon"; +fn_2682->arityCount = 1; +fn_2682->arities[0] = arity_4; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2682); cond0 = rslt5; } return (cond0); @@ -33534,10 +33468,10 @@ return (cond0); // --------- eval-cond-clause main body -------------- -Function fn_2687 = {3, "eval-cond-clause", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2688}}}; -ProtoImpls *protoImpls_2696; -Value *protoFnImpl_2699(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2696); +Function fn_2680 = {3, "eval-cond-clause", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2681}}}; +ProtoImpls *protoImpls_2689; +Value *protoFnImpl_2692(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2689); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.clauses' %lld\n", arg0->type); abort(); @@ -33550,12 +33484,12 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_2700 = {1, (List *)0, 0, protoFnImpl_2699}; -Function protoFn_2697 = {3, ".clauses", 1, {&protoFnArity_2700}}; +FnArity protoFnArity_2693 = {1, (List *)0, 0, protoFnImpl_2692}; +Function protoFn_2690 = {3, ".clauses", 1, {&protoFnArity_2693}}; -ProtoImpls *protoImpls_2701; -Value *protoFnImpl_2704(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2701); +ProtoImpls *protoImpls_2694; +Value *protoFnImpl_2697(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2694); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.default' %lld\n", arg0->type); abort(); @@ -33568,48 +33502,48 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_2705 = {1, (List *)0, 0, protoFnImpl_2704}; -Function protoFn_2702 = {3, ".default", 1, {&protoFnArity_2705}}; +FnArity protoFnArity_2698 = {1, (List *)0, 0, protoFnImpl_2697}; +Function protoFn_2695 = {3, ".default", 1, {&protoFnArity_2698}}; struct {int64_t type; int64_t len; - char buffer[5];} _str_204 = {1,4,"cond"}; -Number _num_47 = {2, -1, 76}; + char buffer[5];} _str_203 = {1,4,"cond"}; +Number _num_47 = {2, -1, 75}; // --------- instance?_impl -------------- -Function fn_2706; -Value *arityImpl_2707(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1892((List *)var_31, arg1); +Function fn_2699; +Value *arityImpl_2700(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1882((List *)var_31, arg1); Value *rslt1 = arityImpl_283((List *)var_31, (Value *)&_num_47, rslt0); return (rslt1); }; // --------- instance?_impl main body -------------- -Function fn_2706 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2707}}}; -Value *protoImpl_2708(List *closures, Value *arg0, Value *arg1) { +Function fn_2699 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2700}}}; +Value *protoImpl_2701(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2709 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2708}}}; +Function protoFn_2702 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2701}}}; // --------- invoke_impl -------------- -Function fn_2710; +Function fn_2703; // --------- emit-c_impl -------------- -Function fn_2712; +Function fn_2705; // --------- anon -------------- -Function fn_2714; +Function fn_2707; // --------- anon -------------- -Function fn_2716; +Function fn_2709; // --------- anon -------------- -Function fn_2718; -Value *arityImpl_2719(List *closures, Value *arg0) { +Function fn_2711; +Value *arityImpl_2712(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -33624,11 +33558,11 @@ varArgs3->type = ListType; varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; -varArgs3 = (List *)listCons((Value *)(Value *)&_str_117, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_116, varArgs3); varArgs3 = (List *)listCons((Value *)val2, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_str_84, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_83, varArgs3); Value *rslt4 = arityImpl_508((List *)var_31, (Value *)varArgs3); -Value *rslt5 = arityImpl_1912((List *)var_31, rslt4, rslt1); +Value *rslt5 = arityImpl_1905((List *)var_31, rslt4, rslt1); List *varArgs6 = (List *)GC_malloc(sizeof(List)); varArgs6->type = ListType; varArgs6->len = 0; @@ -33641,7 +33575,7 @@ Value *rslt8 = protoFnImpl_100((List *)var_31, val0, rslt7); return (rslt8); }; -Value *arityImpl_2717(List *closures, Value *arg0) { +Value *arityImpl_2710(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -33654,24 +33588,24 @@ Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt2 = arityImpl_2688((List *)var_31, val0, arg0, val1); +Value *rslt2 = arityImpl_2681((List *)var_31, val0, arg0, val1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2719; +arity_3->fn = arityImpl_2712; arity_3->closures = listCons((Value *)val1, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val4, (List *)arity_3->closures); -Function *fn_2718 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2718->type = 3; -fn_2718->name = "anon"; -fn_2718->arityCount = 1; -fn_2718->arities[0] = arity_3; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2718); +Function *fn_2711 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2711->type = 3; +fn_2711->name = "anon"; +fn_2711->arityCount = 1; +fn_2711->arities[0] = arity_3; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2711); return (rslt5); }; -Value *arityImpl_2715(List *closures, Value *arg0) { +Value *arityImpl_2708(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -33684,25 +33618,25 @@ Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = protoFnImpl_740((List *)var_31, val0, (Value *)&protoFn_1968); +Value *rslt1 = protoFnImpl_730((List *)var_31, val0, (Value *)&protoFn_1961); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2717; +arity_2->fn = arityImpl_2710; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); -Function *fn_2716 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2716->type = 3; -fn_2716->name = "anon"; -fn_2716->arityCount = 1; -fn_2716->arities[0] = arity_2; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2716); +Function *fn_2709 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2709->type = 3; +fn_2709->name = "anon"; +fn_2709->arityCount = 1; +fn_2709->arities[0] = arity_2; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2709); return (rslt5); }; -Value *arityImpl_2713(List *closures, Value *arg0) { +Value *arityImpl_2706(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -33711,35 +33645,35 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1961((List *)var_31, (Value *)&_str_204); +Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_203); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2715; +arity_1->fn = arityImpl_2708; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_2714 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2714->type = 3; -fn_2714->name = "anon"; -fn_2714->arityCount = 1; -fn_2714->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2714); +Function *fn_2707 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2707->type = 3; +fn_2707->name = "anon"; +fn_2707->arityCount = 1; +fn_2707->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2707); return (rslt4); }; -Value *protoImpl_2720(List *closures, Value *arg0) { +Value *protoImpl_2713(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2721 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2720}}}; +Function protoFn_2714 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2713}}}; // --------- .clauses_impl -------------- -Function fn_2722; -Value *arityImpl_2723(List *closures, Value *arg0) { +Function fn_2715; +Value *arityImpl_2716(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -33747,17 +33681,17 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2724(List *closures, Value *arg0) { +Value *protoImpl_2717(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2725 = {3, ".clauses", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2724}}}; +Function protoFn_2718 = {3, ".clauses", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2717}}}; // --------- .default_impl -------------- -Function fn_2726; -Value *arityImpl_2727(List *closures, Value *arg0) { +Function fn_2719; +Value *arityImpl_2720(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -33765,87 +33699,87 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2728(List *closures, Value *arg0) { +Value *protoImpl_2721(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2729 = {3, ".default", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2728}}}; +Function protoFn_2722 = {3, ".default", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2721}}}; -Value *arityImpl_2711(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Value *arityImpl_2704(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_2713; +arity_0->fn = arityImpl_2706; arity_0->closures = listCons((Value *)arg2, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_2712 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2712->type = 3; -fn_2712->name = "emit-c_impl"; -fn_2712->arityCount = 1; -fn_2712->arities[0] = arity_0; +Function *fn_2705 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2705->type = 3; +fn_2705->name = "emit-c_impl"; +fn_2705->arityCount = 1; +fn_2705->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2723; +arity_1->fn = arityImpl_2716; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_2722 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2722->type = 3; -fn_2722->name = ".clauses_impl"; -fn_2722->arityCount = 1; -fn_2722->arities[0] = arity_1; +Function *fn_2715 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2715->type = 3; +fn_2715->name = ".clauses_impl"; +fn_2715->arityCount = 1; +fn_2715->arities[0] = arity_1; FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2727; +arity_2->fn = arityImpl_2720; arity_2->closures = listCons((Value *)arg2, (List *)arity_2->closures); -Function *fn_2726 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2726->type = 3; -fn_2726->name = ".default_impl"; -fn_2726->arityCount = 1; -fn_2726->arities[0] = arity_2; +Function *fn_2719 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2719->type = 3; +fn_2719->name = ".default_impl"; +fn_2719->arityCount = 1; +fn_2719->arities[0] = arity_2; ReifiedVal *reified_3 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 3); -reified_3->type = 76; +reified_3->type = 75; reified_3->implCount = 3; -reified_3->impls[0] = (Value *)fn_2712; -reified_3->impls[1] = (Value *)fn_2722; -reified_3->impls[2] = (Value *)fn_2726; +reified_3->impls[0] = (Value *)fn_2705; +reified_3->impls[1] = (Value *)fn_2715; +reified_3->impls[2] = (Value *)fn_2719; return ((Value *)reified_3); }; // --------- invoke_impl main body -------------- -Function fn_2710 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2711}}}; -Value *protoImpl_2730(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Function fn_2703 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2704}}}; +Value *protoImpl_2723(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType3 *)arityPtr->fn)(arityPtr->closures, arg0, arg1, arg2)); }; -Function protoFn_2731 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2730}}}; +Function protoFn_2724 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2723}}}; -ReifiedVal reified_2732 = {75, 2, {(Value *)&fn_2706, (Value *)&fn_2710}}; -Value *var_1504 = (Value *)&reified_2732; -SymKey _kw_66 = {5, -1, ":protocols"}; -SymKey _kw_67 = {5, -1, ":impls"}; +ReifiedVal reified_2725 = {74, 2, {(Value *)&fn_2699, (Value *)&fn_2703}}; +Value *var_1494 = (Value *)&reified_2725; +SymKey _kw_64 = {5, -1, ":protocols"}; +SymKey _kw_65 = {5, -1, ":impls"}; // --------- emit-extension -------------- -Function fn_2733; +Function fn_2726; // --------- anon -------------- -Function fn_2735; +Function fn_2728; // --------- anon -------------- -Function fn_2737; +Function fn_2730; // --------- anon -------------- -Function fn_2739; +Function fn_2732; // --------- anon -------------- -Function fn_2741; -Value *arityImpl_2742(List *closures, Value *arg0) { +Function fn_2734; +Value *arityImpl_2735(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -33854,7 +33788,7 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_2740(List *closures, Value *arg0) { +Value *arityImpl_2733(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -33878,28 +33812,28 @@ varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; varArgs3 = (List *)listCons((Value *)val2, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_kw_67, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_kw_65, varArgs3); varArgs3 = (List *)listCons((Value *)rslt1, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_kw_66, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_kw_64, varArgs3); Value *rslt4 = arityImpl_119((List *)var_31, (Value *)varArgs3); Value *rslt6 = protoFnImpl_219((List *)var_31, val5); -Value *rslt7 = arityImpl_1022((List *)var_31, rslt4, rslt6); +Value *rslt7 = arityImpl_1012((List *)var_31, rslt4, rslt6); FnArity *arity_8 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_8->count = 1; arity_8->closures = empty_list; arity_8->variadic = 0; -arity_8->fn = arityImpl_2742; +arity_8->fn = arityImpl_2735; arity_8->closures = listCons((Value *)val9, (List *)arity_8->closures); -Function *fn_2741 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2741->type = 3; -fn_2741->name = "anon"; -fn_2741->arityCount = 1; -fn_2741->arities[0] = arity_8; -Value *rslt10 = protoFnImpl_78((List *)var_31, rslt7, (Value *)fn_2741); +Function *fn_2734 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2734->type = 3; +fn_2734->name = "anon"; +fn_2734->arityCount = 1; +fn_2734->arities[0] = arity_8; +Value *rslt10 = protoFnImpl_78((List *)var_31, rslt7, (Value *)fn_2734); return (rslt10); }; -Value *arityImpl_2738(List *closures, Value *arg0) { +Value *arityImpl_2731(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -33913,53 +33847,53 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, var_31); -Value *rslt1 = arityImpl_1949((List *)var_31, rslt0); +Value *rslt1 = arityImpl_1942((List *)var_31, rslt0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2740; +arity_2->fn = arityImpl_2733; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val5, (List *)arity_2->closures); -Function *fn_2739 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2739->type = 3; -fn_2739->name = "anon"; -fn_2739->arityCount = 1; -fn_2739->arities[0] = arity_2; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2739); +Function *fn_2732 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2732->type = 3; +fn_2732->name = "anon"; +fn_2732->arityCount = 1; +fn_2732->arities[0] = arity_2; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2732); return (rslt6); }; -Value *arityImpl_2736(List *closures, Value *arg0) { +Value *arityImpl_2729(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, (Value *)&_str_19); -Value *rslt1 = protoFnImpl_740((List *)var_31, rslt0, (Value *)&protoFn_1968); +Value *rslt1 = protoFnImpl_730((List *)var_31, rslt0, (Value *)&protoFn_1961); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2738; +arity_2->fn = arityImpl_2731; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)rslt1, (List *)arity_2->closures); -Function *fn_2737 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2737->type = 3; -fn_2737->name = "anon"; -fn_2737->arityCount = 1; -fn_2737->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2737); +Function *fn_2730 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2730->type = 3; +fn_2730->name = "anon"; +fn_2730->arityCount = 1; +fn_2730->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2730); return (rslt4); }; // --------- anon -------------- -Function fn_2743; -Value *arityImpl_2744(List *closures, Value *arg0) { +Function fn_2736; +Value *arityImpl_2737(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -33976,41 +33910,41 @@ Value *rslt3 = protoFnImpl_100((List *)var_31, val0, rslt2); return (rslt3); }; -Value *arityImpl_2734(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_2727(List *closures, Value *arg0, Value *arg1) { Value *rslt0 = arityImpl_524((List *)var_31, arg1, (Value *)&_num_1, var_31); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2736; +arity_1->fn = arityImpl_2729; arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); -Function *fn_2735 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2735->type = 3; -fn_2735->name = "anon"; -fn_2735->arityCount = 1; -fn_2735->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_232((List *)var_31, rslt0, (Value *)fn_2735); +Function *fn_2728 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2728->type = 3; +fn_2728->name = "anon"; +fn_2728->arityCount = 1; +fn_2728->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_232((List *)var_31, rslt0, (Value *)fn_2728); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2744; +arity_3->fn = arityImpl_2737; arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); -Function *fn_2743 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2743->type = 3; -fn_2743->name = "anon"; -fn_2743->arityCount = 1; -fn_2743->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2743); +Function *fn_2736 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2736->type = 3; +fn_2736->name = "anon"; +fn_2736->arityCount = 1; +fn_2736->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2736); return (rslt4); }; // --------- emit-extension main body -------------- -Function fn_2733 = {3, "emit-extension", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2734}}}; -ProtoImpls *protoImpls_2746; -Value *protoFnImpl_2749(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2746); +Function fn_2726 = {3, "emit-extension", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2727}}}; +ProtoImpls *protoImpls_2739; +Value *protoFnImpl_2742(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2739); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.type' %lld\n", arg0->type); abort(); @@ -34023,12 +33957,12 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_2750 = {1, (List *)0, 0, protoFnImpl_2749}; -Function protoFn_2747 = {3, ".type", 1, {&protoFnArity_2750}}; +FnArity protoFnArity_2743 = {1, (List *)0, 0, protoFnImpl_2742}; +Function protoFn_2740 = {3, ".type", 1, {&protoFnArity_2743}}; -ProtoImpls *protoImpls_2751; -Value *protoFnImpl_2754(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2751); +ProtoImpls *protoImpls_2744; +Value *protoFnImpl_2747(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2744); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.impls' %lld\n", arg0->type); abort(); @@ -34041,43 +33975,43 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_2755 = {1, (List *)0, 0, protoFnImpl_2754}; -Function protoFn_2752 = {3, ".impls", 1, {&protoFnArity_2755}}; +FnArity protoFnArity_2748 = {1, (List *)0, 0, protoFnImpl_2747}; +Function protoFn_2745 = {3, ".impls", 1, {&protoFnArity_2748}}; -Number _num_48 = {2, -1, 78}; -SymKey _kw_68 = {5, -1, ":types"}; +Number _num_48 = {2, -1, 77}; +SymKey _kw_66 = {5, -1, ":types"}; // --------- instance?_impl -------------- -Function fn_2756; -Value *arityImpl_2757(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1892((List *)var_31, arg1); +Function fn_2749; +Value *arityImpl_2750(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1882((List *)var_31, arg1); Value *rslt1 = arityImpl_283((List *)var_31, (Value *)&_num_48, rslt0); return (rslt1); }; // --------- instance?_impl main body -------------- -Function fn_2756 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2757}}}; -Value *protoImpl_2758(List *closures, Value *arg0, Value *arg1) { +Function fn_2749 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2750}}}; +Value *protoImpl_2751(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2759 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2758}}}; +Function protoFn_2752 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2751}}}; // --------- invoke_impl -------------- -Function fn_2760; +Function fn_2753; // --------- emit-c_impl -------------- -Function fn_2762; +Function fn_2755; // --------- anon -------------- -Function fn_2764; +Function fn_2757; // --------- anon -------------- -Function fn_2766; -Value *arityImpl_2767(List *closures, Value *arg0) { +Function fn_2759; +Value *arityImpl_2760(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -34086,7 +34020,7 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_2765(List *closures, Value *arg0) { +Value *arityImpl_2758(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -34102,25 +34036,25 @@ varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; varArgs2 = (List *)listCons((Value *)arg0, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&fn_2733, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&fn_2726, varArgs2); Value *rslt3 = arityImpl_389((List *)var_31, (Value *)varArgs2); Value *rslt4 = protoFnImpl_232((List *)var_31, rslt1, rslt3); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_2767; +arity_5->fn = arityImpl_2760; arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); -Function *fn_2766 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2766->type = 3; -fn_2766->name = "anon"; -fn_2766->arityCount = 1; -fn_2766->arities[0] = arity_5; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_2766); +Function *fn_2759 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2759->type = 3; +fn_2759->name = "anon"; +fn_2759->arityCount = 1; +fn_2759->arities[0] = arity_5; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_2759); return (rslt7); }; -Value *arityImpl_2763(List *closures, Value *arg0) { +Value *arityImpl_2756(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -34135,36 +34069,36 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_kw_68, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_kw_66, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1014((List *)var_31, rslt2); +Value *rslt3 = arityImpl_1004((List *)var_31, rslt2); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_2765; +arity_4->fn = arityImpl_2758; arity_4->closures = listCons((Value *)rslt3, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val5, (List *)arity_4->closures); -Function *fn_2764 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2764->type = 3; -fn_2764->name = "anon"; -fn_2764->arityCount = 1; -fn_2764->arities[0] = arity_4; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2764); +Function *fn_2757 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2757->type = 3; +fn_2757->name = "anon"; +fn_2757->arityCount = 1; +fn_2757->arities[0] = arity_4; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2757); return (rslt6); }; -Value *protoImpl_2768(List *closures, Value *arg0) { +Value *protoImpl_2761(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2769 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2768}}}; +Function protoFn_2762 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2761}}}; // --------- .type_impl -------------- -Function fn_2770; -Value *arityImpl_2771(List *closures, Value *arg0) { +Function fn_2763; +Value *arityImpl_2764(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -34172,17 +34106,17 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2772(List *closures, Value *arg0) { +Value *protoImpl_2765(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2773 = {3, ".type", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2772}}}; +Function protoFn_2766 = {3, ".type", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2765}}}; // --------- .impls_impl -------------- -Function fn_2774; -Value *arityImpl_2775(List *closures, Value *arg0) { +Function fn_2767; +Value *arityImpl_2768(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -34190,179 +34124,179 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2776(List *closures, Value *arg0) { +Value *protoImpl_2769(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2777 = {3, ".impls", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2776}}}; +Function protoFn_2770 = {3, ".impls", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2769}}}; -Value *arityImpl_2761(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Value *arityImpl_2754(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_2763; +arity_0->fn = arityImpl_2756; arity_0->closures = listCons((Value *)arg2, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_2762 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2762->type = 3; -fn_2762->name = "emit-c_impl"; -fn_2762->arityCount = 1; -fn_2762->arities[0] = arity_0; +Function *fn_2755 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2755->type = 3; +fn_2755->name = "emit-c_impl"; +fn_2755->arityCount = 1; +fn_2755->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2771; +arity_1->fn = arityImpl_2764; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_2770 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2770->type = 3; -fn_2770->name = ".type_impl"; -fn_2770->arityCount = 1; -fn_2770->arities[0] = arity_1; +Function *fn_2763 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2763->type = 3; +fn_2763->name = ".type_impl"; +fn_2763->arityCount = 1; +fn_2763->arities[0] = arity_1; FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2775; +arity_2->fn = arityImpl_2768; arity_2->closures = listCons((Value *)arg2, (List *)arity_2->closures); -Function *fn_2774 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2774->type = 3; -fn_2774->name = ".impls_impl"; -fn_2774->arityCount = 1; -fn_2774->arities[0] = arity_2; +Function *fn_2767 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2767->type = 3; +fn_2767->name = ".impls_impl"; +fn_2767->arityCount = 1; +fn_2767->arities[0] = arity_2; ReifiedVal *reified_3 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 3); -reified_3->type = 78; +reified_3->type = 77; reified_3->implCount = 3; -reified_3->impls[0] = (Value *)fn_2762; -reified_3->impls[1] = (Value *)fn_2770; -reified_3->impls[2] = (Value *)fn_2774; +reified_3->impls[0] = (Value *)fn_2755; +reified_3->impls[1] = (Value *)fn_2763; +reified_3->impls[2] = (Value *)fn_2767; return ((Value *)reified_3); }; // --------- invoke_impl main body -------------- -Function fn_2760 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2761}}}; -Value *protoImpl_2778(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Function fn_2753 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2754}}}; +Value *protoImpl_2771(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType3 *)arityPtr->fn)(arityPtr->closures, arg0, arg1, arg2)); }; -Function protoFn_2779 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2778}}}; +Function protoFn_2772 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2771}}}; -ReifiedVal reified_2780 = {77, 2, {(Value *)&fn_2756, (Value *)&fn_2760}}; -Value *var_1505 = (Value *)&reified_2780; +ReifiedVal reified_2773 = {76, 2, {(Value *)&fn_2749, (Value *)&fn_2753}}; +Value *var_1495 = (Value *)&reified_2773; struct {int64_t type; int64_t len; - char buffer[11];} _str_205 = {1,10,"protoImpl_"}; + char buffer[11];} _str_204 = {1,10,"protoImpl_"}; struct {int64_t type; int64_t len; - char buffer[9];} _str_206 = {1,8,"protoFn_"}; + char buffer[9];} _str_205 = {1,8,"protoFn_"}; struct {int64_t type; int64_t len; - char buffer[29];} _str_207 = {1,28,"invalid protocol fn spec for"}; + char buffer[29];} _str_206 = {1,28,"invalid protocol fn spec for"}; struct {int64_t type; int64_t len; - char buffer[53];} _str_208 = {1,52,"arityPtr = ((Function *)((ReifiedVal *)arg0)->impls["}; + char buffer[53];} _str_207 = {1,52,"arityPtr = ((Function *)((ReifiedVal *)arg0)->impls["}; struct {int64_t type; int64_t len; - char buffer[18];} _str_209 = {1,17,"])->arities[0];\n"}; + char buffer[18];} _str_208 = {1,17,"])->arities[0];\n"}; struct {int64_t type; int64_t len; - char buffer[17];} _str_210 = {1,16,"return (((FnType"}; + char buffer[17];} _str_209 = {1,16,"return (((FnType"}; struct {int64_t type; int64_t len; - char buffer[28];} _str_211 = {1,27," *)arityPtr->fn)(arityPtr->"}; + char buffer[28];} _str_210 = {1,27," *)arityPtr->fn)(arityPtr->"}; struct {int64_t type; int64_t len; - char buffer[12];} _str_212 = {1,11,"));\n};\n\n"}; + char buffer[12];} _str_211 = {1,11,"));\n};\n\n"}; struct {int64_t type; int64_t len; - char buffer[10];} _str_213 = {1,9," = {3, \""}; + char buffer[10];} _str_212 = {1,9," = {3, \""}; struct {int64_t type; int64_t len; - char buffer[20];} _str_214 = {1,19,"\", 1, {&(FnArity){"}; + char buffer[20];} _str_213 = {1,19,"\", 1, {&(FnArity){"}; struct {int64_t type; int64_t len; - char buffer[17];} _str_215 = {1,16,", (List *)0, 0, "}; + char buffer[17];} _str_214 = {1,16,", (List *)0, 0, "}; struct {int64_t type; int64_t len; - char buffer[9];} _str_216 = {1,8,"}}};\n\n"}; -SymKey _kw_69 = {5, -1, ":no-name-ast"}; -SymKey _kw_70 = {5, -1, ":no-ast"}; -SymKey _kw_71 = {5, -1, ":nothing"}; + char buffer[9];} _str_215 = {1,8,"}}};\n\n"}; +SymKey _kw_67 = {5, -1, ":no-name-ast"}; +SymKey _kw_68 = {5, -1, ":no-ast"}; +SymKey _kw_69 = {5, -1, ":nothing"}; // --------- emit-reified-fn -------------- -Function fn_2781; +Function fn_2774; // --------- anon -------------- -Function fn_2783; -Value *arityImpl_2784(List *closures, Value *arg0) { -Value *rslt0 = protoFnImpl_740((List *)var_31, arg0, (Value *)&fn_312); -Value *rslt1 = protoFnImpl_878((List *)var_31, rslt0); +Function fn_2776; +Value *arityImpl_2777(List *closures, Value *arg0) { +Value *rslt0 = protoFnImpl_730((List *)var_31, arg0, (Value *)&fn_312); +Value *rslt1 = protoFnImpl_868((List *)var_31, rslt0); Value *rslt2 = protoFnImpl_195((List *)var_31, rslt1); return (rslt2); }; // --------- anon main body -------------- -Function fn_2783 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2784}}}; +Function fn_2776 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2777}}}; // --------- anon -------------- -Function fn_2785; +Function fn_2778; // --------- anon -------------- -Function fn_2787; +Function fn_2780; // --------- anon -------------- -Function fn_2789; +Function fn_2782; // --------- anon -------------- -Function fn_2791; -Value *arityImpl_2792(List *closures, Value *arg0) { +Function fn_2784; +Value *arityImpl_2785(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_str_122, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_121, varArgs0); Value *rslt1 = arityImpl_508((List *)var_31, (Value *)varArgs0); return (rslt1); }; // --------- anon main body -------------- -Function fn_2791 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2792}}}; +Function fn_2784 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2785}}}; // --------- anon -------------- -Function fn_2793; -Value *arityImpl_2794(List *closures, Value *arg0) { +Function fn_2786; +Value *arityImpl_2787(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_str_84, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_83, varArgs0); Value *rslt1 = arityImpl_508((List *)var_31, (Value *)varArgs0); return (rslt1); }; // --------- anon main body -------------- -Function fn_2793 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2794}}}; +Function fn_2786 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2787}}}; // --------- anon -------------- -Function fn_2795; +Function fn_2788; // --------- anon -------------- -Function fn_2797; +Function fn_2790; // --------- anon -------------- -Function fn_2799; -Value *arityImpl_2800(List *closures, Value *arg0) { +Function fn_2792; +Value *arityImpl_2793(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -34375,7 +34309,7 @@ Value *rslt2 = protoFnImpl_100((List *)var_31, val0, val1); return (rslt2); }; -Value *arityImpl_2798(List *closures, Value *arg0) { +Value *arityImpl_2791(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -34402,9 +34336,9 @@ varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; varArgs2 = (List *)listCons((Value *)val1, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_kw_67, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_kw_65, varArgs2); varArgs2 = (List *)listCons((Value *)val0, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_kw_66, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_kw_64, varArgs2); Value *rslt3 = arityImpl_119((List *)var_31, (Value *)varArgs2); List *varArgs5 = (List *)GC_malloc(sizeof(List)); varArgs5->type = ListType; @@ -34412,26 +34346,26 @@ varArgs5->len = 0; varArgs5->head = (Value *)0; varArgs5->tail = (List *)0; varArgs5 = (List *)listCons((Value *)val4, varArgs5); -varArgs5 = (List *)listCons((Value *)(Value *)&_str_104, varArgs5); +varArgs5 = (List *)listCons((Value *)(Value *)&_str_103, varArgs5); Value *rslt6 = arityImpl_508((List *)var_31, (Value *)varArgs5); -Value *rslt7 = arityImpl_1022((List *)var_31, rslt3, rslt6); +Value *rslt7 = arityImpl_1012((List *)var_31, rslt3, rslt6); FnArity *arity_8 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_8->count = 1; arity_8->closures = empty_list; arity_8->variadic = 0; -arity_8->fn = arityImpl_2800; +arity_8->fn = arityImpl_2793; arity_8->closures = listCons((Value *)val9, (List *)arity_8->closures); arity_8->closures = listCons((Value *)val10, (List *)arity_8->closures); -Function *fn_2799 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2799->type = 3; -fn_2799->name = "anon"; -fn_2799->arityCount = 1; -fn_2799->arities[0] = arity_8; -Value *rslt11 = protoFnImpl_78((List *)var_31, rslt7, (Value *)fn_2799); +Function *fn_2792 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2792->type = 3; +fn_2792->name = "anon"; +fn_2792->arityCount = 1; +fn_2792->arities[0] = arity_8; +Value *rslt11 = protoFnImpl_78((List *)var_31, rslt7, (Value *)fn_2792); return (rslt11); }; -Value *arityImpl_2796(List *closures, Value *arg0) { +Value *arityImpl_2789(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -34465,37 +34399,37 @@ varArgs4->type = ListType; varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; -varArgs4 = (List *)listCons((Value *)(Value *)&_str_216, varArgs4); -varArgs4 = (List *)listCons((Value *)val3, varArgs4); varArgs4 = (List *)listCons((Value *)(Value *)&_str_215, varArgs4); -varArgs4 = (List *)listCons((Value *)val2, varArgs4); +varArgs4 = (List *)listCons((Value *)val3, varArgs4); varArgs4 = (List *)listCons((Value *)(Value *)&_str_214, varArgs4); -varArgs4 = (List *)listCons((Value *)val1, varArgs4); +varArgs4 = (List *)listCons((Value *)val2, varArgs4); varArgs4 = (List *)listCons((Value *)(Value *)&_str_213, varArgs4); +varArgs4 = (List *)listCons((Value *)val1, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_212, varArgs4); varArgs4 = (List *)listCons((Value *)val0, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&_str_179, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_178, varArgs4); Value *rslt5 = arityImpl_508((List *)var_31, (Value *)varArgs4); -Value *rslt6 = arityImpl_1944((List *)var_31, rslt5); +Value *rslt6 = arityImpl_1937((List *)var_31, rslt5); FnArity *arity_7 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_7->count = 1; arity_7->closures = empty_list; arity_7->variadic = 0; -arity_7->fn = arityImpl_2798; +arity_7->fn = arityImpl_2791; arity_7->closures = listCons((Value *)val8, (List *)arity_7->closures); arity_7->closures = listCons((Value *)val9, (List *)arity_7->closures); arity_7->closures = listCons((Value *)val0, (List *)arity_7->closures); arity_7->closures = listCons((Value *)val10, (List *)arity_7->closures); arity_7->closures = listCons((Value *)val1, (List *)arity_7->closures); -Function *fn_2797 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2797->type = 3; -fn_2797->name = "anon"; -fn_2797->arityCount = 1; -fn_2797->arities[0] = arity_7; -Value *rslt11 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_2797); +Function *fn_2790 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2790->type = 3; +fn_2790->name = "anon"; +fn_2790->arityCount = 1; +fn_2790->arities[0] = arity_7; +Value *rslt11 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_2790); return (rslt11); }; -Value *arityImpl_2790(List *closures, Value *arg0) { +Value *arityImpl_2783(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -34534,25 +34468,25 @@ varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; varArgs4 = (List *)listCons((Value *)val3, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&_str_207, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_206, varArgs4); Value *rslt5 = arityImpl_163((List *)var_31, (Value *)varArgs4); -Value *rslt6 = arityImpl_1890((List *)var_31); +Value *rslt6 = arityImpl_1880((List *)var_31); cond0 = rslt6; } else { -cond0 = (Value *)&_kw_71; +cond0 = (Value *)&_kw_69; } -Value *rslt7 = arityImpl_674((List *)var_31, val1); -Value *rslt9 = protoFnImpl_125((List *)var_31, rslt7, (Value *)&fn_2791); +Value *rslt7 = arityImpl_664((List *)var_31, val1); +Value *rslt9 = protoFnImpl_125((List *)var_31, rslt7, (Value *)&fn_2784); List *varArgs10 = (List *)GC_malloc(sizeof(List)); varArgs10->type = ListType; varArgs10->len = 0; varArgs10->head = (Value *)0; varArgs10->tail = (List *)0; -varArgs10 = (List *)listCons((Value *)(Value *)&_str_123, varArgs10); -varArgs10 = (List *)listCons((Value *)(Value *)&_str_93, varArgs10); +varArgs10 = (List *)listCons((Value *)(Value *)&_str_122, varArgs10); +varArgs10 = (List *)listCons((Value *)(Value *)&_str_92, varArgs10); Value *rslt11 = arityImpl_508((List *)var_31, (Value *)varArgs10); -Value *rslt13 = protoFnImpl_125((List *)var_31, rslt9, (Value *)&fn_2793); -Value *rslt14 = arityImpl_1912((List *)var_31, rslt11, rslt13); +Value *rslt13 = protoFnImpl_125((List *)var_31, rslt9, (Value *)&fn_2786); +Value *rslt14 = arityImpl_1905((List *)var_31, rslt11, rslt13); Value *rslt15 = arityImpl_149((List *)var_31, rslt14, (Value *)&_str_17); List *varArgs16 = (List *)GC_malloc(sizeof(List)); varArgs16->type = ListType; @@ -34562,7 +34496,7 @@ varArgs16->tail = (List *)0; varArgs16 = (List *)listCons((Value *)rslt15, varArgs16); varArgs16 = (List *)listCons((Value *)(Value *)&fn_507, varArgs16); Value *rslt17 = arityImpl_113((List *)var_31, (Value *)varArgs16); -Value *rslt18 = arityImpl_1912((List *)var_31, (Value *)&_str_123, rslt9); +Value *rslt18 = arityImpl_1905((List *)var_31, (Value *)&_str_122, rslt9); Value *rslt19 = arityImpl_149((List *)var_31, rslt18, (Value *)&_str_17); List *varArgs20 = (List *)GC_malloc(sizeof(List)); varArgs20->type = ListType; @@ -34577,27 +34511,27 @@ varArgs24->type = ListType; varArgs24->len = 0; varArgs24->head = (Value *)0; varArgs24->tail = (List *)0; -varArgs24 = (List *)listCons((Value *)(Value *)&_str_212, varArgs24); -varArgs24 = (List *)listCons((Value *)rslt21, varArgs24); varArgs24 = (List *)listCons((Value *)(Value *)&_str_211, varArgs24); -varArgs24 = (List *)listCons((Value *)val1, varArgs24); +varArgs24 = (List *)listCons((Value *)rslt21, varArgs24); varArgs24 = (List *)listCons((Value *)(Value *)&_str_210, varArgs24); +varArgs24 = (List *)listCons((Value *)val1, varArgs24); varArgs24 = (List *)listCons((Value *)(Value *)&_str_209, varArgs24); -varArgs24 = (List *)listCons((Value *)val23, varArgs24); varArgs24 = (List *)listCons((Value *)(Value *)&_str_208, varArgs24); -varArgs24 = (List *)listCons((Value *)(Value *)&_str_95, varArgs24); -varArgs24 = (List *)listCons((Value *)(Value *)&_str_135, varArgs24); +varArgs24 = (List *)listCons((Value *)val23, varArgs24); +varArgs24 = (List *)listCons((Value *)(Value *)&_str_207, varArgs24); +varArgs24 = (List *)listCons((Value *)(Value *)&_str_94, varArgs24); +varArgs24 = (List *)listCons((Value *)(Value *)&_str_134, varArgs24); varArgs24 = (List *)listCons((Value *)rslt17, varArgs24); varArgs24 = (List *)listCons((Value *)(Value *)&_str_16, varArgs24); varArgs24 = (List *)listCons((Value *)val22, varArgs24); -varArgs24 = (List *)listCons((Value *)(Value *)&_str_84, varArgs24); +varArgs24 = (List *)listCons((Value *)(Value *)&_str_83, varArgs24); Value *rslt25 = arityImpl_508((List *)var_31, (Value *)varArgs24); -Value *rslt26 = arityImpl_1944((List *)var_31, rslt25); +Value *rslt26 = arityImpl_1937((List *)var_31, rslt25); FnArity *arity_27 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_27->count = 1; arity_27->closures = empty_list; arity_27->variadic = 0; -arity_27->fn = arityImpl_2796; +arity_27->fn = arityImpl_2789; arity_27->closures = listCons((Value *)val28, (List *)arity_27->closures); arity_27->closures = listCons((Value *)val29, (List *)arity_27->closures); arity_27->closures = listCons((Value *)val30, (List *)arity_27->closures); @@ -34605,16 +34539,16 @@ arity_27->closures = listCons((Value *)val22, (List *)arity_27->closures); arity_27->closures = listCons((Value *)val1, (List *)arity_27->closures); arity_27->closures = listCons((Value *)val3, (List *)arity_27->closures); arity_27->closures = listCons((Value *)arg0, (List *)arity_27->closures); -Function *fn_2795 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2795->type = 3; -fn_2795->name = "anon"; -fn_2795->arityCount = 1; -fn_2795->arities[0] = arity_27; -Value *rslt31 = protoFnImpl_78((List *)var_31, rslt26, (Value *)fn_2795); +Function *fn_2788 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2788->type = 3; +fn_2788->name = "anon"; +fn_2788->arityCount = 1; +fn_2788->arities[0] = arity_27; +Value *rslt31 = protoFnImpl_78((List *)var_31, rslt26, (Value *)fn_2788); return (rslt31); }; -Value *arityImpl_2788(List *closures, Value *arg0) { +Value *arityImpl_2781(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -34639,12 +34573,12 @@ Value *val7 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_206); +Value *rslt0 = arityImpl_1947((List *)var_31, (Value *)&_str_205); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2790; +arity_1->fn = arityImpl_2783; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); @@ -34652,16 +34586,16 @@ arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val6, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val7, (List *)arity_1->closures); -Function *fn_2789 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2789->type = 3; -fn_2789->name = "anon"; -fn_2789->arityCount = 1; -fn_2789->arities[0] = arity_1; -Value *rslt8 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2789); +Function *fn_2782 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2782->type = 3; +fn_2782->name = "anon"; +fn_2782->arityCount = 1; +fn_2782->arities[0] = arity_1; +Value *rslt8 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2782); return (rslt8); }; -Value *arityImpl_2786(List *closures, Value *arg0) { +Value *arityImpl_2779(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -34682,108 +34616,108 @@ Value *val6 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_205); +Value *rslt0 = arityImpl_1947((List *)var_31, (Value *)&_str_204); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2788; +arity_1->fn = arityImpl_2781; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val6, (List *)arity_1->closures); -Function *fn_2787 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2787->type = 3; -fn_2787->name = "anon"; -fn_2787->arityCount = 1; -fn_2787->arities[0] = arity_1; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2787); +Function *fn_2780 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2780->type = 3; +fn_2780->name = "anon"; +fn_2780->arityCount = 1; +fn_2780->arities[0] = arity_1; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2780); return (rslt7); }; -Value *arityImpl_2782(List *closures, Value *arg0, Value *arg1, Value *arg2) { -Value *rslt0 = arityImpl_524((List *)var_31, arg0, arg2, (Value *)&_kw_69); +Value *arityImpl_2775(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Value *rslt0 = arityImpl_524((List *)var_31, arg0, arg2, (Value *)&_kw_67); Value *rslt1 = arityImpl_524((List *)var_31, rslt0, (Value *)&_num_8, (Value *)&_str_19); -Value *rslt2 = arityImpl_524((List *)var_31, rslt0, (Value *)&_num_1, (Value *)&_kw_70); -Value *rslt3 = protoFnImpl_740((List *)var_31, rslt2, (Value *)&fn_312); -Value *rslt4 = protoFnImpl_2549((List *)var_31, rslt3); -Value *rslt6 = protoFnImpl_125((List *)var_31, rslt4, (Value *)&fn_2783); +Value *rslt2 = arityImpl_524((List *)var_31, rslt0, (Value *)&_num_1, (Value *)&_kw_68); +Value *rslt3 = protoFnImpl_730((List *)var_31, rslt2, (Value *)&fn_312); +Value *rslt4 = protoFnImpl_2542((List *)var_31, rslt3); +Value *rslt6 = protoFnImpl_125((List *)var_31, rslt4, (Value *)&fn_2776); Value *rslt7 = protoFnImpl_219((List *)var_31, rslt6); -Value *rslt8 = protoFnImpl_740((List *)var_31, rslt2, (Value *)&protoFn_1968); +Value *rslt8 = protoFnImpl_730((List *)var_31, rslt2, (Value *)&protoFn_1961); FnArity *arity_9 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_9->count = 1; arity_9->closures = empty_list; arity_9->variadic = 0; -arity_9->fn = arityImpl_2786; +arity_9->fn = arityImpl_2779; arity_9->closures = listCons((Value *)rslt8, (List *)arity_9->closures); arity_9->closures = listCons((Value *)arg1, (List *)arity_9->closures); arity_9->closures = listCons((Value *)arg2, (List *)arity_9->closures); arity_9->closures = listCons((Value *)rslt1, (List *)arity_9->closures); arity_9->closures = listCons((Value *)rslt7, (List *)arity_9->closures); -Function *fn_2785 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2785->type = 3; -fn_2785->name = "anon"; -fn_2785->arityCount = 1; -fn_2785->arities[0] = arity_9; -Value *rslt10 = protoFnImpl_78((List *)var_31, rslt8, (Value *)fn_2785); +Function *fn_2778 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2778->type = 3; +fn_2778->name = "anon"; +fn_2778->arityCount = 1; +fn_2778->arities[0] = arity_9; +Value *rslt10 = protoFnImpl_78((List *)var_31, rslt8, (Value *)fn_2778); return (rslt10); }; // --------- emit-reified-fn main body -------------- -Function fn_2781 = {3, "emit-reified-fn", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2782}}}; +Function fn_2774 = {3, "emit-reified-fn", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2775}}}; struct {int64_t type; int64_t len; - char buffer[9];} _str_217 = {1,8,"reified_"}; + char buffer[9];} _str_216 = {1,8,"reified_"}; struct {int64_t type; int64_t len; - char buffer[35];} _str_218 = {1,34," = (ReifiedVal *)GC_malloc(sizeof("}; + char buffer[35];} _str_217 = {1,34," = (ReifiedVal *)GC_malloc(sizeof("}; struct {int64_t type; int64_t len; - char buffer[36];} _str_219 = {1,35,"ReifiedVal) + sizeof(Function *) * "}; + char buffer[36];} _str_218 = {1,35,"ReifiedVal) + sizeof(Function *) * "}; struct {int64_t type; int64_t len; - char buffer[15];} _str_220 = {1,14,"->implCount = "}; + char buffer[15];} _str_219 = {1,14,"->implCount = "}; struct {int64_t type; int64_t len; - char buffer[9];} _str_221 = {1,8,"->impls["}; + char buffer[9];} _str_220 = {1,8,"->impls["}; // --------- reified-type -------------- -Function fn_2802; +Function fn_2795; // --------- anon -------------- -Function fn_2804; +Function fn_2797; // --------- anon -------------- -Function fn_2806; +Function fn_2799; // --------- anon -------------- -Function fn_2808; -Value *arityImpl_2809(List *closures, Value *arg0) { +Function fn_2801; +Value *arityImpl_2802(List *closures, Value *arg0) { Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, var_31); return (rslt0); }; // --------- anon main body -------------- -Function fn_2808 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2809}}}; +Function fn_2801 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2802}}}; // --------- anon -------------- -Function fn_2810; -Value *arityImpl_2811(List *closures, Value *arg0) { +Function fn_2803; +Value *arityImpl_2804(List *closures, Value *arg0) { Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_8, (Value *)&_str_19); return (rslt0); }; // --------- anon main body -------------- -Function fn_2810 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2811}}}; +Function fn_2803 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2804}}}; // --------- anon -------------- -Function fn_2812; -Value *arityImpl_2813(List *closures, Value *arg0) { +Function fn_2805; +Value *arityImpl_2806(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -34799,17 +34733,17 @@ varArgs4->type = ListType; varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; -varArgs4 = (List *)listCons((Value *)(Value *)&_str_117, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_116, varArgs4); varArgs4 = (List *)listCons((Value *)rslt2, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&_str_193, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_192, varArgs4); varArgs4 = (List *)listCons((Value *)arg0, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&_str_221, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_220, varArgs4); varArgs4 = (List *)listCons((Value *)val3, varArgs4); Value *rslt5 = arityImpl_508((List *)var_31, (Value *)varArgs4); return (rslt5); }; -Value *arityImpl_2807(List *closures, Value *arg0) { +Value *arityImpl_2800(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -34826,29 +34760,29 @@ Value *val10 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt3 = protoFnImpl_237((List *)var_31, val1, (Value *)&fn_2808); -Value *rslt5 = protoFnImpl_125((List *)var_31, val1, (Value *)&fn_2810); +Value *rslt3 = protoFnImpl_237((List *)var_31, val1, (Value *)&fn_2801); +Value *rslt5 = protoFnImpl_125((List *)var_31, val1, (Value *)&fn_2803); Value *rslt7 = protoFnImpl_195((List *)var_31, rslt5); List *varArgs8 = (List *)GC_malloc(sizeof(List)); varArgs8->type = ListType; varArgs8->len = 0; varArgs8->head = (Value *)0; varArgs8->tail = (List *)0; -varArgs8 = (List *)listCons((Value *)(Value *)&_str_109, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_str_108, varArgs8); varArgs8 = (List *)listCons((Value *)rslt7, varArgs8); -varArgs8 = (List *)listCons((Value *)(Value *)&_str_219, varArgs8); varArgs8 = (List *)listCons((Value *)(Value *)&_str_218, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_str_217, varArgs8); varArgs8 = (List *)listCons((Value *)val6, varArgs8); -varArgs8 = (List *)listCons((Value *)(Value *)&_str_100, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_str_99, varArgs8); Value *rslt9 = arityImpl_508((List *)var_31, (Value *)varArgs8); List *varArgs11 = (List *)GC_malloc(sizeof(List)); varArgs11->type = ListType; varArgs11->len = 0; varArgs11->head = (Value *)0; varArgs11->tail = (List *)0; -varArgs11 = (List *)listCons((Value *)(Value *)&_str_117, varArgs11); +varArgs11 = (List *)listCons((Value *)(Value *)&_str_116, varArgs11); varArgs11 = (List *)listCons((Value *)val10, varArgs11); -varArgs11 = (List *)listCons((Value *)(Value *)&_str_188, varArgs11); +varArgs11 = (List *)listCons((Value *)(Value *)&_str_187, varArgs11); varArgs11 = (List *)listCons((Value *)val6, varArgs11); Value *rslt12 = arityImpl_508((List *)var_31, (Value *)varArgs11); Value *rslt13 = protoFnImpl_195((List *)var_31, val1); @@ -34857,26 +34791,26 @@ varArgs14->type = ListType; varArgs14->len = 0; varArgs14->head = (Value *)0; varArgs14->tail = (List *)0; -varArgs14 = (List *)listCons((Value *)(Value *)&_str_117, varArgs14); +varArgs14 = (List *)listCons((Value *)(Value *)&_str_116, varArgs14); varArgs14 = (List *)listCons((Value *)rslt13, varArgs14); -varArgs14 = (List *)listCons((Value *)(Value *)&_str_220, varArgs14); +varArgs14 = (List *)listCons((Value *)(Value *)&_str_219, varArgs14); varArgs14 = (List *)listCons((Value *)val6, varArgs14); Value *rslt15 = arityImpl_508((List *)var_31, (Value *)varArgs14); Value *rslt16 = protoFnImpl_195((List *)var_31, val1); -Value *rslt17 = arityImpl_674((List *)var_31, rslt16); +Value *rslt17 = arityImpl_664((List *)var_31, rslt16); FnArity *arity_18 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_18->count = 1; arity_18->closures = empty_list; arity_18->variadic = 0; -arity_18->fn = arityImpl_2813; +arity_18->fn = arityImpl_2806; arity_18->closures = listCons((Value *)val6, (List *)arity_18->closures); arity_18->closures = listCons((Value *)val1, (List *)arity_18->closures); -Function *fn_2812 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2812->type = 3; -fn_2812->name = "anon"; -fn_2812->arityCount = 1; -fn_2812->arities[0] = arity_18; -Value *rslt19 = protoFnImpl_125((List *)var_31, rslt17, (Value *)fn_2812); +Function *fn_2805 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2805->type = 3; +fn_2805->name = "anon"; +fn_2805->arityCount = 1; +fn_2805->arities[0] = arity_18; +Value *rslt19 = protoFnImpl_125((List *)var_31, rslt17, (Value *)fn_2805); List *varArgs20 = (List *)GC_malloc(sizeof(List)); varArgs20->type = ListType; varArgs20->len = 0; @@ -34893,7 +34827,7 @@ varArgs22->len = 0; varArgs22->head = (Value *)0; varArgs22->tail = (List *)0; varArgs22 = (List *)listCons((Value *)val6, varArgs22); -varArgs22 = (List *)listCons((Value *)(Value *)&_str_174, varArgs22); +varArgs22 = (List *)listCons((Value *)(Value *)&_str_173, varArgs22); Value *rslt23 = arityImpl_508((List *)var_31, (Value *)varArgs22); List *varArgs24 = (List *)GC_malloc(sizeof(List)); varArgs24->type = ListType; @@ -34915,7 +34849,7 @@ Value *rslt28 = protoFnImpl_100((List *)var_31, val0, rslt27); return (rslt28); }; -Value *arityImpl_2805(List *closures, Value *arg0) { +Value *arityImpl_2798(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -34928,74 +34862,74 @@ Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_985((List *)var_31, (Value *)&_str_19); +Value *rslt0 = arityImpl_975((List *)var_31, (Value *)&_str_19); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2807; +arity_1->fn = arityImpl_2800; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); -Function *fn_2806 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2806->type = 3; -fn_2806->name = "anon"; -fn_2806->arityCount = 1; -fn_2806->arities[0] = arity_1; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2806); +Function *fn_2799 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2799->type = 3; +fn_2799->name = "anon"; +fn_2799->arityCount = 1; +fn_2799->arities[0] = arity_1; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2799); return (rslt5); }; -Value *arityImpl_2803(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1961((List *)var_31, (Value *)&_str_217); +Value *arityImpl_2796(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_216); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2805; +arity_1->fn = arityImpl_2798; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); -Function *fn_2804 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2804->type = 3; -fn_2804->name = "anon"; -fn_2804->arityCount = 1; -fn_2804->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2804); +Function *fn_2797 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2797->type = 3; +fn_2797->name = "anon"; +fn_2797->arityCount = 1; +fn_2797->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2797); return (rslt2); }; // --------- reified-type main body -------------- -Function fn_2802 = {3, "reified-type", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2803}}}; +Function fn_2795 = {3, "reified-type", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2796}}}; struct {int64_t type; int64_t len; - char buffer[12];} _str_222 = {1,11,"ReifiedVal "}; + char buffer[12];} _str_221 = {1,11,"ReifiedVal "}; struct {int64_t type; int64_t len; - char buffer[4];} _str_223 = {1,3,", {"}; + char buffer[4];} _str_222 = {1,3,", {"}; // --------- static-reified -------------- -Function fn_2815; +Function fn_2808; // --------- anon -------------- -Function fn_2817; +Function fn_2810; // --------- anon -------------- -Function fn_2819; -Value *arityImpl_2820(List *closures, Value *arg0) { +Function fn_2812; +Value *arityImpl_2813(List *closures, Value *arg0) { Value *rslt0 = protoFnImpl_219((List *)var_31, arg0); return (rslt0); }; // --------- anon main body -------------- -Function fn_2819 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2820}}}; +Function fn_2812 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2813}}}; // --------- anon -------------- -Function fn_2821; -Value *arityImpl_2822(List *closures, Value *arg0) { +Function fn_2814; +Value *arityImpl_2815(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -35010,7 +34944,7 @@ varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; varArgs2 = (List *)listCons((Value *)val1, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_104, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_103, varArgs2); Value *rslt3 = arityImpl_508((List *)var_31, (Value *)varArgs2); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; @@ -35025,7 +34959,7 @@ Value *rslt6 = protoFnImpl_100((List *)var_31, val0, rslt5); return (rslt6); }; -Value *arityImpl_2818(List *closures, Value *arg0) { +Value *arityImpl_2811(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -35038,7 +34972,7 @@ Value *val15 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt2 = protoFnImpl_125((List *)var_31, val0, (Value *)&fn_2819); +Value *rslt2 = protoFnImpl_125((List *)var_31, val0, (Value *)&fn_2812); Value *rslt4 = protoFnImpl_195((List *)var_31, val0); Value *rslt5 = arityImpl_149((List *)var_31, rslt2, (Value *)&_str_17); List *varArgs6 = (List *)GC_malloc(sizeof(List)); @@ -35054,15 +34988,15 @@ varArgs8->type = ListType; varArgs8->len = 0; varArgs8->head = (Value *)0; varArgs8->tail = (List *)0; -varArgs8 = (List *)listCons((Value *)(Value *)&_str_184, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_str_183, varArgs8); varArgs8 = (List *)listCons((Value *)rslt7, varArgs8); -varArgs8 = (List *)listCons((Value *)(Value *)&_str_223, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_str_222, varArgs8); varArgs8 = (List *)listCons((Value *)rslt4, varArgs8); varArgs8 = (List *)listCons((Value *)(Value *)&_str_17, varArgs8); varArgs8 = (List *)listCons((Value *)val3, varArgs8); -varArgs8 = (List *)listCons((Value *)(Value *)&_str_181, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_str_180, varArgs8); varArgs8 = (List *)listCons((Value *)arg0, varArgs8); -varArgs8 = (List *)listCons((Value *)(Value *)&_str_222, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_str_221, varArgs8); Value *rslt9 = arityImpl_508((List *)var_31, (Value *)varArgs8); List *varArgs10 = (List *)GC_malloc(sizeof(List)); varArgs10->type = ListType; @@ -35072,107 +35006,107 @@ varArgs10->tail = (List *)0; varArgs10 = (List *)listCons((Value *)rslt9, varArgs10); Value *rslt11 = arityImpl_119((List *)var_31, (Value *)varArgs10); Value *rslt12 = protoFnImpl_219((List *)var_31, rslt11); -Value *rslt13 = arityImpl_1944((List *)var_31, rslt12); +Value *rslt13 = arityImpl_1937((List *)var_31, rslt12); FnArity *arity_14 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_14->count = 1; arity_14->closures = empty_list; arity_14->variadic = 0; -arity_14->fn = arityImpl_2822; +arity_14->fn = arityImpl_2815; arity_14->closures = listCons((Value *)arg0, (List *)arity_14->closures); arity_14->closures = listCons((Value *)val15, (List *)arity_14->closures); -Function *fn_2821 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2821->type = 3; -fn_2821->name = "anon"; -fn_2821->arityCount = 1; -fn_2821->arities[0] = arity_14; -Value *rslt16 = protoFnImpl_78((List *)var_31, rslt13, (Value *)fn_2821); +Function *fn_2814 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2814->type = 3; +fn_2814->name = "anon"; +fn_2814->arityCount = 1; +fn_2814->arities[0] = arity_14; +Value *rslt16 = protoFnImpl_78((List *)var_31, rslt13, (Value *)fn_2814); return (rslt16); }; -Value *arityImpl_2816(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_217); +Value *arityImpl_2809(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1947((List *)var_31, (Value *)&_str_216); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2818; +arity_1->fn = arityImpl_2811; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_2817 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2817->type = 3; -fn_2817->name = "anon"; -fn_2817->arityCount = 1; -fn_2817->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2817); +Function *fn_2810 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2810->type = 3; +fn_2810->name = "anon"; +fn_2810->arityCount = 1; +fn_2810->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2810); return (rslt2); }; // --------- static-reified main body -------------- -Function fn_2815 = {3, "static-reified", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2816}}}; -Number _num_49 = {2, -1, 80}; -SymKey _kw_72 = {5, -1, ":no-impls"}; +Function fn_2808 = {3, "static-reified", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2809}}}; +Number _num_49 = {2, -1, 79}; +SymKey _kw_70 = {5, -1, ":no-impls"}; // --------- instance?_impl -------------- -Function fn_2824; -Value *arityImpl_2825(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1892((List *)var_31, arg1); +Function fn_2817; +Value *arityImpl_2818(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1882((List *)var_31, arg1); Value *rslt1 = arityImpl_283((List *)var_31, (Value *)&_num_49, rslt0); return (rslt1); }; // --------- instance?_impl main body -------------- -Function fn_2824 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2825}}}; -Value *protoImpl_2826(List *closures, Value *arg0, Value *arg1) { +Function fn_2817 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2818}}}; +Value *protoImpl_2819(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2827 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2826}}}; +Function protoFn_2820 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2819}}}; // --------- invoke_impl -------------- -Function fn_2828; +Function fn_2821; // --------- emit-c_impl -------------- -Function fn_2830; +Function fn_2823; // --------- anon -------------- -Function fn_2832; -Value *arityImpl_2833(List *closures, Value *arg0) { +Function fn_2825; +Value *arityImpl_2826(List *closures, Value *arg0) { Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, var_31); return (rslt0); }; // --------- anon main body -------------- -Function fn_2832 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2833}}}; +Function fn_2825 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2826}}}; // --------- anon -------------- -Function fn_2834; +Function fn_2827; // --------- anon -------------- -Function fn_2836; +Function fn_2829; // --------- anon -------------- -Function fn_2838; +Function fn_2831; // --------- anon -------------- -Function fn_2840; -Value *arityImpl_2841(List *closures, Value *arg0) { +Function fn_2833; +Value *arityImpl_2834(List *closures, Value *arg0) { Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, var_31); return (rslt0); }; // --------- anon main body -------------- -Function fn_2840 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2841}}}; +Function fn_2833 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2834}}}; // --------- anon -------------- -Function fn_2842; -Value *arityImpl_2843(List *closures, Value *arg0) { +Function fn_2835; +Value *arityImpl_2836(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -35181,7 +35115,7 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, arg0); return (rslt1); }; -Value *arityImpl_2839(List *closures, Value *arg0) { +Value *arityImpl_2832(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -35190,34 +35124,34 @@ Value *val9 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = protoFnImpl_237((List *)var_31, arg0, (Value *)&fn_2840); +Value *rslt1 = protoFnImpl_237((List *)var_31, arg0, (Value *)&fn_2833); Value *cond2; Value *rslt5 = protoFnImpl_195((List *)var_31, rslt1); Value *rslt6 = arityImpl_283((List *)var_31, (Value *)&_num_8, rslt5); if (isTrue(rslt6)) { -Value *rslt7 = arityImpl_2816((List *)var_31, val3, arg0); +Value *rslt7 = arityImpl_2809((List *)var_31, val3, arg0); cond2 = rslt7; } else { -Value *rslt4 = arityImpl_2803((List *)var_31, val3, arg0); +Value *rslt4 = arityImpl_2796((List *)var_31, val3, arg0); cond2 = rslt4; } FnArity *arity_8 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_8->count = 1; arity_8->closures = empty_list; arity_8->variadic = 0; -arity_8->fn = arityImpl_2843; +arity_8->fn = arityImpl_2836; arity_8->closures = listCons((Value *)val9, (List *)arity_8->closures); -Function *fn_2842 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2842->type = 3; -fn_2842->name = "anon"; -fn_2842->arityCount = 1; -fn_2842->arities[0] = arity_8; -Value *rslt10 = protoFnImpl_78((List *)var_31, cond2, (Value *)fn_2842); +Function *fn_2835 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2835->type = 3; +fn_2835->name = "anon"; +fn_2835->arityCount = 1; +fn_2835->arities[0] = arity_8; +Value *rslt10 = protoFnImpl_78((List *)var_31, cond2, (Value *)fn_2835); return (rslt10); }; -Value *arityImpl_2837(List *closures, Value *arg0) { +Value *arityImpl_2830(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -35231,7 +35165,7 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt1 = protoFnImpl_195((List *)var_31, val0); -Value *rslt2 = arityImpl_674((List *)var_31, rslt1); +Value *rslt2 = arityImpl_664((List *)var_31, rslt1); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; varArgs4->len = 0; @@ -35239,26 +35173,26 @@ varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; varArgs4 = (List *)listCons((Value *)val3, varArgs4); varArgs4 = (List *)listCons((Value *)val0, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&fn_2781, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&fn_2774, varArgs4); Value *rslt5 = arityImpl_389((List *)var_31, (Value *)varArgs4); Value *rslt6 = protoFnImpl_232((List *)var_31, rslt2, rslt5); FnArity *arity_7 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_7->count = 1; arity_7->closures = empty_list; arity_7->variadic = 0; -arity_7->fn = arityImpl_2839; +arity_7->fn = arityImpl_2832; arity_7->closures = listCons((Value *)val8, (List *)arity_7->closures); arity_7->closures = listCons((Value *)val3, (List *)arity_7->closures); -Function *fn_2838 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2838->type = 3; -fn_2838->name = "anon"; -fn_2838->arityCount = 1; -fn_2838->arities[0] = arity_7; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_2838); +Function *fn_2831 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2831->type = 3; +fn_2831->name = "anon"; +fn_2831->arityCount = 1; +fn_2831->arities[0] = arity_7; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_2831); return (rslt9); }; -Value *arityImpl_2835(List *closures, Value *arg0) { +Value *arityImpl_2828(List *closures, Value *arg0) { Value *val7 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -35276,27 +35210,27 @@ varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; varArgs3 = (List *)listCons((Value *)rslt2, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_kw_68, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_kw_66, varArgs3); Value *rslt4 = arityImpl_119((List *)var_31, (Value *)varArgs3); -Value *rslt5 = arityImpl_1022((List *)var_31, rslt4, rslt2); +Value *rslt5 = arityImpl_1012((List *)var_31, rslt4, rslt2); FnArity *arity_6 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_6->count = 1; arity_6->closures = empty_list; arity_6->variadic = 0; -arity_6->fn = arityImpl_2837; +arity_6->fn = arityImpl_2830; arity_6->closures = listCons((Value *)val7, (List *)arity_6->closures); arity_6->closures = listCons((Value *)rslt2, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val8, (List *)arity_6->closures); -Function *fn_2836 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2836->type = 3; -fn_2836->name = "anon"; -fn_2836->arityCount = 1; -fn_2836->arities[0] = arity_6; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_2836); +Function *fn_2829 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2829->type = 3; +fn_2829->name = "anon"; +fn_2829->arityCount = 1; +fn_2829->arities[0] = arity_6; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_2829); return (rslt9); }; -Value *arityImpl_2831(List *closures, Value *arg0) { +Value *arityImpl_2824(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -35310,7 +35244,7 @@ varArgs11->type = ListType; varArgs11->len = 0; varArgs11->head = (Value *)0; varArgs11->tail = (List *)0; -varArgs11 = (List *)listCons((Value *)(Value *)&_kw_72, varArgs11); +varArgs11 = (List *)listCons((Value *)(Value *)&_kw_70, varArgs11); Value *rslt12 = arityImpl_163((List *)var_31, (Value *)varArgs11); List *varArgs13 = (List *)GC_malloc(sizeof(List)); varArgs13->type = ListType; @@ -35323,43 +35257,43 @@ Value *rslt14 = arityImpl_119((List *)var_31, (Value *)varArgs13); cond0 = rslt14; } else { Value *rslt2 = protoFnImpl_214((List *)var_31, val1); -Value *rslt4 = protoFnImpl_237((List *)var_31, rslt2, (Value *)&fn_2832); +Value *rslt4 = protoFnImpl_237((List *)var_31, rslt2, (Value *)&fn_2825); List *varArgs5 = (List *)GC_malloc(sizeof(List)); varArgs5->type = ListType; varArgs5->len = 0; varArgs5->head = (Value *)0; varArgs5->tail = (List *)0; Value *rslt6 = arityImpl_623((List *)var_31, (Value *)varArgs5); -Value *rslt7 = arityImpl_1004((List *)var_31, (Value *)&_kw_68, rslt6); +Value *rslt7 = arityImpl_994((List *)var_31, (Value *)&_kw_66, rslt6); FnArity *arity_8 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_8->count = 1; arity_8->closures = empty_list; arity_8->variadic = 0; -arity_8->fn = arityImpl_2835; +arity_8->fn = arityImpl_2828; arity_8->closures = listCons((Value *)rslt4, (List *)arity_8->closures); arity_8->closures = listCons((Value *)rslt7, (List *)arity_8->closures); -Function *fn_2834 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2834->type = 3; -fn_2834->name = "anon"; -fn_2834->arityCount = 1; -fn_2834->arities[0] = arity_8; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt7, (Value *)fn_2834); +Function *fn_2827 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2827->type = 3; +fn_2827->name = "anon"; +fn_2827->arityCount = 1; +fn_2827->arities[0] = arity_8; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt7, (Value *)fn_2827); cond0 = rslt9; } return (cond0); }; -Value *protoImpl_2844(List *closures, Value *arg0) { +Value *protoImpl_2837(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2845 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2844}}}; +Function protoFn_2838 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2837}}}; // --------- .impls_impl -------------- -Function fn_2846; -Value *arityImpl_2847(List *closures, Value *arg0) { +Function fn_2839; +Value *arityImpl_2840(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -35367,60 +35301,60 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2848(List *closures, Value *arg0) { +Value *protoImpl_2841(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2849 = {3, ".impls", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2848}}}; +Function protoFn_2842 = {3, ".impls", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2841}}}; -Value *arityImpl_2829(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_2822(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_2831; +arity_0->fn = arityImpl_2824; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_2830 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2830->type = 3; -fn_2830->name = "emit-c_impl"; -fn_2830->arityCount = 1; -fn_2830->arities[0] = arity_0; +Function *fn_2823 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2823->type = 3; +fn_2823->name = "emit-c_impl"; +fn_2823->arityCount = 1; +fn_2823->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2847; +arity_1->fn = arityImpl_2840; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_2846 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2846->type = 3; -fn_2846->name = ".impls_impl"; -fn_2846->arityCount = 1; -fn_2846->arities[0] = arity_1; +Function *fn_2839 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2839->type = 3; +fn_2839->name = ".impls_impl"; +fn_2839->arityCount = 1; +fn_2839->arities[0] = arity_1; ReifiedVal *reified_2 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 2); -reified_2->type = 80; +reified_2->type = 79; reified_2->implCount = 2; -reified_2->impls[0] = (Value *)fn_2830; -reified_2->impls[1] = (Value *)fn_2846; +reified_2->impls[0] = (Value *)fn_2823; +reified_2->impls[1] = (Value *)fn_2839; return ((Value *)reified_2); }; // --------- invoke_impl main body -------------- -Function fn_2828 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2829}}}; -Value *protoImpl_2850(List *closures, Value *arg0, Value *arg1) { +Function fn_2821 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2822}}}; +Value *protoImpl_2843(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2851 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2850}}}; +Function protoFn_2844 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2843}}}; -ReifiedVal reified_2852 = {79, 2, {(Value *)&fn_2824, (Value *)&fn_2828}}; -Value *var_1506 = (Value *)&reified_2852; +ReifiedVal reified_2845 = {78, 2, {(Value *)&fn_2817, (Value *)&fn_2821}}; +Value *var_1496 = (Value *)&reified_2845; // --------- replace-type -------------- -Function fn_2853; -Value *arityImpl_2854(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Function fn_2846; +Value *arityImpl_2847(List *closures, Value *arg0, Value *arg1, Value *arg2) { Value *cond0; Value *rslt5 = protoFnImpl_179((List *)var_31, arg0); @@ -35456,13 +35390,13 @@ varArgs13 = (List *)listCons((Value *)arg1, varArgs13); varArgs13 = (List *)listCons((Value *)arg2, varArgs13); Value *rslt14 = arityImpl_119((List *)var_31, (Value *)varArgs13); Value *rslt15 = protoFnImpl_224((List *)var_31, arg0); -Value *rslt16 = arityImpl_1912((List *)var_31, rslt14, rslt15); +Value *rslt16 = arityImpl_1905((List *)var_31, rslt14, rslt15); cond0 = rslt16; } else { Value *rslt1 = protoFnImpl_219((List *)var_31, arg0); Value *rslt2 = protoFnImpl_224((List *)var_31, arg0); -Value *rslt3 = arityImpl_2854(closures, rslt2, arg1, arg2); -Value *rslt4 = arityImpl_1912((List *)var_31, rslt1, rslt3); +Value *rslt3 = arityImpl_2847(closures, rslt2, arg1, arg2); +Value *rslt4 = arityImpl_1905((List *)var_31, rslt1, rslt3); cond0 = rslt4; } } @@ -35471,10 +35405,10 @@ return (cond0); // --------- replace-type main body -------------- -Function fn_2853 = {3, "replace-type", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2854}}}; -ProtoImpls *protoImpls_2856; -Value *protoFnImpl_2859(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2856); +Function fn_2846 = {3, "replace-type", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2847}}}; +ProtoImpls *protoImpls_2849; +Value *protoFnImpl_2852(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2849); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.fields' %lld\n", arg0->type); abort(); @@ -35487,16 +35421,16 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_2860 = {1, (List *)0, 0, protoFnImpl_2859}; -Function protoFn_2857 = {3, ".fields", 1, {&protoFnArity_2860}}; +FnArity protoFnArity_2853 = {1, (List *)0, 0, protoFnImpl_2852}; +Function protoFn_2850 = {3, ".fields", 1, {&protoFnArity_2853}}; // forward declaration for 'type-ast-val' -Value *var_2861; +Value *var_2854; struct {int64_t type; int64_t len; - char buffer[2];} _str_224 = {1,1,"."}; -Number _num_50 = {2, -1, 82}; + char buffer[2];} _str_223 = {1,1,"."}; +Number _num_50 = {2, -1, 81}; SymKey _sym_29 = {7, -1, "Type"}; SymKey _sym_30 = {7, -1, "instance?"}; SymKey _sym_31 = {7, -1, "_"}; @@ -35505,57 +35439,57 @@ SymKey _sym_33 = {7, -1, "="}; SymKey _sym_34 = {7, -1, "get-type"}; // --------- instance?_impl -------------- -Function fn_2862; -Value *arityImpl_2863(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1892((List *)var_31, arg1); +Function fn_2855; +Value *arityImpl_2856(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1882((List *)var_31, arg1); Value *rslt1 = arityImpl_283((List *)var_31, (Value *)&_num_50, rslt0); return (rslt1); }; // --------- instance?_impl main body -------------- -Function fn_2862 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2863}}}; -Value *protoImpl_2864(List *closures, Value *arg0, Value *arg1) { +Function fn_2855 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2856}}}; +Value *protoImpl_2857(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2865 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2864}}}; +Function protoFn_2858 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2857}}}; // --------- invoke_impl -------------- -Function fn_2866; +Function fn_2859; // --------- emit-c_impl -------------- -Function fn_2868; +Function fn_2861; // --------- anon -------------- -Function fn_2870; +Function fn_2863; // --------- anon -------------- -Function fn_2872; +Function fn_2865; // --------- anon -------------- -Function fn_2874; -Value *arityImpl_2875(List *closures, Value *arg0) { +Function fn_2867; +Value *arityImpl_2868(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_str_224, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_223, varArgs0); Value *rslt1 = arityImpl_508((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1886((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1876((List *)var_31, rslt1); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; varArgs3 = (List *)listCons((Value *)rslt2, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_kw_66, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_kw_64, varArgs3); Value *rslt4 = arityImpl_119((List *)var_31, (Value *)varArgs3); -Value *rslt5 = arityImpl_1014((List *)var_31, rslt4); +Value *rslt5 = arityImpl_1004((List *)var_31, rslt4); List *varArgs6 = (List *)GC_malloc(sizeof(List)); varArgs6->type = ListType; varArgs6->len = 0; @@ -35586,10 +35520,10 @@ varArgs12 = (List *)listCons((Value *)rslt11, varArgs12); varArgs12 = (List *)listCons((Value *)rslt2, varArgs12); Value *rslt13 = arityImpl_119((List *)var_31, (Value *)varArgs12); Value *rslt17; -if((var_1510)->type != 3) { -rslt17 = protoFnImpl_5(empty_list, var_1510, rslt13); +if((var_1500)->type != 3) { +rslt17 = protoFnImpl_5(empty_list, var_1500, rslt13); } else { -FnArity *arity14 = findFnArity(var_1510, 1); +FnArity *arity14 = findFnArity(var_1500, 1); if(arity14 != (FnArity *)0 && !arity14->variadic) { FnType1 *fn16 = (FnType1 *)arity14->fn; rslt17 = fn16(arity14->closures, rslt13); @@ -35603,7 +35537,7 @@ varArgs15->tail = (List *)0; varArgs15 = (List *)listCons(rslt13, varArgs15); rslt17 = fn16(arity14->closures, (Value *)varArgs15); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1510)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1500)->name); abort(); } } @@ -35620,26 +35554,26 @@ return (rslt19); // --------- anon main body -------------- -Function fn_2874 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2875}}}; +Function fn_2867 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2868}}}; // --------- anon -------------- -Function fn_2876; +Function fn_2869; // --------- anon -------------- -Function fn_2878; +Function fn_2871; // --------- anon -------------- -Function fn_2880; +Function fn_2873; // --------- anon -------------- -Function fn_2882; +Function fn_2875; // --------- anon -------------- -Function fn_2884; +Function fn_2877; // --------- anon -------------- -Function fn_2886; -Value *arityImpl_2887(List *closures, Value *arg0) { +Function fn_2879; +Value *arityImpl_2880(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -35649,7 +35583,7 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = protoFnImpl_214((List *)var_31, arg0); -Value *rslt3 = arityImpl_2854((List *)var_31, rslt0, val1, val2); +Value *rslt3 = arityImpl_2847((List *)var_31, rslt0, val1, val2); Value *rslt7; if((var_546)->type != 3) { rslt7 = protoFnImpl_5(empty_list, var_546, rslt3); @@ -35677,8 +35611,8 @@ return (rslt7); // --------- anon -------------- -Function fn_2888; -Value *arityImpl_2889(List *closures, Value *arg0) { +Function fn_2881; +Value *arityImpl_2882(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -35691,7 +35625,7 @@ Value *rslt2 = protoFnImpl_100((List *)var_31, val0, val1); return (rslt2); }; -Value *arityImpl_2885(List *closures, Value *arg0) { +Value *arityImpl_2878(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -35709,38 +35643,38 @@ varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_68, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_66, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2887; +arity_2->fn = arityImpl_2880; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); -Function *fn_2886 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2886->type = 3; -fn_2886->name = "anon"; -fn_2886->arityCount = 1; -fn_2886->arities[0] = arity_2; -Value *rslt5 = arityImpl_1027((List *)var_31, rslt1, (Value *)fn_2886); +Function *fn_2879 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2879->type = 3; +fn_2879->name = "anon"; +fn_2879->arityCount = 1; +fn_2879->arities[0] = arity_2; +Value *rslt5 = arityImpl_1017((List *)var_31, rslt1, (Value *)fn_2879); FnArity *arity_6 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_6->count = 1; arity_6->closures = empty_list; arity_6->variadic = 0; -arity_6->fn = arityImpl_2889; +arity_6->fn = arityImpl_2882; arity_6->closures = listCons((Value *)arg0, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val7, (List *)arity_6->closures); -Function *fn_2888 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2888->type = 3; -fn_2888->name = "anon"; -fn_2888->arityCount = 1; -fn_2888->arities[0] = arity_6; -Value *rslt8 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_2888); +Function *fn_2881 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2881->type = 3; +fn_2881->name = "anon"; +fn_2881->arityCount = 1; +fn_2881->arities[0] = arity_6; +Value *rslt8 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_2881); return (rslt8); }; -Value *arityImpl_2883(List *closures, Value *arg0) { +Value *arityImpl_2876(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -35757,25 +35691,25 @@ Value *val5 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt2 = arityImpl_2628((List *)var_31, val0, val1); +Value *rslt2 = arityImpl_2621((List *)var_31, val0, val1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2885; +arity_3->fn = arityImpl_2878; arity_3->closures = listCons((Value *)val4, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val5, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val0, (List *)arity_3->closures); -Function *fn_2884 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2884->type = 3; -fn_2884->name = "anon"; -fn_2884->arityCount = 1; -fn_2884->arities[0] = arity_3; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2884); +Function *fn_2877 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2877->type = 3; +fn_2877->name = "anon"; +fn_2877->arityCount = 1; +fn_2877->arities[0] = arity_3; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2877); return (rslt6); }; -Value *arityImpl_2881(List *closures, Value *arg0) { +Value *arityImpl_2874(List *closures, Value *arg0) { Value *val5 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -35789,10 +35723,10 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt3; -if((var_1509)->type != 3) { -rslt3 = protoFnImpl_3(empty_list, var_1509); +if((var_1499)->type != 3) { +rslt3 = protoFnImpl_3(empty_list, var_1499); } else { -FnArity *arity0 = findFnArity(var_1509, 0); +FnArity *arity0 = findFnArity(var_1499, 0); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType0 *fn2 = (FnType0 *)arity0->fn; rslt3 = fn2(arity0->closures); @@ -35805,7 +35739,7 @@ varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1509)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_1499)->name); abort(); } } @@ -35813,21 +35747,21 @@ FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_2883; +arity_4->fn = arityImpl_2876; arity_4->closures = listCons((Value *)val5, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val6, (List *)arity_4->closures); arity_4->closures = listCons((Value *)arg0, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val7, (List *)arity_4->closures); -Function *fn_2882 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2882->type = 3; -fn_2882->name = "anon"; -fn_2882->arityCount = 1; -fn_2882->arities[0] = arity_4; -Value *rslt8 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2882); +Function *fn_2875 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2875->type = 3; +fn_2875->name = "anon"; +fn_2875->arityCount = 1; +fn_2875->arities[0] = arity_4; +Value *rslt8 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2875); return (rslt8); }; -Value *arityImpl_2879(List *closures, Value *arg0) { +Value *arityImpl_2872(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -35883,8 +35817,8 @@ varArgs7 = (List *)listCons((Value *)rslt6, varArgs7); varArgs7 = (List *)listCons((Value *)rslt1, varArgs7); varArgs7 = (List *)listCons((Value *)(Value *)&_sym_30, varArgs7); Value *rslt8 = arityImpl_119((List *)var_31, (Value *)varArgs7); -Value *rslt10 = arityImpl_1912((List *)var_31, (Value *)&_sym_31, val9); -Value *rslt11 = arityImpl_1912((List *)var_31, (Value *)&_sym_1, rslt10); +Value *rslt10 = arityImpl_1905((List *)var_31, (Value *)&_sym_31, val9); +Value *rslt11 = arityImpl_1905((List *)var_31, (Value *)&_sym_1, rslt10); List *varArgs13 = (List *)GC_malloc(sizeof(List)); varArgs13->type = ListType; varArgs13->len = 0; @@ -35905,25 +35839,25 @@ varArgs15 = (List *)listCons((Value *)rslt8, varArgs15); varArgs15 = (List *)listCons((Value *)(Value *)&_sym_29, varArgs15); varArgs15 = (List *)listCons((Value *)(Value *)&_sym_17, varArgs15); Value *rslt16 = arityImpl_119((List *)var_31, (Value *)varArgs15); -Value *rslt17 = arityImpl_1845((List *)var_31, rslt16); +Value *rslt17 = arityImpl_1835((List *)var_31, rslt16); FnArity *arity_18 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_18->count = 1; arity_18->closures = empty_list; arity_18->variadic = 0; -arity_18->fn = arityImpl_2881; +arity_18->fn = arityImpl_2874; arity_18->closures = listCons((Value *)val19, (List *)arity_18->closures); arity_18->closures = listCons((Value *)val20, (List *)arity_18->closures); arity_18->closures = listCons((Value *)val2, (List *)arity_18->closures); -Function *fn_2880 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2880->type = 3; -fn_2880->name = "anon"; -fn_2880->arityCount = 1; -fn_2880->arities[0] = arity_18; -Value *rslt21 = protoFnImpl_78((List *)var_31, rslt17, (Value *)fn_2880); +Function *fn_2873 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2873->type = 3; +fn_2873->name = "anon"; +fn_2873->arityCount = 1; +fn_2873->arities[0] = arity_18; +Value *rslt21 = protoFnImpl_78((List *)var_31, rslt17, (Value *)fn_2873); return (rslt21); }; -Value *arityImpl_2877(List *closures, Value *arg0) { +Value *arityImpl_2870(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -35950,10 +35884,10 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_kw_49, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_kw_47, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1014((List *)var_31, rslt2); -Value *rslt4 = arityImpl_2619((List *)var_31, val0, (Value *)&_kw_39); +Value *rslt3 = arityImpl_1004((List *)var_31, rslt2); +Value *rslt4 = arityImpl_2612((List *)var_31, val0, (Value *)&_kw_37); List *varArgs5 = (List *)GC_malloc(sizeof(List)); varArgs5->type = ListType; varArgs5->len = 0; @@ -35966,22 +35900,22 @@ FnArity *arity_7 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_7->count = 1; arity_7->closures = empty_list; arity_7->variadic = 0; -arity_7->fn = arityImpl_2879; +arity_7->fn = arityImpl_2872; arity_7->closures = listCons((Value *)val8, (List *)arity_7->closures); arity_7->closures = listCons((Value *)val0, (List *)arity_7->closures); arity_7->closures = listCons((Value *)val9, (List *)arity_7->closures); arity_7->closures = listCons((Value *)val10, (List *)arity_7->closures); arity_7->closures = listCons((Value *)val11, (List *)arity_7->closures); -Function *fn_2878 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2878->type = 3; -fn_2878->name = "anon"; -fn_2878->arityCount = 1; -fn_2878->arities[0] = arity_7; -Value *rslt12 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_2878); +Function *fn_2871 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2871->type = 3; +fn_2871->name = "anon"; +fn_2871->arityCount = 1; +fn_2871->arities[0] = arity_7; +Value *rslt12 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_2871); return (rslt12); }; -Value *arityImpl_2873(List *closures, Value *arg0) { +Value *arityImpl_2866(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -36006,32 +35940,32 @@ Value *cond0; Value *rslt4 = protoFnImpl_179((List *)var_31, val1); if (isTrue(rslt4)) { -Value *rslt5 = arityImpl_985((List *)var_31, (Value *)&_str_19); +Value *rslt5 = arityImpl_975((List *)var_31, (Value *)&_str_19); cond0 = rslt5; } else { -Value *rslt3 = protoFnImpl_232((List *)var_31, val1, (Value *)&fn_2874); +Value *rslt3 = protoFnImpl_232((List *)var_31, val1, (Value *)&fn_2867); cond0 = rslt3; } FnArity *arity_6 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_6->count = 1; arity_6->closures = empty_list; arity_6->variadic = 0; -arity_6->fn = arityImpl_2877; +arity_6->fn = arityImpl_2870; arity_6->closures = listCons((Value *)val7, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val1, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val8, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val9, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val10, (List *)arity_6->closures); -Function *fn_2876 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2876->type = 3; -fn_2876->name = "anon"; -fn_2876->arityCount = 1; -fn_2876->arities[0] = arity_6; -Value *rslt11 = protoFnImpl_78((List *)var_31, cond0, (Value *)fn_2876); +Function *fn_2869 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2869->type = 3; +fn_2869->name = "anon"; +fn_2869->arityCount = 1; +fn_2869->arities[0] = arity_6; +Value *rslt11 = protoFnImpl_78((List *)var_31, cond0, (Value *)fn_2869); return (rslt11); }; -Value *arityImpl_2871(List *closures, Value *arg0) { +Value *arityImpl_2864(List *closures, Value *arg0) { Value *val6 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -36058,27 +35992,27 @@ varArgs2->tail = (List *)0; varArgs2 = (List *)listCons((Value *)rslt1, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_num_2, varArgs2); Value *rslt3 = arityImpl_456((List *)var_31, (Value *)varArgs2); -Value *rslt4 = arityImpl_1845((List *)var_31, rslt3); +Value *rslt4 = arityImpl_1835((List *)var_31, rslt3); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_2873; +arity_5->fn = arityImpl_2866; arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); arity_5->closures = listCons((Value *)val7, (List *)arity_5->closures); arity_5->closures = listCons((Value *)val8, (List *)arity_5->closures); arity_5->closures = listCons((Value *)rslt3, (List *)arity_5->closures); arity_5->closures = listCons((Value *)val9, (List *)arity_5->closures); -Function *fn_2872 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2872->type = 3; -fn_2872->name = "anon"; -fn_2872->arityCount = 1; -fn_2872->arities[0] = arity_5; -Value *rslt10 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_2872); +Function *fn_2865 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2865->type = 3; +fn_2865->name = "anon"; +fn_2865->arityCount = 1; +fn_2865->arities[0] = arity_5; +Value *rslt10 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_2865); return (rslt10); }; -Value *arityImpl_2869(List *closures, Value *arg0) { +Value *arityImpl_2862(List *closures, Value *arg0) { Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -36097,36 +36031,36 @@ varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; Value *rslt1 = arityImpl_623((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1004((List *)var_31, (Value *)&_kw_68, rslt1); +Value *rslt2 = arityImpl_994((List *)var_31, (Value *)&_kw_66, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2871; +arity_3->fn = arityImpl_2864; arity_3->closures = listCons((Value *)val4, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val5, (List *)arity_3->closures); arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val6, (List *)arity_3->closures); -Function *fn_2870 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2870->type = 3; -fn_2870->name = "anon"; -fn_2870->arityCount = 1; -fn_2870->arities[0] = arity_3; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2870); +Function *fn_2863 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2863->type = 3; +fn_2863->name = "anon"; +fn_2863->arityCount = 1; +fn_2863->arities[0] = arity_3; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2863); return (rslt7); }; -Value *protoImpl_2890(List *closures, Value *arg0) { +Value *protoImpl_2883(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2891 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2890}}}; +Function protoFn_2884 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2883}}}; // --------- .name_impl -------------- -Function fn_2892; -Value *arityImpl_2893(List *closures, Value *arg0) { +Function fn_2885; +Value *arityImpl_2886(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -36134,17 +36068,17 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2894(List *closures, Value *arg0) { +Value *protoImpl_2887(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2895 = {3, ".name", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2894}}}; +Function protoFn_2888 = {3, ".name", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2887}}}; // --------- .fields_impl -------------- -Function fn_2896; -Value *arityImpl_2897(List *closures, Value *arg0) { +Function fn_2889; +Value *arityImpl_2890(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -36152,17 +36086,17 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2898(List *closures, Value *arg0) { +Value *protoImpl_2891(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2899 = {3, ".fields", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2898}}}; +Function protoFn_2892 = {3, ".fields", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2891}}}; // --------- .impls_impl -------------- -Function fn_2900; -Value *arityImpl_2901(List *closures, Value *arg0) { +Function fn_2893; +Value *arityImpl_2894(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -36170,99 +36104,99 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2902(List *closures, Value *arg0) { +Value *protoImpl_2895(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[3])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2903 = {3, ".impls", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2902}}}; +Function protoFn_2896 = {3, ".impls", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2895}}}; -Value *arityImpl_2867(List *closures, Value *arg0, Value *arg1, Value *arg2, Value *arg3) { +Value *arityImpl_2860(List *closures, Value *arg0, Value *arg1, Value *arg2, Value *arg3) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_2869; +arity_0->fn = arityImpl_2862; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg3, (List *)arity_0->closures); arity_0->closures = listCons((Value *)arg2, (List *)arity_0->closures); -Function *fn_2868 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2868->type = 3; -fn_2868->name = "emit-c_impl"; -fn_2868->arityCount = 1; -fn_2868->arities[0] = arity_0; +Function *fn_2861 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2861->type = 3; +fn_2861->name = "emit-c_impl"; +fn_2861->arityCount = 1; +fn_2861->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2893; +arity_1->fn = arityImpl_2886; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_2892 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2892->type = 3; -fn_2892->name = ".name_impl"; -fn_2892->arityCount = 1; -fn_2892->arities[0] = arity_1; +Function *fn_2885 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2885->type = 3; +fn_2885->name = ".name_impl"; +fn_2885->arityCount = 1; +fn_2885->arities[0] = arity_1; FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2897; +arity_2->fn = arityImpl_2890; arity_2->closures = listCons((Value *)arg2, (List *)arity_2->closures); -Function *fn_2896 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2896->type = 3; -fn_2896->name = ".fields_impl"; -fn_2896->arityCount = 1; -fn_2896->arities[0] = arity_2; +Function *fn_2889 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2889->type = 3; +fn_2889->name = ".fields_impl"; +fn_2889->arityCount = 1; +fn_2889->arities[0] = arity_2; FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2901; +arity_3->fn = arityImpl_2894; arity_3->closures = listCons((Value *)arg3, (List *)arity_3->closures); -Function *fn_2900 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2900->type = 3; -fn_2900->name = ".impls_impl"; -fn_2900->arityCount = 1; -fn_2900->arities[0] = arity_3; +Function *fn_2893 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2893->type = 3; +fn_2893->name = ".impls_impl"; +fn_2893->arityCount = 1; +fn_2893->arities[0] = arity_3; ReifiedVal *reified_4 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 4); -reified_4->type = 82; +reified_4->type = 81; reified_4->implCount = 4; -reified_4->impls[0] = (Value *)fn_2868; -reified_4->impls[1] = (Value *)fn_2892; -reified_4->impls[2] = (Value *)fn_2896; -reified_4->impls[3] = (Value *)fn_2900; +reified_4->impls[0] = (Value *)fn_2861; +reified_4->impls[1] = (Value *)fn_2885; +reified_4->impls[2] = (Value *)fn_2889; +reified_4->impls[3] = (Value *)fn_2893; return ((Value *)reified_4); }; // --------- invoke_impl main body -------------- -Function fn_2866 = {3, "invoke_impl", 1, {&(FnArity){4, (List *)0, 0, arityImpl_2867}}}; -Value *protoImpl_2904(List *closures, Value *arg0, Value *arg1, Value *arg2, Value *arg3) { +Function fn_2859 = {3, "invoke_impl", 1, {&(FnArity){4, (List *)0, 0, arityImpl_2860}}}; +Value *protoImpl_2897(List *closures, Value *arg0, Value *arg1, Value *arg2, Value *arg3) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType4 *)arityPtr->fn)(arityPtr->closures, arg0, arg1, arg2, arg3)); }; -Function protoFn_2905 = {3, "invoke", 1, {&(FnArity){4, (List *)0, 0, protoImpl_2904}}}; +Function protoFn_2898 = {3, "invoke", 1, {&(FnArity){4, (List *)0, 0, protoImpl_2897}}}; -ReifiedVal reified_2906 = {81, 2, {(Value *)&fn_2862, (Value *)&fn_2866}}; -Value *var_2861 = (Value *)&reified_2906; +ReifiedVal reified_2899 = {80, 2, {(Value *)&fn_2855, (Value *)&fn_2859}}; +Value *var_2854 = (Value *)&reified_2899; SymKey _sym_35 = {7, -1, "BogusGetterProtocolName"}; // --------- type-ast -------------- -Function fn_2907; +Function fn_2900; // --------- anon -------------- -Function fn_2909; -Value *arityImpl_2910(List *closures, Value *arg0) { +Function fn_2902; +Value *arityImpl_2903(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_str_224, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_223, varArgs0); Value *rslt1 = arityImpl_508((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1886((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1876((List *)var_31, rslt1); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; varArgs3->len = 0; @@ -36285,12 +36219,12 @@ return (rslt6); // --------- anon main body -------------- -Function fn_2909 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2910}}}; -Value *arityImpl_2908(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Function fn_2902 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2903}}}; +Value *arityImpl_2901(List *closures, Value *arg0, Value *arg1, Value *arg2) { Value *rslt0 = protoFnImpl_224((List *)var_31, arg1); -Value *rslt1 = arityImpl_1912((List *)var_31, (Value *)&_sym_17, arg2); -Value *rslt3 = protoFnImpl_125((List *)var_31, rslt0, (Value *)&fn_2909); -Value *rslt4 = arityImpl_1912((List *)var_31, (Value *)&_sym_35, rslt3); +Value *rslt1 = arityImpl_1905((List *)var_31, (Value *)&_sym_17, arg2); +Value *rslt3 = protoFnImpl_125((List *)var_31, rslt0, (Value *)&fn_2902); +Value *rslt4 = arityImpl_1905((List *)var_31, (Value *)&_sym_35, rslt3); List *varArgs5 = (List *)GC_malloc(sizeof(List)); varArgs5->type = ListType; varArgs5->len = 0; @@ -36300,10 +36234,10 @@ varArgs5 = (List *)listCons((Value *)rslt4, varArgs5); varArgs5 = (List *)listCons((Value *)rslt1, varArgs5); Value *rslt6 = arityImpl_250((List *)var_31, (Value *)varArgs5); Value *rslt10; -if((var_2861)->type != 3) { -rslt10 = protoFnImpl_9(empty_list, var_2861, arg0, rslt0, rslt6); +if((var_2854)->type != 3) { +rslt10 = protoFnImpl_9(empty_list, var_2854, arg0, rslt0, rslt6); } else { -FnArity *arity7 = findFnArity(var_2861, 3); +FnArity *arity7 = findFnArity(var_2854, 3); if(arity7 != (FnArity *)0 && !arity7->variadic) { FnType3 *fn9 = (FnType3 *)arity7->fn; rslt10 = fn9(arity7->closures, arg0, rslt0, rslt6); @@ -36319,7 +36253,7 @@ varArgs8 = (List *)listCons(rslt0, varArgs8); varArgs8 = (List *)listCons(arg0, varArgs8); rslt10 = fn9(arity7->closures, (Value *)varArgs8); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_2861)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_2854)->name); abort(); } } @@ -36328,19 +36262,19 @@ return (rslt10); // --------- type-ast main body -------------- -Function fn_2907 = {3, "type-ast", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2908}}}; -Value *var_1507 = (Value *)&fn_2907; -SymKey _kw_73 = {5, -1, ":no-default"}; +Function fn_2900 = {3, "type-ast", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2901}}}; +Value *var_1497 = (Value *)&fn_2900; +SymKey _kw_71 = {5, -1, ":no-default"}; // --------- emit-proto-default -------------- -Function fn_2911; +Function fn_2904; // --------- anon -------------- -Function fn_2913; +Function fn_2906; // --------- anon -------------- -Function fn_2915; -Value *arityImpl_2916(List *closures, Value *arg0) { +Function fn_2908; +Value *arityImpl_2909(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -36361,30 +36295,30 @@ Value *rslt5 = protoFnImpl_100((List *)var_31, val0, rslt4); return (rslt5); }; -Value *arityImpl_2914(List *closures, Value *arg0) { +Value *arityImpl_2907(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, var_31); -Value *rslt1 = arityImpl_1949((List *)var_31, rslt0); +Value *rslt1 = arityImpl_1942((List *)var_31, rslt0); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2916; +arity_2->fn = arityImpl_2909; arity_2->closures = listCons((Value *)arg0, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_2915 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2915->type = 3; -fn_2915->name = "anon"; -fn_2915->arityCount = 1; -fn_2915->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2915); +Function *fn_2908 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2908->type = 3; +fn_2908->name = "anon"; +fn_2908->arityCount = 1; +fn_2908->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2908); return (rslt4); }; -Value *arityImpl_2912(List *closures, Value *arg0) { +Value *arityImpl_2905(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; @@ -36392,27 +36326,27 @@ varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; Value *rslt1 = arityImpl_623((List *)var_31, (Value *)varArgs0); Value *rslt2 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, rslt1); -Value *rslt3 = protoFnImpl_261((List *)var_31, rslt2, (Value *)&_kw_32, (Value *)&_kw_73); +Value *rslt3 = protoFnImpl_261((List *)var_31, rslt2, (Value *)&_kw_30, (Value *)&_kw_71); Value *cond4; -Value *rslt8 = arityImpl_283((List *)var_31, (Value *)&_kw_73, rslt3); +Value *rslt8 = arityImpl_283((List *)var_31, (Value *)&_kw_71, rslt3); if (isTrue(rslt8)) { -Value *rslt9 = arityImpl_985((List *)var_31, var_31); +Value *rslt9 = arityImpl_975((List *)var_31, var_31); cond4 = rslt9; } else { -Value *rslt5 = protoFnImpl_740((List *)var_31, rslt3, (Value *)&protoFn_1968); +Value *rslt5 = protoFnImpl_730((List *)var_31, rslt3, (Value *)&protoFn_1961); FnArity *arity_6 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_6->count = 1; arity_6->closures = empty_list; arity_6->variadic = 0; -arity_6->fn = arityImpl_2914; +arity_6->fn = arityImpl_2907; arity_6->closures = listCons((Value *)rslt5, (List *)arity_6->closures); -Function *fn_2913 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2913->type = 3; -fn_2913->name = "anon"; -fn_2913->arityCount = 1; -fn_2913->arities[0] = arity_6; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_2913); +Function *fn_2906 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2906->type = 3; +fn_2906->name = "anon"; +fn_2906->arityCount = 1; +fn_2906->arities[0] = arity_6; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_2906); cond4 = rslt7; } return (cond4); @@ -36420,110 +36354,110 @@ return (cond4); // --------- emit-proto-default main body -------------- -Function fn_2911 = {3, "emit-proto-default", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2912}}}; +Function fn_2904 = {3, "emit-proto-default", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2905}}}; struct {int64_t type; int64_t len; - char buffer[13];} _str_225 = {1,12,"protoFnImpl_"}; + char buffer[13];} _str_224 = {1,12,"protoFnImpl_"}; struct {int64_t type; int64_t len; - char buffer[14];} _str_226 = {1,13,"protoFnArity_"}; + char buffer[14];} _str_225 = {1,13,"protoFnArity_"}; struct {int64_t type; int64_t len; - char buffer[60];} _str_227 = {1,59," Function *implFn = (Function *)findProtoImpl(arg0->type, "}; + char buffer[60];} _str_226 = {1,59," Function *implFn = (Function *)findProtoImpl(arg0->type, "}; struct {int64_t type; int64_t len; - char buffer[34];} _str_228 = {1,33," if(implFn == (Function *)0) {\n"}; + char buffer[34];} _str_227 = {1,33," if(implFn == (Function *)0) {\n"}; struct {int64_t type; int64_t len; - char buffer[60];} _str_229 = {1,59," fprintf(stderr, \"\\n*** Could not find proto impl for '"}; + char buffer[60];} _str_228 = {1,59," fprintf(stderr, \"\\n*** Could not find proto impl for '"}; struct {int64_t type; int64_t len; - char buffer[41];} _str_230 = {1,40,"' %lld\\n\", arg0->type);\nabort();\n}\n"}; + char buffer[41];} _str_229 = {1,40,"' %lld\\n\", arg0->type);\nabort();\n}\n"}; struct {int64_t type; int64_t len; - char buffer[50];} _str_231 = {1,49," FnArity *_arity = findFnArity((Value *)implFn, "}; + char buffer[50];} _str_230 = {1,49," FnArity *_arity = findFnArity((Value *)implFn, "}; struct {int64_t type; int64_t len; - char buffer[53];} _str_232 = {1,52," if(_arity == (FnArity *)0 || _arity->variadic) {\n"}; + char buffer[53];} _str_231 = {1,52," if(_arity == (FnArity *)0 || _arity->variadic) {\n"}; struct {int64_t type; int64_t len; - char buffer[65];} _str_233 = {1,64," fprintf(stderr, \"\\n*** Invalid number of args in call to '"}; + char buffer[65];} _str_232 = {1,64," fprintf(stderr, \"\\n*** Invalid number of args in call to '"}; struct {int64_t type; int64_t len; - char buffer[11];} _str_234 = {1,10,"'\\n\");\n"}; + char buffer[11];} _str_233 = {1,10,"'\\n\");\n"}; struct {int64_t type; int64_t len; - char buffer[18];} _str_235 = {1,17," abort();\n}\n"}; + char buffer[18];} _str_234 = {1,17," abort();\n}\n"}; struct {int64_t type; int64_t len; - char buffer[9];} _str_236 = {1,8," FnType"}; + char buffer[9];} _str_235 = {1,8," FnType"}; struct {int64_t type; int64_t len; - char buffer[16];} _str_237 = {1,15," *_fn = (FnType"}; + char buffer[16];} _str_236 = {1,15," *_fn = (FnType"}; struct {int64_t type; int64_t len; - char buffer[17];} _str_238 = {1,16," *)_arity->fn;\n"}; + char buffer[17];} _str_237 = {1,16," *)_arity->fn;\n"}; struct {int64_t type; int64_t len; - char buffer[14];} _str_239 = {1,13," return(_fn("}; + char buffer[14];} _str_238 = {1,13," return(_fn("}; struct {int64_t type; int64_t len; - char buffer[17];} _str_240 = {1,16,"_arity->closures"}; + char buffer[17];} _str_239 = {1,16,"_arity->closures"}; struct {int64_t type; int64_t len; - char buffer[9];} _str_241 = {1,8,"));\n}\n"}; + char buffer[9];} _str_240 = {1,8,"));\n}\n"}; struct {int64_t type; int64_t len; - char buffer[9];} _str_242 = {1,8,"FnArity "}; + char buffer[9];} _str_241 = {1,8,"FnArity "}; // --------- emit-proto-arity -------------- -Function fn_2918; +Function fn_2911; // --------- anon -------------- -Function fn_2920; -Value *arityImpl_2921(List *closures, Value *arg0) { +Function fn_2913; +Value *arityImpl_2914(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_str_122, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_121, varArgs0); Value *rslt1 = arityImpl_508((List *)var_31, (Value *)varArgs0); return (rslt1); }; // --------- anon main body -------------- -Function fn_2920 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2921}}}; +Function fn_2913 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2914}}}; // --------- anon -------------- -Function fn_2922; +Function fn_2915; // --------- anon -------------- -Function fn_2924; +Function fn_2917; // --------- anon -------------- -Function fn_2926; -Value *arityImpl_2927(List *closures, Value *arg0) { +Function fn_2919; +Value *arityImpl_2920(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; varArgs0 = (List *)listCons((Value *)arg0, varArgs0); -varArgs0 = (List *)listCons((Value *)(Value *)&_str_84, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_83, varArgs0); Value *rslt1 = arityImpl_508((List *)var_31, (Value *)varArgs0); return (rslt1); }; // --------- anon main body -------------- -Function fn_2926 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2927}}}; +Function fn_2919 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2920}}}; // --------- anon -------------- -Function fn_2928; -Value *arityImpl_2929(List *closures, Value *arg0) { +Function fn_2921; +Value *arityImpl_2922(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -36538,13 +36472,13 @@ varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; varArgs2 = (List *)listCons((Value *)val1, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_58, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_57, varArgs2); Value *rslt3 = arityImpl_508((List *)var_31, (Value *)varArgs2); Value *rslt4 = protoFnImpl_100((List *)var_31, val0, rslt3); return (rslt4); }; -Value *arityImpl_2925(List *closures, Value *arg0) { +Value *arityImpl_2918(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -36580,45 +36514,45 @@ varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)(Value *)&_str_16, varArgs1); varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_84, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_83, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1944((List *)var_31, rslt2); -Value *rslt6 = protoFnImpl_125((List *)var_31, val4, (Value *)&fn_2926); -Value *rslt7 = arityImpl_1912((List *)var_31, (Value *)&_str_134, rslt6); +Value *rslt3 = arityImpl_1937((List *)var_31, rslt2); +Value *rslt6 = protoFnImpl_125((List *)var_31, val4, (Value *)&fn_2919); +Value *rslt7 = arityImpl_1905((List *)var_31, (Value *)&_str_133, rslt6); Value *rslt8 = arityImpl_149((List *)var_31, rslt7, (Value *)&_str_17); -Value *rslt9 = arityImpl_1949((List *)var_31, rslt8); +Value *rslt9 = arityImpl_1942((List *)var_31, rslt8); List *varArgs13 = (List *)GC_malloc(sizeof(List)); varArgs13->type = ListType; varArgs13->len = 0; varArgs13->head = (Value *)0; varArgs13->tail = (List *)0; -varArgs13 = (List *)listCons((Value *)(Value *)&_str_239, varArgs13); varArgs13 = (List *)listCons((Value *)(Value *)&_str_238, varArgs13); -varArgs13 = (List *)listCons((Value *)val12, varArgs13); varArgs13 = (List *)listCons((Value *)(Value *)&_str_237, varArgs13); varArgs13 = (List *)listCons((Value *)val12, varArgs13); varArgs13 = (List *)listCons((Value *)(Value *)&_str_236, varArgs13); +varArgs13 = (List *)listCons((Value *)val12, varArgs13); varArgs13 = (List *)listCons((Value *)(Value *)&_str_235, varArgs13); varArgs13 = (List *)listCons((Value *)(Value *)&_str_234, varArgs13); -varArgs13 = (List *)listCons((Value *)val11, varArgs13); varArgs13 = (List *)listCons((Value *)(Value *)&_str_233, varArgs13); +varArgs13 = (List *)listCons((Value *)val11, varArgs13); varArgs13 = (List *)listCons((Value *)(Value *)&_str_232, varArgs13); -varArgs13 = (List *)listCons((Value *)(Value *)&_str_109, varArgs13); -varArgs13 = (List *)listCons((Value *)val12, varArgs13); varArgs13 = (List *)listCons((Value *)(Value *)&_str_231, varArgs13); +varArgs13 = (List *)listCons((Value *)(Value *)&_str_108, varArgs13); +varArgs13 = (List *)listCons((Value *)val12, varArgs13); varArgs13 = (List *)listCons((Value *)(Value *)&_str_230, varArgs13); -varArgs13 = (List *)listCons((Value *)val11, varArgs13); varArgs13 = (List *)listCons((Value *)(Value *)&_str_229, varArgs13); +varArgs13 = (List *)listCons((Value *)val11, varArgs13); varArgs13 = (List *)listCons((Value *)(Value *)&_str_228, varArgs13); -varArgs13 = (List *)listCons((Value *)(Value *)&_str_109, varArgs13); -varArgs13 = (List *)listCons((Value *)val10, varArgs13); varArgs13 = (List *)listCons((Value *)(Value *)&_str_227, varArgs13); -varArgs13 = (List *)listCons((Value *)(Value *)&_str_135, varArgs13); +varArgs13 = (List *)listCons((Value *)(Value *)&_str_108, varArgs13); +varArgs13 = (List *)listCons((Value *)val10, varArgs13); +varArgs13 = (List *)listCons((Value *)(Value *)&_str_226, varArgs13); +varArgs13 = (List *)listCons((Value *)(Value *)&_str_134, varArgs13); Value *rslt14 = arityImpl_119((List *)var_31, (Value *)varArgs13); -Value *rslt15 = arityImpl_1949((List *)var_31, rslt14); -Value *rslt16 = arityImpl_1912((List *)var_31, (Value *)&_str_240, val4); +Value *rslt15 = arityImpl_1942((List *)var_31, rslt14); +Value *rslt16 = arityImpl_1905((List *)var_31, (Value *)&_str_239, val4); Value *rslt17 = arityImpl_149((List *)var_31, rslt16, (Value *)&_str_17); -Value *rslt18 = arityImpl_1949((List *)var_31, rslt17); +Value *rslt18 = arityImpl_1942((List *)var_31, rslt17); List *varArgs19 = (List *)GC_malloc(sizeof(List)); varArgs19->type = ListType; varArgs19->len = 0; @@ -36645,23 +36579,23 @@ varArgs25->type = ListType; varArgs25->len = 0; varArgs25->head = (Value *)0; varArgs25->tail = (List *)0; -varArgs25 = (List *)listCons((Value *)(Value *)&_str_133, varArgs25); +varArgs25 = (List *)listCons((Value *)(Value *)&_str_132, varArgs25); varArgs25 = (List *)listCons((Value *)rslt24, varArgs25); -varArgs25 = (List *)listCons((Value *)(Value *)&_str_215, varArgs25); +varArgs25 = (List *)listCons((Value *)(Value *)&_str_214, varArgs25); varArgs25 = (List *)listCons((Value *)rslt22, varArgs25); -varArgs25 = (List *)listCons((Value *)(Value *)&_str_181, varArgs25); +varArgs25 = (List *)listCons((Value *)(Value *)&_str_180, varArgs25); varArgs25 = (List *)listCons((Value *)rslt20, varArgs25); -varArgs25 = (List *)listCons((Value *)(Value *)&_str_242, varArgs25); varArgs25 = (List *)listCons((Value *)(Value *)&_str_241, varArgs25); +varArgs25 = (List *)listCons((Value *)(Value *)&_str_240, varArgs25); Value *rslt26 = arityImpl_119((List *)var_31, (Value *)varArgs25); -Value *rslt27 = arityImpl_1949((List *)var_31, rslt26); +Value *rslt27 = arityImpl_1942((List *)var_31, rslt26); List *varArgs29 = (List *)GC_malloc(sizeof(List)); varArgs29->type = ListType; varArgs29->len = 0; varArgs29->head = (Value *)0; varArgs29->tail = (List *)0; varArgs29 = (List *)listCons((Value *)val28, varArgs29); -varArgs29 = (List *)listCons((Value *)(Value *)&_str_104, varArgs29); +varArgs29 = (List *)listCons((Value *)(Value *)&_str_103, varArgs29); Value *rslt30 = arityImpl_508((List *)var_31, (Value *)varArgs29); List *varArgs31 = (List *)GC_malloc(sizeof(List)); varArgs31->type = ListType; @@ -36670,9 +36604,9 @@ varArgs31->head = (Value *)0; varArgs31->tail = (List *)0; varArgs31 = (List *)listCons((Value *)val12, varArgs31); varArgs31 = (List *)listCons((Value *)rslt30, varArgs31); -varArgs31 = (List *)listCons((Value *)(Value *)&_kw_61, varArgs31); +varArgs31 = (List *)listCons((Value *)(Value *)&_kw_59, varArgs31); Value *rslt32 = arityImpl_119((List *)var_31, (Value *)varArgs31); -Value *rslt33 = arityImpl_1022((List *)var_31, rslt32, val0); +Value *rslt33 = arityImpl_1012((List *)var_31, rslt32, val0); List *varArgs34 = (List *)GC_malloc(sizeof(List)); varArgs34->type = ListType; varArgs34->len = 0; @@ -36690,19 +36624,19 @@ FnArity *arity_36 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_36->count = 1; arity_36->closures = empty_list; arity_36->variadic = 0; -arity_36->fn = arityImpl_2929; +arity_36->fn = arityImpl_2922; arity_36->closures = listCons((Value *)arg0, (List *)arity_36->closures); arity_36->closures = listCons((Value *)val37, (List *)arity_36->closures); -Function *fn_2928 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2928->type = 3; -fn_2928->name = "anon"; -fn_2928->arityCount = 1; -fn_2928->arities[0] = arity_36; -Value *rslt38 = protoFnImpl_78((List *)var_31, rslt35, (Value *)fn_2928); +Function *fn_2921 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2921->type = 3; +fn_2921->name = "anon"; +fn_2921->arityCount = 1; +fn_2921->arities[0] = arity_36; +Value *rslt38 = protoFnImpl_78((List *)var_31, rslt35, (Value *)fn_2921); return (rslt38); }; -Value *arityImpl_2923(List *closures, Value *arg0) { +Value *arityImpl_2916(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -36727,12 +36661,12 @@ Value *val7 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_226); +Value *rslt0 = arityImpl_1947((List *)var_31, (Value *)&_str_225); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2925; +arity_1->fn = arityImpl_2918; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); @@ -36740,88 +36674,88 @@ arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val6, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val7, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); -Function *fn_2924 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2924->type = 3; -fn_2924->name = "anon"; -fn_2924->arityCount = 1; -fn_2924->arities[0] = arity_1; -Value *rslt8 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2924); +Function *fn_2917 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2917->type = 3; +fn_2917->name = "anon"; +fn_2917->arityCount = 1; +fn_2917->arities[0] = arity_1; +Value *rslt8 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2917); return (rslt8); }; -Value *arityImpl_2919(List *closures, Value *arg0, Value *arg1, Value *arg2, Value *arg3) { +Value *arityImpl_2912(List *closures, Value *arg0, Value *arg1, Value *arg2, Value *arg3) { Value *rslt0 = arityImpl_524((List *)var_31, arg3, (Value *)&_num_8, (Value *)&_num_1); -Value *rslt1 = arityImpl_674((List *)var_31, rslt0); -Value *rslt3 = protoFnImpl_125((List *)var_31, rslt1, (Value *)&fn_2920); -Value *rslt4 = arityImpl_1954((List *)var_31, (Value *)&_str_225); +Value *rslt1 = arityImpl_664((List *)var_31, rslt0); +Value *rslt3 = protoFnImpl_125((List *)var_31, rslt1, (Value *)&fn_2913); +Value *rslt4 = arityImpl_1947((List *)var_31, (Value *)&_str_224); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_2923; +arity_5->fn = arityImpl_2916; arity_5->closures = listCons((Value *)rslt3, (List *)arity_5->closures); arity_5->closures = listCons((Value *)arg2, (List *)arity_5->closures); arity_5->closures = listCons((Value *)arg0, (List *)arity_5->closures); arity_5->closures = listCons((Value *)rslt0, (List *)arity_5->closures); arity_5->closures = listCons((Value *)arg1, (List *)arity_5->closures); arity_5->closures = listCons((Value *)rslt4, (List *)arity_5->closures); -Function *fn_2922 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2922->type = 3; -fn_2922->name = "anon"; -fn_2922->arityCount = 1; -fn_2922->arities[0] = arity_5; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_2922); +Function *fn_2915 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2915->type = 3; +fn_2915->name = "anon"; +fn_2915->arityCount = 1; +fn_2915->arities[0] = arity_5; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_2915); return (rslt6); }; // --------- emit-proto-arity main body -------------- -Function fn_2918 = {3, "emit-proto-arity", 1, {&(FnArity){4, (List *)0, 0, arityImpl_2919}}}; +Function fn_2911 = {3, "emit-proto-arity", 1, {&(FnArity){4, (List *)0, 0, arityImpl_2912}}}; struct {int64_t type; int64_t len; - char buffer[12];} _str_243 = {1,11,"protoImpls_"}; + char buffer[12];} _str_242 = {1,11,"protoImpls_"}; struct {int64_t type; int64_t len; - char buffer[11];} _str_244 = {1,10,"defaultFn_"}; + char buffer[11];} _str_243 = {1,10,"defaultFn_"}; struct {int64_t type; int64_t len; - char buffer[13];} _str_245 = {1,12,"ProtoImpls *"}; + char buffer[13];} _str_244 = {1,12,"ProtoImpls *"}; struct {int64_t type; int64_t len; - char buffer[4];} _str_246 = {1,3,",\n"}; + char buffer[4];} _str_245 = {1,3,",\n"}; struct {int64_t type; int64_t len; - char buffer[8];} _str_247 = {1,7,"}};\n\n"}; + char buffer[8];} _str_246 = {1,7,"}};\n\n"}; struct {int64_t type; int64_t len; - char buffer[17];} _str_248 = {1,16,"extern Function "}; -SymKey _kw_74 = {5, -1, ":impls-sym"}; -SymKey _kw_75 = {5, -1, ":extern-def"}; + char buffer[17];} _str_247 = {1,16,"extern Function "}; +SymKey _kw_72 = {5, -1, ":impls-sym"}; +SymKey _kw_73 = {5, -1, ":extern-def"}; // --------- emit-proto-fn -------------- -Function fn_2931; +Function fn_2924; // --------- anon -------------- -Function fn_2933; +Function fn_2926; // --------- anon -------------- -Function fn_2935; +Function fn_2928; // --------- anon -------------- -Function fn_2937; +Function fn_2930; // --------- anon -------------- -Function fn_2939; +Function fn_2932; // --------- anon -------------- -Function fn_2941; +Function fn_2934; // --------- anon -------------- -Function fn_2943; +Function fn_2936; // --------- anon -------------- -Function fn_2945; -Value *arityImpl_2946(List *closures, Value *arg0) { +Function fn_2938; +Value *arityImpl_2939(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -36834,7 +36768,7 @@ Value *rslt2 = protoFnImpl_100((List *)var_31, val0, val1); return (rslt2); }; -Value *arityImpl_2944(List *closures, Value *arg0) { +Value *arityImpl_2937(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -36863,11 +36797,11 @@ Value *cond0; Value *rslt11 = protoFnImpl_179((List *)var_31, val3); if (isTrue(rslt11)) { -Value *rslt12 = arityImpl_985((List *)var_31, (Value *)&_str_19); +Value *rslt12 = arityImpl_975((List *)var_31, (Value *)&_str_19); cond0 = rslt12; } else { Value *rslt4 = protoFnImpl_195((List *)var_31, val3); -Value *rslt5 = arityImpl_149((List *)var_31, val3, (Value *)&_str_246); +Value *rslt5 = arityImpl_149((List *)var_31, val3, (Value *)&_str_245); List *varArgs6 = (List *)GC_malloc(sizeof(List)); varArgs6->type = ListType; varArgs6->len = 0; @@ -36881,17 +36815,17 @@ varArgs8->type = ListType; varArgs8->len = 0; varArgs8->head = (Value *)0; varArgs8->tail = (List *)0; -varArgs8 = (List *)listCons((Value *)(Value *)&_str_247, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_str_246, varArgs8); varArgs8 = (List *)listCons((Value *)rslt7, varArgs8); -varArgs8 = (List *)listCons((Value *)(Value *)&_str_223, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_str_222, varArgs8); varArgs8 = (List *)listCons((Value *)rslt4, varArgs8); -varArgs8 = (List *)listCons((Value *)(Value *)&_str_183, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_str_182, varArgs8); varArgs8 = (List *)listCons((Value *)val2, varArgs8); -varArgs8 = (List *)listCons((Value *)(Value *)&_str_213, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_str_212, varArgs8); varArgs8 = (List *)listCons((Value *)val1, varArgs8); -varArgs8 = (List *)listCons((Value *)(Value *)&_str_179, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_str_178, varArgs8); Value *rslt9 = arityImpl_508((List *)var_31, (Value *)varArgs8); -Value *rslt10 = arityImpl_1944((List *)var_31, rslt9); +Value *rslt10 = arityImpl_1937((List *)var_31, rslt9); cond0 = rslt10; } List *varArgs14 = (List *)GC_malloc(sizeof(List)); @@ -36909,7 +36843,7 @@ varArgs16->tail = (List *)0; varArgs16 = (List *)listCons((Value *)val2, varArgs16); Value *rslt17 = arityImpl_508((List *)var_31, (Value *)varArgs16); Value *rslt18 = protoFnImpl_195((List *)var_31, arg0); -Value *rslt19 = arityImpl_149((List *)var_31, arg0, (Value *)&_str_246); +Value *rslt19 = arityImpl_149((List *)var_31, arg0, (Value *)&_str_245); List *varArgs20 = (List *)GC_malloc(sizeof(List)); varArgs20->type = ListType; varArgs20->len = 0; @@ -36923,24 +36857,24 @@ varArgs22->type = ListType; varArgs22->len = 0; varArgs22->head = (Value *)0; varArgs22->tail = (List *)0; -varArgs22 = (List *)listCons((Value *)(Value *)&_str_247, varArgs22); +varArgs22 = (List *)listCons((Value *)(Value *)&_str_246, varArgs22); varArgs22 = (List *)listCons((Value *)rslt21, varArgs22); -varArgs22 = (List *)listCons((Value *)(Value *)&_str_223, varArgs22); +varArgs22 = (List *)listCons((Value *)(Value *)&_str_222, varArgs22); varArgs22 = (List *)listCons((Value *)rslt18, varArgs22); -varArgs22 = (List *)listCons((Value *)(Value *)&_str_183, varArgs22); +varArgs22 = (List *)listCons((Value *)(Value *)&_str_182, varArgs22); varArgs22 = (List *)listCons((Value *)rslt17, varArgs22); -varArgs22 = (List *)listCons((Value *)(Value *)&_str_213, varArgs22); +varArgs22 = (List *)listCons((Value *)(Value *)&_str_212, varArgs22); varArgs22 = (List *)listCons((Value *)rslt15, varArgs22); -varArgs22 = (List *)listCons((Value *)(Value *)&_str_179, varArgs22); +varArgs22 = (List *)listCons((Value *)(Value *)&_str_178, varArgs22); Value *rslt23 = arityImpl_119((List *)var_31, (Value *)varArgs22); -Value *rslt24 = arityImpl_1949((List *)var_31, rslt23); +Value *rslt24 = arityImpl_1942((List *)var_31, rslt23); List *varArgs25 = (List *)GC_malloc(sizeof(List)); varArgs25->type = ListType; varArgs25->len = 0; varArgs25->head = (Value *)0; varArgs25->tail = (List *)0; varArgs25 = (List *)listCons((Value *)val2, varArgs25); -varArgs25 = (List *)listCons((Value *)(Value *)&_kw_49, varArgs25); +varArgs25 = (List *)listCons((Value *)(Value *)&_kw_47, varArgs25); Value *rslt26 = arityImpl_119((List *)var_31, (Value *)varArgs25); List *varArgs27 = (List *)GC_malloc(sizeof(List)); varArgs27->type = ListType; @@ -36948,7 +36882,7 @@ varArgs27->len = 0; varArgs27->head = (Value *)0; varArgs27->tail = (List *)0; varArgs27 = (List *)listCons((Value *)val13, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_str_179, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_str_178, varArgs27); Value *rslt28 = arityImpl_508((List *)var_31, (Value *)varArgs27); List *varArgs29 = (List *)GC_malloc(sizeof(List)); varArgs29->type = ListType; @@ -36956,7 +36890,7 @@ varArgs29->len = 0; varArgs29->head = (Value *)0; varArgs29->tail = (List *)0; varArgs29 = (List *)listCons((Value *)val13, varArgs29); -varArgs29 = (List *)listCons((Value *)(Value *)&_str_104, varArgs29); +varArgs29 = (List *)listCons((Value *)(Value *)&_str_103, varArgs29); Value *rslt30 = arityImpl_508((List *)var_31, (Value *)varArgs29); List *varArgs31 = (List *)GC_malloc(sizeof(List)); varArgs31->type = ListType; @@ -36966,14 +36900,14 @@ varArgs31->tail = (List *)0; varArgs31 = (List *)listCons((Value *)rslt30, varArgs31); varArgs31 = (List *)listCons((Value *)rslt28, varArgs31); Value *rslt32 = arityImpl_119((List *)var_31, (Value *)varArgs31); -Value *rslt33 = arityImpl_1022((List *)var_31, rslt26, rslt32); +Value *rslt33 = arityImpl_1012((List *)var_31, rslt26, rslt32); List *varArgs34 = (List *)GC_malloc(sizeof(List)); varArgs34->type = ListType; varArgs34->len = 0; varArgs34->head = (Value *)0; varArgs34->tail = (List *)0; varArgs34 = (List *)listCons((Value *)val2, varArgs34); -varArgs34 = (List *)listCons((Value *)(Value *)&_kw_66, varArgs34); +varArgs34 = (List *)listCons((Value *)(Value *)&_kw_64, varArgs34); Value *rslt35 = arityImpl_119((List *)var_31, (Value *)varArgs34); Value *cond37; Value *rslt42 = protoFnImpl_179((List *)var_31, val3); @@ -36993,7 +36927,7 @@ varArgs38->len = 0; varArgs38->head = (Value *)0; varArgs38->tail = (List *)0; varArgs38 = (List *)listCons((Value *)val1, varArgs38); -varArgs38 = (List *)listCons((Value *)(Value *)&_str_104, varArgs38); +varArgs38 = (List *)listCons((Value *)(Value *)&_str_103, varArgs38); Value *rslt39 = arityImpl_508((List *)var_31, (Value *)varArgs38); List *varArgs40 = (List *)GC_malloc(sizeof(List)); varArgs40->type = ListType; @@ -37001,7 +36935,7 @@ varArgs40->len = 0; varArgs40->head = (Value *)0; varArgs40->tail = (List *)0; varArgs40 = (List *)listCons((Value *)rslt39, varArgs40); -varArgs40 = (List *)listCons((Value *)(Value *)&_kw_32, varArgs40); +varArgs40 = (List *)listCons((Value *)(Value *)&_kw_30, varArgs40); Value *rslt41 = arityImpl_623((List *)var_31, (Value *)varArgs40); cond37 = rslt41; } @@ -37010,9 +36944,9 @@ varArgs45->type = ListType; varArgs45->len = 0; varArgs45->head = (Value *)0; varArgs45->tail = (List *)0; -varArgs45 = (List *)listCons((Value *)(Value *)&_str_56, varArgs45); +varArgs45 = (List *)listCons((Value *)(Value *)&_str_55, varArgs45); varArgs45 = (List *)listCons((Value *)val13, varArgs45); -varArgs45 = (List *)listCons((Value *)(Value *)&_str_248, varArgs45); +varArgs45 = (List *)listCons((Value *)(Value *)&_str_247, varArgs45); Value *rslt46 = arityImpl_508((List *)var_31, (Value *)varArgs45); List *varArgs47 = (List *)GC_malloc(sizeof(List)); varArgs47->type = ListType; @@ -37020,13 +36954,13 @@ varArgs47->len = 0; varArgs47->head = (Value *)0; varArgs47->tail = (List *)0; varArgs47 = (List *)listCons((Value *)rslt46, varArgs47); -varArgs47 = (List *)listCons((Value *)(Value *)&_kw_75, varArgs47); +varArgs47 = (List *)listCons((Value *)(Value *)&_kw_73, varArgs47); varArgs47 = (List *)listCons((Value *)cond37, varArgs47); -varArgs47 = (List *)listCons((Value *)(Value *)&_kw_67, varArgs47); +varArgs47 = (List *)listCons((Value *)(Value *)&_kw_65, varArgs47); varArgs47 = (List *)listCons((Value *)val36, varArgs47); -varArgs47 = (List *)listCons((Value *)(Value *)&_kw_74, varArgs47); +varArgs47 = (List *)listCons((Value *)(Value *)&_kw_72, varArgs47); Value *rslt48 = arityImpl_623((List *)var_31, (Value *)varArgs47); -Value *rslt49 = arityImpl_1022((List *)var_31, rslt35, rslt48); +Value *rslt49 = arityImpl_1012((List *)var_31, rslt35, rslt48); List *varArgs50 = (List *)GC_malloc(sizeof(List)); varArgs50->type = ListType; varArgs50->len = 0; @@ -37042,19 +36976,19 @@ FnArity *arity_52 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_52->count = 1; arity_52->closures = empty_list; arity_52->variadic = 0; -arity_52->fn = arityImpl_2946; +arity_52->fn = arityImpl_2939; arity_52->closures = listCons((Value *)val13, (List *)arity_52->closures); arity_52->closures = listCons((Value *)val53, (List *)arity_52->closures); -Function *fn_2945 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2945->type = 3; -fn_2945->name = "anon"; -fn_2945->arityCount = 1; -fn_2945->arities[0] = arity_52; -Value *rslt54 = protoFnImpl_78((List *)var_31, rslt51, (Value *)fn_2945); +Function *fn_2938 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2938->type = 3; +fn_2938->name = "anon"; +fn_2938->arityCount = 1; +fn_2938->arities[0] = arity_52; +Value *rslt54 = protoFnImpl_78((List *)var_31, rslt51, (Value *)fn_2938); return (rslt54); }; -Value *arityImpl_2942(List *closures, Value *arg0) { +Value *arityImpl_2935(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -37087,30 +37021,30 @@ varArgs4->tail = (List *)0; varArgs4 = (List *)listCons((Value *)val3, varArgs4); varArgs4 = (List *)listCons((Value *)val2, varArgs4); varArgs4 = (List *)listCons((Value *)val1, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&fn_2918, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&fn_2911, varArgs4); Value *rslt5 = arityImpl_389((List *)var_31, (Value *)varArgs4); Value *rslt6 = protoFnImpl_232((List *)var_31, val0, rslt5); FnArity *arity_7 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_7->count = 1; arity_7->closures = empty_list; arity_7->variadic = 0; -arity_7->fn = arityImpl_2944; +arity_7->fn = arityImpl_2937; arity_7->closures = listCons((Value *)val8, (List *)arity_7->closures); arity_7->closures = listCons((Value *)val3, (List *)arity_7->closures); arity_7->closures = listCons((Value *)val2, (List *)arity_7->closures); arity_7->closures = listCons((Value *)arg0, (List *)arity_7->closures); arity_7->closures = listCons((Value *)val1, (List *)arity_7->closures); arity_7->closures = listCons((Value *)val9, (List *)arity_7->closures); -Function *fn_2943 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2943->type = 3; -fn_2943->name = "anon"; -fn_2943->arityCount = 1; -fn_2943->arities[0] = arity_7; -Value *rslt10 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_2943); +Function *fn_2936 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2936->type = 3; +fn_2936->name = "anon"; +fn_2936->arityCount = 1; +fn_2936->arities[0] = arity_7; +Value *rslt10 = protoFnImpl_78((List *)var_31, rslt6, (Value *)fn_2936); return (rslt10); }; -Value *arityImpl_2940(List *closures, Value *arg0) { +Value *arityImpl_2933(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -37135,28 +37069,28 @@ Value *val7 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = protoFnImpl_237((List *)var_31, val0, (Value *)&fn_2911); +Value *rslt1 = protoFnImpl_237((List *)var_31, val0, (Value *)&fn_2904); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2942; +arity_2->fn = arityImpl_2935; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val5, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val6, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val7, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val0, (List *)arity_2->closures); -Function *fn_2941 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2941->type = 3; -fn_2941->name = "anon"; -fn_2941->arityCount = 1; -fn_2941->arities[0] = arity_2; -Value *rslt8 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2941); +Function *fn_2934 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2934->type = 3; +fn_2934->name = "anon"; +fn_2934->arityCount = 1; +fn_2934->arities[0] = arity_2; +Value *rslt8 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_2934); return (rslt8); }; -Value *arityImpl_2938(List *closures, Value *arg0) { +Value *arityImpl_2931(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -37182,32 +37116,32 @@ varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)(Value *)&_str_117, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_116, varArgs1); varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_245, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_244, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1944((List *)var_31, rslt2); +Value *rslt3 = arityImpl_1937((List *)var_31, rslt2); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_2940; +arity_4->fn = arityImpl_2933; arity_4->closures = listCons((Value *)val5, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val6, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val0, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val7, (List *)arity_4->closures); arity_4->closures = listCons((Value *)arg0, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val8, (List *)arity_4->closures); -Function *fn_2939 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2939->type = 3; -fn_2939->name = "anon"; -fn_2939->arityCount = 1; -fn_2939->arities[0] = arity_4; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2939); +Function *fn_2932 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2932->type = 3; +fn_2932->name = "anon"; +fn_2932->arityCount = 1; +fn_2932->arities[0] = arity_4; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2932); return (rslt9); }; -Value *arityImpl_2936(List *closures, Value *arg0) { +Value *arityImpl_2929(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -37224,27 +37158,27 @@ Value *val5 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_244); +Value *rslt0 = arityImpl_1947((List *)var_31, (Value *)&_str_243); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2938; +arity_1->fn = arityImpl_2931; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val5, (List *)arity_1->closures); -Function *fn_2937 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2937->type = 3; -fn_2937->name = "anon"; -fn_2937->arityCount = 1; -fn_2937->arities[0] = arity_1; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2937); +Function *fn_2930 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2930->type = 3; +fn_2930->name = "anon"; +fn_2930->arityCount = 1; +fn_2930->arities[0] = arity_1; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2930); return (rslt6); }; -Value *arityImpl_2934(List *closures, Value *arg0) { +Value *arityImpl_2927(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -37257,54 +37191,54 @@ Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1954((List *)var_31, (Value *)&_str_206); +Value *rslt0 = arityImpl_1947((List *)var_31, (Value *)&_str_205); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2936; +arity_1->fn = arityImpl_2929; arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val4, (List *)arity_1->closures); -Function *fn_2935 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2935->type = 3; -fn_2935->name = "anon"; -fn_2935->arityCount = 1; -fn_2935->arities[0] = arity_1; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2935); +Function *fn_2928 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2928->type = 3; +fn_2928->name = "anon"; +fn_2928->arityCount = 1; +fn_2928->arities[0] = arity_1; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2928); return (rslt5); }; -Value *arityImpl_2932(List *closures, Value *arg0) { +Value *arityImpl_2925(List *closures, Value *arg0) { Value *rslt0 = protoFnImpl_219((List *)var_31, arg0); Value *rslt1 = arityImpl_227((List *)var_31, arg0); Value *rslt2 = protoFnImpl_214((List *)var_31, rslt1); -Value *rslt3 = arityImpl_1954((List *)var_31, (Value *)&_str_243); +Value *rslt3 = arityImpl_1947((List *)var_31, (Value *)&_str_242); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_2934; +arity_4->fn = arityImpl_2927; arity_4->closures = listCons((Value *)rslt2, (List *)arity_4->closures); arity_4->closures = listCons((Value *)rslt3, (List *)arity_4->closures); arity_4->closures = listCons((Value *)rslt0, (List *)arity_4->closures); -Function *fn_2933 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2933->type = 3; -fn_2933->name = "anon"; -fn_2933->arityCount = 1; -fn_2933->arities[0] = arity_4; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2933); +Function *fn_2926 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2926->type = 3; +fn_2926->name = "anon"; +fn_2926->arityCount = 1; +fn_2926->arities[0] = arity_4; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_2926); return (rslt5); }; // --------- emit-proto-fn main body -------------- -Function fn_2931 = {3, "emit-proto-fn", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2932}}}; -Value *var_1510 = (Value *)&fn_2931; -ProtoImpls *protoImpls_2947; -Value *protoFnImpl_2950(List *closures, Value *arg0) { - Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2947); +Function fn_2924 = {3, "emit-proto-fn", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2925}}}; +Value *var_1500 = (Value *)&fn_2924; +ProtoImpls *protoImpls_2940; +Value *protoFnImpl_2943(List *closures, Value *arg0) { + Function *implFn = (Function *)findProtoImpl(arg0->type, protoImpls_2940); if(implFn == (Function *)0) { fprintf(stderr, "\n*** Could not find proto impl for '.prototypes' %lld\n", arg0->type); abort(); @@ -37317,56 +37251,56 @@ abort(); FnType1 *_fn = (FnType1 *)_arity->fn; return(_fn(_arity->closures, arg0)); } -FnArity protoFnArity_2951 = {1, (List *)0, 0, protoFnImpl_2950}; -Function protoFn_2948 = {3, ".prototypes", 1, {&protoFnArity_2951}}; +FnArity protoFnArity_2944 = {1, (List *)0, 0, protoFnImpl_2943}; +Function protoFn_2941 = {3, ".prototypes", 1, {&protoFnArity_2944}}; -Number _num_51 = {2, -1, 84}; +Number _num_51 = {2, -1, 83}; // --------- instance?_impl -------------- -Function fn_2952; -Value *arityImpl_2953(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1892((List *)var_31, arg1); +Function fn_2945; +Value *arityImpl_2946(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1882((List *)var_31, arg1); Value *rslt1 = arityImpl_283((List *)var_31, (Value *)&_num_51, rslt0); return (rslt1); }; // --------- instance?_impl main body -------------- -Function fn_2952 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2953}}}; -Value *protoImpl_2954(List *closures, Value *arg0, Value *arg1) { +Function fn_2945 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2946}}}; +Value *protoImpl_2947(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_2955 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2954}}}; +Function protoFn_2948 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_2947}}}; // --------- invoke_impl -------------- -Function fn_2956; +Function fn_2949; // --------- emit-c_impl -------------- -Function fn_2958; -Value *arityImpl_2959(List *closures, Value *arg0) { +Function fn_2951; +Value *arityImpl_2952(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt1 = protoFnImpl_214((List *)var_31, val0); -Value *rslt2 = protoFnImpl_232((List *)var_31, rslt1, (Value *)&fn_2931); +Value *rslt2 = protoFnImpl_232((List *)var_31, rslt1, (Value *)&fn_2924); return (rslt2); }; -Value *protoImpl_2960(List *closures, Value *arg0) { +Value *protoImpl_2953(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2961 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2960}}}; +Function protoFn_2954 = {3, "emit-c", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2953}}}; // --------- .name_impl -------------- -Function fn_2962; -Value *arityImpl_2963(List *closures, Value *arg0) { +Function fn_2955; +Value *arityImpl_2956(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -37374,17 +37308,17 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2964(List *closures, Value *arg0) { +Value *protoImpl_2957(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2965 = {3, ".name", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2964}}}; +Function protoFn_2958 = {3, ".name", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2957}}}; // --------- .prototypes_impl -------------- -Function fn_2966; -Value *arityImpl_2967(List *closures, Value *arg0) { +Function fn_2959; +Value *arityImpl_2960(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -37392,84 +37326,84 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_2968(List *closures, Value *arg0) { +Value *protoImpl_2961(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_2969 = {3, ".prototypes", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2968}}}; +Function protoFn_2962 = {3, ".prototypes", 1, {&(FnArity){1, (List *)0, 0, protoImpl_2961}}}; -Value *arityImpl_2957(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Value *arityImpl_2950(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_2959; +arity_0->fn = arityImpl_2952; arity_0->closures = listCons((Value *)arg2, (List *)arity_0->closures); -Function *fn_2958 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2958->type = 3; -fn_2958->name = "emit-c_impl"; -fn_2958->arityCount = 1; -fn_2958->arities[0] = arity_0; +Function *fn_2951 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2951->type = 3; +fn_2951->name = "emit-c_impl"; +fn_2951->arityCount = 1; +fn_2951->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_2963; +arity_1->fn = arityImpl_2956; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_2962 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2962->type = 3; -fn_2962->name = ".name_impl"; -fn_2962->arityCount = 1; -fn_2962->arities[0] = arity_1; +Function *fn_2955 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2955->type = 3; +fn_2955->name = ".name_impl"; +fn_2955->arityCount = 1; +fn_2955->arities[0] = arity_1; FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_2967; +arity_2->fn = arityImpl_2960; arity_2->closures = listCons((Value *)arg2, (List *)arity_2->closures); -Function *fn_2966 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2966->type = 3; -fn_2966->name = ".prototypes_impl"; -fn_2966->arityCount = 1; -fn_2966->arities[0] = arity_2; +Function *fn_2959 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2959->type = 3; +fn_2959->name = ".prototypes_impl"; +fn_2959->arityCount = 1; +fn_2959->arities[0] = arity_2; ReifiedVal *reified_3 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 3); -reified_3->type = 84; +reified_3->type = 83; reified_3->implCount = 3; -reified_3->impls[0] = (Value *)fn_2958; -reified_3->impls[1] = (Value *)fn_2962; -reified_3->impls[2] = (Value *)fn_2966; +reified_3->impls[0] = (Value *)fn_2951; +reified_3->impls[1] = (Value *)fn_2955; +reified_3->impls[2] = (Value *)fn_2959; return ((Value *)reified_3); }; // --------- invoke_impl main body -------------- -Function fn_2956 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2957}}}; -Value *protoImpl_2970(List *closures, Value *arg0, Value *arg1, Value *arg2) { +Function fn_2949 = {3, "invoke_impl", 1, {&(FnArity){3, (List *)0, 0, arityImpl_2950}}}; +Value *protoImpl_2963(List *closures, Value *arg0, Value *arg1, Value *arg2) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType3 *)arityPtr->fn)(arityPtr->closures, arg0, arg1, arg2)); }; -Function protoFn_2971 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2970}}}; +Function protoFn_2964 = {3, "invoke", 1, {&(FnArity){3, (List *)0, 0, protoImpl_2963}}}; -ReifiedVal reified_2972 = {83, 2, {(Value *)&fn_2952, (Value *)&fn_2956}}; -Value *var_1508 = (Value *)&reified_2972; +ReifiedVal reified_2965 = {82, 2, {(Value *)&fn_2945, (Value *)&fn_2949}}; +Value *var_1498 = (Value *)&reified_2965; struct {int64_t type; int64_t len; - char buffer[36];} _str_249 = {1,35,"typedef Value *(FnType0)(List *);\n"}; + char buffer[36];} _str_248 = {1,35,"typedef Value *(FnType0)(List *);\n"}; struct {int64_t type; int64_t len; - char buffer[23];} _str_250 = {1,22,"typedef Value *(FnType"}; + char buffer[23];} _str_249 = {1,22,"typedef Value *(FnType"}; struct {int64_t type; int64_t len; - char buffer[3];} _str_251 = {1,2,")("}; + char buffer[3];} _str_250 = {1,2,")("}; // --------- fixed-fn-types -------------- -Function fn_2973; +Function fn_2966; // --------- anon -------------- -Function fn_2975; -Value *arityImpl_2976(List *closures, Value *arg0) { +Function fn_2968; +Value *arityImpl_2969(List *closures, Value *arg0) { Value *cond0; Value *rslt11 = arityImpl_283((List *)var_31, arg0, (Value *)&_num_8); @@ -37479,9 +37413,9 @@ varArgs12->type = ListType; varArgs12->len = 0; varArgs12->head = (Value *)0; varArgs12->tail = (List *)0; -varArgs12 = (List *)listCons((Value *)(Value *)&_str_249, varArgs12); +varArgs12 = (List *)listCons((Value *)(Value *)&_str_248, varArgs12); Value *rslt13 = arityImpl_508((List *)var_31, (Value *)varArgs12); -Value *rslt14 = arityImpl_1944((List *)var_31, rslt13); +Value *rslt14 = arityImpl_1937((List *)var_31, rslt13); cond0 = rslt14; } else { List *varArgs1 = (List *)GC_malloc(sizeof(List)); @@ -37489,16 +37423,16 @@ varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)(Value *)&_str_251, varArgs1); -varArgs1 = (List *)listCons((Value *)arg0, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_250, varArgs1); +varArgs1 = (List *)listCons((Value *)arg0, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_249, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1944((List *)var_31, rslt2); -Value *rslt4 = arityImpl_677((List *)var_31, arg0, (Value *)&_str_84); -Value *rslt5 = arityImpl_1912((List *)var_31, (Value *)&_str_93, rslt4); +Value *rslt3 = arityImpl_1937((List *)var_31, rslt2); +Value *rslt4 = arityImpl_667((List *)var_31, arg0, (Value *)&_str_83); +Value *rslt5 = arityImpl_1905((List *)var_31, (Value *)&_str_92, rslt4); Value *rslt6 = arityImpl_149((List *)var_31, rslt5, (Value *)&_str_17); -Value *rslt7 = arityImpl_1949((List *)var_31, rslt6); -Value *rslt8 = arityImpl_1944((List *)var_31, (Value *)&_str_109); +Value *rslt7 = arityImpl_1942((List *)var_31, rslt6); +Value *rslt8 = arityImpl_1937((List *)var_31, (Value *)&_str_108); List *varArgs9 = (List *)GC_malloc(sizeof(List)); varArgs9->type = ListType; varArgs9->len = 0; @@ -37516,23 +37450,23 @@ return (cond0); // --------- anon main body -------------- -Function fn_2975 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2976}}}; -Value *arityImpl_2974(List *closures) { -Value *rslt0 = arityImpl_674((List *)var_31, (Value *)&_num_24); -Value *rslt2 = protoFnImpl_232((List *)var_31, rslt0, (Value *)&fn_2975); +Function fn_2968 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2969}}}; +Value *arityImpl_2967(List *closures) { +Value *rslt0 = arityImpl_664((List *)var_31, (Value *)&_num_24); +Value *rslt2 = protoFnImpl_232((List *)var_31, rslt0, (Value *)&fn_2968); return (rslt2); }; // --------- fixed-fn-types main body -------------- -Function fn_2973 = {3, "fixed-fn-types", 1, {&(FnArity){0, (List *)0, 0, arityImpl_2974}}}; +Function fn_2966 = {3, "fixed-fn-types", 1, {&(FnArity){0, (List *)0, 0, arityImpl_2967}}}; struct {int64_t type; int64_t len; - char buffer[4];} _str_252 = {1,3,"..."}; + char buffer[4];} _str_251 = {1,3,"..."}; // --------- extern-fn -------------- -Function fn_2978; -Value *arityImpl_2979(List *closures, Value *varArgs) { +Function fn_2971; +Value *arityImpl_2972(List *closures, Value *varArgs) { List *argsList = (List *)varArgs; Value *arg0 = argsList->head; if (argsList->tail) argsList->tail->len = argsList->len - 1; @@ -37552,7 +37486,7 @@ varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)(Value *)&_str_252, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_251, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); cond0 = rslt2; } else { @@ -37575,12 +37509,12 @@ varArgs5 = (List *)listCons((Value *)(Value *)&_str_16, varArgs5); varArgs5 = (List *)listCons((Value *)arg0, varArgs5); varArgs5 = (List *)listCons((Value *)(Value *)&_str_7, varArgs5); varArgs5 = (List *)listCons((Value *)arg2, varArgs5); -varArgs5 = (List *)listCons((Value *)(Value *)&_str_121, varArgs5); +varArgs5 = (List *)listCons((Value *)(Value *)&_str_120, varArgs5); Value *rslt6 = arityImpl_508((List *)var_31, (Value *)varArgs5); -Value *rslt7 = arityImpl_1944((List *)var_31, rslt6); +Value *rslt7 = arityImpl_1937((List *)var_31, rslt6); Value *rslt8 = arityImpl_149((List *)var_31, rslt4, (Value *)&_str_17); -Value *rslt9 = arityImpl_1949((List *)var_31, rslt8); -Value *rslt10 = arityImpl_1944((List *)var_31, (Value *)&_str_109); +Value *rslt9 = arityImpl_1942((List *)var_31, rslt8); +Value *rslt10 = arityImpl_1937((List *)var_31, (Value *)&_str_108); List *varArgs11 = (List *)GC_malloc(sizeof(List)); varArgs11->type = ListType; varArgs11->len = 0; @@ -37595,57 +37529,57 @@ return (rslt12); }; // --------- extern-fn main body -------------- -Function fn_2978 = {3, "extern-fn", 1, {&(FnArity){2, (List *)0, 1, arityImpl_2979}}}; +Function fn_2971 = {3, "extern-fn", 1, {&(FnArity){2, (List *)0, 1, arityImpl_2972}}}; struct {int64_t type; int64_t len; - char buffer[13];} _str_253 = {1,12,"const char *"}; + char buffer[13];} _str_252 = {1,12,"const char *"}; SymKey _sym_36 = {7, -1, "abort"}; SymKey _sym_37 = {7, -1, "printf"}; SymKey _sym_38 = {7, -1, "GC_init"}; SymKey _sym_39 = {7, -1, "GC_malloc"}; // --------- extern-functions -------------- -Function fn_2981; -Value *arityImpl_2982(List *closures) { -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_8); +Function fn_2974; +Value *arityImpl_2975(List *closures) { +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_8); List *varArgs1 = (List *)GC_malloc(sizeof(List)); varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)(Value *)&_str_78, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_77, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_num_8, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_sym_36, varArgs1); -Value *rslt2 = arityImpl_2979((List *)var_31, (Value *)varArgs1); +Value *rslt2 = arityImpl_2972((List *)var_31, (Value *)varArgs1); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; -varArgs3 = (List *)listCons((Value *)(Value *)&_str_253, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_str_81, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_252, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_80, varArgs3); varArgs3 = (List *)listCons((Value *)(Value *)&_num_1, varArgs3); varArgs3 = (List *)listCons((Value *)(Value *)&_sym_37, varArgs3); -Value *rslt4 = arityImpl_2979((List *)var_31, (Value *)varArgs3); +Value *rslt4 = arityImpl_2972((List *)var_31, (Value *)varArgs3); List *varArgs5 = (List *)GC_malloc(sizeof(List)); varArgs5->type = ListType; varArgs5->len = 0; varArgs5->head = (Value *)0; varArgs5->tail = (List *)0; -varArgs5 = (List *)listCons((Value *)(Value *)&_str_78, varArgs5); +varArgs5 = (List *)listCons((Value *)(Value *)&_str_77, varArgs5); varArgs5 = (List *)listCons((Value *)(Value *)&_num_8, varArgs5); varArgs5 = (List *)listCons((Value *)(Value *)&_sym_38, varArgs5); -Value *rslt6 = arityImpl_2979((List *)var_31, (Value *)varArgs5); +Value *rslt6 = arityImpl_2972((List *)var_31, (Value *)varArgs5); List *varArgs7 = (List *)GC_malloc(sizeof(List)); varArgs7->type = ListType; varArgs7->len = 0; varArgs7->head = (Value *)0; varArgs7->tail = (List *)0; -varArgs7 = (List *)listCons((Value *)(Value *)&_str_82, varArgs7); -varArgs7 = (List *)listCons((Value *)(Value *)&_str_84, varArgs7); +varArgs7 = (List *)listCons((Value *)(Value *)&_str_81, varArgs7); +varArgs7 = (List *)listCons((Value *)(Value *)&_str_83, varArgs7); varArgs7 = (List *)listCons((Value *)(Value *)&_num_8, varArgs7); varArgs7 = (List *)listCons((Value *)(Value *)&_sym_39, varArgs7); -Value *rslt8 = arityImpl_2979((List *)var_31, (Value *)varArgs7); +Value *rslt8 = arityImpl_2972((List *)var_31, (Value *)varArgs7); List *varArgs9 = (List *)GC_malloc(sizeof(List)); varArgs9->type = ListType; varArgs9->len = 0; @@ -37663,56 +37597,55 @@ return (rslt10); // --------- extern-functions main body -------------- -Function fn_2981 = {3, "extern-functions", 1, {&(FnArity){0, (List *)0, 0, arityImpl_2982}}}; +Function fn_2974 = {3, "extern-functions", 1, {&(FnArity){0, (List *)0, 0, arityImpl_2975}}}; struct {int64_t type; int64_t len; - char buffer[15];} _str_254 = {1,14,"Value* true;\n"}; + char buffer[15];} _str_253 = {1,14,"Value* true;\n"}; struct {int64_t type; int64_t len; - char buffer[16];} _str_255 = {1,15,"Value* false;\n"}; + char buffer[16];} _str_254 = {1,15,"Value* false;\n"}; struct {int64_t type; int64_t len; - char buffer[18];} _str_256 = {1,17,"Number trueVal;\n"}; + char buffer[18];} _str_255 = {1,17,"Number trueVal;\n"}; struct {int64_t type; int64_t len; - char buffer[19];} _str_257 = {1,18,"Number falseVal;\n"}; + char buffer[19];} _str_256 = {1,18,"Number falseVal;\n"}; struct {int64_t type; int64_t len; - char buffer[30];} _str_258 = {1,29,"int isTrue(Value *boolVal);\n"}; + char buffer[30];} _str_257 = {1,29,"int isTrue(Value *boolVal);\n"}; struct {int64_t type; int64_t len; - char buffer[57];} _str_259 = {1,56,"Value *findProtoImpl(int64_t type, ProtoImpls *impls);\n"}; + char buffer[57];} _str_258 = {1,56,"Value *findProtoImpl(int64_t type, ProtoImpls *impls);\n"}; struct {int64_t type; int64_t len; - char buffer[52];} _str_260 = {1,51,"FnArity *findFnArity(Value *fnVal, int argCount);\n"}; + char buffer[52];} _str_259 = {1,51,"FnArity *findFnArity(Value *fnVal, int argCount);\n"}; struct {int64_t type; int64_t len; - char buffer[31];} _str_261 = {1,30,"Value *symbolValue(char *s);\n"}; + char buffer[31];} _str_260 = {1,30,"Value *symbolValue(char *s);\n"}; struct {int64_t type; int64_t len; - char buffer[32];} _str_262 = {1,31,"Value *keywordValue(char *s);\n"}; + char buffer[32];} _str_261 = {1,31,"Value *keywordValue(char *s);\n"}; struct {int64_t type; int64_t len; - char buffer[31];} _str_263 = {1,30,"Value *stringValue(char *s);\n"}; + char buffer[31];} _str_262 = {1,30,"Value *stringValue(char *s);\n"}; struct {int64_t type; int64_t len; - char buffer[63];} _str_264 = {1,62,"Value *makeSubstr(int64_t len, Value *str, char *subsStart);\n"}; + char buffer[63];} _str_263 = {1,62,"Value *makeSubstr(int64_t len, Value *str, char *subsStart);\n"}; struct {int64_t type; int64_t len; - char buffer[33];} _str_265 = {1,32,"Value *numberValue(int64_t n);\n"}; + char buffer[33];} _str_264 = {1,32,"Value *numberValue(int64_t n);\n"}; struct {int64_t type; int64_t len; - char buffer[37];} _str_266 = {1,36,"List *listCons(Value *x, List *l);\n"}; + char buffer[37];} _str_265 = {1,36,"List *listCons(Value *x, List *l);\n"}; // --------- core-base-fns -------------- -Function fn_2984; -Value *arityImpl_2985(List *closures) { +Function fn_2977; +Value *arityImpl_2978(List *closures) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_str_266, varArgs0); varArgs0 = (List *)listCons((Value *)(Value *)&_str_265, varArgs0); varArgs0 = (List *)listCons((Value *)(Value *)&_str_264, varArgs0); varArgs0 = (List *)listCons((Value *)(Value *)&_str_263, varArgs0); @@ -37725,294 +37658,294 @@ varArgs0 = (List *)listCons((Value *)(Value *)&_str_257, varArgs0); varArgs0 = (List *)listCons((Value *)(Value *)&_str_256, varArgs0); varArgs0 = (List *)listCons((Value *)(Value *)&_str_255, varArgs0); varArgs0 = (List *)listCons((Value *)(Value *)&_str_254, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_253, varArgs0); varArgs0 = (List *)listCons((Value *)(Value *)&_str_8, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1949((List *)var_31, rslt1); +Value *rslt2 = arityImpl_1942((List *)var_31, rslt1); return (rslt2); }; // --------- core-base-fns main body -------------- -Function fn_2984 = {3, "core-base-fns", 1, {&(FnArity){0, (List *)0, 0, arityImpl_2985}}}; +Function fn_2977 = {3, "core-base-fns", 1, {&(FnArity){0, (List *)0, 0, arityImpl_2978}}}; struct {int64_t type; int64_t len; - char buffer[40];} _str_267 = {1,39,"Number trueVal = {NumberType, -1, 1};\n"}; + char buffer[40];} _str_266 = {1,39,"Number trueVal = {NumberType, -1, 1};\n"}; struct {int64_t type; int64_t len; - char buffer[35];} _str_268 = {1,34,"Value* true = (Value *)&trueVal;\n"}; + char buffer[35];} _str_267 = {1,34,"Value* true = (Value *)&trueVal;\n"}; struct {int64_t type; int64_t len; - char buffer[41];} _str_269 = {1,40,"Number falseVal = {NumberType, -1, 0};\n"}; + char buffer[41];} _str_268 = {1,40,"Number falseVal = {NumberType, -1, 0};\n"}; struct {int64_t type; int64_t len; - char buffer[37];} _str_270 = {1,36,"Value* false = (Value *)&falseVal;\n"}; + char buffer[37];} _str_269 = {1,36,"Value* false = (Value *)&falseVal;\n"}; struct {int64_t type; int64_t len; - char buffer[31];} _str_271 = {1,30,"int isTrue(Value *boolVal) {\n"}; + char buffer[31];} _str_270 = {1,30,"int isTrue(Value *boolVal) {\n"}; struct {int64_t type; int64_t len; - char buffer[22];} _str_272 = {1,21,"if (boolVal->type != "}; + char buffer[22];} _str_271 = {1,21,"if (boolVal->type != "}; struct {int64_t type; int64_t len; - char buffer[34];} _str_273 = {1,33,"printf(\"Invalid boolean value\\n"}; + char buffer[34];} _str_272 = {1,33,"printf(\"Invalid boolean value\\n"}; struct {int64_t type; int64_t len; - char buffer[68];} _str_274 = {1,67,"\");\nabort();\n}\nelse\nreturn (((Number *)boolVal)->numVal);\n}\n"}; + char buffer[68];} _str_273 = {1,67,"\");\nabort();\n}\nelse\nreturn (((Number *)boolVal)->numVal);\n}\n"}; struct {int64_t type; int64_t len; - char buffer[58];} _str_275 = {1,57,"Value *findProtoImpl(int64_t type, ProtoImpls *impls) {\n"}; + char buffer[58];} _str_274 = {1,57,"Value *findProtoImpl(int64_t type, ProtoImpls *impls) {\n"}; struct {int64_t type; int64_t len; - char buffer[25];} _str_276 = {1,24,"int64_t implIndex = 0;\n"}; + char buffer[25];} _str_275 = {1,24,"int64_t implIndex = 0;\n"}; struct {int64_t type; int64_t len; - char buffer[40];} _str_277 = {1,39,"while(implIndex < impls->implCount) {\n"}; + char buffer[40];} _str_276 = {1,39,"while(implIndex < impls->implCount) {\n"}; struct {int64_t type; int64_t len; - char buffer[46];} _str_278 = {1,45,"if (type != impls->impls[implIndex].type) {\n"}; + char buffer[46];} _str_277 = {1,45,"if (type != impls->impls[implIndex].type) {\n"}; struct {int64_t type; int64_t len; - char buffer[15];} _str_279 = {1,14,"implIndex++;\n"}; + char buffer[15];} _str_278 = {1,14,"implIndex++;\n"}; struct {int64_t type; int64_t len; - char buffer[9];} _str_280 = {1,8,"} else\n"}; + char buffer[9];} _str_279 = {1,8,"} else\n"}; struct {int64_t type; int64_t len; - char buffer[42];} _str_281 = {1,41,"return(impls->impls[implIndex].implFn);\n"}; + char buffer[42];} _str_280 = {1,41,"return(impls->impls[implIndex].implFn);\n"}; struct {int64_t type; int64_t len; - char buffer[30];} _str_282 = {1,29,"return(impls->defaultImpl);\n"}; + char buffer[30];} _str_281 = {1,29,"return(impls->defaultImpl);\n"}; struct {int64_t type; int64_t len; - char buffer[53];} _str_283 = {1,52,"FnArity *findFnArity(Value *fnVal, int argCount) {\n"}; + char buffer[53];} _str_282 = {1,52,"FnArity *findFnArity(Value *fnVal, int argCount) {\n"}; struct {int64_t type; int64_t len; - char buffer[36];} _str_284 = {1,35,"Function *fn = (Function *)fnVal;\n"}; + char buffer[36];} _str_283 = {1,35,"Function *fn = (Function *)fnVal;\n"}; struct {int64_t type; int64_t len; - char buffer[22];} _str_285 = {1,21,"int arityIndex = 0;\n"}; + char buffer[22];} _str_284 = {1,21,"int arityIndex = 0;\n"}; struct {int64_t type; int64_t len; - char buffer[55];} _str_286 = {1,54,"FnArity *arity = (FnArity *)fn->arities[arityIndex];\n"}; + char buffer[55];} _str_285 = {1,54,"FnArity *arity = (FnArity *)fn->arities[arityIndex];\n"}; struct {int64_t type; int64_t len; - char buffer[36];} _str_287 = {1,35,"FnArity *variadic = (FnArity *)0;\n"}; + char buffer[36];} _str_286 = {1,35,"FnArity *variadic = (FnArity *)0;\n"}; struct {int64_t type; int64_t len; - char buffer[39];} _str_288 = {1,38,"while(arityIndex < fn->arityCount) {\n"}; + char buffer[39];} _str_287 = {1,38,"while(arityIndex < fn->arityCount) {\n"}; struct {int64_t type; int64_t len; - char buffer[46];} _str_289 = {1,45,"arity = (FnArity *)fn->arities[arityIndex];\n"}; + char buffer[46];} _str_288 = {1,45,"arity = (FnArity *)fn->arities[arityIndex];\n"}; struct {int64_t type; int64_t len; - char buffer[25];} _str_290 = {1,24,"if (arity->variadic) {\n"}; + char buffer[25];} _str_289 = {1,24,"if (arity->variadic) {\n"}; struct {int64_t type; int64_t len; - char buffer[20];} _str_291 = {1,19,"variadic = arity;\n"}; + char buffer[20];} _str_290 = {1,19,"variadic = arity;\n"}; struct {int64_t type; int64_t len; - char buffer[16];} _str_292 = {1,15,"arityIndex++;\n"}; + char buffer[16];} _str_291 = {1,15,"arityIndex++;\n"}; struct {int64_t type; int64_t len; - char buffer[41];} _str_293 = {1,40,"} else if (arity->count != argCount) {\n"}; + char buffer[41];} _str_292 = {1,40,"} else if (arity->count != argCount) {\n"}; struct {int64_t type; int64_t len; - char buffer[17];} _str_294 = {1,16,"return(arity);\n"}; + char buffer[17];} _str_293 = {1,16,"return(arity);\n"}; struct {int64_t type; int64_t len; - char buffer[20];} _str_295 = {1,19,"return(variadic);\n"}; + char buffer[20];} _str_294 = {1,19,"return(variadic);\n"}; struct {int64_t type; int64_t len; - char buffer[32];} _str_296 = {1,31,"Value *symbolValue(char *s) {\n"}; + char buffer[32];} _str_295 = {1,31,"Value *symbolValue(char *s) {\n"}; struct {int64_t type; int64_t len; - char buffer[53];} _str_297 = {1,52,"SymKey *sym = (SymKey *)GC_malloc(sizeof(SymKey));\n"}; + char buffer[53];} _str_296 = {1,52,"SymKey *sym = (SymKey *)GC_malloc(sizeof(SymKey));\n"}; struct {int64_t type; int64_t len; - char buffer[26];} _str_298 = {1,25,"sym->type = SymbolType;\n"}; + char buffer[26];} _str_297 = {1,25,"sym->type = SymbolType;\n"}; struct {int64_t type; int64_t len; - char buffer[17];} _str_299 = {1,16,"sym->name = s;\n"}; + char buffer[17];} _str_298 = {1,16,"sym->name = s;\n"}; struct {int64_t type; int64_t len; - char buffer[24];} _str_300 = {1,23,"return((Value *)sym);\n"}; + char buffer[24];} _str_299 = {1,23,"return((Value *)sym);\n"}; struct {int64_t type; int64_t len; - char buffer[33];} _str_301 = {1,32,"Value *keywordValue(char *s) {\n"}; + char buffer[33];} _str_300 = {1,32,"Value *keywordValue(char *s) {\n"}; struct {int64_t type; int64_t len; - char buffer[52];} _str_302 = {1,51,"SymKey *kw = (SymKey *)GC_malloc(sizeof(SymKey));\n"}; + char buffer[52];} _str_301 = {1,51,"SymKey *kw = (SymKey *)GC_malloc(sizeof(SymKey));\n"}; struct {int64_t type; int64_t len; - char buffer[26];} _str_303 = {1,25,"kw->type = KeywordType;\n"}; + char buffer[26];} _str_302 = {1,25,"kw->type = KeywordType;\n"}; struct {int64_t type; int64_t len; - char buffer[16];} _str_304 = {1,15,"kw->name = s;\n"}; + char buffer[16];} _str_303 = {1,15,"kw->name = s;\n"}; struct {int64_t type; int64_t len; - char buffer[23];} _str_305 = {1,22,"return((Value *)kw);\n"}; + char buffer[23];} _str_304 = {1,22,"return((Value *)kw);\n"}; struct {int64_t type; int64_t len; - char buffer[32];} _str_306 = {1,31,"Value *stringValue(char *s) {\n"}; + char buffer[32];} _str_305 = {1,31,"Value *stringValue(char *s) {\n"}; struct {int64_t type; int64_t len; - char buffer[27];} _str_307 = {1,26,"int64_t len = strlen(s);\n"}; + char buffer[27];} _str_306 = {1,26,"int64_t len = strlen(s);\n"}; struct {int64_t type; int64_t len; - char buffer[66];} _str_308 = {1,65,"String *strVal = (String *)GC_malloc(sizeof(String) + len + 4);\n"}; + char buffer[66];} _str_307 = {1,65,"String *strVal = (String *)GC_malloc(sizeof(String) + len + 4);\n"}; struct {int64_t type; int64_t len; - char buffer[29];} _str_309 = {1,28,"strVal->type = StringType;\n"}; + char buffer[29];} _str_308 = {1,28,"strVal->type = StringType;\n"}; struct {int64_t type; int64_t len; - char buffer[27];} _str_310 = {1,26,"strVal->len = strlen(s);\n"}; + char buffer[27];} _str_309 = {1,26,"strVal->len = strlen(s);\n"}; struct {int64_t type; int64_t len; - char buffer[35];} _str_311 = {1,34,"strncpy(strVal->buffer, s, len);\n"}; + char buffer[35];} _str_310 = {1,34,"strncpy(strVal->buffer, s, len);\n"}; struct {int64_t type; int64_t len; - char buffer[27];} _str_312 = {1,26,"return((Value *)strVal);\n"}; + char buffer[27];} _str_311 = {1,26,"return((Value *)strVal);\n"}; struct {int64_t type; int64_t len; - char buffer[64];} _str_313 = {1,63,"Value *makeSubstr(int64_t len, Value *str, char *subsStart) {\n"}; + char buffer[64];} _str_312 = {1,63,"Value *makeSubstr(int64_t len, Value *str, char *subsStart) {\n"}; struct {int64_t type; int64_t len; - char buffer[65];} _str_314 = {1,64,"SubString *subStr = (SubString *)GC_malloc(sizeof(SubString));\n"}; + char buffer[65];} _str_313 = {1,64,"SubString *subStr = (SubString *)GC_malloc(sizeof(SubString));\n"}; struct {int64_t type; int64_t len; - char buffer[32];} _str_315 = {1,31,"subStr->type = SubStringType;\n"}; + char buffer[32];} _str_314 = {1,31,"subStr->type = SubStringType;\n"}; struct {int64_t type; int64_t len; - char buffer[21];} _str_316 = {1,20,"subStr->len = len;\n"}; + char buffer[21];} _str_315 = {1,20,"subStr->len = len;\n"}; struct {int64_t type; int64_t len; - char buffer[24];} _str_317 = {1,23,"subStr->source = str;\n"}; + char buffer[24];} _str_316 = {1,23,"subStr->source = str;\n"}; struct {int64_t type; int64_t len; - char buffer[30];} _str_318 = {1,29,"subStr->buffer = subsStart;\n"}; + char buffer[30];} _str_317 = {1,29,"subStr->buffer = subsStart;\n"}; struct {int64_t type; int64_t len; - char buffer[28];} _str_319 = {1,27,"return((Value *)subStr);}\n"}; + char buffer[28];} _str_318 = {1,27,"return((Value *)subStr);}\n"}; struct {int64_t type; int64_t len; - char buffer[34];} _str_320 = {1,33,"Value *numberValue(int64_t n) {\n"}; + char buffer[34];} _str_319 = {1,33,"Value *numberValue(int64_t n) {\n"}; struct {int64_t type; int64_t len; - char buffer[56];} _str_321 = {1,55,"Number *numVal = (Number *)GC_malloc(sizeof(Number));\n"}; + char buffer[56];} _str_320 = {1,55,"Number *numVal = (Number *)GC_malloc(sizeof(Number));\n"}; struct {int64_t type; int64_t len; - char buffer[29];} _str_322 = {1,28,"numVal->type = NumberType;\n"}; + char buffer[29];} _str_321 = {1,28,"numVal->type = NumberType;\n"}; struct {int64_t type; int64_t len; - char buffer[22];} _str_323 = {1,21,"numVal->numVal = n;\n"}; + char buffer[22];} _str_322 = {1,21,"numVal->numVal = n;\n"}; struct {int64_t type; int64_t len; - char buffer[27];} _str_324 = {1,26,"return((Value *)numVal);\n"}; + char buffer[27];} _str_323 = {1,26,"return((Value *)numVal);\n"}; struct {int64_t type; int64_t len; - char buffer[38];} _str_325 = {1,37,"List *listCons(Value *x, List *l) {\n"}; + char buffer[38];} _str_324 = {1,37,"List *listCons(Value *x, List *l) {\n"}; struct {int64_t type; int64_t len; - char buffer[29];} _str_326 = {1,28,"if (l->type != ListType) {\n"}; + char buffer[29];} _str_325 = {1,28,"if (l->type != ListType) {\n"}; struct {int64_t type; int64_t len; - char buffer[40];} _str_327 = {1,39,"printf(\"'cons' requires a list\ + char buffer[40];} _str_326 = {1,39,"printf(\"'cons' requires a list\ \");\n"}; struct {int64_t type; int64_t len; - char buffer[11];} _str_328 = {1,10,"abort();\n"}; + char buffer[11];} _str_327 = {1,10,"abort();\n"}; struct {int64_t type; int64_t len; - char buffer[51];} _str_329 = {1,50,"List *newList = (List *)GC_malloc(sizeof(List));\n"}; + char buffer[51];} _str_328 = {1,50,"List *newList = (List *)GC_malloc(sizeof(List));\n"}; struct {int64_t type; int64_t len; - char buffer[29];} _str_330 = {1,28,"List *oldList = (List *)l;\n"}; + char buffer[29];} _str_329 = {1,28,"List *oldList = (List *)l;\n"}; struct {int64_t type; int64_t len; - char buffer[28];} _str_331 = {1,27,"newList->type = ListType;\n"}; + char buffer[28];} _str_330 = {1,27,"newList->type = ListType;\n"}; struct {int64_t type; int64_t len; - char buffer[35];} _str_332 = {1,34,"newList->len = oldList->len + 1;\n"}; + char buffer[35];} _str_331 = {1,34,"newList->len = oldList->len + 1;\n"}; struct {int64_t type; int64_t len; - char buffer[30];} _str_333 = {1,29,"newList->head = (Value *)x;\n"}; + char buffer[30];} _str_332 = {1,29,"newList->head = (Value *)x;\n"}; struct {int64_t type; int64_t len; - char buffer[27];} _str_334 = {1,26,"newList->tail = oldList;\n"}; + char buffer[27];} _str_333 = {1,26,"newList->tail = oldList;\n"}; struct {int64_t type; int64_t len; - char buffer[19];} _str_335 = {1,18,"return(newList);\n"}; + char buffer[19];} _str_334 = {1,18,"return(newList);\n"}; Number _num_52 = {2, -1, 99}; // --------- base-fns -------------- -Function fn_2987; -Value *arityImpl_2988(List *closures) { -Value *rslt0 = arityImpl_1855((List *)var_31); +Function fn_2980; +Value *arityImpl_2981(List *closures) { +Value *rslt0 = arityImpl_1845((List *)var_31); Value *rslt1 = protoFnImpl_261((List *)var_31, rslt0, (Value *)&_sym_21, (Value *)&_num_52); List *varArgs2 = (List *)GC_malloc(sizeof(List)); varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)(Value *)&_str_133, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_335, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_132, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_334, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_333, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_332, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_331, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_330, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_329, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_203, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_328, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_202, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_327, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_326, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_325, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_8, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_133, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_324, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_8, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_132, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_323, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_322, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_321, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_320, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_8, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_319, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_8, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_318, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_317, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_316, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_315, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_314, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_313, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_8, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_133, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_312, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_8, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_132, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_311, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_310, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_309, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_308, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_307, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_306, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_8, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_133, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_305, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_8, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_132, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_304, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_303, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_302, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_301, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_8, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_133, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_300, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_8, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_132, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_299, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_298, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_297, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_296, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_8, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_136, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_295, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_203, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_8, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_135, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_294, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_280, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_292, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_202, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_293, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_279, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_291, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_292, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_291, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_290, varArgs2); @@ -38023,47 +37956,48 @@ varArgs2 = (List *)listCons((Value *)(Value *)&_str_286, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_285, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_284, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_283, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_136, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_282, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_203, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_135, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_281, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_202, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_280, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_279, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_278, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_277, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_276, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_275, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_8, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_274, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_8, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_273, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_135, varArgs2); -varArgs2 = (List *)listCons((Value *)rslt1, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_272, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_134, varArgs2); +varArgs2 = (List *)listCons((Value *)rslt1, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_271, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_8, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_270, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_8, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_269, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_268, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_267, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_266, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_8, varArgs2); Value *rslt3 = arityImpl_119((List *)var_31, (Value *)varArgs2); -Value *rslt4 = arityImpl_1949((List *)var_31, rslt3); +Value *rslt4 = arityImpl_1942((List *)var_31, rslt3); return (rslt4); }; // --------- base-fns main body -------------- -Function fn_2987 = {3, "base-fns", 1, {&(FnArity){0, (List *)0, 0, arityImpl_2988}}}; +Function fn_2980 = {3, "base-fns", 1, {&(FnArity){0, (List *)0, 0, arityImpl_2981}}}; struct {int64_t type; int64_t len; - char buffer[11];} _str_336 = {1,10,"(Value *)0"}; + char buffer[11];} _str_335 = {1,10,"(Value *)0"}; // --------- emit-impl -------------- -Function fn_2990; +Function fn_2983; // --------- anon -------------- -Function fn_2992; -Value *arityImpl_2993(List *closures, Value *arg0) { +Function fn_2985; +Value *arityImpl_2986(List *closures, Value *arg0) { Value *rslt0 = arityImpl_149((List *)var_31, arg0, (Value *)&_str_17); List *varArgs1 = (List *)GC_malloc(sizeof(List)); varArgs1->type = ListType; @@ -38087,33 +38021,33 @@ return (rslt4); // --------- anon main body -------------- -Function fn_2992 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2993}}}; -Value *arityImpl_2991(List *closures, Value *arg0, Value *arg1) { +Function fn_2985 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2986}}}; +Value *arityImpl_2984(List *closures, Value *arg0, Value *arg1) { Value *cond0; -Value *rslt1 = arityImpl_283((List *)var_31, arg0, (Value *)&_kw_73); +Value *rslt1 = arityImpl_283((List *)var_31, arg0, (Value *)&_kw_71); if (isTrue(rslt1)) { -cond0 = (Value *)&_str_336; +cond0 = (Value *)&_str_335; } else { cond0 = arg0; } -Value *rslt3 = protoFnImpl_125((List *)var_31, arg1, (Value *)&fn_2992); +Value *rslt3 = protoFnImpl_125((List *)var_31, arg1, (Value *)&fn_2985); Value *rslt4 = protoFnImpl_195((List *)var_31, rslt3); List *varArgs5 = (List *)GC_malloc(sizeof(List)); varArgs5->type = ListType; varArgs5->len = 0; varArgs5->head = (Value *)0; varArgs5->tail = (List *)0; -varArgs5 = (List *)listCons((Value *)(Value *)&_str_223, varArgs5); +varArgs5 = (List *)listCons((Value *)(Value *)&_str_222, varArgs5); varArgs5 = (List *)listCons((Value *)cond0, varArgs5); varArgs5 = (List *)listCons((Value *)(Value *)&_str_17, varArgs5); varArgs5 = (List *)listCons((Value *)rslt4, varArgs5); varArgs5 = (List *)listCons((Value *)(Value *)&_str_22, varArgs5); Value *rslt6 = arityImpl_508((List *)var_31, (Value *)varArgs5); -Value *rslt7 = arityImpl_1944((List *)var_31, rslt6); +Value *rslt7 = arityImpl_1937((List *)var_31, rslt6); Value *rslt8 = arityImpl_149((List *)var_31, rslt3, (Value *)&_str_17); -Value *rslt9 = arityImpl_1949((List *)var_31, rslt8); -Value *rslt10 = arityImpl_1944((List *)var_31, (Value *)&_str_184); +Value *rslt9 = arityImpl_1942((List *)var_31, rslt8); +Value *rslt10 = arityImpl_1937((List *)var_31, (Value *)&_str_183); List *varArgs11 = (List *)GC_malloc(sizeof(List)); varArgs11->type = ListType; varArgs11->len = 0; @@ -38129,40 +38063,40 @@ return (rslt12); // --------- emit-impl main body -------------- -Function fn_2990 = {3, "emit-impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2991}}}; +Function fn_2983 = {3, "emit-impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_2984}}}; struct {int64_t type; int64_t len; - char buffer[12];} _str_337 = {1,11,"localImpls_"}; + char buffer[12];} _str_336 = {1,11,"localImpls_"}; struct {int64_t type; int64_t len; - char buffer[20];} _str_338 = {1,19,"extern ProtoImpls *"}; + char buffer[20];} _str_337 = {1,19,"extern ProtoImpls *"}; struct {int64_t type; int64_t len; - char buffer[12];} _str_339 = {1,11,"ProtoImpls "}; + char buffer[12];} _str_338 = {1,11,"ProtoImpls "}; // --------- finalize-protocols -------------- -Function fn_2995; +Function fn_2988; // --------- anon -------------- -Function fn_2997; +Function fn_2990; // --------- anon -------------- -Function fn_2999; +Function fn_2992; // --------- anon -------------- -Function fn_3001; +Function fn_2994; // --------- anon -------------- -Function fn_3003; -Value *arityImpl_3004(List *closures, Value *arg0) { +Function fn_2996; +Value *arityImpl_2997(List *closures, Value *arg0) { Value *rslt0 = protoFnImpl_219((List *)var_31, arg0); Value *cond1; -Value *rslt2 = arityImpl_283((List *)var_31, rslt0, (Value *)&_kw_32); +Value *rslt2 = arityImpl_283((List *)var_31, rslt0, (Value *)&_kw_30); if (isTrue(rslt2)) { cond1 = (Value *)&_num_8; } else { -Value *rslt3 = arityImpl_283((List *)var_31, rslt0, (Value *)&_kw_40); +Value *rslt3 = arityImpl_283((List *)var_31, rslt0, (Value *)&_kw_38); if (isTrue(rslt3)) { cond1 = (Value *)&_num_8; @@ -38175,20 +38109,20 @@ return (cond1); // --------- anon main body -------------- -Function fn_3003 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3004}}}; +Function fn_2996 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_2997}}}; // --------- anon -------------- -Function fn_3005; +Function fn_2998; // --------- anon -------------- -Function fn_3007; +Function fn_3000; // --------- anon -------------- -Function fn_3009; +Function fn_3002; // --------- anon -------------- -Function fn_3011; -Value *arityImpl_3012(List *closures, Value *arg0) { +Function fn_3004; +Value *arityImpl_3005(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -38213,7 +38147,7 @@ Value *rslt5 = protoFnImpl_100((List *)var_31, val0, rslt4); return (rslt5); }; -Value *arityImpl_3010(List *closures, Value *arg0) { +Value *arityImpl_3003(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -38234,25 +38168,25 @@ Value *val6 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt2 = arityImpl_2991((List *)var_31, val0, val1); +Value *rslt2 = arityImpl_2984((List *)var_31, val0, val1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_3012; +arity_3->fn = arityImpl_3005; arity_3->closures = listCons((Value *)val4, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val5, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val6, (List *)arity_3->closures); -Function *fn_3011 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3011->type = 3; -fn_3011->name = "anon"; -fn_3011->arityCount = 1; -fn_3011->arities[0] = arity_3; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3011); +Function *fn_3004 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3004->type = 3; +fn_3004->name = "anon"; +fn_3004->arityCount = 1; +fn_3004->arities[0] = arity_3; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3004); return (rslt7); }; -Value *arityImpl_3008(List *closures, Value *arg0) { +Value *arityImpl_3001(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -38278,31 +38212,31 @@ varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)(Value *)&_str_146, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_145, varArgs1); varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_339, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_338, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1944((List *)var_31, rslt2); +Value *rslt3 = arityImpl_1937((List *)var_31, rslt2); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_3010; +arity_4->fn = arityImpl_3003; arity_4->closures = listCons((Value *)val5, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val6, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val0, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val7, (List *)arity_4->closures); arity_4->closures = listCons((Value *)val8, (List *)arity_4->closures); -Function *fn_3009 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3009->type = 3; -fn_3009->name = "anon"; -fn_3009->arityCount = 1; -fn_3009->arities[0] = arity_4; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_3009); +Function *fn_3002 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3002->type = 3; +fn_3002->name = "anon"; +fn_3002->arityCount = 1; +fn_3002->arities[0] = arity_4; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_3002); return (rslt9); }; -Value *arityImpl_3006(List *closures, Value *arg0) { +Value *arityImpl_2999(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -38326,7 +38260,7 @@ closures = closures->tail; Value *cond0; if (isTrue(val5)) { -Value *rslt6 = arityImpl_985((List *)var_31, (Value *)&_str_19); +Value *rslt6 = arityImpl_975((List *)var_31, (Value *)&_str_19); cond0 = rslt6; } else { List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -38334,33 +38268,33 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)(Value *)&_str_117, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_116, varArgs2); varArgs2 = (List *)listCons((Value *)val1, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_338, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_337, varArgs2); Value *rslt3 = arityImpl_508((List *)var_31, (Value *)varArgs2); -Value *rslt4 = arityImpl_1944((List *)var_31, rslt3); +Value *rslt4 = arityImpl_1937((List *)var_31, rslt3); cond0 = rslt4; } FnArity *arity_7 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_7->count = 1; arity_7->closures = empty_list; arity_7->variadic = 0; -arity_7->fn = arityImpl_3008; +arity_7->fn = arityImpl_3001; arity_7->closures = listCons((Value *)val8, (List *)arity_7->closures); arity_7->closures = listCons((Value *)val9, (List *)arity_7->closures); arity_7->closures = listCons((Value *)val1, (List *)arity_7->closures); arity_7->closures = listCons((Value *)val10, (List *)arity_7->closures); arity_7->closures = listCons((Value *)arg0, (List *)arity_7->closures); -Function *fn_3007 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3007->type = 3; -fn_3007->name = "anon"; -fn_3007->arityCount = 1; -fn_3007->arities[0] = arity_7; -Value *rslt11 = protoFnImpl_78((List *)var_31, cond0, (Value *)fn_3007); +Function *fn_3000 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3000->type = 3; +fn_3000->name = "anon"; +fn_3000->arityCount = 1; +fn_3000->arities[0] = arity_7; +Value *rslt11 = protoFnImpl_78((List *)var_31, cond0, (Value *)fn_3000); return (rslt11); }; -Value *arityImpl_3002(List *closures, Value *arg0) { +Value *arityImpl_2995(List *closures, Value *arg0) { Value *val14 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -38373,41 +38307,41 @@ varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; Value *rslt2 = arityImpl_623((List *)var_31, (Value *)varArgs1); Value *rslt3 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, rslt2); -Value *rslt4 = protoFnImpl_261((List *)var_31, rslt3, (Value *)&_kw_74, (Value *)&_str_19); +Value *rslt4 = protoFnImpl_261((List *)var_31, rslt3, (Value *)&_kw_72, (Value *)&_str_19); List *varArgs5 = (List *)GC_malloc(sizeof(List)); varArgs5->type = ListType; varArgs5->len = 0; varArgs5->head = (Value *)0; varArgs5->tail = (List *)0; Value *rslt6 = arityImpl_623((List *)var_31, (Value *)varArgs5); -Value *rslt7 = protoFnImpl_261((List *)var_31, rslt3, (Value *)&_kw_67, rslt6); -Value *rslt8 = protoFnImpl_261((List *)var_31, rslt7, (Value *)&_kw_32, (Value *)&_kw_73); +Value *rslt7 = protoFnImpl_261((List *)var_31, rslt3, (Value *)&_kw_65, rslt6); +Value *rslt8 = protoFnImpl_261((List *)var_31, rslt7, (Value *)&_kw_30, (Value *)&_kw_71); Value *rslt9 = protoFnImpl_214((List *)var_31, rslt7); -Value *rslt11 = arityImpl_300((List *)var_31, rslt9, (Value *)&fn_3003); -Value *rslt12 = arityImpl_1954((List *)var_31, (Value *)&_str_337); +Value *rslt11 = arityImpl_300((List *)var_31, rslt9, (Value *)&fn_2996); +Value *rslt12 = arityImpl_1947((List *)var_31, (Value *)&_str_336); FnArity *arity_13 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_13->count = 1; arity_13->closures = empty_list; arity_13->variadic = 0; -arity_13->fn = arityImpl_3006; +arity_13->fn = arityImpl_2999; arity_13->closures = listCons((Value *)rslt12, (List *)arity_13->closures); arity_13->closures = listCons((Value *)rslt11, (List *)arity_13->closures); arity_13->closures = listCons((Value *)rslt8, (List *)arity_13->closures); arity_13->closures = listCons((Value *)val14, (List *)arity_13->closures); arity_13->closures = listCons((Value *)rslt4, (List *)arity_13->closures); -Function *fn_3005 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3005->type = 3; -fn_3005->name = "anon"; -fn_3005->arityCount = 1; -fn_3005->arities[0] = arity_13; -Value *rslt15 = protoFnImpl_78((List *)var_31, rslt12, (Value *)fn_3005); +Function *fn_2998 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2998->type = 3; +fn_2998->name = "anon"; +fn_2998->arityCount = 1; +fn_2998->arities[0] = arity_13; +Value *rslt15 = protoFnImpl_78((List *)var_31, rslt12, (Value *)fn_2998); return (rslt15); }; // --------- anon -------------- -Function fn_3013; -Value *arityImpl_3014(List *closures, Value *arg0) { +Function fn_3006; +Value *arityImpl_3007(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -38416,7 +38350,7 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, arg0); return (rslt1); }; -Value *arityImpl_3000(List *closures, Value *arg0) { +Value *arityImpl_2993(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -38429,7 +38363,7 @@ Value *cond0; Value *rslt5 = protoFnImpl_179((List *)var_31, val1); if (isTrue(rslt5)) { -Value *rslt6 = arityImpl_985((List *)var_31, (Value *)&_str_19); +Value *rslt6 = arityImpl_975((List *)var_31, (Value *)&_str_19); cond0 = rslt6; } else { Value *rslt2 = protoFnImpl_214((List *)var_31, val1); @@ -38437,151 +38371,150 @@ FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_3002; +arity_3->fn = arityImpl_2995; arity_3->closures = listCons((Value *)arg0, (List *)arity_3->closures); -Function *fn_3001 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3001->type = 3; -fn_3001->name = "anon"; -fn_3001->arityCount = 1; -fn_3001->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_232((List *)var_31, rslt2, (Value *)fn_3001); +Function *fn_2994 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2994->type = 3; +fn_2994->name = "anon"; +fn_2994->arityCount = 1; +fn_2994->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_232((List *)var_31, rslt2, (Value *)fn_2994); cond0 = rslt4; } FnArity *arity_7 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_7->count = 1; arity_7->closures = empty_list; arity_7->variadic = 0; -arity_7->fn = arityImpl_3014; +arity_7->fn = arityImpl_3007; arity_7->closures = listCons((Value *)val8, (List *)arity_7->closures); -Function *fn_3013 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3013->type = 3; -fn_3013->name = "anon"; -fn_3013->arityCount = 1; -fn_3013->arities[0] = arity_7; -Value *rslt9 = protoFnImpl_78((List *)var_31, cond0, (Value *)fn_3013); +Function *fn_3006 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3006->type = 3; +fn_3006->name = "anon"; +fn_3006->arityCount = 1; +fn_3006->arities[0] = arity_7; +Value *rslt9 = protoFnImpl_78((List *)var_31, cond0, (Value *)fn_3006); return (rslt9); }; -Value *arityImpl_2998(List *closures, Value *arg0) { +Value *arityImpl_2991(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_56, var_20); +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_54, var_20); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3000; +arity_1->fn = arityImpl_2993; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); -Function *fn_2999 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2999->type = 3; -fn_2999->name = "anon"; -fn_2999->arityCount = 1; -fn_2999->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2999); +Function *fn_2992 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2992->type = 3; +fn_2992->name = "anon"; +fn_2992->arityCount = 1; +fn_2992->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_2992); return (rslt3); }; -Value *arityImpl_2996(List *closures) { +Value *arityImpl_2989(List *closures) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; Value *rslt1 = arityImpl_623((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1004((List *)var_31, (Value *)&_kw_66, rslt1); +Value *rslt2 = arityImpl_994((List *)var_31, (Value *)&_kw_64, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_2998; +arity_3->fn = arityImpl_2991; arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); -Function *fn_2997 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_2997->type = 3; -fn_2997->name = "anon"; -fn_2997->arityCount = 1; -fn_2997->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2997); +Function *fn_2990 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_2990->type = 3; +fn_2990->name = "anon"; +fn_2990->arityCount = 1; +fn_2990->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_2990); return (rslt4); }; // --------- finalize-protocols main body -------------- -Function fn_2995 = {3, "finalize-protocols", 1, {&(FnArity){0, (List *)0, 0, arityImpl_2996}}}; +Function fn_2988 = {3, "finalize-protocols", 1, {&(FnArity){0, (List *)0, 0, arityImpl_2989}}}; struct {int64_t type; int64_t len; - char buffer[25];} _str_340 = {1,24,"#include \n"}; + char buffer[25];} _str_339 = {1,24,"#include \n"}; struct {int64_t type; int64_t len; - char buffer[21];} _str_341 = {1,20,"#include \n"}; + char buffer[21];} _str_340 = {1,20,"#include \n"}; struct {int64_t type; int64_t len; - char buffer[24];} _str_342 = {1,23,"#include \n\n"}; + char buffer[24];} _str_341 = {1,23,"#include \n\n"}; struct {int64_t type; int64_t len; - char buffer[28];} _str_343 = {1,27,"const int64_t NumberType;\n"}; + char buffer[28];} _str_342 = {1,27,"const int64_t NumberType;\n"}; struct {int64_t type; int64_t len; - char buffer[29];} _str_344 = {1,28,"const int64_t KeywordType;\n"}; + char buffer[29];} _str_343 = {1,28,"const int64_t KeywordType;\n"}; struct {int64_t type; int64_t len; - char buffer[28];} _str_345 = {1,27,"const int64_t SymbolType;\n"}; + char buffer[28];} _str_344 = {1,27,"const int64_t SymbolType;\n"}; struct {int64_t type; int64_t len; - char buffer[28];} _str_346 = {1,27,"const int64_t StringType;\n"}; + char buffer[28];} _str_345 = {1,27,"const int64_t StringType;\n"}; struct {int64_t type; int64_t len; - char buffer[31];} _str_347 = {1,30,"const int64_t SubStringType;\n"}; + char buffer[31];} _str_346 = {1,30,"const int64_t SubStringType;\n"}; struct {int64_t type; int64_t len; - char buffer[26];} _str_348 = {1,25,"const int64_t ListType;\n"}; + char buffer[26];} _str_347 = {1,25,"const int64_t ListType;\n"}; struct {int64_t type; int64_t len; - char buffer[30];} _str_349 = {1,29,"const int64_t FunctionType;\n"}; + char buffer[30];} _str_348 = {1,29,"const int64_t FunctionType;\n"}; struct {int64_t type; int64_t len; - char buffer[20];} _str_350 = {1,19,"List *empty_list;\n"}; + char buffer[20];} _str_349 = {1,19,"List *empty_list;\n"}; struct {int64_t type; int64_t len; - char buffer[28];} _str_351 = {1,27,"Value *number_literals();\n"}; + char buffer[28];} _str_350 = {1,27,"Value *number_literals();\n"}; struct {int64_t type; int64_t len; - char buffer[19];} _str_352 = {1,18,"Value *counts();\n"}; + char buffer[19];} _str_351 = {1,18,"Value *counts();\n"}; struct {int64_t type; int64_t len; - char buffer[18];} _str_353 = {1,17,"Value *types();\n"}; + char buffer[18];} _str_352 = {1,17,"Value *types();\n"}; struct {int64_t type; int64_t len; - char buffer[28];} _str_354 = {1,27,"Value *symbol_literals();\n"}; + char buffer[28];} _str_353 = {1,27,"Value *symbol_literals();\n"}; struct {int64_t type; int64_t len; - char buffer[29];} _str_355 = {1,28,"Value *keyword_literals();\n"}; + char buffer[29];} _str_354 = {1,28,"Value *keyword_literals();\n"}; struct {int64_t type; int64_t len; - char buffer[28];} _str_356 = {1,27,"Value *string_literals();\n"}; + char buffer[28];} _str_355 = {1,27,"Value *string_literals();\n"}; struct {int64_t type; int64_t len; - char buffer[25];} _str_357 = {1,24,"Value *defined_syms();\n"}; + char buffer[25];} _str_356 = {1,24,"Value *defined_syms();\n"}; struct {int64_t type; int64_t len; - char buffer[23];} _str_358 = {1,22,"Value *static_fns();\n"}; + char buffer[23];} _str_357 = {1,22,"Value *static_fns();\n"}; struct {int64_t type; int64_t len; - char buffer[22];} _str_359 = {1,21,"Value *protocols();\n"}; + char buffer[22];} _str_358 = {1,21,"Value *protocols();\n"}; // --------- base-types -------------- -Function fn_3016; -Value *arityImpl_3017(List *closures) { -Value *rslt0 = arityImpl_1855((List *)var_31); +Function fn_3009; +Value *arityImpl_3010(List *closures) { +Value *rslt0 = arityImpl_1845((List *)var_31); List *varArgs1 = (List *)GC_malloc(sizeof(List)); varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; varArgs1 = (List *)listCons((Value *)(Value *)&_str_8, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_359, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_358, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_357, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_356, varArgs1); @@ -38598,64 +38531,65 @@ varArgs1 = (List *)listCons((Value *)(Value *)&_str_346, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_345, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_344, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_343, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_263, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_266, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_99, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_342, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_262, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_265, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_98, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_97, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_96, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_94, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_92, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_90, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_88, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_95, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_93, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_91, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_89, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_87, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_85, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_83, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_342, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_86, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_84, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_82, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_341, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_340, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_339, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1949((List *)var_31, rslt2); +Value *rslt3 = arityImpl_1942((List *)var_31, rslt2); return (rslt3); }; // --------- base-types main body -------------- -Function fn_3016 = {3, "base-types", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3017}}}; +Function fn_3009 = {3, "base-types", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3010}}}; struct {int64_t type; int64_t len; - char buffer[13];} _str_360 = {1,12,"noString_ptr"}; + char buffer[13];} _str_359 = {1,12,"noString_ptr"}; struct {int64_t type; int64_t len; - char buffer[14];} _str_361 = {1,13,"noString_name"}; + char buffer[14];} _str_360 = {1,13,"noString_name"}; struct {int64_t type; int64_t len; - char buffer[56];} _str_362 = {1,55,"struct {int64_t type;\n int64_t len;\n char buffer["}; + char buffer[56];} _str_361 = {1,55,"struct {int64_t type;\n int64_t len;\n char buffer["}; struct {int64_t type; int64_t len; - char buffer[5];} _str_363 = {1,4,"];} "}; + char buffer[5];} _str_362 = {1,4,"];} "}; struct {int64_t type; int64_t len; - char buffer[2];} _str_364 = {1,1,","}; + char buffer[2];} _str_363 = {1,1,","}; struct {int64_t type; int64_t len; - char buffer[4];} _str_365 = {1,3,",\""}; + char buffer[4];} _str_364 = {1,3,",\""}; struct {int64_t type; int64_t len; - char buffer[7];} _str_366 = {1,6,"\"};\n"}; + char buffer[7];} _str_365 = {1,6,"\"};\n"}; // --------- const-strings -------------- -Function fn_3019; +Function fn_3012; // --------- anon -------------- -Function fn_3021; -Value *arityImpl_3022(List *closures, Value *arg0) { +Function fn_3014; +Value *arityImpl_3015(List *closures, Value *arg0) { Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, (Value *)&_str_360); -Value *rslt1 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_8, (Value *)&_str_361); +Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, (Value *)&_str_359); +Value *rslt1 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_8, (Value *)&_str_360); Value *rslt2 = protoFnImpl_195((List *)var_31, rslt1); Value *rslt3 = arityImpl_453((List *)var_31, rslt2); Value *rslt5 = protoFnImpl_195((List *)var_31, rslt1); @@ -38664,23 +38598,23 @@ varArgs6->type = ListType; varArgs6->len = 0; varArgs6->head = (Value *)0; varArgs6->tail = (List *)0; -varArgs6 = (List *)listCons((Value *)(Value *)&_str_366, varArgs6); -varArgs6 = (List *)listCons((Value *)rslt1, varArgs6); varArgs6 = (List *)listCons((Value *)(Value *)&_str_365, varArgs6); -varArgs6 = (List *)listCons((Value *)rslt5, varArgs6); +varArgs6 = (List *)listCons((Value *)rslt1, varArgs6); varArgs6 = (List *)listCons((Value *)(Value *)&_str_364, varArgs6); +varArgs6 = (List *)listCons((Value *)rslt5, varArgs6); +varArgs6 = (List *)listCons((Value *)(Value *)&_str_363, varArgs6); varArgs6 = (List *)listCons((Value *)val4, varArgs6); -varArgs6 = (List *)listCons((Value *)(Value *)&_str_181, varArgs6); +varArgs6 = (List *)listCons((Value *)(Value *)&_str_180, varArgs6); varArgs6 = (List *)listCons((Value *)rslt0, varArgs6); -varArgs6 = (List *)listCons((Value *)(Value *)&_str_363, varArgs6); -varArgs6 = (List *)listCons((Value *)rslt3, varArgs6); varArgs6 = (List *)listCons((Value *)(Value *)&_str_362, varArgs6); +varArgs6 = (List *)listCons((Value *)rslt3, varArgs6); +varArgs6 = (List *)listCons((Value *)(Value *)&_str_361, varArgs6); Value *rslt7 = arityImpl_508((List *)var_31, (Value *)varArgs6); -Value *rslt8 = arityImpl_1944((List *)var_31, rslt7); +Value *rslt8 = arityImpl_1937((List *)var_31, rslt7); return (rslt8); }; -Value *arityImpl_3020(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_3013(List *closures, Value *arg0, Value *arg1) { Value *rslt0 = protoFnImpl_214((List *)var_31, arg0); Value *cond1; Value *rslt3 = protoFnImpl_195((List *)var_31, rslt0); @@ -38691,17 +38625,17 @@ FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_3022; +arity_5->fn = arityImpl_3015; arity_5->closures = listCons((Value *)arg1, (List *)arity_5->closures); -Function *fn_3021 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3021->type = 3; -fn_3021->name = "anon"; -fn_3021->arityCount = 1; -fn_3021->arities[0] = arity_5; -Value *rslt6 = protoFnImpl_232((List *)var_31, rslt0, (Value *)fn_3021); +Function *fn_3014 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3014->type = 3; +fn_3014->name = "anon"; +fn_3014->arityCount = 1; +fn_3014->arities[0] = arity_5; +Value *rslt6 = protoFnImpl_232((List *)var_31, rslt0, (Value *)fn_3014); cond1 = rslt6; } else { -Value *rslt2 = arityImpl_985((List *)var_31, (Value *)&_str_19); +Value *rslt2 = arityImpl_975((List *)var_31, (Value *)&_str_19); cond1 = rslt2; } return (cond1); @@ -38709,47 +38643,47 @@ return (cond1); // --------- const-strings main body -------------- -Function fn_3019 = {3, "const-strings", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3020}}}; +Function fn_3012 = {3, "const-strings", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3013}}}; struct {int64_t type; int64_t len; - char buffer[14];} _str_367 = {1,13,"no_symbol_val"}; + char buffer[14];} _str_366 = {1,13,"no_symbol_val"}; struct {int64_t type; int64_t len; - char buffer[9];} _str_368 = {1,8,", -1, \""}; + char buffer[9];} _str_367 = {1,8,", -1, \""}; struct {int64_t type; int64_t len; - char buffer[15];} _str_369 = {1,14,"no_symbol_name"}; + char buffer[15];} _str_368 = {1,14,"no_symbol_name"}; // --------- static-syms -------------- -Function fn_3024; +Function fn_3017; // --------- anon -------------- -Function fn_3026; -Value *arityImpl_3027(List *closures, Value *arg0) { +Function fn_3019; +Value *arityImpl_3020(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, (Value *)&_str_367); -Value *rslt2 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_8, (Value *)&_str_369); +Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, (Value *)&_str_366); +Value *rslt2 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_8, (Value *)&_str_368); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; -varArgs3 = (List *)listCons((Value *)(Value *)&_str_366, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_365, varArgs3); varArgs3 = (List *)listCons((Value *)rslt2, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_str_368, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_367, varArgs3); varArgs3 = (List *)listCons((Value *)val1, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_str_181, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_180, varArgs3); varArgs3 = (List *)listCons((Value *)rslt0, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_str_67, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_66, varArgs3); Value *rslt4 = arityImpl_508((List *)var_31, (Value *)varArgs3); -Value *rslt5 = arityImpl_1944((List *)var_31, rslt4); +Value *rslt5 = arityImpl_1937((List *)var_31, rslt4); return (rslt5); }; -Value *arityImpl_3025(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_3018(List *closures, Value *arg0, Value *arg1) { Value *rslt0 = protoFnImpl_214((List *)var_31, arg0); Value *cond1; Value *rslt3 = protoFnImpl_195((List *)var_31, rslt0); @@ -38760,17 +38694,17 @@ FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_3027; +arity_5->fn = arityImpl_3020; arity_5->closures = listCons((Value *)arg1, (List *)arity_5->closures); -Function *fn_3026 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3026->type = 3; -fn_3026->name = "anon"; -fn_3026->arityCount = 1; -fn_3026->arities[0] = arity_5; -Value *rslt6 = protoFnImpl_232((List *)var_31, rslt0, (Value *)fn_3026); +Function *fn_3019 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3019->type = 3; +fn_3019->name = "anon"; +fn_3019->arityCount = 1; +fn_3019->arities[0] = arity_5; +Value *rslt6 = protoFnImpl_232((List *)var_31, rslt0, (Value *)fn_3019); cond1 = rslt6; } else { -Value *rslt2 = arityImpl_985((List *)var_31, (Value *)&_str_19); +Value *rslt2 = arityImpl_975((List *)var_31, (Value *)&_str_19); cond1 = rslt2; } return (cond1); @@ -38778,47 +38712,47 @@ return (cond1); // --------- static-syms main body -------------- -Function fn_3024 = {3, "static-syms", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3025}}}; +Function fn_3017 = {3, "static-syms", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3018}}}; struct {int64_t type; int64_t len; - char buffer[13];} _str_370 = {1,12,"noNumber_sym"}; + char buffer[13];} _str_369 = {1,12,"noNumber_sym"}; struct {int64_t type; int64_t len; - char buffer[7];} _str_371 = {1,6,", -1, "}; + char buffer[7];} _str_370 = {1,6,", -1, "}; struct {int64_t type; int64_t len; - char buffer[13];} _str_372 = {1,12,"noNumber_val"}; + char buffer[13];} _str_371 = {1,12,"noNumber_val"}; // --------- static-numbers -------------- -Function fn_3029; +Function fn_3022; // --------- anon -------------- -Function fn_3031; -Value *arityImpl_3032(List *closures, Value *arg0) { +Function fn_3024; +Value *arityImpl_3025(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, (Value *)&_str_370); -Value *rslt2 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_8, (Value *)&_str_372); +Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, (Value *)&_str_369); +Value *rslt2 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_8, (Value *)&_str_371); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; -varArgs3 = (List *)listCons((Value *)(Value *)&_str_133, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_132, varArgs3); varArgs3 = (List *)listCons((Value *)rslt2, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_str_371, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_370, varArgs3); varArgs3 = (List *)listCons((Value *)val1, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_str_181, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_180, varArgs3); varArgs3 = (List *)listCons((Value *)rslt0, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_str_69, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_68, varArgs3); Value *rslt4 = arityImpl_508((List *)var_31, (Value *)varArgs3); -Value *rslt5 = arityImpl_1944((List *)var_31, rslt4); +Value *rslt5 = arityImpl_1937((List *)var_31, rslt4); return (rslt5); }; -Value *arityImpl_3030(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_3023(List *closures, Value *arg0, Value *arg1) { Value *rslt0 = protoFnImpl_214((List *)var_31, arg0); Value *cond1; Value *rslt3 = protoFnImpl_195((List *)var_31, rslt0); @@ -38829,17 +38763,17 @@ FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_3032; +arity_5->fn = arityImpl_3025; arity_5->closures = listCons((Value *)arg1, (List *)arity_5->closures); -Function *fn_3031 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3031->type = 3; -fn_3031->name = "anon"; -fn_3031->arityCount = 1; -fn_3031->arities[0] = arity_5; -Value *rslt6 = protoFnImpl_232((List *)var_31, rslt0, (Value *)fn_3031); +Function *fn_3024 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3024->type = 3; +fn_3024->name = "anon"; +fn_3024->arityCount = 1; +fn_3024->arities[0] = arity_5; +Value *rslt6 = protoFnImpl_232((List *)var_31, rslt0, (Value *)fn_3024); cond1 = rslt6; } else { -Value *rslt2 = arityImpl_985((List *)var_31, (Value *)&_str_19); +Value *rslt2 = arityImpl_975((List *)var_31, (Value *)&_str_19); cond1 = rslt2; } return (cond1); @@ -38847,29 +38781,29 @@ return (cond1); // --------- static-numbers main body -------------- -Function fn_3029 = {3, "static-numbers", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3030}}}; +Function fn_3022 = {3, "static-numbers", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3023}}}; struct {int64_t type; int64_t len; - char buffer[15];} _str_373 = {1,14,"no_String_type"}; + char buffer[15];} _str_372 = {1,14,"no_String_type"}; struct {int64_t type; int64_t len; - char buffer[15];} _str_374 = {1,14,"no_Number_type"}; + char buffer[15];} _str_373 = {1,14,"no_Number_type"}; struct {int64_t type; int64_t len; - char buffer[15];} _str_375 = {1,14,"no_Symbol_type"}; + char buffer[15];} _str_374 = {1,14,"no_Symbol_type"}; struct {int64_t type; int64_t len; - char buffer[16];} _str_376 = {1,15,"no_Keyword_type"}; + char buffer[16];} _str_375 = {1,15,"no_Keyword_type"}; // --------- static-values -------------- -Function fn_3034; +Function fn_3027; // --------- anon -------------- -Function fn_3036; +Function fn_3029; // --------- anon -------------- -Function fn_3038; -Value *arityImpl_3039(List *closures, Value *arg0) { +Function fn_3031; +Value *arityImpl_3032(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -38887,14 +38821,14 @@ return (rslt2); // --------- anon -------------- -Function fn_3040; +Function fn_3033; // --------- anon -------------- -Function fn_3042; +Function fn_3035; // --------- anon -------------- -Function fn_3044; -Value *arityImpl_3045(List *closures, Value *arg0) { +Function fn_3037; +Value *arityImpl_3038(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -38912,14 +38846,14 @@ return (rslt2); // --------- anon -------------- -Function fn_3046; +Function fn_3039; // --------- anon -------------- -Function fn_3048; +Function fn_3041; // --------- anon -------------- -Function fn_3050; -Value *arityImpl_3051(List *closures, Value *arg0) { +Function fn_3043; +Value *arityImpl_3044(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -38937,14 +38871,14 @@ return (rslt2); // --------- anon -------------- -Function fn_3052; +Function fn_3045; // --------- anon -------------- -Function fn_3054; +Function fn_3047; // --------- anon -------------- -Function fn_3056; -Value *arityImpl_3057(List *closures, Value *arg0) { +Function fn_3049; +Value *arityImpl_3050(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -38962,8 +38896,8 @@ return (rslt2); // --------- anon -------------- -Function fn_3058; -Value *arityImpl_3059(List *closures, Value *arg0) { +Function fn_3051; +Value *arityImpl_3052(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -38972,7 +38906,7 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_3055(List *closures, Value *arg0) { +Value *arityImpl_3048(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -38981,33 +38915,33 @@ Value *val15 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = protoFnImpl_261((List *)var_31, val0, (Value *)&_sym_24, (Value *)&_str_376); -Value *rslt2 = arityImpl_3025((List *)var_31, arg0, rslt1); +Value *rslt1 = protoFnImpl_261((List *)var_31, val0, (Value *)&_sym_24, (Value *)&_str_375); +Value *rslt2 = arityImpl_3018((List *)var_31, arg0, rslt1); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; -varArgs3 = (List *)listCons((Value *)(Value *)&_kw_16, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_kw_14, varArgs3); Value *rslt4 = arityImpl_119((List *)var_31, (Value *)varArgs3); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_3057; +arity_5->fn = arityImpl_3050; arity_5->closures = listCons((Value *)arg0, (List *)arity_5->closures); -Function *fn_3056 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3056->type = 3; -fn_3056->name = "anon"; -fn_3056->arityCount = 1; -fn_3056->arities[0] = arity_5; -Value *rslt6 = arityImpl_1027((List *)var_31, rslt4, (Value *)fn_3056); +Function *fn_3049 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3049->type = 3; +fn_3049->name = "anon"; +fn_3049->arityCount = 1; +fn_3049->arities[0] = arity_5; +Value *rslt6 = arityImpl_1017((List *)var_31, rslt4, (Value *)fn_3049); List *varArgs7 = (List *)GC_malloc(sizeof(List)); varArgs7->type = ListType; varArgs7->len = 0; varArgs7->head = (Value *)0; varArgs7->tail = (List *)0; -varArgs7 = (List *)listCons((Value *)(Value *)&_kw_17, varArgs7); +varArgs7 = (List *)listCons((Value *)(Value *)&_kw_15, varArgs7); Value *rslt8 = arityImpl_119((List *)var_31, (Value *)varArgs7); List *varArgs9 = (List *)GC_malloc(sizeof(List)); varArgs9->type = ListType; @@ -39015,7 +38949,7 @@ varArgs9->len = 0; varArgs9->head = (Value *)0; varArgs9->tail = (List *)0; Value *rslt10 = arityImpl_623((List *)var_31, (Value *)varArgs9); -Value *rslt11 = arityImpl_1022((List *)var_31, rslt8, rslt10); +Value *rslt11 = arityImpl_1012((List *)var_31, rslt8, rslt10); List *varArgs12 = (List *)GC_malloc(sizeof(List)); varArgs12->type = ListType; varArgs12->len = 0; @@ -39030,18 +38964,18 @@ FnArity *arity_14 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_14->count = 1; arity_14->closures = empty_list; arity_14->variadic = 0; -arity_14->fn = arityImpl_3059; +arity_14->fn = arityImpl_3052; arity_14->closures = listCons((Value *)val15, (List *)arity_14->closures); -Function *fn_3058 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3058->type = 3; -fn_3058->name = "anon"; -fn_3058->arityCount = 1; -fn_3058->arities[0] = arity_14; -Value *rslt16 = protoFnImpl_78((List *)var_31, rslt13, (Value *)fn_3058); +Function *fn_3051 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3051->type = 3; +fn_3051->name = "anon"; +fn_3051->arityCount = 1; +fn_3051->arities[0] = arity_14; +Value *rslt16 = protoFnImpl_78((List *)var_31, rslt13, (Value *)fn_3051); return (rslt16); }; -Value *arityImpl_3053(List *closures, Value *arg0) { +Value *arityImpl_3046(List *closures, Value *arg0) { Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -39055,26 +38989,26 @@ varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_17, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_15, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1017((List *)var_31, rslt1, var_31); +Value *rslt2 = arityImpl_1007((List *)var_31, rslt1, var_31); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_3055; +arity_3->fn = arityImpl_3048; arity_3->closures = listCons((Value *)val4, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val5, (List *)arity_3->closures); -Function *fn_3054 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3054->type = 3; -fn_3054->name = "anon"; -fn_3054->arityCount = 1; -fn_3054->arities[0] = arity_3; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3054); +Function *fn_3047 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3047->type = 3; +fn_3047->name = "anon"; +fn_3047->arityCount = 1; +fn_3047->arities[0] = arity_3; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3047); return (rslt6); }; -Value *arityImpl_3049(List *closures, Value *arg0) { +Value *arityImpl_3042(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -39083,33 +39017,33 @@ Value *val15 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = protoFnImpl_261((List *)var_31, val0, (Value *)&_sym_26, (Value *)&_str_375); -Value *rslt2 = arityImpl_3025((List *)var_31, arg0, rslt1); +Value *rslt1 = protoFnImpl_261((List *)var_31, val0, (Value *)&_sym_26, (Value *)&_str_374); +Value *rslt2 = arityImpl_3018((List *)var_31, arg0, rslt1); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; -varArgs3 = (List *)listCons((Value *)(Value *)&_kw_33, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_kw_31, varArgs3); Value *rslt4 = arityImpl_119((List *)var_31, (Value *)varArgs3); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_3051; +arity_5->fn = arityImpl_3044; arity_5->closures = listCons((Value *)arg0, (List *)arity_5->closures); -Function *fn_3050 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3050->type = 3; -fn_3050->name = "anon"; -fn_3050->arityCount = 1; -fn_3050->arities[0] = arity_5; -Value *rslt6 = arityImpl_1027((List *)var_31, rslt4, (Value *)fn_3050); +Function *fn_3043 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3043->type = 3; +fn_3043->name = "anon"; +fn_3043->arityCount = 1; +fn_3043->arities[0] = arity_5; +Value *rslt6 = arityImpl_1017((List *)var_31, rslt4, (Value *)fn_3043); List *varArgs7 = (List *)GC_malloc(sizeof(List)); varArgs7->type = ListType; varArgs7->len = 0; varArgs7->head = (Value *)0; varArgs7->tail = (List *)0; -varArgs7 = (List *)listCons((Value *)(Value *)&_kw_34, varArgs7); +varArgs7 = (List *)listCons((Value *)(Value *)&_kw_32, varArgs7); Value *rslt8 = arityImpl_119((List *)var_31, (Value *)varArgs7); List *varArgs9 = (List *)GC_malloc(sizeof(List)); varArgs9->type = ListType; @@ -39117,7 +39051,7 @@ varArgs9->len = 0; varArgs9->head = (Value *)0; varArgs9->tail = (List *)0; Value *rslt10 = arityImpl_623((List *)var_31, (Value *)varArgs9); -Value *rslt11 = arityImpl_1022((List *)var_31, rslt8, rslt10); +Value *rslt11 = arityImpl_1012((List *)var_31, rslt8, rslt10); List *varArgs12 = (List *)GC_malloc(sizeof(List)); varArgs12->type = ListType; varArgs12->len = 0; @@ -39132,19 +39066,19 @@ FnArity *arity_14 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_14->count = 1; arity_14->closures = empty_list; arity_14->variadic = 0; -arity_14->fn = arityImpl_3053; +arity_14->fn = arityImpl_3046; arity_14->closures = listCons((Value *)val0, (List *)arity_14->closures); arity_14->closures = listCons((Value *)val15, (List *)arity_14->closures); -Function *fn_3052 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3052->type = 3; -fn_3052->name = "anon"; -fn_3052->arityCount = 1; -fn_3052->arities[0] = arity_14; -Value *rslt16 = protoFnImpl_78((List *)var_31, rslt13, (Value *)fn_3052); +Function *fn_3045 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3045->type = 3; +fn_3045->name = "anon"; +fn_3045->arityCount = 1; +fn_3045->arities[0] = arity_14; +Value *rslt16 = protoFnImpl_78((List *)var_31, rslt13, (Value *)fn_3045); return (rslt16); }; -Value *arityImpl_3047(List *closures, Value *arg0) { +Value *arityImpl_3040(List *closures, Value *arg0) { Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -39158,26 +39092,26 @@ varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_34, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_32, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1017((List *)var_31, rslt1, var_31); +Value *rslt2 = arityImpl_1007((List *)var_31, rslt1, var_31); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_3049; +arity_3->fn = arityImpl_3042; arity_3->closures = listCons((Value *)val4, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val5, (List *)arity_3->closures); -Function *fn_3048 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3048->type = 3; -fn_3048->name = "anon"; -fn_3048->arityCount = 1; -fn_3048->arities[0] = arity_3; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3048); +Function *fn_3041 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3041->type = 3; +fn_3041->name = "anon"; +fn_3041->arityCount = 1; +fn_3041->arities[0] = arity_3; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3041); return (rslt6); }; -Value *arityImpl_3043(List *closures, Value *arg0) { +Value *arityImpl_3036(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -39186,33 +39120,33 @@ Value *val15 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = protoFnImpl_261((List *)var_31, val0, (Value *)&_sym_21, (Value *)&_str_374); -Value *rslt2 = arityImpl_3030((List *)var_31, arg0, rslt1); +Value *rslt1 = protoFnImpl_261((List *)var_31, val0, (Value *)&_sym_21, (Value *)&_str_373); +Value *rslt2 = arityImpl_3023((List *)var_31, arg0, rslt1); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; -varArgs3 = (List *)listCons((Value *)(Value *)&_kw_21, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_kw_19, varArgs3); Value *rslt4 = arityImpl_119((List *)var_31, (Value *)varArgs3); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_3045; +arity_5->fn = arityImpl_3038; arity_5->closures = listCons((Value *)arg0, (List *)arity_5->closures); -Function *fn_3044 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3044->type = 3; -fn_3044->name = "anon"; -fn_3044->arityCount = 1; -fn_3044->arities[0] = arity_5; -Value *rslt6 = arityImpl_1027((List *)var_31, rslt4, (Value *)fn_3044); +Function *fn_3037 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3037->type = 3; +fn_3037->name = "anon"; +fn_3037->arityCount = 1; +fn_3037->arities[0] = arity_5; +Value *rslt6 = arityImpl_1017((List *)var_31, rslt4, (Value *)fn_3037); List *varArgs7 = (List *)GC_malloc(sizeof(List)); varArgs7->type = ListType; varArgs7->len = 0; varArgs7->head = (Value *)0; varArgs7->tail = (List *)0; -varArgs7 = (List *)listCons((Value *)(Value *)&_kw_22, varArgs7); +varArgs7 = (List *)listCons((Value *)(Value *)&_kw_20, varArgs7); Value *rslt8 = arityImpl_119((List *)var_31, (Value *)varArgs7); List *varArgs9 = (List *)GC_malloc(sizeof(List)); varArgs9->type = ListType; @@ -39220,7 +39154,7 @@ varArgs9->len = 0; varArgs9->head = (Value *)0; varArgs9->tail = (List *)0; Value *rslt10 = arityImpl_623((List *)var_31, (Value *)varArgs9); -Value *rslt11 = arityImpl_1022((List *)var_31, rslt8, rslt10); +Value *rslt11 = arityImpl_1012((List *)var_31, rslt8, rslt10); List *varArgs12 = (List *)GC_malloc(sizeof(List)); varArgs12->type = ListType; varArgs12->len = 0; @@ -39235,19 +39169,19 @@ FnArity *arity_14 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_14->count = 1; arity_14->closures = empty_list; arity_14->variadic = 0; -arity_14->fn = arityImpl_3047; +arity_14->fn = arityImpl_3040; arity_14->closures = listCons((Value *)val0, (List *)arity_14->closures); arity_14->closures = listCons((Value *)val15, (List *)arity_14->closures); -Function *fn_3046 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3046->type = 3; -fn_3046->name = "anon"; -fn_3046->arityCount = 1; -fn_3046->arities[0] = arity_14; -Value *rslt16 = protoFnImpl_78((List *)var_31, rslt13, (Value *)fn_3046); +Function *fn_3039 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3039->type = 3; +fn_3039->name = "anon"; +fn_3039->arityCount = 1; +fn_3039->arities[0] = arity_14; +Value *rslt16 = protoFnImpl_78((List *)var_31, rslt13, (Value *)fn_3039); return (rslt16); }; -Value *arityImpl_3041(List *closures, Value *arg0) { +Value *arityImpl_3034(List *closures, Value *arg0) { Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -39261,26 +39195,26 @@ varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_kw_22, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_kw_20, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1017((List *)var_31, rslt1, var_31); +Value *rslt2 = arityImpl_1007((List *)var_31, rslt1, var_31); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_3043; +arity_3->fn = arityImpl_3036; arity_3->closures = listCons((Value *)val4, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val5, (List *)arity_3->closures); -Function *fn_3042 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3042->type = 3; -fn_3042->name = "anon"; -fn_3042->arityCount = 1; -fn_3042->arities[0] = arity_3; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3042); +Function *fn_3035 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3035->type = 3; +fn_3035->name = "anon"; +fn_3035->arityCount = 1; +fn_3035->arities[0] = arity_3; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3035); return (rslt6); }; -Value *arityImpl_3037(List *closures, Value *arg0) { +Value *arityImpl_3030(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -39289,33 +39223,33 @@ Value *val15 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = protoFnImpl_261((List *)var_31, val0, (Value *)&_sym_20, (Value *)&_str_373); -Value *rslt2 = arityImpl_3020((List *)var_31, arg0, rslt1); +Value *rslt1 = protoFnImpl_261((List *)var_31, val0, (Value *)&_sym_20, (Value *)&_str_372); +Value *rslt2 = arityImpl_3013((List *)var_31, arg0, rslt1); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; -varArgs3 = (List *)listCons((Value *)(Value *)&_kw_26, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_kw_24, varArgs3); Value *rslt4 = arityImpl_119((List *)var_31, (Value *)varArgs3); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_3039; +arity_5->fn = arityImpl_3032; arity_5->closures = listCons((Value *)arg0, (List *)arity_5->closures); -Function *fn_3038 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3038->type = 3; -fn_3038->name = "anon"; -fn_3038->arityCount = 1; -fn_3038->arities[0] = arity_5; -Value *rslt6 = arityImpl_1027((List *)var_31, rslt4, (Value *)fn_3038); +Function *fn_3031 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3031->type = 3; +fn_3031->name = "anon"; +fn_3031->arityCount = 1; +fn_3031->arities[0] = arity_5; +Value *rslt6 = arityImpl_1017((List *)var_31, rslt4, (Value *)fn_3031); List *varArgs7 = (List *)GC_malloc(sizeof(List)); varArgs7->type = ListType; varArgs7->len = 0; varArgs7->head = (Value *)0; varArgs7->tail = (List *)0; -varArgs7 = (List *)listCons((Value *)(Value *)&_kw_27, varArgs7); +varArgs7 = (List *)listCons((Value *)(Value *)&_kw_25, varArgs7); Value *rslt8 = arityImpl_119((List *)var_31, (Value *)varArgs7); List *varArgs9 = (List *)GC_malloc(sizeof(List)); varArgs9->type = ListType; @@ -39323,7 +39257,7 @@ varArgs9->len = 0; varArgs9->head = (Value *)0; varArgs9->tail = (List *)0; Value *rslt10 = arityImpl_623((List *)var_31, (Value *)varArgs9); -Value *rslt11 = arityImpl_1022((List *)var_31, rslt8, rslt10); +Value *rslt11 = arityImpl_1012((List *)var_31, rslt8, rslt10); List *varArgs12 = (List *)GC_malloc(sizeof(List)); varArgs12->type = ListType; varArgs12->len = 0; @@ -39338,140 +39272,140 @@ FnArity *arity_14 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_14->count = 1; arity_14->closures = empty_list; arity_14->variadic = 0; -arity_14->fn = arityImpl_3041; +arity_14->fn = arityImpl_3034; arity_14->closures = listCons((Value *)val0, (List *)arity_14->closures); arity_14->closures = listCons((Value *)val15, (List *)arity_14->closures); -Function *fn_3040 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3040->type = 3; -fn_3040->name = "anon"; -fn_3040->arityCount = 1; -fn_3040->arities[0] = arity_14; -Value *rslt16 = protoFnImpl_78((List *)var_31, rslt13, (Value *)fn_3040); +Function *fn_3033 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3033->type = 3; +fn_3033->name = "anon"; +fn_3033->arityCount = 1; +fn_3033->arities[0] = arity_14; +Value *rslt16 = protoFnImpl_78((List *)var_31, rslt13, (Value *)fn_3033); return (rslt16); }; -Value *arityImpl_3035(List *closures) { -Value *rslt0 = arityImpl_1855((List *)var_31); +Value *arityImpl_3028(List *closures) { +Value *rslt0 = arityImpl_1845((List *)var_31); List *varArgs1 = (List *)GC_malloc(sizeof(List)); varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)(Value *)&_kw_27, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_kw_25, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1017((List *)var_31, rslt2, var_31); +Value *rslt3 = arityImpl_1007((List *)var_31, rslt2, var_31); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_3037; +arity_4->fn = arityImpl_3030; arity_4->closures = listCons((Value *)rslt3, (List *)arity_4->closures); arity_4->closures = listCons((Value *)rslt0, (List *)arity_4->closures); -Function *fn_3036 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3036->type = 3; -fn_3036->name = "anon"; -fn_3036->arityCount = 1; -fn_3036->arities[0] = arity_4; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_3036); +Function *fn_3029 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3029->type = 3; +fn_3029->name = "anon"; +fn_3029->arityCount = 1; +fn_3029->arities[0] = arity_4; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_3029); return (rslt5); }; // --------- static-values main body -------------- -Function fn_3034 = {3, "static-values", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3035}}}; -Value *var_1509 = (Value *)&fn_3034; +Function fn_3027 = {3, "static-values", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3028}}}; +Value *var_1499 = (Value *)&fn_3027; struct {int64_t type; int64_t len; - char buffer[12];} _str_377 = {1,11,"toccataMain"}; + char buffer[12];} _str_376 = {1,11,"toccataMain"}; struct {int64_t type; int64_t len; - char buffer[29];} _str_378 = {1,28,"(int argc, char *argv[]) {\n"}; + char buffer[29];} _str_377 = {1,28,"(int argc, char *argv[]) {\n"}; struct {int64_t type; int64_t len; - char buffer[17];} _str_379 = {1,16," GC_init();\n"}; + char buffer[17];} _str_378 = {1,16," GC_init();\n"}; struct {int64_t type; int64_t len; - char buffer[56];} _str_380 = {1,55," List *argList = (List *)GC_malloc(sizeof(List));\n"}; + char buffer[56];} _str_379 = {1,55," List *argList = (List *)GC_malloc(sizeof(List));\n"}; struct {int64_t type; int64_t len; - char buffer[34];} _str_381 = {1,33," argList->type = ListType;\n"}; + char buffer[34];} _str_380 = {1,33," argList->type = ListType;\n"}; struct {int64_t type; int64_t len; - char buffer[26];} _str_382 = {1,25," argList->len = 0;\n"}; + char buffer[26];} _str_381 = {1,25," argList->len = 0;\n"}; struct {int64_t type; int64_t len; - char buffer[36];} _str_383 = {1,35," argList->head = (Value *)0;\n"}; + char buffer[36];} _str_382 = {1,35," argList->head = (Value *)0;\n"}; struct {int64_t type; int64_t len; - char buffer[35];} _str_384 = {1,34," argList->tail = (List *)0;\n"}; + char buffer[35];} _str_383 = {1,34," argList->tail = (List *)0;\n"}; struct {int64_t type; int64_t len; - char buffer[30];} _str_385 = {1,29," List *tail = argList;\n"}; + char buffer[30];} _str_384 = {1,29," List *tail = argList;\n"}; struct {int64_t type; int64_t len; - char buffer[40];} _str_386 = {1,39," for(int i = 0; i < argc; i++) {\n"}; + char buffer[40];} _str_385 = {1,39," for(int i = 0; i < argc; i++) {\n"}; struct {int64_t type; int64_t len; - char buffer[46];} _str_387 = {1,45," tail->head = stringValue(argv[i]);\n"}; + char buffer[46];} _str_386 = {1,45," tail->head = stringValue(argv[i]);\n"}; struct {int64_t type; int64_t len; - char buffer[60];} _str_388 = {1,59," List *newTail = (List *)GC_malloc(sizeof(List));\n"}; + char buffer[60];} _str_387 = {1,59," List *newTail = (List *)GC_malloc(sizeof(List));\n"}; struct {int64_t type; int64_t len; - char buffer[37];} _str_389 = {1,36," newTail->type = ListType;\n"}; + char buffer[37];} _str_388 = {1,36," newTail->type = ListType;\n"}; struct {int64_t type; int64_t len; - char buffer[29];} _str_390 = {1,28," newTail->len = 0;\n"}; + char buffer[29];} _str_389 = {1,28," newTail->len = 0;\n"}; struct {int64_t type; int64_t len; - char buffer[38];} _str_391 = {1,37," newTail->tail = (List *)0;\n"}; + char buffer[38];} _str_390 = {1,37," newTail->tail = (List *)0;\n"}; struct {int64_t type; int64_t len; - char buffer[39];} _str_392 = {1,38," newTail->head = (Value *)0;\n"}; + char buffer[39];} _str_391 = {1,38," newTail->head = (Value *)0;\n"}; struct {int64_t type; int64_t len; - char buffer[33];} _str_393 = {1,32," tail->tail = newTail;\n"}; + char buffer[33];} _str_392 = {1,32," tail->tail = newTail;\n"}; struct {int64_t type; int64_t len; - char buffer[27];} _str_394 = {1,26," tail = newTail;\n"}; + char buffer[27];} _str_393 = {1,26," tail = newTail;\n"}; struct {int64_t type; int64_t len; - char buffer[30];} _str_395 = {1,29," argList->len++;\n}\n"}; + char buffer[30];} _str_394 = {1,29," argList->len++;\n}\n"}; struct {int64_t type; int64_t len; - char buffer[3];} _str_396 = {1,2," "}; + char buffer[3];} _str_395 = {1,2," "}; struct {int64_t type; int64_t len; - char buffer[5];} _str_397 = {1,4," = &"}; + char buffer[5];} _str_396 = {1,4," = &"}; struct {int64_t type; int64_t len; - char buffer[10];} _str_398 = {1,9," return("}; + char buffer[10];} _str_397 = {1,9," return("}; struct {int64_t type; int64_t len; - char buffer[27];} _str_399 = {1,26,"((Value *)argList));\n};\n"}; -SymKey _kw_76 = {5, -1, ":no-main"}; + char buffer[27];} _str_398 = {1,26,"((Value *)argList));\n};\n"}; +SymKey _kw_74 = {5, -1, ":no-main"}; // --------- emit-main -------------- -Function fn_3060; +Function fn_3053; // --------- anon -------------- -Function fn_3062; +Function fn_3055; // --------- anon -------------- -Function fn_3064; +Function fn_3057; // --------- anon -------------- -Function fn_3066; +Function fn_3059; // --------- anon -------------- -Function fn_3068; +Function fn_3061; // --------- anon -------------- -Function fn_3070; +Function fn_3063; // --------- anon -------------- -Function fn_3072; -Value *arityImpl_3073(List *closures, Value *arg0) { +Function fn_3065; +Value *arityImpl_3066(List *closures, Value *arg0) { Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_8, (Value *)&_str_19); Value *rslt1 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, (Value *)&_str_19); List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -39479,26 +39413,26 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)(Value *)&_str_117, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_116, varArgs2); varArgs2 = (List *)listCons((Value *)rslt1, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_397, varArgs2); -varArgs2 = (List *)listCons((Value *)rslt0, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_396, varArgs2); +varArgs2 = (List *)listCons((Value *)rslt0, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_395, varArgs2); Value *rslt3 = arityImpl_508((List *)var_31, (Value *)varArgs2); -Value *rslt4 = arityImpl_1944((List *)var_31, rslt3); +Value *rslt4 = arityImpl_1937((List *)var_31, rslt3); return (rslt4); }; // --------- anon main body -------------- -Function fn_3072 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3073}}}; +Function fn_3065 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3066}}}; // --------- anon -------------- -Function fn_3074; +Function fn_3067; // --------- anon -------------- -Function fn_3076; -Value *arityImpl_3077(List *closures, Value *arg0) { +Function fn_3069; +Value *arityImpl_3070(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -39507,7 +39441,7 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_3075(List *closures, Value *arg0) { +Value *arityImpl_3068(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -39521,27 +39455,27 @@ varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)(Value *)&_str_399, varArgs1); -varArgs1 = (List *)listCons((Value *)val0, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_398, varArgs1); +varArgs1 = (List *)listCons((Value *)val0, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_397, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1944((List *)var_31, rslt2); +Value *rslt3 = arityImpl_1937((List *)var_31, rslt2); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_3077; +arity_4->fn = arityImpl_3070; arity_4->closures = listCons((Value *)val5, (List *)arity_4->closures); -Function *fn_3076 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3076->type = 3; -fn_3076->name = "anon"; -fn_3076->arityCount = 1; -fn_3076->arities[0] = arity_4; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_3076); +Function *fn_3069 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3069->type = 3; +fn_3069->name = "anon"; +fn_3069->arityCount = 1; +fn_3069->arities[0] = arity_4; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_3069); return (rslt6); }; -Value *arityImpl_3071(List *closures, Value *arg0) { +Value *arityImpl_3064(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -39554,24 +39488,24 @@ Value *val5 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt2 = protoFnImpl_232((List *)var_31, val0, (Value *)&fn_3072); +Value *rslt2 = protoFnImpl_232((List *)var_31, val0, (Value *)&fn_3065); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_3075; +arity_3->fn = arityImpl_3068; arity_3->closures = listCons((Value *)val4, (List *)arity_3->closures); arity_3->closures = listCons((Value *)val5, (List *)arity_3->closures); -Function *fn_3074 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3074->type = 3; -fn_3074->name = "anon"; -fn_3074->arityCount = 1; -fn_3074->arities[0] = arity_3; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3074); +Function *fn_3067 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3067->type = 3; +fn_3067->name = "anon"; +fn_3067->arityCount = 1; +fn_3067->arities[0] = arity_3; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3067); return (rslt6); }; -Value *arityImpl_3069(List *closures, Value *arg0) { +Value *arityImpl_3062(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -39589,20 +39523,19 @@ varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)(Value *)&_str_378, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_377, varArgs1); varArgs1 = (List *)listCons((Value *)val0, varArgs1); -varArgs1 = (List *)listCons((Value *)(Value *)&_str_138, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_137, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; varArgs3->len = 0; varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; -varArgs3 = (List *)listCons((Value *)(Value *)&_str_395, varArgs3); varArgs3 = (List *)listCons((Value *)(Value *)&_str_394, varArgs3); varArgs3 = (List *)listCons((Value *)(Value *)&_str_393, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_str_387, varArgs3); varArgs3 = (List *)listCons((Value *)(Value *)&_str_392, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_386, varArgs3); varArgs3 = (List *)listCons((Value *)(Value *)&_str_391, varArgs3); varArgs3 = (List *)listCons((Value *)(Value *)&_str_390, varArgs3); varArgs3 = (List *)listCons((Value *)(Value *)&_str_389, varArgs3); @@ -39616,27 +39549,28 @@ varArgs3 = (List *)listCons((Value *)(Value *)&_str_382, varArgs3); varArgs3 = (List *)listCons((Value *)(Value *)&_str_381, varArgs3); varArgs3 = (List *)listCons((Value *)(Value *)&_str_380, varArgs3); varArgs3 = (List *)listCons((Value *)(Value *)&_str_379, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_378, varArgs3); varArgs3 = (List *)listCons((Value *)rslt2, varArgs3); Value *rslt4 = arityImpl_119((List *)var_31, (Value *)varArgs3); -Value *rslt5 = arityImpl_1949((List *)var_31, rslt4); +Value *rslt5 = arityImpl_1942((List *)var_31, rslt4); FnArity *arity_6 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_6->count = 1; arity_6->closures = empty_list; arity_6->variadic = 0; -arity_6->fn = arityImpl_3071; +arity_6->fn = arityImpl_3064; arity_6->closures = listCons((Value *)val7, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val8, (List *)arity_6->closures); arity_6->closures = listCons((Value *)arg0, (List *)arity_6->closures); -Function *fn_3070 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3070->type = 3; -fn_3070->name = "anon"; -fn_3070->arityCount = 1; -fn_3070->arities[0] = arity_6; -Value *rslt9 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_3070); +Function *fn_3063 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3063->type = 3; +fn_3063->name = "anon"; +fn_3063->arityCount = 1; +fn_3063->arities[0] = arity_6; +Value *rslt9 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_3063); return (rslt9); }; -Value *arityImpl_3067(List *closures, Value *arg0) { +Value *arityImpl_3060(List *closures, Value *arg0) { Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -39648,52 +39582,52 @@ closures = closures->tail; Value *cond0; if (isTrue(arg0)) { -cond0 = (Value *)&_str_377; +cond0 = (Value *)&_str_376; } else { -cond0 = (Value *)&_str_59; +cond0 = (Value *)&_str_58; } -Value *rslt1 = arityImpl_2996((List *)var_31); +Value *rslt1 = arityImpl_2989((List *)var_31); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_3069; +arity_2->fn = arityImpl_3062; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); arity_2->closures = listCons((Value *)val4, (List *)arity_2->closures); arity_2->closures = listCons((Value *)cond0, (List *)arity_2->closures); -Function *fn_3068 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3068->type = 3; -fn_3068->name = "anon"; -fn_3068->arityCount = 1; -fn_3068->arities[0] = arity_2; -Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_3068); +Function *fn_3061 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3061->type = 3; +fn_3061->name = "anon"; +fn_3061->arityCount = 1; +fn_3061->arities[0] = arity_2; +Value *rslt5 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_3061); return (rslt5); }; -Value *arityImpl_3065(List *closures, Value *arg0) { +Value *arityImpl_3058(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *cond0; -Value *rslt3 = arityImpl_283((List *)var_31, (Value *)&_kw_76, arg0); +Value *rslt3 = arityImpl_283((List *)var_31, (Value *)&_kw_74, arg0); Value *rslt4 = arityImpl_274((List *)var_31, rslt3); if (isTrue(rslt4)) { -Value *rslt5 = arityImpl_1004((List *)var_31, (Value *)&_kw_56, var_20); +Value *rslt5 = arityImpl_994((List *)var_31, (Value *)&_kw_54, var_20); FnArity *arity_6 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_6->count = 1; arity_6->closures = empty_list; arity_6->variadic = 0; -arity_6->fn = arityImpl_3067; +arity_6->fn = arityImpl_3060; arity_6->closures = listCons((Value *)arg0, (List *)arity_6->closures); arity_6->closures = listCons((Value *)val1, (List *)arity_6->closures); -Function *fn_3066 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3066->type = 3; -fn_3066->name = "anon"; -fn_3066->arityCount = 1; -fn_3066->arities[0] = arity_6; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_3066); +Function *fn_3059 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3059->type = 3; +fn_3059->name = "anon"; +fn_3059->arityCount = 1; +fn_3059->arities[0] = arity_6; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt5, (Value *)fn_3059); cond0 = rslt7; } else { Value *rslt2 = protoFnImpl_242((List *)var_31, val1); @@ -39702,63 +39636,63 @@ cond0 = rslt2; return (cond0); }; -Value *arityImpl_3063(List *closures, Value *arg0) { +Value *arityImpl_3056(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_58, (Value *)&_kw_76); +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_56, (Value *)&_kw_74); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3065; +arity_1->fn = arityImpl_3058; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3064 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3064->type = 3; -fn_3064->name = "anon"; -fn_3064->arityCount = 1; -fn_3064->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3064); +Function *fn_3057 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3057->type = 3; +fn_3057->name = "anon"; +fn_3057->arityCount = 1; +fn_3057->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3057); return (rslt3); }; -Value *arityImpl_3061(List *closures) { -Value *rslt0 = arityImpl_1009((List *)var_31, (Value *)&_kw_45, (Value *)&_num_8); +Value *arityImpl_3054(List *closures) { +Value *rslt0 = arityImpl_999((List *)var_31, (Value *)&_kw_43, (Value *)&_num_8); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3063; +arity_1->fn = arityImpl_3056; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_3062 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3062->type = 3; -fn_3062->name = "anon"; -fn_3062->arityCount = 1; -fn_3062->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3062); +Function *fn_3055 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3055->type = 3; +fn_3055->name = "anon"; +fn_3055->arityCount = 1; +fn_3055->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3055); return (rslt2); }; // --------- emit-main main body -------------- -Function fn_3060 = {3, "emit-main", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3061}}}; +Function fn_3053 = {3, "emit-main", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3054}}}; // --------- protocols -------------- -Function fn_3079; -Value *arityImpl_3080(List *closures) { +Function fn_3072; +Value *arityImpl_3073(List *closures) { return(protocols());}; // --------- protocols main body -------------- -Function fn_3079 = {3, "protocols", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3080}}}; +Function fn_3072 = {3, "protocols", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3073}}}; // --------- load-protocols -------------- -Function fn_3082; +Function fn_3075; // --------- anon -------------- -Function fn_3084; -Value *arityImpl_3085(List *closures, Value *arg0) { +Function fn_3077; +Value *arityImpl_3078(List *closures, Value *arg0) { Value *rslt0 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_8); Value *rslt1 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_1); Value *rslt2 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_2); @@ -39791,11 +39725,11 @@ varArgs8->len = 0; varArgs8->head = (Value *)0; varArgs8->tail = (List *)0; varArgs8 = (List *)listCons((Value *)rslt7, varArgs8); -varArgs8 = (List *)listCons((Value *)(Value *)&_kw_67, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_kw_65, varArgs8); varArgs8 = (List *)listCons((Value *)rslt2, varArgs8); -varArgs8 = (List *)listCons((Value *)(Value *)&_kw_75, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_kw_73, varArgs8); varArgs8 = (List *)listCons((Value *)rslt1, varArgs8); -varArgs8 = (List *)listCons((Value *)(Value *)&_kw_74, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_kw_72, varArgs8); Value *rslt9 = arityImpl_623((List *)var_31, (Value *)varArgs8); List *varArgs10 = (List *)GC_malloc(sizeof(List)); varArgs10->type = ListType; @@ -39810,33 +39744,33 @@ return (rslt11); // --------- anon main body -------------- -Function fn_3084 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3085}}}; +Function fn_3077 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3078}}}; // --------- anon -------------- -Function fn_3086; +Function fn_3079; // --------- anon -------------- -Function fn_3088; -Value *arityImpl_3089(List *closures, Value *arg0) { +Function fn_3081; +Value *arityImpl_3082(List *closures, Value *arg0) { Value *rslt0 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_1); -Value *rslt1 = arityImpl_1896((List *)var_31, rslt0, (Value *)&_num_24); +Value *rslt1 = arityImpl_1886((List *)var_31, rslt0, (Value *)&_num_24); List *varArgs2 = (List *)GC_malloc(sizeof(List)); varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)(Value *)&_str_117, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_116, varArgs2); varArgs2 = (List *)listCons((Value *)rslt1, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_248, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_247, varArgs2); Value *rslt3 = arityImpl_508((List *)var_31, (Value *)varArgs2); -Value *rslt4 = arityImpl_1944((List *)var_31, rslt3); +Value *rslt4 = arityImpl_1937((List *)var_31, rslt3); return (rslt4); }; // --------- anon main body -------------- -Function fn_3088 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3089}}}; -Value *arityImpl_3087(List *closures, Value *arg0) { +Function fn_3081 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3082}}}; +Value *arityImpl_3080(List *closures, Value *arg0) { Value *rslt0 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_1); List *varArgs1 = (List *)GC_malloc(sizeof(List)); varArgs1->type = ListType; @@ -39844,16 +39778,16 @@ varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; Value *rslt2 = arityImpl_623((List *)var_31, (Value *)varArgs1); -Value *rslt3 = protoFnImpl_261((List *)var_31, rslt0, (Value *)&_kw_67, rslt2); +Value *rslt3 = protoFnImpl_261((List *)var_31, rslt0, (Value *)&_kw_65, rslt2); Value *cond4; Value *rslt8 = protoFnImpl_179((List *)var_31, rslt3); if (isTrue(rslt8)) { -Value *rslt9 = arityImpl_985((List *)var_31, (Value *)&_str_19); +Value *rslt9 = arityImpl_975((List *)var_31, (Value *)&_str_19); cond4 = rslt9; } else { Value *rslt5 = protoFnImpl_214((List *)var_31, rslt3); -Value *rslt7 = protoFnImpl_232((List *)var_31, rslt5, (Value *)&fn_3088); +Value *rslt7 = protoFnImpl_232((List *)var_31, rslt5, (Value *)&fn_3081); cond4 = rslt7; } return (cond4); @@ -39861,10 +39795,10 @@ return (cond4); // --------- anon main body -------------- -Function fn_3086 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3087}}}; -Value *arityImpl_3083(List *closures) { -Value *rslt0 = arityImpl_3080((List *)var_31); -Value *rslt2 = protoFnImpl_125((List *)var_31, rslt0, (Value *)&fn_3084); +Function fn_3079 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3080}}}; +Value *arityImpl_3076(List *closures) { +Value *rslt0 = arityImpl_3073((List *)var_31); +Value *rslt2 = protoFnImpl_125((List *)var_31, rslt0, (Value *)&fn_3077); Value *rslt6; if((var_546)->type != 3) { rslt6 = protoFnImpl_5(empty_list, var_546, rslt2); @@ -39887,8 +39821,8 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_546)->name) abort(); } } -Value *rslt7 = arityImpl_1009((List *)var_31, (Value *)&_kw_66, rslt6); -Value *rslt9 = protoFnImpl_232((List *)var_31, rslt2, (Value *)&fn_3086); +Value *rslt7 = arityImpl_999((List *)var_31, (Value *)&_kw_64, rslt6); +Value *rslt9 = protoFnImpl_232((List *)var_31, rslt2, (Value *)&fn_3079); List *varArgs10 = (List *)GC_malloc(sizeof(List)); varArgs10->type = ListType; varArgs10->len = 0; @@ -39903,108 +39837,108 @@ return (rslt11); // --------- load-protocols main body -------------- -Function fn_3082 = {3, "load-protocols", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3083}}}; +Function fn_3075 = {3, "load-protocols", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3076}}}; struct {int64_t type; int64_t len; - char buffer[23];} _str_400 = {1,22,"Value *protocols() {\n"}; + char buffer[23];} _str_399 = {1,22,"Value *protocols() {\n"}; struct {int64_t type; int64_t len; - char buffer[29];} _str_401 = {1,28,"List *protos = empty_list;\n"}; + char buffer[29];} _str_400 = {1,28,"List *protos = empty_list;\n"}; struct {int64_t type; int64_t len; - char buffer[19];} _str_402 = {1,18,"List *protoInfo;\n"}; + char buffer[19];} _str_401 = {1,18,"List *protoInfo;\n"}; struct {int64_t type; int64_t len; - char buffer[15];} _str_403 = {1,14,"List *impls;\n"}; + char buffer[15];} _str_402 = {1,14,"List *impls;\n"}; struct {int64_t type; int64_t len; - char buffer[14];} _str_404 = {1,13,"List *impl;\n"}; + char buffer[14];} _str_403 = {1,13,"List *impl;\n"}; struct {int64_t type; int64_t len; - char buffer[26];} _str_405 = {1,25,"protoInfo = empty_list;\n"}; + char buffer[26];} _str_404 = {1,25,"protoInfo = empty_list;\n"}; struct {int64_t type; int64_t len; - char buffer[22];} _str_406 = {1,21,"impls = empty_list;\n"}; + char buffer[22];} _str_405 = {1,21,"impls = empty_list;\n"}; struct {int64_t type; int64_t len; - char buffer[21];} _str_407 = {1,20,"impl = empty_list;\n"}; + char buffer[21];} _str_406 = {1,20,"impl = empty_list;\n"}; struct {int64_t type; int64_t len; - char buffer[31];} _str_408 = {1,30,"impl = listCons(stringValue(\""}; + char buffer[31];} _str_407 = {1,30,"impl = listCons(stringValue(\""}; struct {int64_t type; int64_t len; - char buffer[14];} _str_409 = {1,13,"\"), impl);\n"}; + char buffer[14];} _str_408 = {1,13,"\"), impl);\n"}; struct {int64_t type; int64_t len; - char buffer[17];} _str_410 = {1,16,"impl = listCons("}; + char buffer[17];} _str_409 = {1,16,"impl = listCons("}; struct {int64_t type; int64_t len; - char buffer[27];} _str_411 = {1,26,"keywordValue(\":default\")"}; + char buffer[27];} _str_410 = {1,26,"keywordValue(\":default\")"}; struct {int64_t type; int64_t len; - char buffer[13];} _str_412 = {1,12,"numberValue("}; + char buffer[13];} _str_411 = {1,12,"numberValue("}; struct {int64_t type; int64_t len; - char buffer[11];} _str_413 = {1,10,", impl);\n"}; + char buffer[11];} _str_412 = {1,10,", impl);\n"}; struct {int64_t type; int64_t len; - char buffer[42];} _str_414 = {1,41,"impls = listCons((Value *)impl, impls);\n"}; + char buffer[42];} _str_413 = {1,41,"impls = listCons((Value *)impl, impls);\n"}; struct {int64_t type; int64_t len; - char buffer[51];} _str_415 = {1,50,"protoInfo = listCons((Value *)impls, protoInfo);\n"}; + char buffer[51];} _str_414 = {1,50,"protoInfo = listCons((Value *)impls, protoInfo);\n"}; struct {int64_t type; int64_t len; - char buffer[36];} _str_416 = {1,35,"protoInfo = listCons(stringValue(\""}; + char buffer[36];} _str_415 = {1,35,"protoInfo = listCons(stringValue(\""}; struct {int64_t type; int64_t len; - char buffer[19];} _str_417 = {1,18,"\"), protoInfo);\n"}; + char buffer[19];} _str_416 = {1,18,"\"), protoInfo);\n"}; struct {int64_t type; int64_t len; - char buffer[36];} _str_418 = {1,35,"protoInfo = listCons(symbolValue(\""}; + char buffer[36];} _str_417 = {1,35,"protoInfo = listCons(symbolValue(\""}; struct {int64_t type; int64_t len; - char buffer[49];} _str_419 = {1,48,"protos = listCons((Value *)protoInfo, protos);\n"}; + char buffer[49];} _str_418 = {1,48,"protos = listCons((Value *)protoInfo, protos);\n"}; struct {int64_t type; int64_t len; - char buffer[27];} _str_420 = {1,26,"return((Value *)protos);\n"}; + char buffer[27];} _str_419 = {1,26,"return((Value *)protos);\n"}; struct {int64_t type; int64_t len; - char buffer[6];} _str_421 = {1,5,"}\n\n"}; + char buffer[6];} _str_420 = {1,5,"}\n\n"}; // --------- serialize-protocols -------------- -Function fn_3091; +Function fn_3084; // --------- anon -------------- -Function fn_3093; +Function fn_3086; // --------- anon -------------- -Function fn_3095; +Function fn_3088; // --------- anon -------------- -Function fn_3097; +Function fn_3090; // --------- anon -------------- -Function fn_3099; +Function fn_3092; // --------- anon -------------- -Function fn_3101; +Function fn_3094; // --------- anon -------------- -Function fn_3103; +Function fn_3096; // --------- anon -------------- -Function fn_3105; +Function fn_3098; // --------- anon -------------- -Function fn_3107; -Value *arityImpl_3108(List *closures, Value *arg0) { +Function fn_3100; +Value *arityImpl_3101(List *closures, Value *arg0) { Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_8, (Value *)&_num_8); Value *rslt1 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, (Value *)&_str_19); Value *cond2; -Value *rslt5 = arityImpl_283((List *)var_31, (Value *)&_kw_32, rslt0); +Value *rslt5 = arityImpl_283((List *)var_31, (Value *)&_kw_30, rslt0); if (isTrue(rslt5)) { -cond2 = (Value *)&_str_411; +cond2 = (Value *)&_str_410; } else { List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; @@ -40013,7 +39947,7 @@ varArgs3->head = (Value *)0; varArgs3->tail = (List *)0; varArgs3 = (List *)listCons((Value *)(Value *)&_str_18, varArgs3); varArgs3 = (List *)listCons((Value *)rslt0, varArgs3); -varArgs3 = (List *)listCons((Value *)(Value *)&_str_412, varArgs3); +varArgs3 = (List *)listCons((Value *)(Value *)&_str_411, varArgs3); Value *rslt4 = arityImpl_508((List *)var_31, (Value *)varArgs3); cond2 = rslt4; } @@ -40022,29 +39956,29 @@ varArgs6->type = ListType; varArgs6->len = 0; varArgs6->head = (Value *)0; varArgs6->tail = (List *)0; -varArgs6 = (List *)listCons((Value *)(Value *)&_str_414, varArgs6); varArgs6 = (List *)listCons((Value *)(Value *)&_str_413, varArgs6); +varArgs6 = (List *)listCons((Value *)(Value *)&_str_412, varArgs6); varArgs6 = (List *)listCons((Value *)cond2, varArgs6); -varArgs6 = (List *)listCons((Value *)(Value *)&_str_410, varArgs6); varArgs6 = (List *)listCons((Value *)(Value *)&_str_409, varArgs6); -varArgs6 = (List *)listCons((Value *)rslt1, varArgs6); varArgs6 = (List *)listCons((Value *)(Value *)&_str_408, varArgs6); +varArgs6 = (List *)listCons((Value *)rslt1, varArgs6); varArgs6 = (List *)listCons((Value *)(Value *)&_str_407, varArgs6); +varArgs6 = (List *)listCons((Value *)(Value *)&_str_406, varArgs6); Value *rslt7 = arityImpl_508((List *)var_31, (Value *)varArgs6); return (rslt7); }; // --------- anon main body -------------- -Function fn_3107 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3108}}}; -Value *arityImpl_3106(List *closures, Value *arg0) { +Function fn_3100 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3101}}}; +Value *arityImpl_3099(List *closures, Value *arg0) { Value *rslt0 = arityImpl_524((List *)var_31, arg0, (Value *)&_num_1, var_31); -Value *rslt1 = protoFnImpl_261((List *)var_31, rslt0, (Value *)&_kw_74, (Value *)&_str_19); -Value *rslt2 = protoFnImpl_261((List *)var_31, rslt0, (Value *)&_kw_75, (Value *)&_str_19); -Value *rslt3 = protoFnImpl_261((List *)var_31, rslt0, (Value *)&_kw_67, var_31); +Value *rslt1 = protoFnImpl_261((List *)var_31, rslt0, (Value *)&_kw_72, (Value *)&_str_19); +Value *rslt2 = protoFnImpl_261((List *)var_31, rslt0, (Value *)&_kw_73, (Value *)&_str_19); +Value *rslt3 = protoFnImpl_261((List *)var_31, rslt0, (Value *)&_kw_65, var_31); Value *rslt4 = protoFnImpl_214((List *)var_31, rslt3); Value *rslt5 = protoFnImpl_214((List *)var_31, rslt4); -Value *rslt7 = protoFnImpl_125((List *)var_31, rslt5, (Value *)&fn_3107); +Value *rslt7 = protoFnImpl_125((List *)var_31, rslt5, (Value *)&fn_3100); List *varArgs8 = (List *)GC_malloc(sizeof(List)); varArgs8->type = ListType; varArgs8->len = 0; @@ -40059,37 +39993,37 @@ varArgs11->type = ListType; varArgs11->len = 0; varArgs11->head = (Value *)0; varArgs11->tail = (List *)0; -varArgs11 = (List *)listCons((Value *)(Value *)&_str_419, varArgs11); -varArgs11 = (List *)listCons((Value *)(Value *)&_str_417, varArgs11); -varArgs11 = (List *)listCons((Value *)rslt10, varArgs11); varArgs11 = (List *)listCons((Value *)(Value *)&_str_418, varArgs11); +varArgs11 = (List *)listCons((Value *)(Value *)&_str_416, varArgs11); +varArgs11 = (List *)listCons((Value *)rslt10, varArgs11); varArgs11 = (List *)listCons((Value *)(Value *)&_str_417, varArgs11); +varArgs11 = (List *)listCons((Value *)(Value *)&_str_416, varArgs11); varArgs11 = (List *)listCons((Value *)rslt1, varArgs11); +varArgs11 = (List *)listCons((Value *)(Value *)&_str_415, varArgs11); varArgs11 = (List *)listCons((Value *)(Value *)&_str_416, varArgs11); -varArgs11 = (List *)listCons((Value *)(Value *)&_str_417, varArgs11); varArgs11 = (List *)listCons((Value *)rslt2, varArgs11); -varArgs11 = (List *)listCons((Value *)(Value *)&_str_416, varArgs11); varArgs11 = (List *)listCons((Value *)(Value *)&_str_415, varArgs11); +varArgs11 = (List *)listCons((Value *)(Value *)&_str_414, varArgs11); varArgs11 = (List *)listCons((Value *)rslt9, varArgs11); -varArgs11 = (List *)listCons((Value *)(Value *)&_str_406, varArgs11); varArgs11 = (List *)listCons((Value *)(Value *)&_str_405, varArgs11); +varArgs11 = (List *)listCons((Value *)(Value *)&_str_404, varArgs11); Value *rslt12 = arityImpl_508((List *)var_31, (Value *)varArgs11); return (rslt12); }; // --------- anon main body -------------- -Function fn_3105 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3106}}}; +Function fn_3098 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3099}}}; // --------- anon -------------- -Function fn_3109; +Function fn_3102; // --------- anon -------------- -Function fn_3111; +Function fn_3104; // --------- anon -------------- -Function fn_3113; -Value *arityImpl_3114(List *closures, Value *arg0) { +Function fn_3106; +Value *arityImpl_3107(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -40098,49 +40032,49 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_3112(List *closures, Value *arg0) { +Value *arityImpl_3105(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_421); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_420); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3114; +arity_1->fn = arityImpl_3107; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3113 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3113->type = 3; -fn_3113->name = "anon"; -fn_3113->arityCount = 1; -fn_3113->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3113); +Function *fn_3106 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3106->type = 3; +fn_3106->name = "anon"; +fn_3106->arityCount = 1; +fn_3106->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3106); return (rslt3); }; -Value *arityImpl_3110(List *closures, Value *arg0) { +Value *arityImpl_3103(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_420); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_419); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3112; +arity_1->fn = arityImpl_3105; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3111 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3111->type = 3; -fn_3111->name = "anon"; -fn_3111->arityCount = 1; -fn_3111->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3111); +Function *fn_3104 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3104->type = 3; +fn_3104->name = "anon"; +fn_3104->arityCount = 1; +fn_3104->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3104); return (rslt3); }; -Value *arityImpl_3104(List *closures, Value *arg0) { +Value *arityImpl_3097(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -40150,24 +40084,24 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt1 = protoFnImpl_214((List *)var_31, val0); -Value *rslt3 = protoFnImpl_125((List *)var_31, rslt1, (Value *)&fn_3105); -Value *rslt4 = arityImpl_1949((List *)var_31, rslt3); +Value *rslt3 = protoFnImpl_125((List *)var_31, rslt1, (Value *)&fn_3098); +Value *rslt4 = arityImpl_1942((List *)var_31, rslt3); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_3110; +arity_5->fn = arityImpl_3103; arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); -Function *fn_3109 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3109->type = 3; -fn_3109->name = "anon"; -fn_3109->arityCount = 1; -fn_3109->arities[0] = arity_5; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_3109); +Function *fn_3102 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3102->type = 3; +fn_3102->name = "anon"; +fn_3102->arityCount = 1; +fn_3102->arities[0] = arity_5; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_3102); return (rslt7); }; -Value *arityImpl_3102(List *closures, Value *arg0) { +Value *arityImpl_3095(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -40176,24 +40110,24 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_404); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_403); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3104; +arity_1->fn = arityImpl_3097; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_3103 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3103->type = 3; -fn_3103->name = "anon"; -fn_3103->arityCount = 1; -fn_3103->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3103); +Function *fn_3096 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3096->type = 3; +fn_3096->name = "anon"; +fn_3096->arityCount = 1; +fn_3096->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3096); return (rslt4); }; -Value *arityImpl_3100(List *closures, Value *arg0) { +Value *arityImpl_3093(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -40202,24 +40136,24 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_403); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_402); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3102; +arity_1->fn = arityImpl_3095; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_3101 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3101->type = 3; -fn_3101->name = "anon"; -fn_3101->arityCount = 1; -fn_3101->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3101); +Function *fn_3094 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3094->type = 3; +fn_3094->name = "anon"; +fn_3094->arityCount = 1; +fn_3094->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3094); return (rslt4); }; -Value *arityImpl_3098(List *closures, Value *arg0) { +Value *arityImpl_3091(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -40228,24 +40162,24 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_402); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_401); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3100; +arity_1->fn = arityImpl_3093; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_3099 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3099->type = 3; -fn_3099->name = "anon"; -fn_3099->arityCount = 1; -fn_3099->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3099); +Function *fn_3092 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3092->type = 3; +fn_3092->name = "anon"; +fn_3092->arityCount = 1; +fn_3092->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3092); return (rslt4); }; -Value *arityImpl_3096(List *closures, Value *arg0) { +Value *arityImpl_3089(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -40254,87 +40188,87 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_401); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_400); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3098; +arity_1->fn = arityImpl_3091; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_3097 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3097->type = 3; -fn_3097->name = "anon"; -fn_3097->arityCount = 1; -fn_3097->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3097); +Function *fn_3090 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3090->type = 3; +fn_3090->name = "anon"; +fn_3090->arityCount = 1; +fn_3090->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3090); return (rslt4); }; -Value *arityImpl_3094(List *closures, Value *arg0) { +Value *arityImpl_3087(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_400); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_399); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3096; +arity_1->fn = arityImpl_3089; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); -Function *fn_3095 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3095->type = 3; -fn_3095->name = "anon"; -fn_3095->arityCount = 1; -fn_3095->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3095); +Function *fn_3088 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3088->type = 3; +fn_3088->name = "anon"; +fn_3088->arityCount = 1; +fn_3088->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3088); return (rslt3); }; -Value *arityImpl_3092(List *closures) { +Value *arityImpl_3085(List *closures) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; Value *rslt1 = arityImpl_623((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1004((List *)var_31, (Value *)&_kw_66, rslt1); +Value *rslt2 = arityImpl_994((List *)var_31, (Value *)&_kw_64, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_3094; +arity_3->fn = arityImpl_3087; arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); -Function *fn_3093 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3093->type = 3; -fn_3093->name = "anon"; -fn_3093->arityCount = 1; -fn_3093->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3093); +Function *fn_3086 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3086->type = 3; +fn_3086->name = "anon"; +fn_3086->arityCount = 1; +fn_3086->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3086); return (rslt4); }; // --------- serialize-protocols main body -------------- -Function fn_3091 = {3, "serialize-protocols", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3092}}}; +Function fn_3084 = {3, "serialize-protocols", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3085}}}; // --------- static-fns -------------- -Function fn_3116; -Value *arityImpl_3117(List *closures) { +Function fn_3109; +Value *arityImpl_3110(List *closures) { return(static_fns());}; // --------- static-fns main body -------------- -Function fn_3116 = {3, "static-fns", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3117}}}; +Function fn_3109 = {3, "static-fns", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3110}}}; // --------- load-static-fns -------------- -Function fn_3119; +Function fn_3112; // --------- anon -------------- -Function fn_3121; -Value *arityImpl_3122(List *closures, Value *arg0) { +Function fn_3114; +Value *arityImpl_3115(List *closures, Value *arg0) { Value *rslt0 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_8); Value *rslt1 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_1); Value *rslt5; @@ -40372,10 +40306,10 @@ return (rslt7); // --------- anon main body -------------- -Function fn_3121 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3122}}}; -Value *arityImpl_3120(List *closures) { -Value *rslt0 = arityImpl_3117((List *)var_31); -Value *rslt2 = protoFnImpl_125((List *)var_31, rslt0, (Value *)&fn_3121); +Function fn_3114 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3115}}}; +Value *arityImpl_3113(List *closures) { +Value *rslt0 = arityImpl_3110((List *)var_31); +Value *rslt2 = protoFnImpl_125((List *)var_31, rslt0, (Value *)&fn_3114); Value *rslt6; if((var_546)->type != 3) { rslt6 = protoFnImpl_5(empty_list, var_546, rslt2); @@ -40398,89 +40332,89 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_546)->name) abort(); } } -Value *rslt7 = arityImpl_1009((List *)var_31, (Value *)&_kw_60, rslt6); +Value *rslt7 = arityImpl_999((List *)var_31, (Value *)&_kw_58, rslt6); return (rslt7); }; // --------- load-static-fns main body -------------- -Function fn_3119 = {3, "load-static-fns", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3120}}}; +Function fn_3112 = {3, "load-static-fns", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3113}}}; struct {int64_t type; int64_t len; - char buffer[24];} _str_422 = {1,23,"Value *static_fns() {\n"}; + char buffer[24];} _str_421 = {1,23,"Value *static_fns() {\n"}; struct {int64_t type; int64_t len; - char buffer[32];} _str_423 = {1,31,"List *staticFns = empty_list;\n"}; + char buffer[32];} _str_422 = {1,31,"List *staticFns = empty_list;\n"}; struct {int64_t type; int64_t len; - char buffer[16];} _str_424 = {1,15,"List *fnInfo;\n"}; + char buffer[16];} _str_423 = {1,15,"List *fnInfo;\n"}; struct {int64_t type; int64_t len; - char buffer[19];} _str_425 = {1,18,"List *arityInfo;\n"}; + char buffer[19];} _str_424 = {1,18,"List *arityInfo;\n"}; struct {int64_t type; int64_t len; - char buffer[23];} _str_426 = {1,22,"fnInfo = empty_list;\n"}; + char buffer[23];} _str_425 = {1,22,"fnInfo = empty_list;\n"}; struct {int64_t type; int64_t len; - char buffer[36];} _str_427 = {1,35,"arityInfo = listCons(stringValue(\""}; + char buffer[36];} _str_426 = {1,35,"arityInfo = listCons(stringValue(\""}; struct {int64_t type; int64_t len; - char buffer[20];} _str_428 = {1,19,"\"), empty_list);\n"}; + char buffer[20];} _str_427 = {1,19,"\"), empty_list);\n"}; struct {int64_t type; int64_t len; - char buffer[49];} _str_429 = {1,48,"arityInfo = listCons(keywordValue(\":variadic\")"}; + char buffer[49];} _str_428 = {1,48,"arityInfo = listCons(keywordValue(\":variadic\")"}; struct {int64_t type; int64_t len; - char buffer[16];} _str_430 = {1,15,", arityInfo);\n"}; + char buffer[16];} _str_429 = {1,15,", arityInfo);\n"}; struct {int64_t type; int64_t len; - char buffer[34];} _str_431 = {1,33,"arityInfo = listCons(numberValue("}; + char buffer[34];} _str_430 = {1,33,"arityInfo = listCons(numberValue("}; struct {int64_t type; int64_t len; - char buffer[17];} _str_432 = {1,16,"), arityInfo);\n"}; + char buffer[17];} _str_431 = {1,16,"), arityInfo);\n"}; struct {int64_t type; int64_t len; - char buffer[49];} _str_433 = {1,48,"fnInfo = listCons((Value *)arityInfo, fnInfo);\n"}; + char buffer[49];} _str_432 = {1,48,"fnInfo = listCons((Value *)arityInfo, fnInfo);\n"}; struct {int64_t type; int64_t len; - char buffer[50];} _str_434 = {1,49,"fnInfo = listCons((Value *)fnInfo, empty_list);\n"}; + char buffer[50];} _str_433 = {1,49,"fnInfo = listCons((Value *)fnInfo, empty_list);\n"}; struct {int64_t type; int64_t len; - char buffer[33];} _str_435 = {1,32,"fnInfo = listCons(stringValue(\""}; + char buffer[33];} _str_434 = {1,32,"fnInfo = listCons(stringValue(\""}; struct {int64_t type; int64_t len; - char buffer[16];} _str_436 = {1,15,"\"), fnInfo);\n"}; + char buffer[16];} _str_435 = {1,15,"\"), fnInfo);\n"}; struct {int64_t type; int64_t len; - char buffer[52];} _str_437 = {1,51,"staticFns = listCons((Value *)fnInfo, staticFns);\n"}; + char buffer[52];} _str_436 = {1,51,"staticFns = listCons((Value *)fnInfo, staticFns);\n"}; struct {int64_t type; int64_t len; - char buffer[30];} _str_438 = {1,29,"return((Value *)staticFns);\n"}; + char buffer[30];} _str_437 = {1,29,"return((Value *)staticFns);\n"}; // --------- serialize-static-fns -------------- -Function fn_3124; +Function fn_3117; // --------- anon -------------- -Function fn_3126; +Function fn_3119; // --------- anon -------------- -Function fn_3128; +Function fn_3121; // --------- anon -------------- -Function fn_3130; +Function fn_3123; // --------- anon -------------- -Function fn_3132; +Function fn_3125; // --------- anon -------------- -Function fn_3134; +Function fn_3127; // --------- anon -------------- -Function fn_3136; +Function fn_3129; // --------- anon -------------- -Function fn_3138; -Value *arityImpl_3139(List *closures, Value *arg0) { +Function fn_3131; +Value *arityImpl_3132(List *closures, Value *arg0) { Value *rslt0 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_8); Value *rslt1 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_1); List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -40488,12 +40422,12 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)(Value *)&_str_428, varArgs2); -varArgs2 = (List *)listCons((Value *)rslt1, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_427, varArgs2); +varArgs2 = (List *)listCons((Value *)rslt1, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_426, varArgs2); Value *rslt3 = arityImpl_508((List *)var_31, (Value *)varArgs2); Value *cond4; -Value *rslt7 = arityImpl_283((List *)var_31, (Value *)&_kw_55, rslt0); +Value *rslt7 = arityImpl_283((List *)var_31, (Value *)&_kw_53, rslt0); if (isTrue(rslt7)) { List *varArgs8 = (List *)GC_malloc(sizeof(List)); @@ -40501,8 +40435,8 @@ varArgs8->type = ListType; varArgs8->len = 0; varArgs8->head = (Value *)0; varArgs8->tail = (List *)0; -varArgs8 = (List *)listCons((Value *)(Value *)&_str_430, varArgs8); varArgs8 = (List *)listCons((Value *)(Value *)&_str_429, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_str_428, varArgs8); Value *rslt9 = arityImpl_508((List *)var_31, (Value *)varArgs8); cond4 = rslt9; } else { @@ -40511,9 +40445,9 @@ varArgs5->type = ListType; varArgs5->len = 0; varArgs5->head = (Value *)0; varArgs5->tail = (List *)0; -varArgs5 = (List *)listCons((Value *)(Value *)&_str_432, varArgs5); -varArgs5 = (List *)listCons((Value *)rslt0, varArgs5); varArgs5 = (List *)listCons((Value *)(Value *)&_str_431, varArgs5); +varArgs5 = (List *)listCons((Value *)rslt0, varArgs5); +varArgs5 = (List *)listCons((Value *)(Value *)&_str_430, varArgs5); Value *rslt6 = arityImpl_508((List *)var_31, (Value *)varArgs5); cond4 = rslt6; } @@ -40522,7 +40456,7 @@ varArgs10->type = ListType; varArgs10->len = 0; varArgs10->head = (Value *)0; varArgs10->tail = (List *)0; -varArgs10 = (List *)listCons((Value *)(Value *)&_str_433, varArgs10); +varArgs10 = (List *)listCons((Value *)(Value *)&_str_432, varArgs10); Value *rslt11 = arityImpl_508((List *)var_31, (Value *)varArgs10); List *varArgs12 = (List *)GC_malloc(sizeof(List)); varArgs12->type = ListType; @@ -40538,8 +40472,8 @@ return (rslt13); // --------- anon main body -------------- -Function fn_3138 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3139}}}; -Value *arityImpl_3137(List *closures, Value *arg0) { +Function fn_3131 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3132}}}; +Value *arityImpl_3130(List *closures, Value *arg0) { Value *rslt0 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_8); Value *rslt1 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_1); List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -40547,32 +40481,32 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)(Value *)&_str_426, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_425, varArgs2); Value *rslt3 = arityImpl_119((List *)var_31, (Value *)varArgs2); Value *rslt4 = protoFnImpl_214((List *)var_31, rslt1); -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt4, (Value *)&fn_3138); +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt4, (Value *)&fn_3131); List *varArgs7 = (List *)GC_malloc(sizeof(List)); varArgs7->type = ListType; varArgs7->len = 0; varArgs7->head = (Value *)0; varArgs7->tail = (List *)0; -varArgs7 = (List *)listCons((Value *)(Value *)&_str_434, varArgs7); +varArgs7 = (List *)listCons((Value *)(Value *)&_str_433, varArgs7); Value *rslt8 = arityImpl_508((List *)var_31, (Value *)varArgs7); List *varArgs9 = (List *)GC_malloc(sizeof(List)); varArgs9->type = ListType; varArgs9->len = 0; varArgs9->head = (Value *)0; varArgs9->tail = (List *)0; -varArgs9 = (List *)listCons((Value *)(Value *)&_str_436, varArgs9); -varArgs9 = (List *)listCons((Value *)rslt0, varArgs9); varArgs9 = (List *)listCons((Value *)(Value *)&_str_435, varArgs9); +varArgs9 = (List *)listCons((Value *)rslt0, varArgs9); +varArgs9 = (List *)listCons((Value *)(Value *)&_str_434, varArgs9); Value *rslt10 = arityImpl_508((List *)var_31, (Value *)varArgs9); List *varArgs11 = (List *)GC_malloc(sizeof(List)); varArgs11->type = ListType; varArgs11->len = 0; varArgs11->head = (Value *)0; varArgs11->tail = (List *)0; -varArgs11 = (List *)listCons((Value *)(Value *)&_str_437, varArgs11); +varArgs11 = (List *)listCons((Value *)(Value *)&_str_436, varArgs11); Value *rslt12 = arityImpl_508((List *)var_31, (Value *)varArgs11); List *varArgs13 = (List *)GC_malloc(sizeof(List)); varArgs13->type = ListType; @@ -40597,17 +40531,17 @@ return (rslt16); // --------- anon main body -------------- -Function fn_3136 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3137}}}; +Function fn_3129 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3130}}}; // --------- anon -------------- -Function fn_3140; +Function fn_3133; // --------- anon -------------- -Function fn_3142; +Function fn_3135; // --------- anon -------------- -Function fn_3144; -Value *arityImpl_3145(List *closures, Value *arg0) { +Function fn_3137; +Value *arityImpl_3138(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -40616,49 +40550,49 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_3143(List *closures, Value *arg0) { +Value *arityImpl_3136(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_421); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_420); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3145; +arity_1->fn = arityImpl_3138; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3144 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3144->type = 3; -fn_3144->name = "anon"; -fn_3144->arityCount = 1; -fn_3144->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3144); +Function *fn_3137 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3137->type = 3; +fn_3137->name = "anon"; +fn_3137->arityCount = 1; +fn_3137->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3137); return (rslt3); }; -Value *arityImpl_3141(List *closures, Value *arg0) { +Value *arityImpl_3134(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_438); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_437); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3143; +arity_1->fn = arityImpl_3136; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3142 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3142->type = 3; -fn_3142->name = "anon"; -fn_3142->arityCount = 1; -fn_3142->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3142); +Function *fn_3135 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3135->type = 3; +fn_3135->name = "anon"; +fn_3135->arityCount = 1; +fn_3135->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3135); return (rslt3); }; -Value *arityImpl_3135(List *closures, Value *arg0) { +Value *arityImpl_3128(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -40668,24 +40602,24 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt1 = protoFnImpl_214((List *)var_31, val0); -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)&fn_3136); -Value *rslt4 = arityImpl_1949((List *)var_31, rslt3); +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)&fn_3129); +Value *rslt4 = arityImpl_1942((List *)var_31, rslt3); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_3141; +arity_5->fn = arityImpl_3134; arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); -Function *fn_3140 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3140->type = 3; -fn_3140->name = "anon"; -fn_3140->arityCount = 1; -fn_3140->arities[0] = arity_5; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_3140); +Function *fn_3133 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3133->type = 3; +fn_3133->name = "anon"; +fn_3133->arityCount = 1; +fn_3133->arities[0] = arity_5; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_3133); return (rslt7); }; -Value *arityImpl_3133(List *closures, Value *arg0) { +Value *arityImpl_3126(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -40694,24 +40628,24 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_425); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_424); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3135; +arity_1->fn = arityImpl_3128; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_3134 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3134->type = 3; -fn_3134->name = "anon"; -fn_3134->arityCount = 1; -fn_3134->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3134); +Function *fn_3127 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3127->type = 3; +fn_3127->name = "anon"; +fn_3127->arityCount = 1; +fn_3127->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3127); return (rslt4); }; -Value *arityImpl_3131(List *closures, Value *arg0) { +Value *arityImpl_3124(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -40720,24 +40654,24 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_424); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_423); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3133; +arity_1->fn = arityImpl_3126; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_3132 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3132->type = 3; -fn_3132->name = "anon"; -fn_3132->arityCount = 1; -fn_3132->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3132); +Function *fn_3125 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3125->type = 3; +fn_3125->name = "anon"; +fn_3125->arityCount = 1; +fn_3125->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3125); return (rslt4); }; -Value *arityImpl_3129(List *closures, Value *arg0) { +Value *arityImpl_3122(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -40746,85 +40680,85 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_423); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_422); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3131; +arity_1->fn = arityImpl_3124; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_3130 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3130->type = 3; -fn_3130->name = "anon"; -fn_3130->arityCount = 1; -fn_3130->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3130); +Function *fn_3123 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3123->type = 3; +fn_3123->name = "anon"; +fn_3123->arityCount = 1; +fn_3123->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3123); return (rslt4); }; -Value *arityImpl_3127(List *closures, Value *arg0) { +Value *arityImpl_3120(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_422); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_421); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3129; +arity_1->fn = arityImpl_3122; arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3128 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3128->type = 3; -fn_3128->name = "anon"; -fn_3128->arityCount = 1; -fn_3128->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3128); +Function *fn_3121 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3121->type = 3; +fn_3121->name = "anon"; +fn_3121->arityCount = 1; +fn_3121->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3121); return (rslt3); }; -Value *arityImpl_3125(List *closures) { +Value *arityImpl_3118(List *closures) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; Value *rslt1 = arityImpl_623((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1004((List *)var_31, (Value *)&_kw_61, rslt1); +Value *rslt2 = arityImpl_994((List *)var_31, (Value *)&_kw_59, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_3127; +arity_3->fn = arityImpl_3120; arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); -Function *fn_3126 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3126->type = 3; -fn_3126->name = "anon"; -fn_3126->arityCount = 1; -fn_3126->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3126); +Function *fn_3119 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3119->type = 3; +fn_3119->name = "anon"; +fn_3119->arityCount = 1; +fn_3119->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3119); return (rslt4); }; // --------- serialize-static-fns main body -------------- -Function fn_3124 = {3, "serialize-static-fns", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3125}}}; +Function fn_3117 = {3, "serialize-static-fns", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3118}}}; // --------- defined-syms -------------- -Function fn_3147; -Value *arityImpl_3148(List *closures) { +Function fn_3140; +Value *arityImpl_3141(List *closures) { return(defined_syms());}; // --------- defined-syms main body -------------- -Function fn_3147 = {3, "defined-syms", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3148}}}; +Function fn_3140 = {3, "defined-syms", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3141}}}; // --------- load-defined-syms -------------- -Function fn_3150; -Value *arityImpl_3151(List *closures) { -Value *rslt0 = arityImpl_3148((List *)var_31); +Function fn_3143; +Value *arityImpl_3144(List *closures) { +Value *rslt0 = arityImpl_3141((List *)var_31); Value *rslt4; if((var_546)->type != 3) { rslt4 = protoFnImpl_5(empty_list, var_546, rslt0); @@ -40847,59 +40781,59 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_546)->name) abort(); } } -Value *rslt5 = arityImpl_1009((List *)var_31, (Value *)&_kw_50, rslt4); +Value *rslt5 = arityImpl_999((List *)var_31, (Value *)&_kw_48, rslt4); return (rslt5); }; // --------- load-defined-syms main body -------------- -Function fn_3150 = {3, "load-defined-syms", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3151}}}; +Function fn_3143 = {3, "load-defined-syms", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3144}}}; struct {int64_t type; int64_t len; - char buffer[26];} _str_439 = {1,25,"Value *defined_syms() {\n"}; + char buffer[26];} _str_438 = {1,25,"Value *defined_syms() {\n"}; struct {int64_t type; int64_t len; - char buffer[30];} _str_440 = {1,29,"List *defSyms = empty_list;\n"}; + char buffer[30];} _str_439 = {1,29,"List *defSyms = empty_list;\n"}; struct {int64_t type; int64_t len; - char buffer[17];} _str_441 = {1,16,"List *symInfo;\n"}; + char buffer[17];} _str_440 = {1,16,"List *symInfo;\n"}; struct {int64_t type; int64_t len; - char buffer[34];} _str_442 = {1,33,"symInfo = listCons(stringValue(\""}; + char buffer[34];} _str_441 = {1,33,"symInfo = listCons(stringValue(\""}; struct {int64_t type; int64_t len; - char buffer[17];} _str_443 = {1,16,"\"), symInfo);\n"}; + char buffer[17];} _str_442 = {1,16,"\"), symInfo);\n"}; struct {int64_t type; int64_t len; - char buffer[52];} _str_444 = {1,51,"symInfo = listCons((Value *)symInfo, empty_list);\n"}; + char buffer[52];} _str_443 = {1,51,"symInfo = listCons((Value *)symInfo, empty_list);\n"}; struct {int64_t type; int64_t len; - char buffer[34];} _str_445 = {1,33,"symInfo = listCons(symbolValue(\""}; + char buffer[34];} _str_444 = {1,33,"symInfo = listCons(symbolValue(\""}; struct {int64_t type; int64_t len; - char buffer[49];} _str_446 = {1,48,"defSyms = listCons((Value *)symInfo, defSyms);\n"}; + char buffer[49];} _str_445 = {1,48,"defSyms = listCons((Value *)symInfo, defSyms);\n"}; struct {int64_t type; int64_t len; - char buffer[28];} _str_447 = {1,27,"return((Value *)defSyms);\n"}; + char buffer[28];} _str_446 = {1,27,"return((Value *)defSyms);\n"}; // --------- serialize-defined-syms -------------- -Function fn_3153; +Function fn_3146; // --------- anon -------------- -Function fn_3155; +Function fn_3148; // --------- anon -------------- -Function fn_3157; +Function fn_3150; // --------- anon -------------- -Function fn_3159; +Function fn_3152; // --------- anon -------------- -Function fn_3161; +Function fn_3154; // --------- anon -------------- -Function fn_3163; -Value *arityImpl_3164(List *closures, Value *arg0) { +Function fn_3156; +Value *arityImpl_3157(List *closures, Value *arg0) { Value *rslt0 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_8); Value *rslt1 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_1); Value *rslt2 = arityImpl_523((List *)var_31, rslt1, (Value *)&_num_8); @@ -40909,41 +40843,41 @@ varArgs4->type = ListType; varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; -varArgs4 = (List *)listCons((Value *)(Value *)&_str_428, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_427, varArgs4); varArgs4 = (List *)listCons((Value *)rslt3, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&_str_442, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_441, varArgs4); Value *rslt5 = arityImpl_508((List *)var_31, (Value *)varArgs4); List *varArgs6 = (List *)GC_malloc(sizeof(List)); varArgs6->type = ListType; varArgs6->len = 0; varArgs6->head = (Value *)0; varArgs6->tail = (List *)0; -varArgs6 = (List *)listCons((Value *)(Value *)&_str_443, varArgs6); -varArgs6 = (List *)listCons((Value *)rslt2, varArgs6); varArgs6 = (List *)listCons((Value *)(Value *)&_str_442, varArgs6); +varArgs6 = (List *)listCons((Value *)rslt2, varArgs6); +varArgs6 = (List *)listCons((Value *)(Value *)&_str_441, varArgs6); Value *rslt7 = arityImpl_508((List *)var_31, (Value *)varArgs6); List *varArgs8 = (List *)GC_malloc(sizeof(List)); varArgs8->type = ListType; varArgs8->len = 0; varArgs8->head = (Value *)0; varArgs8->tail = (List *)0; -varArgs8 = (List *)listCons((Value *)(Value *)&_str_444, varArgs8); +varArgs8 = (List *)listCons((Value *)(Value *)&_str_443, varArgs8); Value *rslt9 = arityImpl_508((List *)var_31, (Value *)varArgs8); List *varArgs10 = (List *)GC_malloc(sizeof(List)); varArgs10->type = ListType; varArgs10->len = 0; varArgs10->head = (Value *)0; varArgs10->tail = (List *)0; -varArgs10 = (List *)listCons((Value *)(Value *)&_str_443, varArgs10); +varArgs10 = (List *)listCons((Value *)(Value *)&_str_442, varArgs10); varArgs10 = (List *)listCons((Value *)rslt0, varArgs10); -varArgs10 = (List *)listCons((Value *)(Value *)&_str_445, varArgs10); +varArgs10 = (List *)listCons((Value *)(Value *)&_str_444, varArgs10); Value *rslt11 = arityImpl_508((List *)var_31, (Value *)varArgs10); List *varArgs12 = (List *)GC_malloc(sizeof(List)); varArgs12->type = ListType; varArgs12->len = 0; varArgs12->head = (Value *)0; varArgs12->tail = (List *)0; -varArgs12 = (List *)listCons((Value *)(Value *)&_str_446, varArgs12); +varArgs12 = (List *)listCons((Value *)(Value *)&_str_445, varArgs12); Value *rslt13 = arityImpl_508((List *)var_31, (Value *)varArgs12); List *varArgs14 = (List *)GC_malloc(sizeof(List)); varArgs14->type = ListType; @@ -40961,17 +40895,344 @@ return (rslt15); // --------- anon main body -------------- -Function fn_3163 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3164}}}; +Function fn_3156 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3157}}}; + +// --------- anon -------------- +Function fn_3158; + +// --------- anon -------------- +Function fn_3160; // --------- anon -------------- +Function fn_3162; +Value *arityImpl_3163(List *closures, Value *arg0) { +Value *val0 = closures->head; +if (closures->tail) +closures->tail->len = closures->len - 1; +closures = closures->tail; +Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); +return (rslt1); +}; + +Value *arityImpl_3161(List *closures, Value *arg0) { +Value *val2 = closures->head; +if (closures->tail) +closures->tail->len = closures->len - 1; +closures = closures->tail; +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_420); +FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); +arity_1->count = 1; +arity_1->closures = empty_list; +arity_1->variadic = 0; +arity_1->fn = arityImpl_3163; +arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); +Function *fn_3162 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3162->type = 3; +fn_3162->name = "anon"; +fn_3162->arityCount = 1; +fn_3162->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3162); +return (rslt3); +}; + +Value *arityImpl_3159(List *closures, Value *arg0) { +Value *val2 = closures->head; +if (closures->tail) +closures->tail->len = closures->len - 1; +closures = closures->tail; +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_446); +FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); +arity_1->count = 1; +arity_1->closures = empty_list; +arity_1->variadic = 0; +arity_1->fn = arityImpl_3161; +arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); +Function *fn_3160 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3160->type = 3; +fn_3160->name = "anon"; +fn_3160->arityCount = 1; +fn_3160->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3160); +return (rslt3); +}; + +Value *arityImpl_3155(List *closures, Value *arg0) { +Value *val0 = closures->head; +if (closures->tail) +closures->tail->len = closures->len - 1; +closures = closures->tail; +Value *val6 = closures->head; +if (closures->tail) +closures->tail->len = closures->len - 1; +closures = closures->tail; +Value *rslt1 = protoFnImpl_214((List *)var_31, val0); +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)&fn_3156); +Value *rslt4 = arityImpl_1942((List *)var_31, rslt3); +FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); +arity_5->count = 1; +arity_5->closures = empty_list; +arity_5->variadic = 0; +arity_5->fn = arityImpl_3159; +arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); +Function *fn_3158 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3158->type = 3; +fn_3158->name = "anon"; +fn_3158->arityCount = 1; +fn_3158->arities[0] = arity_5; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_3158); +return (rslt7); +}; + +Value *arityImpl_3153(List *closures, Value *arg0) { +Value *val2 = closures->head; +if (closures->tail) +closures->tail->len = closures->len - 1; +closures = closures->tail; +Value *val3 = closures->head; +if (closures->tail) +closures->tail->len = closures->len - 1; +closures = closures->tail; +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_440); +FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); +arity_1->count = 1; +arity_1->closures = empty_list; +arity_1->variadic = 0; +arity_1->fn = arityImpl_3155; +arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); +arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); +Function *fn_3154 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3154->type = 3; +fn_3154->name = "anon"; +fn_3154->arityCount = 1; +fn_3154->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3154); +return (rslt4); +}; + +Value *arityImpl_3151(List *closures, Value *arg0) { +Value *val2 = closures->head; +if (closures->tail) +closures->tail->len = closures->len - 1; +closures = closures->tail; +Value *val3 = closures->head; +if (closures->tail) +closures->tail->len = closures->len - 1; +closures = closures->tail; +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_439); +FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); +arity_1->count = 1; +arity_1->closures = empty_list; +arity_1->variadic = 0; +arity_1->fn = arityImpl_3153; +arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); +arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); +Function *fn_3152 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3152->type = 3; +fn_3152->name = "anon"; +fn_3152->arityCount = 1; +fn_3152->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3152); +return (rslt4); +}; + +Value *arityImpl_3149(List *closures, Value *arg0) { +Value *val2 = closures->head; +if (closures->tail) +closures->tail->len = closures->len - 1; +closures = closures->tail; +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_438); +FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); +arity_1->count = 1; +arity_1->closures = empty_list; +arity_1->variadic = 0; +arity_1->fn = arityImpl_3151; +arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); +arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); +Function *fn_3150 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3150->type = 3; +fn_3150->name = "anon"; +fn_3150->arityCount = 1; +fn_3150->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3150); +return (rslt3); +}; + +Value *arityImpl_3147(List *closures) { +List *varArgs0 = (List *)GC_malloc(sizeof(List)); +varArgs0->type = ListType; +varArgs0->len = 0; +varArgs0->head = (Value *)0; +varArgs0->tail = (List *)0; +Value *rslt1 = arityImpl_623((List *)var_31, (Value *)varArgs0); +Value *rslt2 = arityImpl_994((List *)var_31, (Value *)&_kw_47, rslt1); +FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); +arity_3->count = 1; +arity_3->closures = empty_list; +arity_3->variadic = 0; +arity_3->fn = arityImpl_3149; +arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); +Function *fn_3148 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3148->type = 3; +fn_3148->name = "anon"; +fn_3148->arityCount = 1; +fn_3148->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3148); +return (rslt4); +}; + + +// --------- serialize-defined-syms main body -------------- +Function fn_3146 = {3, "serialize-defined-syms", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3147}}}; + +// --------- number-literals -------------- Function fn_3165; +Value *arityImpl_3166(List *closures) { +return(number_literals());}; + + +// --------- number-literals main body -------------- +Function fn_3165 = {3, "number-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3166}}}; + +// --------- load-number-literals -------------- +Function fn_3168; +Value *arityImpl_3169(List *closures) { +Value *rslt0 = arityImpl_3166((List *)var_31); +Value *rslt4; +if((var_546)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, var_546, rslt0); +} else { +FnArity *arity1 = findFnArity(var_546, 1); +if(arity1 != (FnArity *)0 && !arity1->variadic) { +FnType1 *fn3 = (FnType1 *)arity1->fn; +rslt4 = fn3(arity1->closures, rslt0); +} else if(arity1 != (FnArity *)0 && arity1->variadic) { +FnType1 *fn3 = (FnType1 *)arity1->fn; +List *varArgs2 = (List *)GC_malloc(sizeof(List)); +varArgs2->type = ListType; +varArgs2->len = 0; +varArgs2->head = (Value *)0; +varArgs2->tail = (List *)0; +varArgs2 = (List *)listCons(rslt0, varArgs2); +rslt4 = fn3(arity1->closures, (Value *)varArgs2); +} else { +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_546)->name); + abort(); +} +} +Value *rslt5 = protoFnImpl_195((List *)var_31, rslt4); +Value *rslt6 = arityImpl_453((List *)var_31, rslt5); +Value *rslt7 = arityImpl_999((List *)var_31, (Value *)&_kw_23, rslt6); +Value *rslt8 = arityImpl_999((List *)var_31, (Value *)&_kw_21, rslt4); +List *varArgs9 = (List *)GC_malloc(sizeof(List)); +varArgs9->type = ListType; +varArgs9->len = 0; +varArgs9->head = (Value *)0; +varArgs9->tail = (List *)0; +varArgs9 = (List *)listCons((Value *)rslt8, varArgs9); +varArgs9 = (List *)listCons((Value *)rslt7, varArgs9); +varArgs9 = (List *)listCons((Value *)(Value *)&fn_118, varArgs9); +Value *rslt10 = arityImpl_116((List *)var_31, (Value *)varArgs9); +return (rslt10); +}; + + +// --------- load-number-literals main body -------------- +Function fn_3168 = {3, "load-number-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3169}}}; +struct {int64_t type; + int64_t len; + char buffer[29];} _str_447 = {1,28,"Value *number_literals() {\n"}; +struct {int64_t type; + int64_t len; + char buffer[27];} _str_448 = {1,26,"List *nums = empty_list;\n"}; +struct {int64_t type; + int64_t len; + char buffer[17];} _str_449 = {1,16,"List *numInfo;\n"}; +struct {int64_t type; + int64_t len; + char buffer[34];} _str_450 = {1,33,"numInfo = listCons(stringValue(\""}; +struct {int64_t type; + int64_t len; + char buffer[32];} _str_451 = {1,31,"numInfo = listCons(numberValue("}; +struct {int64_t type; + int64_t len; + char buffer[15];} _str_452 = {1,14,"), numInfo);\n"}; +struct {int64_t type; + int64_t len; + char buffer[43];} _str_453 = {1,42,"nums = listCons((Value *)numInfo, nums);\n"}; +struct {int64_t type; + int64_t len; + char buffer[25];} _str_454 = {1,24,"return((Value *)nums);\n"}; + +// --------- serialize-number-literals -------------- +Function fn_3171; + +// --------- anon -------------- +Function fn_3173; + +// --------- anon -------------- +Function fn_3175; + +// --------- anon -------------- +Function fn_3177; + +// --------- anon -------------- +Function fn_3179; + +// --------- anon -------------- +Function fn_3181; +Value *arityImpl_3182(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_8); +Value *rslt1 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_1); +List *varArgs2 = (List *)GC_malloc(sizeof(List)); +varArgs2->type = ListType; +varArgs2->len = 0; +varArgs2->head = (Value *)0; +varArgs2->tail = (List *)0; +varArgs2 = (List *)listCons((Value *)(Value *)&_str_427, varArgs2); +varArgs2 = (List *)listCons((Value *)rslt1, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_450, varArgs2); +Value *rslt3 = arityImpl_508((List *)var_31, (Value *)varArgs2); +List *varArgs4 = (List *)GC_malloc(sizeof(List)); +varArgs4->type = ListType; +varArgs4->len = 0; +varArgs4->head = (Value *)0; +varArgs4->tail = (List *)0; +varArgs4 = (List *)listCons((Value *)(Value *)&_str_452, varArgs4); +varArgs4 = (List *)listCons((Value *)rslt0, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_451, varArgs4); +Value *rslt5 = arityImpl_508((List *)var_31, (Value *)varArgs4); +List *varArgs6 = (List *)GC_malloc(sizeof(List)); +varArgs6->type = ListType; +varArgs6->len = 0; +varArgs6->head = (Value *)0; +varArgs6->tail = (List *)0; +varArgs6 = (List *)listCons((Value *)(Value *)&_str_453, varArgs6); +Value *rslt7 = arityImpl_508((List *)var_31, (Value *)varArgs6); +List *varArgs8 = (List *)GC_malloc(sizeof(List)); +varArgs8->type = ListType; +varArgs8->len = 0; +varArgs8->head = (Value *)0; +varArgs8->tail = (List *)0; +varArgs8 = (List *)listCons((Value *)rslt7, varArgs8); +varArgs8 = (List *)listCons((Value *)rslt5, varArgs8); +varArgs8 = (List *)listCons((Value *)rslt3, varArgs8); +Value *rslt9 = arityImpl_119((List *)var_31, (Value *)varArgs8); +return (rslt9); +}; + + +// --------- anon main body -------------- +Function fn_3181 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3182}}}; + +// --------- anon -------------- +Function fn_3183; // --------- anon -------------- -Function fn_3167; +Function fn_3185; // --------- anon -------------- -Function fn_3169; -Value *arityImpl_3170(List *closures, Value *arg0) { +Function fn_3187; +Value *arityImpl_3188(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -40980,49 +41241,49 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_3168(List *closures, Value *arg0) { +Value *arityImpl_3186(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_421); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_420); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3170; +arity_1->fn = arityImpl_3188; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3169 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3169->type = 3; -fn_3169->name = "anon"; -fn_3169->arityCount = 1; -fn_3169->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3169); +Function *fn_3187 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3187->type = 3; +fn_3187->name = "anon"; +fn_3187->arityCount = 1; +fn_3187->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3187); return (rslt3); }; -Value *arityImpl_3166(List *closures, Value *arg0) { +Value *arityImpl_3184(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_447); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_454); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3168; +arity_1->fn = arityImpl_3186; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3167 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3167->type = 3; -fn_3167->name = "anon"; -fn_3167->arityCount = 1; -fn_3167->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3167); +Function *fn_3185 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3185->type = 3; +fn_3185->name = "anon"; +fn_3185->arityCount = 1; +fn_3185->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3185); return (rslt3); }; -Value *arityImpl_3162(List *closures, Value *arg0) { +Value *arityImpl_3180(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -41032,24 +41293,24 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt1 = protoFnImpl_214((List *)var_31, val0); -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)&fn_3163); -Value *rslt4 = arityImpl_1949((List *)var_31, rslt3); +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)&fn_3181); +Value *rslt4 = arityImpl_1942((List *)var_31, rslt3); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_3166; +arity_5->fn = arityImpl_3184; arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); -Function *fn_3165 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3165->type = 3; -fn_3165->name = "anon"; -fn_3165->arityCount = 1; -fn_3165->arities[0] = arity_5; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_3165); +Function *fn_3183 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3183->type = 3; +fn_3183->name = "anon"; +fn_3183->arityCount = 1; +fn_3183->arities[0] = arity_5; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_3183); return (rslt7); }; -Value *arityImpl_3160(List *closures, Value *arg0) { +Value *arityImpl_3178(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -41058,24 +41319,24 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_441); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_449); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3162; +arity_1->fn = arityImpl_3180; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_3161 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3161->type = 3; -fn_3161->name = "anon"; -fn_3161->arityCount = 1; -fn_3161->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3161); +Function *fn_3179 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3179->type = 3; +fn_3179->name = "anon"; +fn_3179->arityCount = 1; +fn_3179->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3179); return (rslt4); }; -Value *arityImpl_3158(List *closures, Value *arg0) { +Value *arityImpl_3176(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -41084,413 +41345,86 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_440); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_448); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3160; +arity_1->fn = arityImpl_3178; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_3159 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3159->type = 3; -fn_3159->name = "anon"; -fn_3159->arityCount = 1; -fn_3159->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3159); +Function *fn_3177 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3177->type = 3; +fn_3177->name = "anon"; +fn_3177->arityCount = 1; +fn_3177->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3177); return (rslt4); }; -Value *arityImpl_3156(List *closures, Value *arg0) { +Value *arityImpl_3174(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_439); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_447); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3158; +arity_1->fn = arityImpl_3176; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); -Function *fn_3157 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3157->type = 3; -fn_3157->name = "anon"; -fn_3157->arityCount = 1; -fn_3157->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3157); +Function *fn_3175 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3175->type = 3; +fn_3175->name = "anon"; +fn_3175->arityCount = 1; +fn_3175->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3175); return (rslt3); }; -Value *arityImpl_3154(List *closures) { +Value *arityImpl_3172(List *closures) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; Value *rslt1 = arityImpl_623((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1004((List *)var_31, (Value *)&_kw_49, rslt1); +Value *rslt2 = arityImpl_994((List *)var_31, (Value *)&_kw_19, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_3156; +arity_3->fn = arityImpl_3174; arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); -Function *fn_3155 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3155->type = 3; -fn_3155->name = "anon"; -fn_3155->arityCount = 1; -fn_3155->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3155); -return (rslt4); -}; - - -// --------- serialize-defined-syms main body -------------- -Function fn_3153 = {3, "serialize-defined-syms", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3154}}}; - -// --------- number-literals -------------- -Function fn_3172; -Value *arityImpl_3173(List *closures) { -return(number_literals());}; - - -// --------- number-literals main body -------------- -Function fn_3172 = {3, "number-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3173}}}; - -// --------- load-number-literals -------------- -Function fn_3175; -Value *arityImpl_3176(List *closures) { -Value *rslt0 = arityImpl_3173((List *)var_31); -Value *rslt4; -if((var_546)->type != 3) { -rslt4 = protoFnImpl_5(empty_list, var_546, rslt0); -} else { -FnArity *arity1 = findFnArity(var_546, 1); -if(arity1 != (FnArity *)0 && !arity1->variadic) { -FnType1 *fn3 = (FnType1 *)arity1->fn; -rslt4 = fn3(arity1->closures, rslt0); -} else if(arity1 != (FnArity *)0 && arity1->variadic) { -FnType1 *fn3 = (FnType1 *)arity1->fn; -List *varArgs2 = (List *)GC_malloc(sizeof(List)); -varArgs2->type = ListType; -varArgs2->len = 0; -varArgs2->head = (Value *)0; -varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons(rslt0, varArgs2); -rslt4 = fn3(arity1->closures, (Value *)varArgs2); -} else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_546)->name); - abort(); -} -} -Value *rslt5 = protoFnImpl_195((List *)var_31, rslt4); -Value *rslt6 = arityImpl_453((List *)var_31, rslt5); -Value *rslt7 = arityImpl_1009((List *)var_31, (Value *)&_kw_25, rslt6); -Value *rslt8 = arityImpl_1009((List *)var_31, (Value *)&_kw_23, rslt4); -List *varArgs9 = (List *)GC_malloc(sizeof(List)); -varArgs9->type = ListType; -varArgs9->len = 0; -varArgs9->head = (Value *)0; -varArgs9->tail = (List *)0; -varArgs9 = (List *)listCons((Value *)rslt8, varArgs9); -varArgs9 = (List *)listCons((Value *)rslt7, varArgs9); -varArgs9 = (List *)listCons((Value *)(Value *)&fn_118, varArgs9); -Value *rslt10 = arityImpl_116((List *)var_31, (Value *)varArgs9); -return (rslt10); -}; - - -// --------- load-number-literals main body -------------- -Function fn_3175 = {3, "load-number-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3176}}}; -struct {int64_t type; - int64_t len; - char buffer[29];} _str_448 = {1,28,"Value *number_literals() {\n"}; -struct {int64_t type; - int64_t len; - char buffer[27];} _str_449 = {1,26,"List *nums = empty_list;\n"}; -struct {int64_t type; - int64_t len; - char buffer[17];} _str_450 = {1,16,"List *numInfo;\n"}; -struct {int64_t type; - int64_t len; - char buffer[34];} _str_451 = {1,33,"numInfo = listCons(stringValue(\""}; -struct {int64_t type; - int64_t len; - char buffer[32];} _str_452 = {1,31,"numInfo = listCons(numberValue("}; -struct {int64_t type; - int64_t len; - char buffer[15];} _str_453 = {1,14,"), numInfo);\n"}; -struct {int64_t type; - int64_t len; - char buffer[43];} _str_454 = {1,42,"nums = listCons((Value *)numInfo, nums);\n"}; -struct {int64_t type; - int64_t len; - char buffer[25];} _str_455 = {1,24,"return((Value *)nums);\n"}; - -// --------- serialize-number-literals -------------- -Function fn_3178; - -// --------- anon -------------- -Function fn_3180; - -// --------- anon -------------- -Function fn_3182; - -// --------- anon -------------- -Function fn_3184; - -// --------- anon -------------- -Function fn_3186; - -// --------- anon -------------- -Function fn_3188; -Value *arityImpl_3189(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_8); -Value *rslt1 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_1); -List *varArgs2 = (List *)GC_malloc(sizeof(List)); -varArgs2->type = ListType; -varArgs2->len = 0; -varArgs2->head = (Value *)0; -varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)(Value *)&_str_428, varArgs2); -varArgs2 = (List *)listCons((Value *)rslt1, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_451, varArgs2); -Value *rslt3 = arityImpl_508((List *)var_31, (Value *)varArgs2); -List *varArgs4 = (List *)GC_malloc(sizeof(List)); -varArgs4->type = ListType; -varArgs4->len = 0; -varArgs4->head = (Value *)0; -varArgs4->tail = (List *)0; -varArgs4 = (List *)listCons((Value *)(Value *)&_str_453, varArgs4); -varArgs4 = (List *)listCons((Value *)rslt0, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&_str_452, varArgs4); -Value *rslt5 = arityImpl_508((List *)var_31, (Value *)varArgs4); -List *varArgs6 = (List *)GC_malloc(sizeof(List)); -varArgs6->type = ListType; -varArgs6->len = 0; -varArgs6->head = (Value *)0; -varArgs6->tail = (List *)0; -varArgs6 = (List *)listCons((Value *)(Value *)&_str_454, varArgs6); -Value *rslt7 = arityImpl_508((List *)var_31, (Value *)varArgs6); -List *varArgs8 = (List *)GC_malloc(sizeof(List)); -varArgs8->type = ListType; -varArgs8->len = 0; -varArgs8->head = (Value *)0; -varArgs8->tail = (List *)0; -varArgs8 = (List *)listCons((Value *)rslt7, varArgs8); -varArgs8 = (List *)listCons((Value *)rslt5, varArgs8); -varArgs8 = (List *)listCons((Value *)rslt3, varArgs8); -Value *rslt9 = arityImpl_119((List *)var_31, (Value *)varArgs8); -return (rslt9); -}; - - -// --------- anon main body -------------- -Function fn_3188 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3189}}}; - -// --------- anon -------------- -Function fn_3190; - -// --------- anon -------------- -Function fn_3192; - -// --------- anon -------------- -Function fn_3194; -Value *arityImpl_3195(List *closures, Value *arg0) { -Value *val0 = closures->head; -if (closures->tail) -closures->tail->len = closures->len - 1; -closures = closures->tail; -Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); -return (rslt1); -}; - -Value *arityImpl_3193(List *closures, Value *arg0) { -Value *val2 = closures->head; -if (closures->tail) -closures->tail->len = closures->len - 1; -closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_421); -FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); -arity_1->count = 1; -arity_1->closures = empty_list; -arity_1->variadic = 0; -arity_1->fn = arityImpl_3195; -arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3194 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3194->type = 3; -fn_3194->name = "anon"; -fn_3194->arityCount = 1; -fn_3194->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3194); -return (rslt3); -}; - -Value *arityImpl_3191(List *closures, Value *arg0) { -Value *val2 = closures->head; -if (closures->tail) -closures->tail->len = closures->len - 1; -closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_455); -FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); -arity_1->count = 1; -arity_1->closures = empty_list; -arity_1->variadic = 0; -arity_1->fn = arityImpl_3193; -arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3192 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3192->type = 3; -fn_3192->name = "anon"; -fn_3192->arityCount = 1; -fn_3192->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3192); -return (rslt3); -}; - -Value *arityImpl_3187(List *closures, Value *arg0) { -Value *val0 = closures->head; -if (closures->tail) -closures->tail->len = closures->len - 1; -closures = closures->tail; -Value *val6 = closures->head; -if (closures->tail) -closures->tail->len = closures->len - 1; -closures = closures->tail; -Value *rslt1 = protoFnImpl_214((List *)var_31, val0); -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)&fn_3188); -Value *rslt4 = arityImpl_1949((List *)var_31, rslt3); -FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); -arity_5->count = 1; -arity_5->closures = empty_list; -arity_5->variadic = 0; -arity_5->fn = arityImpl_3191; -arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); -Function *fn_3190 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3190->type = 3; -fn_3190->name = "anon"; -fn_3190->arityCount = 1; -fn_3190->arities[0] = arity_5; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_3190); -return (rslt7); -}; - -Value *arityImpl_3185(List *closures, Value *arg0) { -Value *val2 = closures->head; -if (closures->tail) -closures->tail->len = closures->len - 1; -closures = closures->tail; -Value *val3 = closures->head; -if (closures->tail) -closures->tail->len = closures->len - 1; -closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_450); -FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); -arity_1->count = 1; -arity_1->closures = empty_list; -arity_1->variadic = 0; -arity_1->fn = arityImpl_3187; -arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_3186 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3186->type = 3; -fn_3186->name = "anon"; -fn_3186->arityCount = 1; -fn_3186->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3186); -return (rslt4); -}; - -Value *arityImpl_3183(List *closures, Value *arg0) { -Value *val2 = closures->head; -if (closures->tail) -closures->tail->len = closures->len - 1; -closures = closures->tail; -Value *val3 = closures->head; -if (closures->tail) -closures->tail->len = closures->len - 1; -closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_449); -FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); -arity_1->count = 1; -arity_1->closures = empty_list; -arity_1->variadic = 0; -arity_1->fn = arityImpl_3185; -arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_3184 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3184->type = 3; -fn_3184->name = "anon"; -fn_3184->arityCount = 1; -fn_3184->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3184); -return (rslt4); -}; - -Value *arityImpl_3181(List *closures, Value *arg0) { -Value *val2 = closures->head; -if (closures->tail) -closures->tail->len = closures->len - 1; -closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_448); -FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); -arity_1->count = 1; -arity_1->closures = empty_list; -arity_1->variadic = 0; -arity_1->fn = arityImpl_3183; -arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); -Function *fn_3182 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3182->type = 3; -fn_3182->name = "anon"; -fn_3182->arityCount = 1; -fn_3182->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3182); -return (rslt3); -}; - -Value *arityImpl_3179(List *closures) { -List *varArgs0 = (List *)GC_malloc(sizeof(List)); -varArgs0->type = ListType; -varArgs0->len = 0; -varArgs0->head = (Value *)0; -varArgs0->tail = (List *)0; -Value *rslt1 = arityImpl_623((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1004((List *)var_31, (Value *)&_kw_21, rslt1); -FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); -arity_3->count = 1; -arity_3->closures = empty_list; -arity_3->variadic = 0; -arity_3->fn = arityImpl_3181; -arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); -Function *fn_3180 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3180->type = 3; -fn_3180->name = "anon"; -fn_3180->arityCount = 1; -fn_3180->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3180); +Function *fn_3173 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3173->type = 3; +fn_3173->name = "anon"; +fn_3173->arityCount = 1; +fn_3173->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3173); return (rslt4); }; // --------- serialize-number-literals main body -------------- -Function fn_3178 = {3, "serialize-number-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3179}}}; +Function fn_3171 = {3, "serialize-number-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3172}}}; // --------- string-literals -------------- -Function fn_3197; -Value *arityImpl_3198(List *closures) { +Function fn_3190; +Value *arityImpl_3191(List *closures) { return(string_literals()); }; // --------- string-literals main body -------------- -Function fn_3197 = {3, "string-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3198}}}; +Function fn_3190 = {3, "string-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3191}}}; // --------- load-string-literals -------------- -Function fn_3200; -Value *arityImpl_3201(List *closures) { -Value *rslt0 = arityImpl_3198((List *)var_31); +Function fn_3193; +Value *arityImpl_3194(List *closures) { +Value *rslt0 = arityImpl_3191((List *)var_31); Value *rslt4; if((var_546)->type != 3) { rslt4 = protoFnImpl_5(empty_list, var_546, rslt0); @@ -41514,8 +41448,8 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_546)->name) } } Value *rslt5 = protoFnImpl_195((List *)var_31, rslt4); -Value *rslt6 = arityImpl_1009((List *)var_31, (Value *)&_kw_29, rslt5); -Value *rslt7 = arityImpl_1009((List *)var_31, (Value *)&_kw_28, rslt4); +Value *rslt6 = arityImpl_999((List *)var_31, (Value *)&_kw_27, rslt5); +Value *rslt7 = arityImpl_999((List *)var_31, (Value *)&_kw_26, rslt4); List *varArgs8 = (List *)GC_malloc(sizeof(List)); varArgs8->type = ListType; varArgs8->len = 0; @@ -41530,47 +41464,47 @@ return (rslt9); // --------- load-string-literals main body -------------- -Function fn_3200 = {3, "load-string-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3201}}}; +Function fn_3193 = {3, "load-string-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3194}}}; struct {int64_t type; int64_t len; - char buffer[29];} _str_456 = {1,28,"Value *string_literals() {\n"}; + char buffer[29];} _str_455 = {1,28,"Value *string_literals() {\n"}; struct {int64_t type; int64_t len; - char buffer[27];} _str_457 = {1,26,"List *strs = empty_list;\n"}; + char buffer[27];} _str_456 = {1,26,"List *strs = empty_list;\n"}; struct {int64_t type; int64_t len; - char buffer[17];} _str_458 = {1,16,"List *strInfo;\n"}; + char buffer[17];} _str_457 = {1,16,"List *strInfo;\n"}; struct {int64_t type; int64_t len; - char buffer[34];} _str_459 = {1,33,"strInfo = listCons(stringValue(\""}; + char buffer[34];} _str_458 = {1,33,"strInfo = listCons(stringValue(\""}; struct {int64_t type; int64_t len; - char buffer[17];} _str_460 = {1,16,"\"), strInfo);\n"}; + char buffer[17];} _str_459 = {1,16,"\"), strInfo);\n"}; struct {int64_t type; int64_t len; - char buffer[43];} _str_461 = {1,42,"strs = listCons((Value *)strInfo, strs);\n"}; + char buffer[43];} _str_460 = {1,42,"strs = listCons((Value *)strInfo, strs);\n"}; struct {int64_t type; int64_t len; - char buffer[25];} _str_462 = {1,24,"return((Value *)strs);\n"}; + char buffer[25];} _str_461 = {1,24,"return((Value *)strs);\n"}; // --------- serialize-string-literals -------------- -Function fn_3203; +Function fn_3196; // --------- anon -------------- -Function fn_3205; +Function fn_3198; // --------- anon -------------- -Function fn_3207; +Function fn_3200; // --------- anon -------------- -Function fn_3209; +Function fn_3202; // --------- anon -------------- -Function fn_3211; +Function fn_3204; // --------- anon -------------- -Function fn_3213; -Value *arityImpl_3214(List *closures, Value *arg0) { +Function fn_3206; +Value *arityImpl_3207(List *closures, Value *arg0) { Value *rslt0 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_8); Value *rslt1 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_1); List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -41578,25 +41512,25 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)(Value *)&_str_428, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_427, varArgs2); varArgs2 = (List *)listCons((Value *)rslt1, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_459, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_458, varArgs2); Value *rslt3 = arityImpl_508((List *)var_31, (Value *)varArgs2); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; -varArgs4 = (List *)listCons((Value *)(Value *)&_str_460, varArgs4); -varArgs4 = (List *)listCons((Value *)rslt0, varArgs4); varArgs4 = (List *)listCons((Value *)(Value *)&_str_459, varArgs4); +varArgs4 = (List *)listCons((Value *)rslt0, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_458, varArgs4); Value *rslt5 = arityImpl_508((List *)var_31, (Value *)varArgs4); List *varArgs6 = (List *)GC_malloc(sizeof(List)); varArgs6->type = ListType; varArgs6->len = 0; varArgs6->head = (Value *)0; varArgs6->tail = (List *)0; -varArgs6 = (List *)listCons((Value *)(Value *)&_str_461, varArgs6); +varArgs6 = (List *)listCons((Value *)(Value *)&_str_460, varArgs6); Value *rslt7 = arityImpl_508((List *)var_31, (Value *)varArgs6); List *varArgs8 = (List *)GC_malloc(sizeof(List)); varArgs8->type = ListType; @@ -41612,17 +41546,17 @@ return (rslt9); // --------- anon main body -------------- -Function fn_3213 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3214}}}; +Function fn_3206 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3207}}}; // --------- anon -------------- -Function fn_3215; +Function fn_3208; // --------- anon -------------- -Function fn_3217; +Function fn_3210; // --------- anon -------------- -Function fn_3219; -Value *arityImpl_3220(List *closures, Value *arg0) { +Function fn_3212; +Value *arityImpl_3213(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -41631,49 +41565,49 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_3218(List *closures, Value *arg0) { +Value *arityImpl_3211(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_421); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_420); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3220; +arity_1->fn = arityImpl_3213; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3219 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3219->type = 3; -fn_3219->name = "anon"; -fn_3219->arityCount = 1; -fn_3219->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3219); +Function *fn_3212 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3212->type = 3; +fn_3212->name = "anon"; +fn_3212->arityCount = 1; +fn_3212->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3212); return (rslt3); }; -Value *arityImpl_3216(List *closures, Value *arg0) { +Value *arityImpl_3209(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_462); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_461); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3218; +arity_1->fn = arityImpl_3211; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3217 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3217->type = 3; -fn_3217->name = "anon"; -fn_3217->arityCount = 1; -fn_3217->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3217); +Function *fn_3210 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3210->type = 3; +fn_3210->name = "anon"; +fn_3210->arityCount = 1; +fn_3210->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3210); return (rslt3); }; -Value *arityImpl_3212(List *closures, Value *arg0) { +Value *arityImpl_3205(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -41683,24 +41617,24 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt1 = protoFnImpl_214((List *)var_31, val0); -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)&fn_3213); -Value *rslt4 = arityImpl_1949((List *)var_31, rslt3); +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)&fn_3206); +Value *rslt4 = arityImpl_1942((List *)var_31, rslt3); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_3216; +arity_5->fn = arityImpl_3209; arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); -Function *fn_3215 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3215->type = 3; -fn_3215->name = "anon"; -fn_3215->arityCount = 1; -fn_3215->arities[0] = arity_5; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_3215); +Function *fn_3208 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3208->type = 3; +fn_3208->name = "anon"; +fn_3208->arityCount = 1; +fn_3208->arities[0] = arity_5; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_3208); return (rslt7); }; -Value *arityImpl_3210(List *closures, Value *arg0) { +Value *arityImpl_3203(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -41709,24 +41643,24 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_458); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_457); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3212; +arity_1->fn = arityImpl_3205; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_3211 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3211->type = 3; -fn_3211->name = "anon"; -fn_3211->arityCount = 1; -fn_3211->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3211); +Function *fn_3204 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3204->type = 3; +fn_3204->name = "anon"; +fn_3204->arityCount = 1; +fn_3204->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3204); return (rslt4); }; -Value *arityImpl_3208(List *closures, Value *arg0) { +Value *arityImpl_3201(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -41735,86 +41669,86 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_457); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_456); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3210; +arity_1->fn = arityImpl_3203; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_3209 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3209->type = 3; -fn_3209->name = "anon"; -fn_3209->arityCount = 1; -fn_3209->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3209); +Function *fn_3202 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3202->type = 3; +fn_3202->name = "anon"; +fn_3202->arityCount = 1; +fn_3202->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3202); return (rslt4); }; -Value *arityImpl_3206(List *closures, Value *arg0) { +Value *arityImpl_3199(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_456); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_455); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3208; +arity_1->fn = arityImpl_3201; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); -Function *fn_3207 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3207->type = 3; -fn_3207->name = "anon"; -fn_3207->arityCount = 1; -fn_3207->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3207); +Function *fn_3200 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3200->type = 3; +fn_3200->name = "anon"; +fn_3200->arityCount = 1; +fn_3200->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3200); return (rslt3); }; -Value *arityImpl_3204(List *closures) { +Value *arityImpl_3197(List *closures) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; Value *rslt1 = arityImpl_623((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1004((List *)var_31, (Value *)&_kw_26, rslt1); +Value *rslt2 = arityImpl_994((List *)var_31, (Value *)&_kw_24, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_3206; +arity_3->fn = arityImpl_3199; arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); -Function *fn_3205 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3205->type = 3; -fn_3205->name = "anon"; -fn_3205->arityCount = 1; -fn_3205->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3205); +Function *fn_3198 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3198->type = 3; +fn_3198->name = "anon"; +fn_3198->arityCount = 1; +fn_3198->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3198); return (rslt4); }; // --------- serialize-string-literals main body -------------- -Function fn_3203 = {3, "serialize-string-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3204}}}; +Function fn_3196 = {3, "serialize-string-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3197}}}; // --------- keyword-literals -------------- -Function fn_3222; -Value *arityImpl_3223(List *closures) { +Function fn_3215; +Value *arityImpl_3216(List *closures) { return(keyword_literals()); }; // --------- keyword-literals main body -------------- -Function fn_3222 = {3, "keyword-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3223}}}; +Function fn_3215 = {3, "keyword-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3216}}}; // --------- load-keyword-literals -------------- -Function fn_3225; -Value *arityImpl_3226(List *closures) { -Value *rslt0 = arityImpl_3223((List *)var_31); +Function fn_3218; +Value *arityImpl_3219(List *closures) { +Value *rslt0 = arityImpl_3216((List *)var_31); Value *rslt4; if((var_546)->type != 3) { rslt4 = protoFnImpl_5(empty_list, var_546, rslt0); @@ -41838,8 +41772,8 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_546)->name) } } Value *rslt5 = protoFnImpl_195((List *)var_31, rslt4); -Value *rslt6 = arityImpl_1009((List *)var_31, (Value *)&_kw_20, rslt5); -Value *rslt7 = arityImpl_1009((List *)var_31, (Value *)&_kw_18, rslt4); +Value *rslt6 = arityImpl_999((List *)var_31, (Value *)&_kw_18, rslt5); +Value *rslt7 = arityImpl_999((List *)var_31, (Value *)&_kw_16, rslt4); List *varArgs8 = (List *)GC_malloc(sizeof(List)); varArgs8->type = ListType; varArgs8->len = 0; @@ -41854,50 +41788,50 @@ return (rslt9); // --------- load-keyword-literals main body -------------- -Function fn_3225 = {3, "load-keyword-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3226}}}; +Function fn_3218 = {3, "load-keyword-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3219}}}; struct {int64_t type; int64_t len; - char buffer[30];} _str_463 = {1,29,"Value *keyword_literals() {\n"}; + char buffer[30];} _str_462 = {1,29,"Value *keyword_literals() {\n"}; struct {int64_t type; int64_t len; - char buffer[26];} _str_464 = {1,25,"List *kws = empty_list;\n"}; + char buffer[26];} _str_463 = {1,25,"List *kws = empty_list;\n"}; struct {int64_t type; int64_t len; - char buffer[16];} _str_465 = {1,15,"List *kwInfo;\n"}; + char buffer[16];} _str_464 = {1,15,"List *kwInfo;\n"}; struct {int64_t type; int64_t len; - char buffer[33];} _str_466 = {1,32,"kwInfo = listCons(stringValue(\""}; + char buffer[33];} _str_465 = {1,32,"kwInfo = listCons(stringValue(\""}; struct {int64_t type; int64_t len; - char buffer[34];} _str_467 = {1,33,"kwInfo = listCons(keywordValue(\""}; + char buffer[34];} _str_466 = {1,33,"kwInfo = listCons(keywordValue(\""}; struct {int64_t type; int64_t len; - char buffer[16];} _str_468 = {1,15,"\"), kwInfo);\n"}; + char buffer[16];} _str_467 = {1,15,"\"), kwInfo);\n"}; struct {int64_t type; int64_t len; - char buffer[40];} _str_469 = {1,39,"kws = listCons((Value *)kwInfo, kws);\n"}; + char buffer[40];} _str_468 = {1,39,"kws = listCons((Value *)kwInfo, kws);\n"}; struct {int64_t type; int64_t len; - char buffer[24];} _str_470 = {1,23,"return((Value *)kws);\n"}; + char buffer[24];} _str_469 = {1,23,"return((Value *)kws);\n"}; // --------- serialize-keyword-literals -------------- -Function fn_3228; +Function fn_3221; // --------- anon -------------- -Function fn_3230; +Function fn_3223; // --------- anon -------------- -Function fn_3232; +Function fn_3225; // --------- anon -------------- -Function fn_3234; +Function fn_3227; // --------- anon -------------- -Function fn_3236; +Function fn_3229; // --------- anon -------------- -Function fn_3238; -Value *arityImpl_3239(List *closures, Value *arg0) { +Function fn_3231; +Value *arityImpl_3232(List *closures, Value *arg0) { Value *rslt0 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_8); Value *rslt1 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_1); List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -41905,25 +41839,25 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)(Value *)&_str_428, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_427, varArgs2); varArgs2 = (List *)listCons((Value *)rslt1, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_466, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_465, varArgs2); Value *rslt3 = arityImpl_508((List *)var_31, (Value *)varArgs2); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; -varArgs4 = (List *)listCons((Value *)(Value *)&_str_468, varArgs4); -varArgs4 = (List *)listCons((Value *)rslt0, varArgs4); varArgs4 = (List *)listCons((Value *)(Value *)&_str_467, varArgs4); +varArgs4 = (List *)listCons((Value *)rslt0, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_466, varArgs4); Value *rslt5 = arityImpl_508((List *)var_31, (Value *)varArgs4); List *varArgs6 = (List *)GC_malloc(sizeof(List)); varArgs6->type = ListType; varArgs6->len = 0; varArgs6->head = (Value *)0; varArgs6->tail = (List *)0; -varArgs6 = (List *)listCons((Value *)(Value *)&_str_469, varArgs6); +varArgs6 = (List *)listCons((Value *)(Value *)&_str_468, varArgs6); Value *rslt7 = arityImpl_508((List *)var_31, (Value *)varArgs6); List *varArgs8 = (List *)GC_malloc(sizeof(List)); varArgs8->type = ListType; @@ -41939,17 +41873,17 @@ return (rslt9); // --------- anon main body -------------- -Function fn_3238 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3239}}}; +Function fn_3231 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3232}}}; // --------- anon -------------- -Function fn_3240; +Function fn_3233; // --------- anon -------------- -Function fn_3242; +Function fn_3235; // --------- anon -------------- -Function fn_3244; -Value *arityImpl_3245(List *closures, Value *arg0) { +Function fn_3237; +Value *arityImpl_3238(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -41958,49 +41892,49 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_3243(List *closures, Value *arg0) { +Value *arityImpl_3236(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_421); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_420); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3245; +arity_1->fn = arityImpl_3238; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3244 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3244->type = 3; -fn_3244->name = "anon"; -fn_3244->arityCount = 1; -fn_3244->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3244); +Function *fn_3237 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3237->type = 3; +fn_3237->name = "anon"; +fn_3237->arityCount = 1; +fn_3237->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3237); return (rslt3); }; -Value *arityImpl_3241(List *closures, Value *arg0) { +Value *arityImpl_3234(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_470); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_469); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3243; +arity_1->fn = arityImpl_3236; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3242 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3242->type = 3; -fn_3242->name = "anon"; -fn_3242->arityCount = 1; -fn_3242->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3242); +Function *fn_3235 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3235->type = 3; +fn_3235->name = "anon"; +fn_3235->arityCount = 1; +fn_3235->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3235); return (rslt3); }; -Value *arityImpl_3237(List *closures, Value *arg0) { +Value *arityImpl_3230(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -42010,24 +41944,24 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt1 = protoFnImpl_214((List *)var_31, val0); -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)&fn_3238); -Value *rslt4 = arityImpl_1949((List *)var_31, rslt3); +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)&fn_3231); +Value *rslt4 = arityImpl_1942((List *)var_31, rslt3); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_3241; +arity_5->fn = arityImpl_3234; arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); -Function *fn_3240 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3240->type = 3; -fn_3240->name = "anon"; -fn_3240->arityCount = 1; -fn_3240->arities[0] = arity_5; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_3240); +Function *fn_3233 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3233->type = 3; +fn_3233->name = "anon"; +fn_3233->arityCount = 1; +fn_3233->arities[0] = arity_5; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_3233); return (rslt7); }; -Value *arityImpl_3235(List *closures, Value *arg0) { +Value *arityImpl_3228(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -42036,24 +41970,24 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_465); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_464); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3237; +arity_1->fn = arityImpl_3230; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_3236 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3236->type = 3; -fn_3236->name = "anon"; -fn_3236->arityCount = 1; -fn_3236->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3236); +Function *fn_3229 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3229->type = 3; +fn_3229->name = "anon"; +fn_3229->arityCount = 1; +fn_3229->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3229); return (rslt4); }; -Value *arityImpl_3233(List *closures, Value *arg0) { +Value *arityImpl_3226(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -42062,86 +41996,86 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_464); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_463); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3235; +arity_1->fn = arityImpl_3228; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_3234 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3234->type = 3; -fn_3234->name = "anon"; -fn_3234->arityCount = 1; -fn_3234->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3234); +Function *fn_3227 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3227->type = 3; +fn_3227->name = "anon"; +fn_3227->arityCount = 1; +fn_3227->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3227); return (rslt4); }; -Value *arityImpl_3231(List *closures, Value *arg0) { +Value *arityImpl_3224(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_463); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_462); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3233; +arity_1->fn = arityImpl_3226; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); -Function *fn_3232 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3232->type = 3; -fn_3232->name = "anon"; -fn_3232->arityCount = 1; -fn_3232->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3232); +Function *fn_3225 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3225->type = 3; +fn_3225->name = "anon"; +fn_3225->arityCount = 1; +fn_3225->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3225); return (rslt3); }; -Value *arityImpl_3229(List *closures) { +Value *arityImpl_3222(List *closures) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; Value *rslt1 = arityImpl_623((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1004((List *)var_31, (Value *)&_kw_16, rslt1); +Value *rslt2 = arityImpl_994((List *)var_31, (Value *)&_kw_14, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_3231; +arity_3->fn = arityImpl_3224; arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); -Function *fn_3230 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3230->type = 3; -fn_3230->name = "anon"; -fn_3230->arityCount = 1; -fn_3230->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3230); +Function *fn_3223 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3223->type = 3; +fn_3223->name = "anon"; +fn_3223->arityCount = 1; +fn_3223->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3223); return (rslt4); }; // --------- serialize-keyword-literals main body -------------- -Function fn_3228 = {3, "serialize-keyword-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3229}}}; +Function fn_3221 = {3, "serialize-keyword-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3222}}}; // --------- symbol-literals -------------- -Function fn_3247; -Value *arityImpl_3248(List *closures) { +Function fn_3240; +Value *arityImpl_3241(List *closures) { return(symbol_literals()); }; // --------- symbol-literals main body -------------- -Function fn_3247 = {3, "symbol-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3248}}}; +Function fn_3240 = {3, "symbol-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3241}}}; // --------- load-symbol-literals -------------- -Function fn_3250; -Value *arityImpl_3251(List *closures) { -Value *rslt0 = arityImpl_3248((List *)var_31); +Function fn_3243; +Value *arityImpl_3244(List *closures) { +Value *rslt0 = arityImpl_3241((List *)var_31); Value *rslt4; if((var_546)->type != 3) { rslt4 = protoFnImpl_5(empty_list, var_546, rslt0); @@ -42165,8 +42099,8 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_546)->name) } } Value *rslt5 = protoFnImpl_195((List *)var_31, rslt4); -Value *rslt6 = arityImpl_1009((List *)var_31, (Value *)&_kw_36, rslt5); -Value *rslt7 = arityImpl_1009((List *)var_31, (Value *)&_kw_35, rslt4); +Value *rslt6 = arityImpl_999((List *)var_31, (Value *)&_kw_34, rslt5); +Value *rslt7 = arityImpl_999((List *)var_31, (Value *)&_kw_33, rslt4); List *varArgs8 = (List *)GC_malloc(sizeof(List)); varArgs8->type = ListType; varArgs8->len = 0; @@ -42181,38 +42115,38 @@ return (rslt9); // --------- load-symbol-literals main body -------------- -Function fn_3250 = {3, "load-symbol-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3251}}}; +Function fn_3243 = {3, "load-symbol-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3244}}}; struct {int64_t type; int64_t len; - char buffer[29];} _str_471 = {1,28,"Value *symbol_literals() {\n"}; + char buffer[29];} _str_470 = {1,28,"Value *symbol_literals() {\n"}; struct {int64_t type; int64_t len; - char buffer[27];} _str_472 = {1,26,"List *syms = empty_list;\n"}; + char buffer[27];} _str_471 = {1,26,"List *syms = empty_list;\n"}; struct {int64_t type; int64_t len; - char buffer[43];} _str_473 = {1,42,"syms = listCons((Value *)symInfo, syms);\n"}; + char buffer[43];} _str_472 = {1,42,"syms = listCons((Value *)symInfo, syms);\n"}; struct {int64_t type; int64_t len; - char buffer[25];} _str_474 = {1,24,"return((Value *)syms);\n"}; + char buffer[25];} _str_473 = {1,24,"return((Value *)syms);\n"}; // --------- serialize-symbol-literals -------------- -Function fn_3253; +Function fn_3246; // --------- anon -------------- -Function fn_3255; +Function fn_3248; // --------- anon -------------- -Function fn_3257; +Function fn_3250; // --------- anon -------------- -Function fn_3259; +Function fn_3252; // --------- anon -------------- -Function fn_3261; +Function fn_3254; // --------- anon -------------- -Function fn_3263; -Value *arityImpl_3264(List *closures, Value *arg0) { +Function fn_3256; +Value *arityImpl_3257(List *closures, Value *arg0) { Value *rslt0 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_8); Value *rslt1 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_1); List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -42220,25 +42154,25 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)(Value *)&_str_428, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_427, varArgs2); varArgs2 = (List *)listCons((Value *)rslt1, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_442, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_441, varArgs2); Value *rslt3 = arityImpl_508((List *)var_31, (Value *)varArgs2); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; -varArgs4 = (List *)listCons((Value *)(Value *)&_str_443, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_442, varArgs4); varArgs4 = (List *)listCons((Value *)rslt0, varArgs4); -varArgs4 = (List *)listCons((Value *)(Value *)&_str_445, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_444, varArgs4); Value *rslt5 = arityImpl_508((List *)var_31, (Value *)varArgs4); List *varArgs6 = (List *)GC_malloc(sizeof(List)); varArgs6->type = ListType; varArgs6->len = 0; varArgs6->head = (Value *)0; varArgs6->tail = (List *)0; -varArgs6 = (List *)listCons((Value *)(Value *)&_str_473, varArgs6); +varArgs6 = (List *)listCons((Value *)(Value *)&_str_472, varArgs6); Value *rslt7 = arityImpl_508((List *)var_31, (Value *)varArgs6); List *varArgs8 = (List *)GC_malloc(sizeof(List)); varArgs8->type = ListType; @@ -42254,17 +42188,17 @@ return (rslt9); // --------- anon main body -------------- -Function fn_3263 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3264}}}; +Function fn_3256 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3257}}}; // --------- anon -------------- -Function fn_3265; +Function fn_3258; // --------- anon -------------- -Function fn_3267; +Function fn_3260; // --------- anon -------------- -Function fn_3269; -Value *arityImpl_3270(List *closures, Value *arg0) { +Function fn_3262; +Value *arityImpl_3263(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -42273,49 +42207,49 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_3268(List *closures, Value *arg0) { +Value *arityImpl_3261(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_421); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_420); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3270; +arity_1->fn = arityImpl_3263; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3269 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3269->type = 3; -fn_3269->name = "anon"; -fn_3269->arityCount = 1; -fn_3269->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3269); +Function *fn_3262 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3262->type = 3; +fn_3262->name = "anon"; +fn_3262->arityCount = 1; +fn_3262->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3262); return (rslt3); }; -Value *arityImpl_3266(List *closures, Value *arg0) { +Value *arityImpl_3259(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_474); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_473); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3268; +arity_1->fn = arityImpl_3261; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3267 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3267->type = 3; -fn_3267->name = "anon"; -fn_3267->arityCount = 1; -fn_3267->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3267); +Function *fn_3260 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3260->type = 3; +fn_3260->name = "anon"; +fn_3260->arityCount = 1; +fn_3260->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3260); return (rslt3); }; -Value *arityImpl_3262(List *closures, Value *arg0) { +Value *arityImpl_3255(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -42325,24 +42259,24 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt1 = protoFnImpl_214((List *)var_31, val0); -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)&fn_3263); -Value *rslt4 = arityImpl_1949((List *)var_31, rslt3); +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)&fn_3256); +Value *rslt4 = arityImpl_1942((List *)var_31, rslt3); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_3266; +arity_5->fn = arityImpl_3259; arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); -Function *fn_3265 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3265->type = 3; -fn_3265->name = "anon"; -fn_3265->arityCount = 1; -fn_3265->arities[0] = arity_5; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_3265); +Function *fn_3258 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3258->type = 3; +fn_3258->name = "anon"; +fn_3258->arityCount = 1; +fn_3258->arities[0] = arity_5; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_3258); return (rslt7); }; -Value *arityImpl_3260(List *closures, Value *arg0) { +Value *arityImpl_3253(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -42351,24 +42285,24 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_441); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_440); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3262; +arity_1->fn = arityImpl_3255; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_3261 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3261->type = 3; -fn_3261->name = "anon"; -fn_3261->arityCount = 1; -fn_3261->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3261); +Function *fn_3254 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3254->type = 3; +fn_3254->name = "anon"; +fn_3254->arityCount = 1; +fn_3254->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3254); return (rslt4); }; -Value *arityImpl_3258(List *closures, Value *arg0) { +Value *arityImpl_3251(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -42377,88 +42311,88 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_472); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_471); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3260; +arity_1->fn = arityImpl_3253; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_3259 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3259->type = 3; -fn_3259->name = "anon"; -fn_3259->arityCount = 1; -fn_3259->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3259); +Function *fn_3252 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3252->type = 3; +fn_3252->name = "anon"; +fn_3252->arityCount = 1; +fn_3252->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3252); return (rslt4); }; -Value *arityImpl_3256(List *closures, Value *arg0) { +Value *arityImpl_3249(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_471); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_470); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3258; +arity_1->fn = arityImpl_3251; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); -Function *fn_3257 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3257->type = 3; -fn_3257->name = "anon"; -fn_3257->arityCount = 1; -fn_3257->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3257); +Function *fn_3250 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3250->type = 3; +fn_3250->name = "anon"; +fn_3250->arityCount = 1; +fn_3250->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3250); return (rslt3); }; -Value *arityImpl_3254(List *closures) { +Value *arityImpl_3247(List *closures) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; Value *rslt1 = arityImpl_623((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1004((List *)var_31, (Value *)&_kw_33, rslt1); +Value *rslt2 = arityImpl_994((List *)var_31, (Value *)&_kw_31, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_3256; +arity_3->fn = arityImpl_3249; arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); -Function *fn_3255 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3255->type = 3; -fn_3255->name = "anon"; -fn_3255->arityCount = 1; -fn_3255->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3255); +Function *fn_3248 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3248->type = 3; +fn_3248->name = "anon"; +fn_3248->arityCount = 1; +fn_3248->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3248); return (rslt4); }; // --------- serialize-symbol-literals main body -------------- -Function fn_3253 = {3, "serialize-symbol-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3254}}}; +Function fn_3246 = {3, "serialize-symbol-literals", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3247}}}; // --------- counts -------------- -Function fn_3272; -Value *arityImpl_3273(List *closures) { +Function fn_3265; +Value *arityImpl_3266(List *closures) { return(counts()); }; // --------- counts main body -------------- -Function fn_3272 = {3, "counts", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3273}}}; +Function fn_3265 = {3, "counts", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3266}}}; // --------- load-counts -------------- -Function fn_3275; -Value *arityImpl_3276(List *closures) { -Value *rslt0 = arityImpl_3273((List *)var_31); +Function fn_3268; +Value *arityImpl_3269(List *closures) { +Value *rslt0 = arityImpl_3266((List *)var_31); Value *rslt1 = arityImpl_524((List *)var_31, rslt0, (Value *)&_num_8, (Value *)&_num_8); -Value *rslt2 = arityImpl_1009((List *)var_31, (Value *)&_kw_44, rslt1); +Value *rslt2 = arityImpl_999((List *)var_31, (Value *)&_kw_42, rslt1); List *varArgs3 = (List *)GC_malloc(sizeof(List)); varArgs3->type = ListType; varArgs3->len = 0; @@ -42472,44 +42406,44 @@ return (rslt4); // --------- load-counts main body -------------- -Function fn_3275 = {3, "load-counts", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3276}}}; +Function fn_3268 = {3, "load-counts", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3269}}}; struct {int64_t type; int64_t len; - char buffer[22];} _str_475 = {1,21,"\nValue *counts() {\n"}; + char buffer[22];} _str_474 = {1,21,"\nValue *counts() {\n"}; struct {int64_t type; int64_t len; - char buffer[27];} _str_476 = {1,26,"List *cnts = empty_list;\n"}; + char buffer[27];} _str_475 = {1,26,"List *cnts = empty_list;\n"}; struct {int64_t type; int64_t len; - char buffer[29];} _str_477 = {1,28,"cnts = listCons(numberValue("}; + char buffer[29];} _str_476 = {1,28,"cnts = listCons(numberValue("}; struct {int64_t type; int64_t len; - char buffer[12];} _str_478 = {1,11,"), cnts);\n"}; + char buffer[12];} _str_477 = {1,11,"), cnts);\n"}; struct {int64_t type; int64_t len; - char buffer[25];} _str_479 = {1,24,"return((Value *)cnts);\n"}; + char buffer[25];} _str_478 = {1,24,"return((Value *)cnts);\n"}; // --------- serialize-counts -------------- -Function fn_3278; +Function fn_3271; // --------- anon -------------- -Function fn_3280; +Function fn_3273; // --------- anon -------------- -Function fn_3282; +Function fn_3275; // --------- anon -------------- -Function fn_3284; +Function fn_3277; // --------- anon -------------- -Function fn_3286; +Function fn_3279; // --------- anon -------------- -Function fn_3288; +Function fn_3281; // --------- anon -------------- -Function fn_3290; -Value *arityImpl_3291(List *closures, Value *arg0) { +Function fn_3283; +Value *arityImpl_3284(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -42518,49 +42452,49 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_3289(List *closures, Value *arg0) { +Value *arityImpl_3282(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_421); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_420); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3291; +arity_1->fn = arityImpl_3284; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3290 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3290->type = 3; -fn_3290->name = "anon"; -fn_3290->arityCount = 1; -fn_3290->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3290); +Function *fn_3283 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3283->type = 3; +fn_3283->name = "anon"; +fn_3283->arityCount = 1; +fn_3283->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3283); return (rslt3); }; -Value *arityImpl_3287(List *closures, Value *arg0) { +Value *arityImpl_3280(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_479); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_478); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3289; +arity_1->fn = arityImpl_3282; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3288 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3288->type = 3; -fn_3288->name = "anon"; -fn_3288->arityCount = 1; -fn_3288->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3288); +Function *fn_3281 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3281->type = 3; +fn_3281->name = "anon"; +fn_3281->arityCount = 1; +fn_3281->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3281); return (rslt3); }; -Value *arityImpl_3285(List *closures, Value *arg0) { +Value *arityImpl_3278(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -42574,27 +42508,27 @@ varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)(Value *)&_str_478, varArgs1); -varArgs1 = (List *)listCons((Value *)val0, varArgs1); varArgs1 = (List *)listCons((Value *)(Value *)&_str_477, varArgs1); +varArgs1 = (List *)listCons((Value *)val0, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_str_476, varArgs1); Value *rslt2 = arityImpl_508((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1944((List *)var_31, rslt2); +Value *rslt3 = arityImpl_1937((List *)var_31, rslt2); FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 1; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_3287; +arity_4->fn = arityImpl_3280; arity_4->closures = listCons((Value *)val5, (List *)arity_4->closures); -Function *fn_3286 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3286->type = 3; -fn_3286->name = "anon"; -fn_3286->arityCount = 1; -fn_3286->arities[0] = arity_4; -Value *rslt6 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_3286); +Function *fn_3279 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3279->type = 3; +fn_3279->name = "anon"; +fn_3279->arityCount = 1; +fn_3279->arities[0] = arity_4; +Value *rslt6 = protoFnImpl_78((List *)var_31, rslt3, (Value *)fn_3279); return (rslt6); }; -Value *arityImpl_3283(List *closures, Value *arg0) { +Value *arityImpl_3276(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -42603,80 +42537,80 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_476); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_475); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3285; +arity_1->fn = arityImpl_3278; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_3284 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3284->type = 3; -fn_3284->name = "anon"; -fn_3284->arityCount = 1; -fn_3284->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3284); +Function *fn_3277 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3277->type = 3; +fn_3277->name = "anon"; +fn_3277->arityCount = 1; +fn_3277->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3277); return (rslt4); }; -Value *arityImpl_3281(List *closures, Value *arg0) { +Value *arityImpl_3274(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_475); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_474); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3283; +arity_1->fn = arityImpl_3276; arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3282 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3282->type = 3; -fn_3282->name = "anon"; -fn_3282->arityCount = 1; -fn_3282->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3282); +Function *fn_3275 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3275->type = 3; +fn_3275->name = "anon"; +fn_3275->arityCount = 1; +fn_3275->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3275); return (rslt3); }; -Value *arityImpl_3279(List *closures) { -Value *rslt0 = arityImpl_1004((List *)var_31, (Value *)&_kw_44, (Value *)&_num_8); +Value *arityImpl_3272(List *closures) { +Value *rslt0 = arityImpl_994((List *)var_31, (Value *)&_kw_42, (Value *)&_num_8); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3281; +arity_1->fn = arityImpl_3274; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); -Function *fn_3280 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3280->type = 3; -fn_3280->name = "anon"; -fn_3280->arityCount = 1; -fn_3280->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3280); +Function *fn_3273 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3273->type = 3; +fn_3273->name = "anon"; +fn_3273->arityCount = 1; +fn_3273->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3273); return (rslt2); }; // --------- serialize-counts main body -------------- -Function fn_3278 = {3, "serialize-counts", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3279}}}; +Function fn_3271 = {3, "serialize-counts", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3272}}}; // --------- types* -------------- -Function fn_3293; -Value *arityImpl_3294(List *closures) { +Function fn_3286; +Value *arityImpl_3287(List *closures) { return(types()); }; // --------- types* main body -------------- -Function fn_3293 = {3, "types*", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3294}}}; +Function fn_3286 = {3, "types*", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3287}}}; // --------- load-types -------------- -Function fn_3296; -Value *arityImpl_3297(List *closures) { -Value *rslt0 = arityImpl_3294((List *)var_31); +Function fn_3289; +Value *arityImpl_3290(List *closures) { +Value *rslt0 = arityImpl_3287((List *)var_31); Value *rslt4; if((var_546)->type != 3) { rslt4 = protoFnImpl_5(empty_list, var_546, rslt0); @@ -42699,59 +42633,59 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_546)->name) abort(); } } -Value *rslt5 = arityImpl_1009((List *)var_31, (Value *)&_kw_68, rslt4); +Value *rslt5 = arityImpl_999((List *)var_31, (Value *)&_kw_66, rslt4); return (rslt5); }; // --------- load-types main body -------------- -Function fn_3296 = {3, "load-types", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3297}}}; +Function fn_3289 = {3, "load-types", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3290}}}; struct {int64_t type; int64_t len; - char buffer[19];} _str_480 = {1,18,"Value *types() {\n"}; + char buffer[19];} _str_479 = {1,18,"Value *types() {\n"}; struct {int64_t type; int64_t len; - char buffer[28];} _str_481 = {1,27,"List *types = empty_list;\n"}; + char buffer[28];} _str_480 = {1,27,"List *types = empty_list;\n"}; struct {int64_t type; int64_t len; - char buffer[18];} _str_482 = {1,17,"List *typeInfo;\n"}; + char buffer[18];} _str_481 = {1,17,"List *typeInfo;\n"}; struct {int64_t type; int64_t len; - char buffer[33];} _str_483 = {1,32,"typeInfo = listCons(numberValue("}; + char buffer[33];} _str_482 = {1,32,"typeInfo = listCons(numberValue("}; struct {int64_t type; int64_t len; - char buffer[18];} _str_484 = {1,17,"), empty_list);\n"}; + char buffer[18];} _str_483 = {1,17,"), empty_list);\n"}; struct {int64_t type; int64_t len; - char buffer[35];} _str_485 = {1,34,"typeInfo = listCons(symbolValue(\""}; + char buffer[35];} _str_484 = {1,34,"typeInfo = listCons(symbolValue(\""}; struct {int64_t type; int64_t len; - char buffer[18];} _str_486 = {1,17,"\"), typeInfo);\n"}; + char buffer[18];} _str_485 = {1,17,"\"), typeInfo);\n"}; struct {int64_t type; int64_t len; - char buffer[46];} _str_487 = {1,45,"types = listCons((Value *)typeInfo, types);\n"}; + char buffer[46];} _str_486 = {1,45,"types = listCons((Value *)typeInfo, types);\n"}; struct {int64_t type; int64_t len; - char buffer[26];} _str_488 = {1,25,"return((Value *)types);\n"}; + char buffer[26];} _str_487 = {1,25,"return((Value *)types);\n"}; // --------- serialize-types -------------- -Function fn_3299; +Function fn_3292; // --------- anon -------------- -Function fn_3301; +Function fn_3294; // --------- anon -------------- -Function fn_3303; +Function fn_3296; // --------- anon -------------- -Function fn_3305; +Function fn_3298; // --------- anon -------------- -Function fn_3307; +Function fn_3300; // --------- anon -------------- -Function fn_3309; -Value *arityImpl_3310(List *closures, Value *arg0) { +Function fn_3302; +Value *arityImpl_3303(List *closures, Value *arg0) { Value *rslt0 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_8); Value *rslt1 = arityImpl_523((List *)var_31, arg0, (Value *)&_num_1); List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -42759,25 +42693,25 @@ varArgs2->type = ListType; varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; -varArgs2 = (List *)listCons((Value *)(Value *)&_str_484, varArgs2); -varArgs2 = (List *)listCons((Value *)rslt1, varArgs2); varArgs2 = (List *)listCons((Value *)(Value *)&_str_483, varArgs2); +varArgs2 = (List *)listCons((Value *)rslt1, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_482, varArgs2); Value *rslt3 = arityImpl_508((List *)var_31, (Value *)varArgs2); List *varArgs4 = (List *)GC_malloc(sizeof(List)); varArgs4->type = ListType; varArgs4->len = 0; varArgs4->head = (Value *)0; varArgs4->tail = (List *)0; -varArgs4 = (List *)listCons((Value *)(Value *)&_str_486, varArgs4); -varArgs4 = (List *)listCons((Value *)rslt0, varArgs4); varArgs4 = (List *)listCons((Value *)(Value *)&_str_485, varArgs4); +varArgs4 = (List *)listCons((Value *)rslt0, varArgs4); +varArgs4 = (List *)listCons((Value *)(Value *)&_str_484, varArgs4); Value *rslt5 = arityImpl_508((List *)var_31, (Value *)varArgs4); List *varArgs6 = (List *)GC_malloc(sizeof(List)); varArgs6->type = ListType; varArgs6->len = 0; varArgs6->head = (Value *)0; varArgs6->tail = (List *)0; -varArgs6 = (List *)listCons((Value *)(Value *)&_str_487, varArgs6); +varArgs6 = (List *)listCons((Value *)(Value *)&_str_486, varArgs6); Value *rslt7 = arityImpl_508((List *)var_31, (Value *)varArgs6); List *varArgs8 = (List *)GC_malloc(sizeof(List)); varArgs8->type = ListType; @@ -42793,17 +42727,17 @@ return (rslt9); // --------- anon main body -------------- -Function fn_3309 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3310}}}; +Function fn_3302 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3303}}}; // --------- anon -------------- -Function fn_3311; +Function fn_3304; // --------- anon -------------- -Function fn_3313; +Function fn_3306; // --------- anon -------------- -Function fn_3315; -Value *arityImpl_3316(List *closures, Value *arg0) { +Function fn_3308; +Value *arityImpl_3309(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -42812,49 +42746,49 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_3314(List *closures, Value *arg0) { +Value *arityImpl_3307(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_421); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_420); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3316; +arity_1->fn = arityImpl_3309; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3315 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3315->type = 3; -fn_3315->name = "anon"; -fn_3315->arityCount = 1; -fn_3315->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3315); +Function *fn_3308 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3308->type = 3; +fn_3308->name = "anon"; +fn_3308->arityCount = 1; +fn_3308->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3308); return (rslt3); }; -Value *arityImpl_3312(List *closures, Value *arg0) { +Value *arityImpl_3305(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_488); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_487); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3314; +arity_1->fn = arityImpl_3307; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3313 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3313->type = 3; -fn_3313->name = "anon"; -fn_3313->arityCount = 1; -fn_3313->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3313); +Function *fn_3306 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3306->type = 3; +fn_3306->name = "anon"; +fn_3306->arityCount = 1; +fn_3306->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3306); return (rslt3); }; -Value *arityImpl_3308(List *closures, Value *arg0) { +Value *arityImpl_3301(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -42864,24 +42798,24 @@ if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *rslt1 = protoFnImpl_214((List *)var_31, val0); -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)&fn_3309); -Value *rslt4 = arityImpl_1949((List *)var_31, rslt3); +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt1, (Value *)&fn_3302); +Value *rslt4 = arityImpl_1942((List *)var_31, rslt3); FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 1; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_3312; +arity_5->fn = arityImpl_3305; arity_5->closures = listCons((Value *)val6, (List *)arity_5->closures); -Function *fn_3311 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3311->type = 3; -fn_3311->name = "anon"; -fn_3311->arityCount = 1; -fn_3311->arities[0] = arity_5; -Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_3311); +Function *fn_3304 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3304->type = 3; +fn_3304->name = "anon"; +fn_3304->arityCount = 1; +fn_3304->arities[0] = arity_5; +Value *rslt7 = protoFnImpl_78((List *)var_31, rslt4, (Value *)fn_3304); return (rslt7); }; -Value *arityImpl_3306(List *closures, Value *arg0) { +Value *arityImpl_3299(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -42890,24 +42824,24 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_482); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_481); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3308; +arity_1->fn = arityImpl_3301; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_3307 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3307->type = 3; -fn_3307->name = "anon"; -fn_3307->arityCount = 1; -fn_3307->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3307); +Function *fn_3300 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3300->type = 3; +fn_3300->name = "anon"; +fn_3300->arityCount = 1; +fn_3300->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3300); return (rslt4); }; -Value *arityImpl_3304(List *closures, Value *arg0) { +Value *arityImpl_3297(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -42916,106 +42850,106 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_481); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_480); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3306; +arity_1->fn = arityImpl_3299; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)val3, (List *)arity_1->closures); -Function *fn_3305 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3305->type = 3; -fn_3305->name = "anon"; -fn_3305->arityCount = 1; -fn_3305->arities[0] = arity_1; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3305); +Function *fn_3298 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3298->type = 3; +fn_3298->name = "anon"; +fn_3298->arityCount = 1; +fn_3298->arities[0] = arity_1; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3298); return (rslt4); }; -Value *arityImpl_3302(List *closures, Value *arg0) { +Value *arityImpl_3295(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1944((List *)var_31, (Value *)&_str_480); +Value *rslt0 = arityImpl_1937((List *)var_31, (Value *)&_str_479); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3304; +arity_1->fn = arityImpl_3297; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); -Function *fn_3303 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3303->type = 3; -fn_3303->name = "anon"; -fn_3303->arityCount = 1; -fn_3303->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3303); +Function *fn_3296 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3296->type = 3; +fn_3296->name = "anon"; +fn_3296->arityCount = 1; +fn_3296->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3296); return (rslt3); }; -Value *arityImpl_3300(List *closures) { +Value *arityImpl_3293(List *closures) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; Value *rslt1 = arityImpl_623((List *)var_31, (Value *)varArgs0); -Value *rslt2 = arityImpl_1004((List *)var_31, (Value *)&_kw_68, rslt1); +Value *rslt2 = arityImpl_994((List *)var_31, (Value *)&_kw_66, rslt1); FnArity *arity_3 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_3->count = 1; arity_3->closures = empty_list; arity_3->variadic = 0; -arity_3->fn = arityImpl_3302; +arity_3->fn = arityImpl_3295; arity_3->closures = listCons((Value *)rslt2, (List *)arity_3->closures); -Function *fn_3301 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3301->type = 3; -fn_3301->name = "anon"; -fn_3301->arityCount = 1; -fn_3301->arities[0] = arity_3; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3301); +Function *fn_3294 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3294->type = 3; +fn_3294->name = "anon"; +fn_3294->arityCount = 1; +fn_3294->arities[0] = arity_3; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt2, (Value *)fn_3294); return (rslt4); }; // --------- serialize-types main body -------------- -Function fn_3299 = {3, "serialize-types", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3300}}}; +Function fn_3292 = {3, "serialize-types", 1, {&(FnArity){0, (List *)0, 0, arityImpl_3293}}}; struct {int64_t type; int64_t len; - char buffer[28];} _str_489 = {1,27,"const int64_t NumberType = "}; + char buffer[28];} _str_488 = {1,27,"const int64_t NumberType = "}; struct {int64_t type; int64_t len; - char buffer[29];} _str_490 = {1,28,"const int64_t KeywordType = "}; + char buffer[29];} _str_489 = {1,28,"const int64_t KeywordType = "}; struct {int64_t type; int64_t len; - char buffer[28];} _str_491 = {1,27,"const int64_t SymbolType = "}; + char buffer[28];} _str_490 = {1,27,"const int64_t SymbolType = "}; struct {int64_t type; int64_t len; - char buffer[28];} _str_492 = {1,27,"const int64_t StringType = "}; + char buffer[28];} _str_491 = {1,27,"const int64_t StringType = "}; struct {int64_t type; int64_t len; - char buffer[31];} _str_493 = {1,30,"const int64_t SubStringType = "}; + char buffer[31];} _str_492 = {1,30,"const int64_t SubStringType = "}; struct {int64_t type; int64_t len; - char buffer[26];} _str_494 = {1,25,"const int64_t ListType = "}; + char buffer[26];} _str_493 = {1,25,"const int64_t ListType = "}; struct {int64_t type; int64_t len; - char buffer[30];} _str_495 = {1,29,"const int64_t FunctionType = "}; + char buffer[30];} _str_494 = {1,29,"const int64_t FunctionType = "}; struct {int64_t type; int64_t len; - char buffer[39];} _str_496 = {1,38,"List *empty_list = &(List){4,0,0,0};\n"}; + char buffer[39];} _str_495 = {1,38,"List *empty_list = &(List){4,0,0,0};\n"}; SymKey _sym_40 = {7, -1, "toccata-core"}; // --------- bootstrap-toccata -------------- -Function fn_3318; +Function fn_3311; // --------- anon -------------- -Function fn_3320; +Function fn_3313; // --------- anon -------------- -Function fn_3322; -Value *arityImpl_3323(List *closures, Value *arg0) { +Function fn_3315; +Value *arityImpl_3316(List *closures, Value *arg0) { Value *rslt0 = arityImpl_453((List *)var_31, arg0); List *varArgs1 = (List *)GC_malloc(sizeof(List)); varArgs1->type = ListType; @@ -43036,11 +42970,11 @@ return (rslt4); // --------- anon main body -------------- -Function fn_3322 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3323}}}; +Function fn_3315 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3316}}}; // --------- anon -------------- -Function fn_3324; -Value *arityImpl_3325(List *closures, Value *arg0) { +Function fn_3317; +Value *arityImpl_3318(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -43049,7 +42983,7 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_3321(List *closures, Value *arg0) { +Value *arityImpl_3314(List *closures, Value *arg0) { Value *val1 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -43062,19 +42996,19 @@ Value *cond0; Value *rslt3 = arityImpl_283((List *)var_31, arg0, (Value *)&_sym_40); if (isTrue(rslt3)) { -Value *rslt4 = arityImpl_3017((List *)var_31); -Value *rslt5 = arityImpl_2982((List *)var_31); -Value *rslt6 = arityImpl_3035((List *)var_31); -Value *rslt7 = arityImpl_2974((List *)var_31); +Value *rslt4 = arityImpl_3010((List *)var_31); +Value *rslt5 = arityImpl_2975((List *)var_31); +Value *rslt6 = arityImpl_3028((List *)var_31); +Value *rslt7 = arityImpl_2967((List *)var_31); Value *rslt9 = protoFnImpl_261((List *)var_31, val8, (Value *)&_sym_21, (Value *)&_num_8); List *varArgs10 = (List *)GC_malloc(sizeof(List)); varArgs10->type = ListType; varArgs10->len = 0; varArgs10->head = (Value *)0; varArgs10->tail = (List *)0; -varArgs10 = (List *)listCons((Value *)(Value *)&_str_117, varArgs10); +varArgs10 = (List *)listCons((Value *)(Value *)&_str_116, varArgs10); varArgs10 = (List *)listCons((Value *)rslt9, varArgs10); -varArgs10 = (List *)listCons((Value *)(Value *)&_str_489, varArgs10); +varArgs10 = (List *)listCons((Value *)(Value *)&_str_488, varArgs10); Value *rslt11 = arityImpl_508((List *)var_31, (Value *)varArgs10); Value *rslt12 = protoFnImpl_261((List *)var_31, val8, (Value *)&_sym_24, (Value *)&_num_8); List *varArgs13 = (List *)GC_malloc(sizeof(List)); @@ -43082,9 +43016,9 @@ varArgs13->type = ListType; varArgs13->len = 0; varArgs13->head = (Value *)0; varArgs13->tail = (List *)0; -varArgs13 = (List *)listCons((Value *)(Value *)&_str_117, varArgs13); +varArgs13 = (List *)listCons((Value *)(Value *)&_str_116, varArgs13); varArgs13 = (List *)listCons((Value *)rslt12, varArgs13); -varArgs13 = (List *)listCons((Value *)(Value *)&_str_490, varArgs13); +varArgs13 = (List *)listCons((Value *)(Value *)&_str_489, varArgs13); Value *rslt14 = arityImpl_508((List *)var_31, (Value *)varArgs13); Value *rslt15 = protoFnImpl_261((List *)var_31, val8, (Value *)&_sym_26, (Value *)&_num_8); List *varArgs16 = (List *)GC_malloc(sizeof(List)); @@ -43092,9 +43026,9 @@ varArgs16->type = ListType; varArgs16->len = 0; varArgs16->head = (Value *)0; varArgs16->tail = (List *)0; -varArgs16 = (List *)listCons((Value *)(Value *)&_str_117, varArgs16); +varArgs16 = (List *)listCons((Value *)(Value *)&_str_116, varArgs16); varArgs16 = (List *)listCons((Value *)rslt15, varArgs16); -varArgs16 = (List *)listCons((Value *)(Value *)&_str_491, varArgs16); +varArgs16 = (List *)listCons((Value *)(Value *)&_str_490, varArgs16); Value *rslt17 = arityImpl_508((List *)var_31, (Value *)varArgs16); Value *rslt18 = protoFnImpl_261((List *)var_31, val8, (Value *)&_sym_20, (Value *)&_num_8); List *varArgs19 = (List *)GC_malloc(sizeof(List)); @@ -43102,9 +43036,9 @@ varArgs19->type = ListType; varArgs19->len = 0; varArgs19->head = (Value *)0; varArgs19->tail = (List *)0; -varArgs19 = (List *)listCons((Value *)(Value *)&_str_117, varArgs19); +varArgs19 = (List *)listCons((Value *)(Value *)&_str_116, varArgs19); varArgs19 = (List *)listCons((Value *)rslt18, varArgs19); -varArgs19 = (List *)listCons((Value *)(Value *)&_str_492, varArgs19); +varArgs19 = (List *)listCons((Value *)(Value *)&_str_491, varArgs19); Value *rslt20 = arityImpl_508((List *)var_31, (Value *)varArgs19); Value *rslt21 = protoFnImpl_261((List *)var_31, val8, (Value *)&_sym_25, (Value *)&_num_8); List *varArgs22 = (List *)GC_malloc(sizeof(List)); @@ -43112,9 +43046,9 @@ varArgs22->type = ListType; varArgs22->len = 0; varArgs22->head = (Value *)0; varArgs22->tail = (List *)0; -varArgs22 = (List *)listCons((Value *)(Value *)&_str_117, varArgs22); +varArgs22 = (List *)listCons((Value *)(Value *)&_str_116, varArgs22); varArgs22 = (List *)listCons((Value *)rslt21, varArgs22); -varArgs22 = (List *)listCons((Value *)(Value *)&_str_493, varArgs22); +varArgs22 = (List *)listCons((Value *)(Value *)&_str_492, varArgs22); Value *rslt23 = arityImpl_508((List *)var_31, (Value *)varArgs22); Value *rslt24 = protoFnImpl_261((List *)var_31, val8, (Value *)&_sym_23, (Value *)&_num_8); List *varArgs25 = (List *)GC_malloc(sizeof(List)); @@ -43122,9 +43056,9 @@ varArgs25->type = ListType; varArgs25->len = 0; varArgs25->head = (Value *)0; varArgs25->tail = (List *)0; -varArgs25 = (List *)listCons((Value *)(Value *)&_str_117, varArgs25); +varArgs25 = (List *)listCons((Value *)(Value *)&_str_116, varArgs25); varArgs25 = (List *)listCons((Value *)rslt24, varArgs25); -varArgs25 = (List *)listCons((Value *)(Value *)&_str_494, varArgs25); +varArgs25 = (List *)listCons((Value *)(Value *)&_str_493, varArgs25); Value *rslt26 = arityImpl_508((List *)var_31, (Value *)varArgs25); Value *rslt27 = protoFnImpl_261((List *)var_31, val8, (Value *)&_sym_22, (Value *)&_num_8); List *varArgs28 = (List *)GC_malloc(sizeof(List)); @@ -43132,16 +43066,16 @@ varArgs28->type = ListType; varArgs28->len = 0; varArgs28->head = (Value *)0; varArgs28->tail = (List *)0; -varArgs28 = (List *)listCons((Value *)(Value *)&_str_117, varArgs28); +varArgs28 = (List *)listCons((Value *)(Value *)&_str_116, varArgs28); varArgs28 = (List *)listCons((Value *)rslt27, varArgs28); -varArgs28 = (List *)listCons((Value *)(Value *)&_str_495, varArgs28); +varArgs28 = (List *)listCons((Value *)(Value *)&_str_494, varArgs28); Value *rslt29 = arityImpl_508((List *)var_31, (Value *)varArgs28); List *varArgs30 = (List *)GC_malloc(sizeof(List)); varArgs30->type = ListType; varArgs30->len = 0; varArgs30->head = (Value *)0; varArgs30->tail = (List *)0; -varArgs30 = (List *)listCons((Value *)(Value *)&_str_496, varArgs30); +varArgs30 = (List *)listCons((Value *)(Value *)&_str_495, varArgs30); varArgs30 = (List *)listCons((Value *)rslt29, varArgs30); varArgs30 = (List *)listCons((Value *)rslt26, varArgs30); varArgs30 = (List *)listCons((Value *)rslt23, varArgs30); @@ -43150,10 +43084,10 @@ varArgs30 = (List *)listCons((Value *)rslt17, varArgs30); varArgs30 = (List *)listCons((Value *)rslt14, varArgs30); varArgs30 = (List *)listCons((Value *)rslt11, varArgs30); Value *rslt31 = arityImpl_119((List *)var_31, (Value *)varArgs30); -Value *rslt32 = arityImpl_1949((List *)var_31, rslt31); -Value *rslt33 = arityImpl_2988((List *)var_31); -Value *rslt34 = arityImpl_674((List *)var_31, (Value *)&_num_25); -Value *rslt36 = protoFnImpl_125((List *)var_31, rslt34, (Value *)&fn_3322); +Value *rslt32 = arityImpl_1942((List *)var_31, rslt31); +Value *rslt33 = arityImpl_2981((List *)var_31); +Value *rslt34 = arityImpl_664((List *)var_31, (Value *)&_num_25); +Value *rslt36 = protoFnImpl_125((List *)var_31, rslt34, (Value *)&fn_3315); List *varArgs37 = (List *)GC_malloc(sizeof(List)); varArgs37->type = ListType; varArgs37->len = 0; @@ -43162,7 +43096,7 @@ varArgs37->tail = (List *)0; varArgs37 = (List *)listCons((Value *)rslt36, varArgs37); varArgs37 = (List *)listCons((Value *)(Value *)&_sym_27, varArgs37); Value *rslt38 = arityImpl_119((List *)var_31, (Value *)varArgs37); -Value *rslt39 = arityImpl_2932((List *)var_31, rslt38); +Value *rslt39 = arityImpl_2925((List *)var_31, rslt38); List *varArgs40 = (List *)GC_malloc(sizeof(List)); varArgs40->type = ListType; varArgs40->len = 0; @@ -43181,14 +43115,14 @@ FnArity *arity_42 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_42->count = 1; arity_42->closures = empty_list; arity_42->variadic = 0; -arity_42->fn = arityImpl_3325; +arity_42->fn = arityImpl_3318; arity_42->closures = listCons((Value *)val1, (List *)arity_42->closures); -Function *fn_3324 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3324->type = 3; -fn_3324->name = "anon"; -fn_3324->arityCount = 1; -fn_3324->arities[0] = arity_42; -Value *rslt43 = protoFnImpl_78((List *)var_31, rslt41, (Value *)fn_3324); +Function *fn_3317 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3317->type = 3; +fn_3317->name = "anon"; +fn_3317->arityCount = 1; +fn_3317->arities[0] = arity_42; +Value *rslt43 = protoFnImpl_78((List *)var_31, rslt41, (Value *)fn_3317); cond0 = rslt43; } else { Value *rslt2 = protoFnImpl_242((List *)var_31, val1); @@ -43197,43 +43131,43 @@ cond0 = rslt2; return (cond0); }; -Value *arityImpl_3319(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_1855((List *)var_31); +Value *arityImpl_3312(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_1845((List *)var_31); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3321; +arity_1->fn = arityImpl_3314; arity_1->closures = listCons((Value *)rslt0, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); -Function *fn_3320 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3320->type = 3; -fn_3320->name = "anon"; -fn_3320->arityCount = 1; -fn_3320->arities[0] = arity_1; -Value *rslt2 = protoFnImpl_78((List *)var_31, arg0, (Value *)fn_3320); +Function *fn_3313 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3313->type = 3; +fn_3313->name = "anon"; +fn_3313->arityCount = 1; +fn_3313->arities[0] = arity_1; +Value *rslt2 = protoFnImpl_78((List *)var_31, arg0, (Value *)fn_3313); return (rslt2); }; // --------- bootstrap-toccata main body -------------- -Function fn_3318 = {3, "bootstrap-toccata", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3319}}}; +Function fn_3311 = {3, "bootstrap-toccata", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3312}}}; // --------- compile-source -------------- -Function fn_3327; +Function fn_3320; // --------- anon -------------- -Function fn_3329; +Function fn_3322; // --------- anon -------------- -Function fn_3331; +Function fn_3324; // --------- anon -------------- -Function fn_3333; +Function fn_3326; // --------- anon -------------- -Function fn_3335; -Value *arityImpl_3336(List *closures, Value *arg0) { +Function fn_3328; +Value *arityImpl_3329(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -43242,7 +43176,7 @@ Value *rslt1 = protoFnImpl_100((List *)var_31, val0, (Value *)&_str_19); return (rslt1); }; -Value *arityImpl_3334(List *closures, Value *arg0) { +Value *arityImpl_3327(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -43251,92 +43185,92 @@ Value *val3 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = protoFnImpl_740((List *)var_31, val0, (Value *)&protoFn_1968); +Value *rslt1 = protoFnImpl_730((List *)var_31, val0, (Value *)&protoFn_1961); FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 1; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_3336; +arity_2->fn = arityImpl_3329; arity_2->closures = listCons((Value *)val3, (List *)arity_2->closures); -Function *fn_3335 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3335->type = 3; -fn_3335->name = "anon"; -fn_3335->arityCount = 1; -fn_3335->arities[0] = arity_2; -Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_3335); +Function *fn_3328 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3328->type = 3; +fn_3328->name = "anon"; +fn_3328->arityCount = 1; +fn_3328->arities[0] = arity_2; +Value *rslt4 = protoFnImpl_78((List *)var_31, rslt1, (Value *)fn_3328); return (rslt4); }; -Value *arityImpl_3332(List *closures, Value *arg0) { +Value *arityImpl_3325(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_3035((List *)var_31); +Value *rslt0 = arityImpl_3028((List *)var_31); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3334; +arity_1->fn = arityImpl_3327; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); arity_1->closures = listCons((Value *)arg0, (List *)arity_1->closures); -Function *fn_3333 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3333->type = 3; -fn_3333->name = "anon"; -fn_3333->arityCount = 1; -fn_3333->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3333); +Function *fn_3326 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3326->type = 3; +fn_3326->name = "anon"; +fn_3326->arityCount = 1; +fn_3326->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3326); return (rslt3); }; -Value *arityImpl_3330(List *closures, Value *arg0) { +Value *arityImpl_3323(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt0 = arityImpl_1845((List *)var_31, arg0); +Value *rslt0 = arityImpl_1835((List *)var_31, arg0); FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 1; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3332; +arity_1->fn = arityImpl_3325; arity_1->closures = listCons((Value *)val2, (List *)arity_1->closures); -Function *fn_3331 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3331->type = 3; -fn_3331->name = "anon"; -fn_3331->arityCount = 1; -fn_3331->arities[0] = arity_1; -Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3331); +Function *fn_3324 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3324->type = 3; +fn_3324->name = "anon"; +fn_3324->arityCount = 1; +fn_3324->arities[0] = arity_1; +Value *rslt3 = protoFnImpl_78((List *)var_31, rslt0, (Value *)fn_3324); return (rslt3); }; -Value *arityImpl_3328(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_3321(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_3330; +arity_0->fn = arityImpl_3323; arity_0->closures = listCons((Value *)arg0, (List *)arity_0->closures); -Function *fn_3329 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3329->type = 3; -fn_3329->name = "anon"; -fn_3329->arityCount = 1; -fn_3329->arities[0] = arity_0; -Value *rslt1 = protoFnImpl_78((List *)var_31, arg0, (Value *)fn_3329); -Value *rslt2 = arityImpl_1070((List *)var_31, rslt1); +Function *fn_3322 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3322->type = 3; +fn_3322->name = "anon"; +fn_3322->arityCount = 1; +fn_3322->arities[0] = arity_0; +Value *rslt1 = protoFnImpl_78((List *)var_31, arg0, (Value *)fn_3322); +Value *rslt2 = arityImpl_1060((List *)var_31, rslt1); return (rslt2); }; // --------- compile-source main body -------------- -Function fn_3327 = {3, "compile-source", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3328}}}; +Function fn_3320 = {3, "compile-source", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3321}}}; // --------- compile-core -------------- -Function fn_3338; +Function fn_3331; // --------- anon -------------- -Function fn_3340; -Value *arityImpl_3341(List *closures, Value *arg0, Value *arg1) { +Function fn_3333; +Value *arityImpl_3334(List *closures, Value *arg0, Value *arg1) { Value *rslt0 = arityImpl_524((List *)var_31, arg1, (Value *)&_num_1, (Value *)&_num_8); Value *rslt1 = arityImpl_524((List *)var_31, arg1, (Value *)&_num_1, (Value *)&_num_8); List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -43345,7 +43279,7 @@ varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; varArgs2 = (List *)listCons((Value *)rslt1, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_70, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_69, varArgs2); Value *rslt3 = arityImpl_508((List *)var_31, (Value *)varArgs2); Value *rslt4 = protoFnImpl_255((List *)var_31, arg0, rslt0, rslt3); return (rslt4); @@ -43353,17 +43287,17 @@ return (rslt4); // --------- anon main body -------------- -Function fn_3340 = {3, "anon", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3341}}}; -Value *arityImpl_3339(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1009((List *)var_31, (Value *)&_kw_10, arg1); +Function fn_3333 = {3, "anon", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3334}}}; +Value *arityImpl_3332(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_999((List *)var_31, (Value *)&_kw_8, arg1); List *varArgs1 = (List *)GC_malloc(sizeof(List)); varArgs1->type = ListType; varArgs1->len = 0; varArgs1->head = (Value *)0; varArgs1->tail = (List *)0; -varArgs1 = (List *)listCons((Value *)(Value *)&_kw_22, varArgs1); +varArgs1 = (List *)listCons((Value *)(Value *)&_kw_20, varArgs1); Value *rslt2 = arityImpl_119((List *)var_31, (Value *)varArgs1); -Value *rslt3 = arityImpl_1855((List *)var_31); +Value *rslt3 = arityImpl_1845((List *)var_31); Value *rslt4 = protoFnImpl_214((List *)var_31, rslt3); List *varArgs5 = (List *)GC_malloc(sizeof(List)); varArgs5->type = ListType; @@ -43371,22 +43305,22 @@ varArgs5->len = 0; varArgs5->head = (Value *)0; varArgs5->tail = (List *)0; Value *rslt6 = arityImpl_623((List *)var_31, (Value *)varArgs5); -Value *rslt8 = arityImpl_297((List *)var_31, rslt4, rslt6, (Value *)&fn_3340); -Value *rslt9 = arityImpl_1022((List *)var_31, rslt2, rslt8); -Value *rslt10 = arityImpl_3319((List *)var_31, arg0); -Value *rslt11 = arityImpl_1009((List *)var_31, (Value *)&_kw_56, var_19); -Value *rslt12 = arityImpl_1009((List *)var_31, (Value *)&_kw_24, var_19); -Value *rslt13 = arityImpl_3328((List *)var_31, arg0, arg1); -Value *rslt14 = arityImpl_3061((List *)var_31); -Value *rslt15 = arityImpl_3254((List *)var_31); -Value *rslt16 = arityImpl_3179((List *)var_31); -Value *rslt17 = arityImpl_3204((List *)var_31); -Value *rslt18 = arityImpl_3229((List *)var_31); -Value *rslt19 = arityImpl_3092((List *)var_31); -Value *rslt20 = arityImpl_3125((List *)var_31); -Value *rslt21 = arityImpl_3154((List *)var_31); -Value *rslt22 = arityImpl_3300((List *)var_31); -Value *rslt23 = arityImpl_3279((List *)var_31); +Value *rslt8 = arityImpl_297((List *)var_31, rslt4, rslt6, (Value *)&fn_3333); +Value *rslt9 = arityImpl_1012((List *)var_31, rslt2, rslt8); +Value *rslt10 = arityImpl_3312((List *)var_31, arg0); +Value *rslt11 = arityImpl_999((List *)var_31, (Value *)&_kw_54, var_19); +Value *rslt12 = arityImpl_999((List *)var_31, (Value *)&_kw_22, var_19); +Value *rslt13 = arityImpl_3321((List *)var_31, arg0, arg1); +Value *rslt14 = arityImpl_3054((List *)var_31); +Value *rslt15 = arityImpl_3247((List *)var_31); +Value *rslt16 = arityImpl_3172((List *)var_31); +Value *rslt17 = arityImpl_3197((List *)var_31); +Value *rslt18 = arityImpl_3222((List *)var_31); +Value *rslt19 = arityImpl_3085((List *)var_31); +Value *rslt20 = arityImpl_3118((List *)var_31); +Value *rslt21 = arityImpl_3147((List *)var_31); +Value *rslt22 = arityImpl_3293((List *)var_31); +Value *rslt23 = arityImpl_3272((List *)var_31); List *varArgs24 = (List *)GC_malloc(sizeof(List)); varArgs24->type = ListType; varArgs24->len = 0; @@ -43415,28 +43349,28 @@ return (rslt25); // --------- compile-core main body -------------- -Function fn_3338 = {3, "compile-core", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3339}}}; +Function fn_3331 = {3, "compile-core", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3332}}}; // --------- compile-main -------------- -Function fn_3343; -Value *arityImpl_3344(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1009((List *)var_31, (Value *)&_kw_10, arg1); -Value *rslt1 = arityImpl_1009((List *)var_31, (Value *)&_kw_24, var_19); -Value *rslt2 = arityImpl_3017((List *)var_31); -Value *rslt3 = arityImpl_2982((List *)var_31); -Value *rslt4 = arityImpl_2985((List *)var_31); -Value *rslt5 = arityImpl_2974((List *)var_31); -Value *rslt6 = arityImpl_3276((List *)var_31); -Value *rslt7 = arityImpl_3251((List *)var_31); -Value *rslt8 = arityImpl_3226((List *)var_31); -Value *rslt9 = arityImpl_3201((List *)var_31); -Value *rslt10 = arityImpl_3176((List *)var_31); -Value *rslt11 = arityImpl_3151((List *)var_31); -Value *rslt12 = arityImpl_3083((List *)var_31); -Value *rslt13 = arityImpl_3120((List *)var_31); -Value *rslt14 = arityImpl_3297((List *)var_31); -Value *rslt15 = arityImpl_3328((List *)var_31, arg0, arg1); -Value *rslt16 = arityImpl_3061((List *)var_31); +Function fn_3336; +Value *arityImpl_3337(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_999((List *)var_31, (Value *)&_kw_8, arg1); +Value *rslt1 = arityImpl_999((List *)var_31, (Value *)&_kw_22, var_19); +Value *rslt2 = arityImpl_3010((List *)var_31); +Value *rslt3 = arityImpl_2975((List *)var_31); +Value *rslt4 = arityImpl_2978((List *)var_31); +Value *rslt5 = arityImpl_2967((List *)var_31); +Value *rslt6 = arityImpl_3269((List *)var_31); +Value *rslt7 = arityImpl_3244((List *)var_31); +Value *rslt8 = arityImpl_3219((List *)var_31); +Value *rslt9 = arityImpl_3194((List *)var_31); +Value *rslt10 = arityImpl_3169((List *)var_31); +Value *rslt11 = arityImpl_3144((List *)var_31); +Value *rslt12 = arityImpl_3076((List *)var_31); +Value *rslt13 = arityImpl_3113((List *)var_31); +Value *rslt14 = arityImpl_3290((List *)var_31); +Value *rslt15 = arityImpl_3321((List *)var_31, arg0, arg1); +Value *rslt16 = arityImpl_3054((List *)var_31); List *varArgs17 = (List *)GC_malloc(sizeof(List)); varArgs17->type = ListType; varArgs17->len = 0; @@ -43466,20 +43400,20 @@ return (rslt18); // --------- compile-main main body -------------- -Function fn_3343 = {3, "compile-main", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3344}}}; +Function fn_3336 = {3, "compile-main", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3337}}}; struct {int64_t type; int64_t len; - char buffer[13];} _str_497 = {1,12,"Number _num_"}; + char buffer[13];} _str_496 = {1,12,"Number _num_"}; struct {int64_t type; int64_t len; - char buffer[16];} _str_498 = {1,15,"(Value *)&_num_"}; + char buffer[16];} _str_497 = {1,15,"(Value *)&_num_"}; // --------- compile-module -------------- -Function fn_3346; +Function fn_3339; // --------- anon -------------- -Function fn_3348; -Value *arityImpl_3349(List *closures, Value *arg0, Value *arg1) { +Function fn_3341; +Value *arityImpl_3342(List *closures, Value *arg0, Value *arg1) { Value *rslt0 = arityImpl_524((List *)var_31, arg1, (Value *)&_num_8, (Value *)&_num_8); Value *rslt1 = arityImpl_524((List *)var_31, arg1, (Value *)&_num_1, (Value *)&_num_8); List *varArgs2 = (List *)GC_malloc(sizeof(List)); @@ -43488,7 +43422,7 @@ varArgs2->len = 0; varArgs2->head = (Value *)0; varArgs2->tail = (List *)0; varArgs2 = (List *)listCons((Value *)rslt1, varArgs2); -varArgs2 = (List *)listCons((Value *)(Value *)&_str_497, varArgs2); +varArgs2 = (List *)listCons((Value *)(Value *)&_str_496, varArgs2); Value *rslt3 = arityImpl_508((List *)var_31, (Value *)varArgs2); Value *rslt4 = arityImpl_524((List *)var_31, arg1, (Value *)&_num_1, (Value *)&_num_8); List *varArgs5 = (List *)GC_malloc(sizeof(List)); @@ -43497,7 +43431,7 @@ varArgs5->len = 0; varArgs5->head = (Value *)0; varArgs5->tail = (List *)0; varArgs5 = (List *)listCons((Value *)rslt4, varArgs5); -varArgs5 = (List *)listCons((Value *)(Value *)&_str_498, varArgs5); +varArgs5 = (List *)listCons((Value *)(Value *)&_str_497, varArgs5); Value *rslt6 = arityImpl_508((List *)var_31, (Value *)varArgs5); List *varArgs7 = (List *)GC_malloc(sizeof(List)); varArgs7->type = ListType; @@ -43513,13 +43447,13 @@ return (rslt9); // --------- anon main body -------------- -Function fn_3348 = {3, "anon", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3349}}}; -Value *arityImpl_3347(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_1477((List *)var_31); +Function fn_3341 = {3, "anon", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3342}}}; +Value *arityImpl_3340(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_1467((List *)var_31); Value *rslt1 = protoFnImpl_219((List *)var_31, arg0); -Value *rslt2 = arityImpl_1940((List *)var_31, rslt1); -Value *rslt3 = arityImpl_3339((List *)var_31, rslt0, rslt2); -Value *rslt4 = arityImpl_3344((List *)var_31, rslt0, rslt2); +Value *rslt2 = arityImpl_1933((List *)var_31, rslt1); +Value *rslt3 = arityImpl_3332((List *)var_31, rslt0, rslt2); +Value *rslt4 = arityImpl_3337((List *)var_31, rslt0, rslt2); List *varArgs5 = (List *)GC_malloc(sizeof(List)); varArgs5->type = ListType; varArgs5->len = 0; @@ -43529,7 +43463,7 @@ varArgs5 = (List *)listCons((Value *)rslt4, varArgs5); varArgs5 = (List *)listCons((Value *)rslt3, varArgs5); Value *rslt6 = arityImpl_250((List *)var_31, (Value *)varArgs5); Value *rslt7 = protoFnImpl_219((List *)var_31, arg0); -Value *rslt8 = arityImpl_1855((List *)var_31); +Value *rslt8 = arityImpl_1845((List *)var_31); List *varArgs9 = (List *)GC_malloc(sizeof(List)); varArgs9->type = ListType; varArgs9->len = 0; @@ -43554,7 +43488,7 @@ varArgs15->len = 0; varArgs15->head = (Value *)0; varArgs15->tail = (List *)0; Value *rslt16 = arityImpl_623((List *)var_31, (Value *)varArgs15); -Value *rslt17 = arityImpl_1855((List *)var_31); +Value *rslt17 = arityImpl_1845((List *)var_31); Value *rslt18 = protoFnImpl_214((List *)var_31, rslt17); List *varArgs19 = (List *)GC_malloc(sizeof(List)); varArgs19->type = ListType; @@ -43562,8 +43496,8 @@ varArgs19->len = 0; varArgs19->head = (Value *)0; varArgs19->tail = (List *)0; Value *rslt20 = arityImpl_623((List *)var_31, (Value *)varArgs19); -Value *rslt22 = arityImpl_297((List *)var_31, rslt18, rslt20, (Value *)&fn_3348); -Value *rslt23 = arityImpl_1855((List *)var_31); +Value *rslt22 = arityImpl_297((List *)var_31, rslt18, rslt20, (Value *)&fn_3341); +Value *rslt23 = arityImpl_1845((List *)var_31); Value *rslt24 = protoFnImpl_214((List *)var_31, rslt23); Value *rslt25 = protoFnImpl_195((List *)var_31, rslt24); Value *rslt26 = arityImpl_453((List *)var_31, rslt25); @@ -43573,27 +43507,27 @@ varArgs27->len = 0; varArgs27->head = (Value *)0; varArgs27->tail = (List *)0; varArgs27 = (List *)listCons((Value *)rslt26, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_kw_25, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_kw_23, varArgs27); varArgs27 = (List *)listCons((Value *)rslt22, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_kw_49, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_kw_47, varArgs27); varArgs27 = (List *)listCons((Value *)var_31, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_kw_57, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_kw_55, varArgs27); varArgs27 = (List *)listCons((Value *)var_31, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_kw_19, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_kw_17, varArgs27); varArgs27 = (List *)listCons((Value *)rslt16, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_kw_26, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_kw_24, varArgs27); varArgs27 = (List *)listCons((Value *)rslt14, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_kw_21, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_kw_19, varArgs27); varArgs27 = (List *)listCons((Value *)rslt12, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_kw_16, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_kw_14, varArgs27); varArgs27 = (List *)listCons((Value *)rslt10, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_kw_33, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_kw_31, varArgs27); varArgs27 = (List *)listCons((Value *)rslt8, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_kw_68, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_kw_66, varArgs27); varArgs27 = (List *)listCons((Value *)(Value *)&_num_8, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_kw_51, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_kw_49, varArgs27); varArgs27 = (List *)listCons((Value *)rslt7, varArgs27); -varArgs27 = (List *)listCons((Value *)(Value *)&_kw_31, varArgs27); +varArgs27 = (List *)listCons((Value *)(Value *)&_kw_29, varArgs27); Value *rslt28 = arityImpl_623((List *)var_31, (Value *)varArgs27); Value *rslt32; if((rslt6)->type != 3) { @@ -43622,154 +43556,154 @@ return (rslt32); // --------- compile-module main body -------------- -Function fn_3346 = {3, "compile-module", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3347}}}; +Function fn_3339 = {3, "compile-module", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3340}}}; struct {int64_t type; int64_t len; - char buffer[10];} _str_499 = {1,9,""}; + char buffer[10];} _str_498 = {1,9,""}; // --------- string-list_impl -------------- -Function fn_3351; -Value *arityImpl_3352(List *closures, Value *arg0) { +Function fn_3344; +Value *arityImpl_3345(List *closures, Value *arg0) { List *varArgs0 = (List *)GC_malloc(sizeof(List)); varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_str_499, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_498, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); return (rslt1); }; // --------- string-list_impl main body -------------- -Function fn_3351 = {3, "string-list_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3352}}}; -Value *protoImpl_3353(List *closures, Value *arg0) { +Function fn_3344 = {3, "string-list_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3345}}}; +Value *protoImpl_3346(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_3354 = {3, "string-list", 1, {&(FnArity){1, (List *)0, 0, protoImpl_3353}}}; +Function protoFn_3347 = {3, "string-list", 1, {&(FnArity){1, (List *)0, 0, protoImpl_3346}}}; // --------- =*_impl -------------- -Function fn_3355; -Value *arityImpl_3356(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = arityImpl_1894((List *)var_31, arg0, arg1); +Function fn_3348; +Value *arityImpl_3349(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = arityImpl_1884((List *)var_31, arg0, arg1); return (rslt0); }; // --------- =*_impl main body -------------- -Function fn_3355 = {3, "=*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3356}}}; -Value *protoImpl_3357(List *closures, Value *arg0, Value *arg1) { +Function fn_3348 = {3, "=*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3349}}}; +Value *protoImpl_3350(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_3358 = {3, "=*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3357}}}; +Function protoFn_3351 = {3, "=*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3350}}}; // --------- map_impl -------------- -Function fn_3359; -Value *arityImpl_3360(List *closures, Value *arg0, Value *arg1) { +Function fn_3352; +Value *arityImpl_3353(List *closures, Value *arg0, Value *arg1) { return (arg0); }; // --------- map_impl main body -------------- -Function fn_3359 = {3, "map_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3360}}}; -Value *protoImpl_3361(List *closures, Value *arg0, Value *arg1) { +Function fn_3352 = {3, "map_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3353}}}; +Value *protoImpl_3354(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_3362 = {3, "map", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3361}}}; +Function protoFn_3355 = {3, "map", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3354}}}; // --------- wrap_impl -------------- -Function fn_3363; -Value *arityImpl_3364(List *closures, Value *arg0, Value *arg1) { +Function fn_3356; +Value *arityImpl_3357(List *closures, Value *arg0, Value *arg1) { return (arg0); }; // --------- wrap_impl main body -------------- -Function fn_3363 = {3, "wrap_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3364}}}; -Value *protoImpl_3365(List *closures, Value *arg0, Value *arg1) { +Function fn_3356 = {3, "wrap_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3357}}}; +Value *protoImpl_3358(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[3])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_3366 = {3, "wrap", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3365}}}; +Function protoFn_3359 = {3, "wrap", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3358}}}; // --------- apply*_impl -------------- -Function fn_3367; -Value *arityImpl_3368(List *closures, Value *arg0, Value *arg1) { +Function fn_3360; +Value *arityImpl_3361(List *closures, Value *arg0, Value *arg1) { return (arg0); }; // --------- apply*_impl main body -------------- -Function fn_3367 = {3, "apply*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3368}}}; -Value *protoImpl_3369(List *closures, Value *arg0, Value *arg1) { +Function fn_3360 = {3, "apply*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3361}}}; +Value *protoImpl_3362(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[4])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_3370 = {3, "apply*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3369}}}; +Function protoFn_3363 = {3, "apply*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3362}}}; // --------- flat-map_impl -------------- -Function fn_3371; -Value *arityImpl_3372(List *closures, Value *arg0, Value *arg1) { +Function fn_3364; +Value *arityImpl_3365(List *closures, Value *arg0, Value *arg1) { return (arg0); }; // --------- flat-map_impl main body -------------- -Function fn_3371 = {3, "flat-map_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3372}}}; -Value *protoImpl_3373(List *closures, Value *arg0, Value *arg1) { +Function fn_3364 = {3, "flat-map_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3365}}}; +Value *protoImpl_3366(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[5])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_3374 = {3, "flat-map", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3373}}}; +Function protoFn_3367 = {3, "flat-map", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3366}}}; -ReifiedVal reified_3375 = {85, 6, {(Value *)&fn_3351, (Value *)&fn_3355, (Value *)&fn_3359, (Value *)&fn_3363, (Value *)&fn_3367, (Value *)&fn_3371}}; +ReifiedVal reified_3368 = {84, 6, {(Value *)&fn_3344, (Value *)&fn_3348, (Value *)&fn_3352, (Value *)&fn_3356, (Value *)&fn_3360, (Value *)&fn_3364}}; // forward declaration for 'maybe-value' -Value *var_3377; +Value *var_3370; struct {int64_t type; int64_t len; - char buffer[8];} _str_500 = {1,7,"impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_3381 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3380}}}; +Function protoFn_3374 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3373}}}; // --------- invoke_impl -------------- -Function fn_3382; +Function fn_3375; // --------- string-list_impl -------------- -Function fn_3384; -Value *arityImpl_3385(List *closures, Value *arg0) { +Function fn_3377; +Value *arityImpl_3378(List *closures, Value *arg0) { Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -43779,7 +43713,7 @@ varArgs0->type = ListType; varArgs0->len = 0; varArgs0->head = (Value *)0; varArgs0->tail = (List *)0; -varArgs0 = (List *)listCons((Value *)(Value *)&_str_500, varArgs0); +varArgs0 = (List *)listCons((Value *)(Value *)&_str_499, varArgs0); Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); Value *rslt3 = protoFnImpl_137((List *)var_31, val2); List *varArgs4 = (List *)GC_malloc(sizeof(List)); @@ -43801,27 +43735,27 @@ Value *rslt7 = arityImpl_250((List *)var_31, (Value *)varArgs6); return (rslt7); }; -Value *protoImpl_3386(List *closures, Value *arg0) { +Value *protoImpl_3379(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_3387 = {3, "string-list", 1, {&(FnArity){1, (List *)0, 0, protoImpl_3386}}}; +Function protoFn_3380 = {3, "string-list", 1, {&(FnArity){1, (List *)0, 0, protoImpl_3379}}}; // --------- =*_impl -------------- -Function fn_3388; -Value *arityImpl_3389(List *closures, Value *arg0, Value *arg1) { -Value *val1 = closures->head; +Function fn_3381; +Value *arityImpl_3382(List *closures, Value *arg0, Value *arg1) { +Value *val2 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; Value *cond0; -Value *rslt2 = arityImpl_1894((List *)var_31, val1, arg1); +Value *rslt1 = arityImpl_1884((List *)var_31, arg0, arg1); -if (isTrue(rslt2)) { -Value *rslt3 = protoFnImpl_934((List *)var_31, arg1); -Value *rslt4 = arityImpl_283((List *)var_31, val1, rslt3); +if (isTrue(rslt1)) { +Value *rslt3 = protoFnImpl_924((List *)var_31, arg1); +Value *rslt4 = arityImpl_283((List *)var_31, val2, rslt3); cond0 = rslt4; } else { cond0 = var_20; @@ -43829,17 +43763,17 @@ cond0 = var_20; return (cond0); }; -Value *protoImpl_3390(List *closures, Value *arg0, Value *arg1) { +Value *protoImpl_3383(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_3391 = {3, "=*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3390}}}; +Function protoFn_3384 = {3, "=*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3383}}}; // --------- map_impl -------------- -Function fn_3392; -Value *arityImpl_3393(List *closures, Value *arg0, Value *arg1) { +Function fn_3385; +Value *arityImpl_3386(List *closures, Value *arg0, Value *arg1) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -43867,10 +43801,10 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)arg1)->name); } } Value *rslt8; -if((var_3377)->type != 3) { -rslt8 = protoFnImpl_5(empty_list, var_3377, rslt4); +if((var_3370)->type != 3) { +rslt8 = protoFnImpl_5(empty_list, var_3370, rslt4); } else { -FnArity *arity5 = findFnArity(var_3377, 1); +FnArity *arity5 = findFnArity(var_3370, 1); if(arity5 != (FnArity *)0 && !arity5->variadic) { FnType1 *fn7 = (FnType1 *)arity5->fn; rslt8 = fn7(arity5->closures, rslt4); @@ -43884,29 +43818,29 @@ varArgs6->tail = (List *)0; varArgs6 = (List *)listCons(rslt4, varArgs6); rslt8 = fn7(arity5->closures, (Value *)varArgs6); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_3377)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_3370)->name); abort(); } } return (rslt8); }; -Value *protoImpl_3394(List *closures, Value *arg0, Value *arg1) { +Value *protoImpl_3387(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_3395 = {3, "map", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3394}}}; +Function protoFn_3388 = {3, "map", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3387}}}; // --------- wrap_impl -------------- -Function fn_3396; -Value *arityImpl_3397(List *closures, Value *arg0, Value *arg1) { +Function fn_3389; +Value *arityImpl_3390(List *closures, Value *arg0, Value *arg1) { Value *rslt3; -if((var_3377)->type != 3) { -rslt3 = protoFnImpl_5(empty_list, var_3377, arg1); +if((var_3370)->type != 3) { +rslt3 = protoFnImpl_5(empty_list, var_3370, arg1); } else { -FnArity *arity0 = findFnArity(var_3377, 1); +FnArity *arity0 = findFnArity(var_3370, 1); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; rslt3 = fn2(arity0->closures, arg1); @@ -43920,7 +43854,7 @@ varArgs1->tail = (List *)0; varArgs1 = (List *)listCons(arg1, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_3377)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_3370)->name); abort(); } } @@ -43929,39 +43863,39 @@ return (rslt3); // --------- wrap_impl main body -------------- -Function fn_3396 = {3, "wrap_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3397}}}; -Value *protoImpl_3398(List *closures, Value *arg0, Value *arg1) { +Function fn_3389 = {3, "wrap_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3390}}}; +Value *protoImpl_3391(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[3])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_3399 = {3, "wrap", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3398}}}; +Function protoFn_3392 = {3, "wrap", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3391}}}; // --------- apply*_impl -------------- -Function fn_3400; +Function fn_3393; // --------- anon -------------- -Function fn_3402; -Value *arityImpl_3403(List *closures, Value *arg0) { -Value *rslt0 = arityImpl_283((List *)var_31, (Value *)&reified_3375, arg0); +Function fn_3395; +Value *arityImpl_3396(List *closures, Value *arg0) { +Value *rslt0 = arityImpl_283((List *)var_31, (Value *)&reified_3368, arg0); return (rslt0); }; // --------- anon main body -------------- -Function fn_3402 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3403}}}; -Value *arityImpl_3401(List *closures, Value *arg0, Value *arg1) { +Function fn_3395 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3396}}}; +Value *arityImpl_3394(List *closures, Value *arg0, Value *arg1) { Value *val4 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; closures = closures->tail; -Value *rslt1 = arityImpl_300((List *)var_31, arg1, (Value *)&fn_3402); +Value *rslt1 = arityImpl_300((List *)var_31, arg1, (Value *)&fn_3395); Value *cond2; Value *rslt3 = protoFnImpl_179((List *)var_31, rslt1); if (isTrue(rslt3)) { -Value *rslt5 = protoFnImpl_125((List *)var_31, arg1, (Value *)&protoFn_932); +Value *rslt5 = protoFnImpl_125((List *)var_31, arg1, (Value *)&protoFn_922); List *varArgs6 = (List *)GC_malloc(sizeof(List)); varArgs6->type = ListType; varArgs6->len = 0; @@ -43971,10 +43905,10 @@ varArgs6 = (List *)listCons((Value *)rslt5, varArgs6); varArgs6 = (List *)listCons((Value *)val4, varArgs6); Value *rslt7 = arityImpl_113((List *)var_31, (Value *)varArgs6); Value *rslt11; -if((var_3377)->type != 3) { -rslt11 = protoFnImpl_5(empty_list, var_3377, rslt7); +if((var_3370)->type != 3) { +rslt11 = protoFnImpl_5(empty_list, var_3370, rslt7); } else { -FnArity *arity8 = findFnArity(var_3377, 1); +FnArity *arity8 = findFnArity(var_3370, 1); if(arity8 != (FnArity *)0 && !arity8->variadic) { FnType1 *fn10 = (FnType1 *)arity8->fn; rslt11 = fn10(arity8->closures, rslt7); @@ -43988,28 +43922,28 @@ varArgs9->tail = (List *)0; varArgs9 = (List *)listCons(rslt7, varArgs9); rslt11 = fn10(arity8->closures, (Value *)varArgs9); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_3377)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_3370)->name); abort(); } } cond2 = rslt11; } else { -cond2 = (Value *)&reified_3375; +cond2 = (Value *)&reified_3368; } return (cond2); }; -Value *protoImpl_3404(List *closures, Value *arg0, Value *arg1) { +Value *protoImpl_3397(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[4])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_3405 = {3, "apply*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3404}}}; +Function protoFn_3398 = {3, "apply*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3397}}}; // --------- flat-map_impl -------------- -Function fn_3406; -Value *arityImpl_3407(List *closures, Value *arg0, Value *arg1) { +Function fn_3399; +Value *arityImpl_3400(List *closures, Value *arg0, Value *arg1) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -44039,17 +43973,412 @@ fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)arg1)->name); return (rslt4); }; -Value *protoImpl_3408(List *closures, Value *arg0, Value *arg1) { +Value *protoImpl_3401(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[5])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_3409 = {3, "flat-map", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3408}}}; +Function protoFn_3402 = {3, "flat-map", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3401}}}; // --------- .v_impl -------------- +Function fn_3403; +Value *arityImpl_3404(List *closures, Value *arg0) { +Value *val0 = closures->head; +if (closures->tail) +closures->tail->len = closures->len - 1; +closures = closures->tail; +return (val0); +}; + +Value *protoImpl_3405(List *closures, Value *arg0) { +FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[6])->arities[0]; +return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); +}; + +Function protoFn_3406 = {3, ".v", 1, {&(FnArity){1, (List *)0, 0, protoImpl_3405}}}; + +Value *arityImpl_3376(List *closures, Value *arg0, Value *arg1) { +FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); +arity_0->count = 1; +arity_0->closures = empty_list; +arity_0->variadic = 0; +arity_0->fn = arityImpl_3378; +arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); +Function *fn_3377 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3377->type = 3; +fn_3377->name = "string-list_impl"; +fn_3377->arityCount = 1; +fn_3377->arities[0] = arity_0; +FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); +arity_1->count = 2; +arity_1->closures = empty_list; +arity_1->variadic = 0; +arity_1->fn = arityImpl_3382; +arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); +Function *fn_3381 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3381->type = 3; +fn_3381->name = "=*_impl"; +fn_3381->arityCount = 1; +fn_3381->arities[0] = arity_1; +FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); +arity_2->count = 2; +arity_2->closures = empty_list; +arity_2->variadic = 0; +arity_2->fn = arityImpl_3386; +arity_2->closures = listCons((Value *)arg1, (List *)arity_2->closures); +Function *fn_3385 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3385->type = 3; +fn_3385->name = "map_impl"; +fn_3385->arityCount = 1; +fn_3385->arities[0] = arity_2; +FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); +arity_4->count = 2; +arity_4->closures = empty_list; +arity_4->variadic = 0; +arity_4->fn = arityImpl_3394; +arity_4->closures = listCons((Value *)arg1, (List *)arity_4->closures); +Function *fn_3393 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3393->type = 3; +fn_3393->name = "apply*_impl"; +fn_3393->arityCount = 1; +fn_3393->arities[0] = arity_4; +FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); +arity_5->count = 2; +arity_5->closures = empty_list; +arity_5->variadic = 0; +arity_5->fn = arityImpl_3400; +arity_5->closures = listCons((Value *)arg1, (List *)arity_5->closures); +Function *fn_3399 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3399->type = 3; +fn_3399->name = "flat-map_impl"; +fn_3399->arityCount = 1; +fn_3399->arities[0] = arity_5; +FnArity *arity_6 = (FnArity *)GC_malloc(sizeof(FnArity)); +arity_6->count = 1; +arity_6->closures = empty_list; +arity_6->variadic = 0; +arity_6->fn = arityImpl_3404; +arity_6->closures = listCons((Value *)arg1, (List *)arity_6->closures); +Function *fn_3403 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3403->type = 3; +fn_3403->name = ".v_impl"; +fn_3403->arityCount = 1; +fn_3403->arities[0] = arity_6; +ReifiedVal *reified_7 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 7); +reified_7->type = 86; +reified_7->implCount = 7; +reified_7->impls[0] = (Value *)fn_3377; +reified_7->impls[1] = (Value *)fn_3381; +reified_7->impls[2] = (Value *)fn_3385; +reified_7->impls[3] = (Value *)&fn_3389; +reified_7->impls[4] = (Value *)fn_3393; +reified_7->impls[5] = (Value *)fn_3399; +reified_7->impls[6] = (Value *)fn_3403; +return ((Value *)reified_7); +}; + + +// --------- invoke_impl main body -------------- +Function fn_3375 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3376}}}; +Value *protoImpl_3407(List *closures, Value *arg0, Value *arg1) { +FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; +return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); +}; + +Function protoFn_3408 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3407}}}; + +ReifiedVal reified_3409 = {85, 2, {(Value *)&fn_3371, (Value *)&fn_3375}}; +Value *var_3370 = (Value *)&reified_3409; + +// --------- instance?_impl -------------- Function fn_3410; -Value *arityImpl_3411(List *closures, Value *arg0) { +Value *arityImpl_3411(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = protoFnImpl_72((List *)var_31, var_3370, arg1); +return (rslt0); +}; + + +// --------- instance?_impl main body -------------- +Function fn_3410 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3411}}}; +Value *protoImpl_3412(List *closures, Value *arg0, Value *arg1) { +FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; +return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); +}; + +Function protoFn_3413 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3412}}}; + + +// --------- invoke_impl -------------- +Function fn_3414; +Value *arityImpl_3415(List *closures, Value *arg0, Value *arg1) { +Value *rslt3; +if((var_3370)->type != 3) { +rslt3 = protoFnImpl_5(empty_list, var_3370, arg1); +} else { +FnArity *arity0 = findFnArity(var_3370, 1); +if(arity0 != (FnArity *)0 && !arity0->variadic) { +FnType1 *fn2 = (FnType1 *)arity0->fn; +rslt3 = fn2(arity0->closures, arg1); +} else if(arity0 != (FnArity *)0 && arity0->variadic) { +FnType1 *fn2 = (FnType1 *)arity0->fn; +List *varArgs1 = (List *)GC_malloc(sizeof(List)); +varArgs1->type = ListType; +varArgs1->len = 0; +varArgs1->head = (Value *)0; +varArgs1->tail = (List *)0; +varArgs1 = (List *)listCons(arg1, varArgs1); +rslt3 = fn2(arity0->closures, (Value *)varArgs1); +} else { +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_3370)->name); + abort(); +} +} +return (rslt3); +}; + + +// --------- invoke_impl main body -------------- +Function fn_3414 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3415}}}; +Value *protoImpl_3416(List *closures, Value *arg0, Value *arg1) { +FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; +return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); +}; + +Function protoFn_3417 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3416}}}; + + +// --------- zero_impl -------------- +Function fn_3418; +Value *arityImpl_3419(List *closures, Value *arg0) { +return ((Value *)&reified_3368); +}; + + +// --------- zero_impl main body -------------- +Function fn_3418 = {3, "zero_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3419}}}; +Value *protoImpl_3420(List *closures, Value *arg0) { +FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; +return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); +}; + +Function protoFn_3421 = {3, "zero", 1, {&(FnArity){1, (List *)0, 0, protoImpl_3420}}}; + +ReifiedVal reified_3422 = {87, 3, {(Value *)&fn_3410, (Value *)&fn_3414, (Value *)&fn_3418}}; +// forward declaration for 'error-value' +Value *var_3424; + +struct {int64_t type; + int64_t len; + char buffer[8];} _str_500 = {1,7,"impls[0])->arities[0]; +return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); +}; + +Function protoFn_3428 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3427}}}; + + +// --------- invoke_impl -------------- +Function fn_3429; + +// --------- string-list_impl -------------- +Function fn_3431; +Value *arityImpl_3432(List *closures, Value *arg0) { +Value *val2 = closures->head; +if (closures->tail) +closures->tail->len = closures->len - 1; +closures = closures->tail; +List *varArgs0 = (List *)GC_malloc(sizeof(List)); +varArgs0->type = ListType; +varArgs0->len = 0; +varArgs0->head = (Value *)0; +varArgs0->tail = (List *)0; +varArgs0 = (List *)listCons((Value *)(Value *)&_str_500, varArgs0); +Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); +Value *rslt3 = protoFnImpl_137((List *)var_31, val2); +List *varArgs4 = (List *)GC_malloc(sizeof(List)); +varArgs4->type = ListType; +varArgs4->len = 0; +varArgs4->head = (Value *)0; +varArgs4->tail = (List *)0; +varArgs4 = (List *)listCons((Value *)(Value *)&_str_15, varArgs4); +Value *rslt5 = arityImpl_119((List *)var_31, (Value *)varArgs4); +List *varArgs6 = (List *)GC_malloc(sizeof(List)); +varArgs6->type = ListType; +varArgs6->len = 0; +varArgs6->head = (Value *)0; +varArgs6->tail = (List *)0; +varArgs6 = (List *)listCons((Value *)rslt5, varArgs6); +varArgs6 = (List *)listCons((Value *)rslt3, varArgs6); +varArgs6 = (List *)listCons((Value *)rslt1, varArgs6); +Value *rslt7 = arityImpl_250((List *)var_31, (Value *)varArgs6); +return (rslt7); +}; + +Value *protoImpl_3433(List *closures, Value *arg0) { +FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; +return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); +}; + +Function protoFn_3434 = {3, "string-list", 1, {&(FnArity){1, (List *)0, 0, protoImpl_3433}}}; + + +// --------- =*_impl -------------- +Function fn_3435; +Value *arityImpl_3436(List *closures, Value *arg0, Value *arg1) { +Value *val2 = closures->head; +if (closures->tail) +closures->tail->len = closures->len - 1; +closures = closures->tail; +Value *cond0; +Value *rslt1 = arityImpl_1884((List *)var_31, arg0, arg1); + +if (isTrue(rslt1)) { +Value *rslt3 = protoFnImpl_924((List *)var_31, arg1); +Value *rslt4 = arityImpl_283((List *)var_31, val2, rslt3); +cond0 = rslt4; +} else { +cond0 = var_20; +} +return (cond0); +}; + +Value *protoImpl_3437(List *closures, Value *arg0, Value *arg1) { +FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; +return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); +}; + +Function protoFn_3438 = {3, "=*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3437}}}; + + +// --------- map_impl -------------- +Function fn_3439; +Value *arityImpl_3440(List *closures, Value *arg0, Value *arg1) { +return (arg0); +}; + + +// --------- map_impl main body -------------- +Function fn_3439 = {3, "map_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3440}}}; +Value *protoImpl_3441(List *closures, Value *arg0, Value *arg1) { +FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; +return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); +}; + +Function protoFn_3442 = {3, "map", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3441}}}; + + +// --------- wrap_impl -------------- +Function fn_3443; +Value *arityImpl_3444(List *closures, Value *arg0, Value *arg1) { +Value *rslt3; +if((var_3424)->type != 3) { +rslt3 = protoFnImpl_5(empty_list, var_3424, arg1); +} else { +FnArity *arity0 = findFnArity(var_3424, 1); +if(arity0 != (FnArity *)0 && !arity0->variadic) { +FnType1 *fn2 = (FnType1 *)arity0->fn; +rslt3 = fn2(arity0->closures, arg1); +} else if(arity0 != (FnArity *)0 && arity0->variadic) { +FnType1 *fn2 = (FnType1 *)arity0->fn; +List *varArgs1 = (List *)GC_malloc(sizeof(List)); +varArgs1->type = ListType; +varArgs1->len = 0; +varArgs1->head = (Value *)0; +varArgs1->tail = (List *)0; +varArgs1 = (List *)listCons(arg1, varArgs1); +rslt3 = fn2(arity0->closures, (Value *)varArgs1); +} else { +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_3424)->name); + abort(); +} +} +return (rslt3); +}; + + +// --------- wrap_impl main body -------------- +Function fn_3443 = {3, "wrap_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3444}}}; +Value *protoImpl_3445(List *closures, Value *arg0, Value *arg1) { +FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[3])->arities[0]; +return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); +}; + +Function protoFn_3446 = {3, "wrap", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3445}}}; + + +// --------- apply*_impl -------------- +Function fn_3447; + +// --------- anon -------------- +Function fn_3449; +Value *arityImpl_3450(List *closures, Value *arg0) { +Value *rslt0 = protoFnImpl_72((List *)var_31, var_3424, arg0); +return (rslt0); +}; + + +// --------- anon main body -------------- +Function fn_3449 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3450}}}; +Value *arityImpl_3448(List *closures, Value *arg0, Value *arg1) { +Value *rslt1 = arityImpl_300((List *)var_31, arg1, (Value *)&fn_3449); +Value *cond2; +Value *rslt4 = protoFnImpl_179((List *)var_31, rslt1); + +if (isTrue(rslt4)) { +cond2 = arg0; +} else { +Value *rslt3 = protoFnImpl_219((List *)var_31, rslt1); +cond2 = rslt3; +} +return (cond2); +}; + + +// --------- apply*_impl main body -------------- +Function fn_3447 = {3, "apply*_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3448}}}; +Value *protoImpl_3451(List *closures, Value *arg0, Value *arg1) { +FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[4])->arities[0]; +return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); +}; + +Function protoFn_3452 = {3, "apply*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3451}}}; + + +// --------- flat-map_impl -------------- +Function fn_3453; +Value *arityImpl_3454(List *closures, Value *arg0, Value *arg1) { +return (arg0); +}; + + +// --------- flat-map_impl main body -------------- +Function fn_3453 = {3, "flat-map_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3454}}}; +Value *protoImpl_3455(List *closures, Value *arg0, Value *arg1) { +FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[5])->arities[0]; +return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); +}; + +Function protoFn_3456 = {3, "flat-map", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3455}}}; + + +// --------- .v_impl -------------- +Function fn_3457; +Value *arityImpl_3458(List *closures, Value *arg0) { Value *val0 = closures->head; if (closures->tail) closures->tail->len = closures->len - 1; @@ -44057,132 +44386,576 @@ closures = closures->tail; return (val0); }; -Value *protoImpl_3412(List *closures, Value *arg0) { +Value *protoImpl_3459(List *closures, Value *arg0) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[6])->arities[0]; return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); }; -Function protoFn_3413 = {3, ".v", 1, {&(FnArity){1, (List *)0, 0, protoImpl_3412}}}; +Function protoFn_3460 = {3, ".v", 1, {&(FnArity){1, (List *)0, 0, protoImpl_3459}}}; -Value *arityImpl_3383(List *closures, Value *arg0, Value *arg1) { +Value *arityImpl_3430(List *closures, Value *arg0, Value *arg1) { FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_0->count = 1; arity_0->closures = empty_list; arity_0->variadic = 0; -arity_0->fn = arityImpl_3385; +arity_0->fn = arityImpl_3432; arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); -Function *fn_3384 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3384->type = 3; -fn_3384->name = "string-list_impl"; -fn_3384->arityCount = 1; -fn_3384->arities[0] = arity_0; +Function *fn_3431 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3431->type = 3; +fn_3431->name = "string-list_impl"; +fn_3431->arityCount = 1; +fn_3431->arities[0] = arity_0; FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_1->count = 2; arity_1->closures = empty_list; arity_1->variadic = 0; -arity_1->fn = arityImpl_3389; +arity_1->fn = arityImpl_3436; arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); -Function *fn_3388 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3388->type = 3; -fn_3388->name = "=*_impl"; -fn_3388->arityCount = 1; -fn_3388->arities[0] = arity_1; +Function *fn_3435 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3435->type = 3; +fn_3435->name = "=*_impl"; +fn_3435->arityCount = 1; +fn_3435->arities[0] = arity_1; +FnArity *arity_6 = (FnArity *)GC_malloc(sizeof(FnArity)); +arity_6->count = 1; +arity_6->closures = empty_list; +arity_6->variadic = 0; +arity_6->fn = arityImpl_3458; +arity_6->closures = listCons((Value *)arg1, (List *)arity_6->closures); +Function *fn_3457 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3457->type = 3; +fn_3457->name = ".v_impl"; +fn_3457->arityCount = 1; +fn_3457->arities[0] = arity_6; +ReifiedVal *reified_7 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 7); +reified_7->type = 89; +reified_7->implCount = 7; +reified_7->impls[0] = (Value *)fn_3431; +reified_7->impls[1] = (Value *)fn_3435; +reified_7->impls[2] = (Value *)&fn_3439; +reified_7->impls[3] = (Value *)&fn_3443; +reified_7->impls[4] = (Value *)&fn_3447; +reified_7->impls[5] = (Value *)&fn_3453; +reified_7->impls[6] = (Value *)fn_3457; +return ((Value *)reified_7); +}; + + +// --------- invoke_impl main body -------------- +Function fn_3429 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3430}}}; +Value *protoImpl_3461(List *closures, Value *arg0, Value *arg1) { +FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; +return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); +}; + +Function protoFn_3462 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3461}}}; + +ReifiedVal reified_3463 = {88, 2, {(Value *)&fn_3425, (Value *)&fn_3429}}; +Value *var_3424 = (Value *)&reified_3463; + +// --------- instance?_impl -------------- +Function fn_3464; +Value *arityImpl_3465(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = protoFnImpl_72((List *)var_31, var_3424, arg1); +return (rslt0); +}; + + +// --------- instance?_impl main body -------------- +Function fn_3464 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3465}}}; +Value *protoImpl_3466(List *closures, Value *arg0, Value *arg1) { +FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; +return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); +}; + +Function protoFn_3467 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3466}}}; + + +// --------- invoke_impl -------------- +Function fn_3468; +Value *arityImpl_3469(List *closures, Value *arg0, Value *arg1) { +Value *rslt3; +if((var_3424)->type != 3) { +rslt3 = protoFnImpl_5(empty_list, var_3424, arg1); +} else { +FnArity *arity0 = findFnArity(var_3424, 1); +if(arity0 != (FnArity *)0 && !arity0->variadic) { +FnType1 *fn2 = (FnType1 *)arity0->fn; +rslt3 = fn2(arity0->closures, arg1); +} else if(arity0 != (FnArity *)0 && arity0->variadic) { +FnType1 *fn2 = (FnType1 *)arity0->fn; +List *varArgs1 = (List *)GC_malloc(sizeof(List)); +varArgs1->type = ListType; +varArgs1->len = 0; +varArgs1->head = (Value *)0; +varArgs1->tail = (List *)0; +varArgs1 = (List *)listCons(arg1, varArgs1); +rslt3 = fn2(arity0->closures, (Value *)varArgs1); +} else { +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_3424)->name); + abort(); +} +} +return (rslt3); +}; + + +// --------- invoke_impl main body -------------- +Function fn_3468 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3469}}}; +Value *protoImpl_3470(List *closures, Value *arg0, Value *arg1) { +FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; +return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); +}; + +Function protoFn_3471 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3470}}}; + +ReifiedVal reified_3472 = {90, 2, {(Value *)&fn_3464, (Value *)&fn_3468}}; +// forward declaration for 'valid-value' +Value *var_3474; + +struct {int64_t type; + int64_t len; + char buffer[8];} _str_501 = {1,7,"impls[0])->arities[0]; +return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); +}; + +Function protoFn_3478 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3477}}}; + + +// --------- invoke_impl -------------- +Function fn_3479; + +// --------- string-list_impl -------------- +Function fn_3481; +Value *arityImpl_3482(List *closures, Value *arg0) { +Value *val2 = closures->head; +if (closures->tail) +closures->tail->len = closures->len - 1; +closures = closures->tail; +List *varArgs0 = (List *)GC_malloc(sizeof(List)); +varArgs0->type = ListType; +varArgs0->len = 0; +varArgs0->head = (Value *)0; +varArgs0->tail = (List *)0; +varArgs0 = (List *)listCons((Value *)(Value *)&_str_501, varArgs0); +Value *rslt1 = arityImpl_119((List *)var_31, (Value *)varArgs0); +Value *rslt3 = protoFnImpl_137((List *)var_31, val2); +List *varArgs4 = (List *)GC_malloc(sizeof(List)); +varArgs4->type = ListType; +varArgs4->len = 0; +varArgs4->head = (Value *)0; +varArgs4->tail = (List *)0; +varArgs4 = (List *)listCons((Value *)(Value *)&_str_15, varArgs4); +Value *rslt5 = arityImpl_119((List *)var_31, (Value *)varArgs4); +List *varArgs6 = (List *)GC_malloc(sizeof(List)); +varArgs6->type = ListType; +varArgs6->len = 0; +varArgs6->head = (Value *)0; +varArgs6->tail = (List *)0; +varArgs6 = (List *)listCons((Value *)rslt5, varArgs6); +varArgs6 = (List *)listCons((Value *)rslt3, varArgs6); +varArgs6 = (List *)listCons((Value *)rslt1, varArgs6); +Value *rslt7 = arityImpl_250((List *)var_31, (Value *)varArgs6); +return (rslt7); +}; + +Value *protoImpl_3483(List *closures, Value *arg0) { +FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; +return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); +}; + +Function protoFn_3484 = {3, "string-list", 1, {&(FnArity){1, (List *)0, 0, protoImpl_3483}}}; + + +// --------- =*_impl -------------- +Function fn_3485; +Value *arityImpl_3486(List *closures, Value *arg0, Value *arg1) { +Value *val2 = closures->head; +if (closures->tail) +closures->tail->len = closures->len - 1; +closures = closures->tail; +Value *cond0; +Value *rslt1 = arityImpl_1884((List *)var_31, arg0, arg1); + +if (isTrue(rslt1)) { +Value *rslt3 = protoFnImpl_924((List *)var_31, arg1); +Value *rslt4 = arityImpl_283((List *)var_31, val2, rslt3); +cond0 = rslt4; +} else { +cond0 = var_20; +} +return (cond0); +}; + +Value *protoImpl_3487(List *closures, Value *arg0, Value *arg1) { +FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; +return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); +}; + +Function protoFn_3488 = {3, "=*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3487}}}; + + +// --------- map_impl -------------- +Function fn_3489; +Value *arityImpl_3490(List *closures, Value *arg0, Value *arg1) { +Value *val0 = closures->head; +if (closures->tail) +closures->tail->len = closures->len - 1; +closures = closures->tail; +Value *rslt4; +if((arg1)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, arg1, val0); +} else { +FnArity *arity1 = findFnArity(arg1, 1); +if(arity1 != (FnArity *)0 && !arity1->variadic) { +FnType1 *fn3 = (FnType1 *)arity1->fn; +rslt4 = fn3(arity1->closures, val0); +} else if(arity1 != (FnArity *)0 && arity1->variadic) { +FnType1 *fn3 = (FnType1 *)arity1->fn; +List *varArgs2 = (List *)GC_malloc(sizeof(List)); +varArgs2->type = ListType; +varArgs2->len = 0; +varArgs2->head = (Value *)0; +varArgs2->tail = (List *)0; +varArgs2 = (List *)listCons(val0, varArgs2); +rslt4 = fn3(arity1->closures, (Value *)varArgs2); +} else { +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)arg1)->name); + abort(); +} +} +Value *rslt8; +if((var_3474)->type != 3) { +rslt8 = protoFnImpl_5(empty_list, var_3474, rslt4); +} else { +FnArity *arity5 = findFnArity(var_3474, 1); +if(arity5 != (FnArity *)0 && !arity5->variadic) { +FnType1 *fn7 = (FnType1 *)arity5->fn; +rslt8 = fn7(arity5->closures, rslt4); +} else if(arity5 != (FnArity *)0 && arity5->variadic) { +FnType1 *fn7 = (FnType1 *)arity5->fn; +List *varArgs6 = (List *)GC_malloc(sizeof(List)); +varArgs6->type = ListType; +varArgs6->len = 0; +varArgs6->head = (Value *)0; +varArgs6->tail = (List *)0; +varArgs6 = (List *)listCons(rslt4, varArgs6); +rslt8 = fn7(arity5->closures, (Value *)varArgs6); +} else { +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_3474)->name); + abort(); +} +} +return (rslt8); +}; + +Value *protoImpl_3491(List *closures, Value *arg0, Value *arg1) { +FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; +return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); +}; + +Function protoFn_3492 = {3, "map", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3491}}}; + + +// --------- wrap_impl -------------- +Function fn_3493; +Value *arityImpl_3494(List *closures, Value *arg0, Value *arg1) { +Value *rslt3; +if((var_3474)->type != 3) { +rslt3 = protoFnImpl_5(empty_list, var_3474, arg1); +} else { +FnArity *arity0 = findFnArity(var_3474, 1); +if(arity0 != (FnArity *)0 && !arity0->variadic) { +FnType1 *fn2 = (FnType1 *)arity0->fn; +rslt3 = fn2(arity0->closures, arg1); +} else if(arity0 != (FnArity *)0 && arity0->variadic) { +FnType1 *fn2 = (FnType1 *)arity0->fn; +List *varArgs1 = (List *)GC_malloc(sizeof(List)); +varArgs1->type = ListType; +varArgs1->len = 0; +varArgs1->head = (Value *)0; +varArgs1->tail = (List *)0; +varArgs1 = (List *)listCons(arg1, varArgs1); +rslt3 = fn2(arity0->closures, (Value *)varArgs1); +} else { +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_3474)->name); + abort(); +} +} +return (rslt3); +}; + + +// --------- wrap_impl main body -------------- +Function fn_3493 = {3, "wrap_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3494}}}; +Value *protoImpl_3495(List *closures, Value *arg0, Value *arg1) { +FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[3])->arities[0]; +return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); +}; + +Function protoFn_3496 = {3, "wrap", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3495}}}; + + +// --------- apply*_impl -------------- +Function fn_3497; + +// --------- anon -------------- +Function fn_3499; +Value *arityImpl_3500(List *closures, Value *arg0) { +Value *rslt0 = protoFnImpl_72((List *)var_31, var_3424, arg0); +return (rslt0); +}; + + +// --------- anon main body -------------- +Function fn_3499 = {3, "anon", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3500}}}; +Value *arityImpl_3498(List *closures, Value *arg0, Value *arg1) { +Value *val5 = closures->head; +if (closures->tail) +closures->tail->len = closures->len - 1; +closures = closures->tail; +Value *rslt1 = arityImpl_300((List *)var_31, arg1, (Value *)&fn_3499); +Value *cond2; +Value *rslt4 = protoFnImpl_179((List *)var_31, rslt1); + +if (isTrue(rslt4)) { +Value *rslt6 = protoFnImpl_125((List *)var_31, arg1, (Value *)&protoFn_922); +List *varArgs7 = (List *)GC_malloc(sizeof(List)); +varArgs7->type = ListType; +varArgs7->len = 0; +varArgs7->head = (Value *)0; +varArgs7->tail = (List *)0; +varArgs7 = (List *)listCons((Value *)rslt6, varArgs7); +varArgs7 = (List *)listCons((Value *)val5, varArgs7); +Value *rslt8 = arityImpl_113((List *)var_31, (Value *)varArgs7); +Value *rslt12; +if((var_3474)->type != 3) { +rslt12 = protoFnImpl_5(empty_list, var_3474, rslt8); +} else { +FnArity *arity9 = findFnArity(var_3474, 1); +if(arity9 != (FnArity *)0 && !arity9->variadic) { +FnType1 *fn11 = (FnType1 *)arity9->fn; +rslt12 = fn11(arity9->closures, rslt8); +} else if(arity9 != (FnArity *)0 && arity9->variadic) { +FnType1 *fn11 = (FnType1 *)arity9->fn; +List *varArgs10 = (List *)GC_malloc(sizeof(List)); +varArgs10->type = ListType; +varArgs10->len = 0; +varArgs10->head = (Value *)0; +varArgs10->tail = (List *)0; +varArgs10 = (List *)listCons(rslt8, varArgs10); +rslt12 = fn11(arity9->closures, (Value *)varArgs10); +} else { +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_3474)->name); + abort(); +} +} +cond2 = rslt12; +} else { +Value *rslt3 = protoFnImpl_219((List *)var_31, rslt1); +cond2 = rslt3; +} +return (cond2); +}; + +Value *protoImpl_3501(List *closures, Value *arg0, Value *arg1) { +FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[4])->arities[0]; +return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); +}; + +Function protoFn_3502 = {3, "apply*", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3501}}}; + + +// --------- flat-map_impl -------------- +Function fn_3503; +Value *arityImpl_3504(List *closures, Value *arg0, Value *arg1) { +Value *val0 = closures->head; +if (closures->tail) +closures->tail->len = closures->len - 1; +closures = closures->tail; +Value *rslt4; +if((arg1)->type != 3) { +rslt4 = protoFnImpl_5(empty_list, arg1, val0); +} else { +FnArity *arity1 = findFnArity(arg1, 1); +if(arity1 != (FnArity *)0 && !arity1->variadic) { +FnType1 *fn3 = (FnType1 *)arity1->fn; +rslt4 = fn3(arity1->closures, val0); +} else if(arity1 != (FnArity *)0 && arity1->variadic) { +FnType1 *fn3 = (FnType1 *)arity1->fn; +List *varArgs2 = (List *)GC_malloc(sizeof(List)); +varArgs2->type = ListType; +varArgs2->len = 0; +varArgs2->head = (Value *)0; +varArgs2->tail = (List *)0; +varArgs2 = (List *)listCons(val0, varArgs2); +rslt4 = fn3(arity1->closures, (Value *)varArgs2); +} else { +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)arg1)->name); + abort(); +} +} +return (rslt4); +}; + +Value *protoImpl_3505(List *closures, Value *arg0, Value *arg1) { +FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[5])->arities[0]; +return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); +}; + +Function protoFn_3506 = {3, "flat-map", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3505}}}; + + +// --------- .v_impl -------------- +Function fn_3507; +Value *arityImpl_3508(List *closures, Value *arg0) { +Value *val0 = closures->head; +if (closures->tail) +closures->tail->len = closures->len - 1; +closures = closures->tail; +return (val0); +}; + +Value *protoImpl_3509(List *closures, Value *arg0) { +FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[6])->arities[0]; +return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); +}; + +Function protoFn_3510 = {3, ".v", 1, {&(FnArity){1, (List *)0, 0, protoImpl_3509}}}; + +Value *arityImpl_3480(List *closures, Value *arg0, Value *arg1) { +FnArity *arity_0 = (FnArity *)GC_malloc(sizeof(FnArity)); +arity_0->count = 1; +arity_0->closures = empty_list; +arity_0->variadic = 0; +arity_0->fn = arityImpl_3482; +arity_0->closures = listCons((Value *)arg1, (List *)arity_0->closures); +Function *fn_3481 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3481->type = 3; +fn_3481->name = "string-list_impl"; +fn_3481->arityCount = 1; +fn_3481->arities[0] = arity_0; +FnArity *arity_1 = (FnArity *)GC_malloc(sizeof(FnArity)); +arity_1->count = 2; +arity_1->closures = empty_list; +arity_1->variadic = 0; +arity_1->fn = arityImpl_3486; +arity_1->closures = listCons((Value *)arg1, (List *)arity_1->closures); +Function *fn_3485 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3485->type = 3; +fn_3485->name = "=*_impl"; +fn_3485->arityCount = 1; +fn_3485->arities[0] = arity_1; FnArity *arity_2 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_2->count = 2; arity_2->closures = empty_list; arity_2->variadic = 0; -arity_2->fn = arityImpl_3393; +arity_2->fn = arityImpl_3490; arity_2->closures = listCons((Value *)arg1, (List *)arity_2->closures); -Function *fn_3392 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3392->type = 3; -fn_3392->name = "map_impl"; -fn_3392->arityCount = 1; -fn_3392->arities[0] = arity_2; +Function *fn_3489 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3489->type = 3; +fn_3489->name = "map_impl"; +fn_3489->arityCount = 1; +fn_3489->arities[0] = arity_2; FnArity *arity_4 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_4->count = 2; arity_4->closures = empty_list; arity_4->variadic = 0; -arity_4->fn = arityImpl_3401; +arity_4->fn = arityImpl_3498; arity_4->closures = listCons((Value *)arg1, (List *)arity_4->closures); -Function *fn_3400 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3400->type = 3; -fn_3400->name = "apply*_impl"; -fn_3400->arityCount = 1; -fn_3400->arities[0] = arity_4; +Function *fn_3497 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3497->type = 3; +fn_3497->name = "apply*_impl"; +fn_3497->arityCount = 1; +fn_3497->arities[0] = arity_4; FnArity *arity_5 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_5->count = 2; arity_5->closures = empty_list; arity_5->variadic = 0; -arity_5->fn = arityImpl_3407; +arity_5->fn = arityImpl_3504; arity_5->closures = listCons((Value *)arg1, (List *)arity_5->closures); -Function *fn_3406 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3406->type = 3; -fn_3406->name = "flat-map_impl"; -fn_3406->arityCount = 1; -fn_3406->arities[0] = arity_5; +Function *fn_3503 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3503->type = 3; +fn_3503->name = "flat-map_impl"; +fn_3503->arityCount = 1; +fn_3503->arities[0] = arity_5; FnArity *arity_6 = (FnArity *)GC_malloc(sizeof(FnArity)); arity_6->count = 1; arity_6->closures = empty_list; arity_6->variadic = 0; -arity_6->fn = arityImpl_3411; +arity_6->fn = arityImpl_3508; arity_6->closures = listCons((Value *)arg1, (List *)arity_6->closures); -Function *fn_3410 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); -fn_3410->type = 3; -fn_3410->name = ".v_impl"; -fn_3410->arityCount = 1; -fn_3410->arities[0] = arity_6; +Function *fn_3507 = (Function *)GC_malloc(sizeof(Function) + sizeof(FnArity *) * 1); +fn_3507->type = 3; +fn_3507->name = ".v_impl"; +fn_3507->arityCount = 1; +fn_3507->arities[0] = arity_6; ReifiedVal *reified_7 = (ReifiedVal *)GC_malloc(sizeof(ReifiedVal) + sizeof(Function *) * 7); -reified_7->type = 87; +reified_7->type = 92; reified_7->implCount = 7; -reified_7->impls[0] = (Value *)fn_3384; -reified_7->impls[1] = (Value *)fn_3388; -reified_7->impls[2] = (Value *)fn_3392; -reified_7->impls[3] = (Value *)&fn_3396; -reified_7->impls[4] = (Value *)fn_3400; -reified_7->impls[5] = (Value *)fn_3406; -reified_7->impls[6] = (Value *)fn_3410; +reified_7->impls[0] = (Value *)fn_3481; +reified_7->impls[1] = (Value *)fn_3485; +reified_7->impls[2] = (Value *)fn_3489; +reified_7->impls[3] = (Value *)&fn_3493; +reified_7->impls[4] = (Value *)fn_3497; +reified_7->impls[5] = (Value *)fn_3503; +reified_7->impls[6] = (Value *)fn_3507; return ((Value *)reified_7); }; // --------- invoke_impl main body -------------- -Function fn_3382 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3383}}}; -Value *protoImpl_3414(List *closures, Value *arg0, Value *arg1) { +Function fn_3479 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3480}}}; +Value *protoImpl_3511(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_3415 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3414}}}; +Function protoFn_3512 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3511}}}; -ReifiedVal reified_3416 = {86, 2, {(Value *)&fn_3378, (Value *)&fn_3382}}; -Value *var_3377 = (Value *)&reified_3416; +ReifiedVal reified_3513 = {91, 2, {(Value *)&fn_3475, (Value *)&fn_3479}}; +Value *var_3474 = (Value *)&reified_3513; // --------- instance?_impl -------------- -Function fn_3417; -Value *arityImpl_3418(List *closures, Value *arg0, Value *arg1) { -Value *rslt0 = protoFnImpl_72((List *)var_31, var_3377, arg1); +Function fn_3514; +Value *arityImpl_3515(List *closures, Value *arg0, Value *arg1) { +Value *rslt0 = protoFnImpl_72((List *)var_31, var_3474, arg1); return (rslt0); }; // --------- instance?_impl main body -------------- -Function fn_3417 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3418}}}; -Value *protoImpl_3419(List *closures, Value *arg0, Value *arg1) { +Function fn_3514 = {3, "instance?_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3515}}}; +Value *protoImpl_3516(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[0])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_3420 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3419}}}; +Function protoFn_3517 = {3, "instance?", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3516}}}; // --------- invoke_impl -------------- -Function fn_3421; -Value *arityImpl_3422(List *closures, Value *arg0, Value *arg1) { +Function fn_3518; +Value *arityImpl_3519(List *closures, Value *arg0, Value *arg1) { Value *rslt3; -if((var_3377)->type != 3) { -rslt3 = protoFnImpl_5(empty_list, var_3377, arg1); +if((var_3474)->type != 3) { +rslt3 = protoFnImpl_5(empty_list, var_3474, arg1); } else { -FnArity *arity0 = findFnArity(var_3377, 1); +FnArity *arity0 = findFnArity(var_3474, 1); if(arity0 != (FnArity *)0 && !arity0->variadic) { FnType1 *fn2 = (FnType1 *)arity0->fn; rslt3 = fn2(arity0->closures, arg1); @@ -44196,7 +44969,7 @@ varArgs1->tail = (List *)0; varArgs1 = (List *)listCons(arg1, varArgs1); rslt3 = fn2(arity0->closures, (Value *)varArgs1); } else { -fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_3377)->name); +fprintf(stderr, "\n*** no arity found for '%s'.\n", ((Function *)var_3474)->name); abort(); } } @@ -44205,107 +44978,90 @@ return (rslt3); // --------- invoke_impl main body -------------- -Function fn_3421 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3422}}}; -Value *protoImpl_3423(List *closures, Value *arg0, Value *arg1) { +Function fn_3518 = {3, "invoke_impl", 1, {&(FnArity){2, (List *)0, 0, arityImpl_3519}}}; +Value *protoImpl_3520(List *closures, Value *arg0, Value *arg1) { FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[1])->arities[0]; return (((FnType2 *)arityPtr->fn)(arityPtr->closures, arg0, arg1)); }; -Function protoFn_3424 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3423}}}; - - -// --------- zero_impl -------------- -Function fn_3425; -Value *arityImpl_3426(List *closures, Value *arg0) { -return ((Value *)&reified_3375); -}; - +Function protoFn_3521 = {3, "invoke", 1, {&(FnArity){2, (List *)0, 0, protoImpl_3520}}}; -// --------- zero_impl main body -------------- -Function fn_3425 = {3, "zero_impl", 1, {&(FnArity){1, (List *)0, 0, arityImpl_3426}}}; -Value *protoImpl_3427(List *closures, Value *arg0) { -FnArity *arityPtr = ((Function *)((ReifiedVal *)arg0)->impls[2])->arities[0]; -return (((FnType1 *)arityPtr->fn)(arityPtr->closures, arg0)); -}; +ReifiedVal reified_3522 = {93, 2, {(Value *)&fn_3514, (Value *)&fn_3518}}; -Function protoFn_3428 = {3, "zero", 1, {&(FnArity){1, (List *)0, 0, protoImpl_3427}}}; - -ReifiedVal reified_3429 = {88, 3, {(Value *)&fn_3417, (Value *)&fn_3421, (Value *)&fn_3425}}; - -int main_3431 (Value *arg0) { +int main_3524 (Value *arg0) { Value *rslt0 = protoFnImpl_224((List *)var_31, arg0); -Value *rslt1 = arityImpl_3347((List *)var_31, rslt0); +Value *rslt1 = arityImpl_3340((List *)var_31, rslt0); return(0); } -ProtoImpls localImpls_3432 = {42, (Value *)0, {{8, (Value *)&protoFn_383}, {10, (Value *)&protoFn_620}, {5, (Value *)&fn_641}, {7, (Value *)&fn_643}, {14, (Value *)&protoFn_699}, {13, (Value *)&protoFn_735}, {16, (Value *)&protoFn_817}, {18, (Value *)&protoFn_868}, {20, (Value *)&protoFn_929}, {22, (Value *)&protoFn_980}, {25, (Value *)&protoFn_1064}, {27, (Value *)&protoFn_1099}, {29, (Value *)&protoFn_1122}, {31, (Value *)&protoFn_1143}, {33, (Value *)&protoFn_1179}, {35, (Value *)&protoFn_1199}, {37, (Value *)&protoFn_1222}, {39, (Value *)&protoFn_1298}, {41, (Value *)&protoFn_1331}, {43, (Value *)&protoFn_1362}, {45, (Value *)&protoFn_1465}, {47, (Value *)&protoFn_1993}, {49, (Value *)&protoFn_2064}, {51, (Value *)&protoFn_2088}, {53, (Value *)&protoFn_2112}, {55, (Value *)&protoFn_2136}, {57, (Value *)&protoFn_2273}, {59, (Value *)&protoFn_2316}, {61, (Value *)&protoFn_2361}, {63, (Value *)&protoFn_2473}, {65, (Value *)&protoFn_2508}, {67, (Value *)&protoFn_2544}, {69, (Value *)&protoFn_2594}, {71, (Value *)&protoFn_2616}, {73, (Value *)&protoFn_2685}, {75, (Value *)&protoFn_2731}, {77, (Value *)&protoFn_2779}, {79, (Value *)&protoFn_2851}, {81, (Value *)&protoFn_2905}, {83, (Value *)&protoFn_2971}, {86, (Value *)&protoFn_3415}, {88, (Value *)&protoFn_3424}}}; -ProtoImpls localImpls_3433 = {0, (Value *)0, {}}; -ProtoImpls localImpls_3434 = {0, (Value *)&defaultFn_63, {}}; -ProtoImpls localImpls_3435 = {39, (Value *)0, {{8, (Value *)&protoFn_357}, {10, (Value *)&protoFn_550}, {13, (Value *)&protoFn_693}, {16, (Value *)&protoFn_779}, {18, (Value *)&protoFn_828}, {20, (Value *)&protoFn_883}, {22, (Value *)&protoFn_940}, {25, (Value *)&protoFn_1048}, {27, (Value *)&protoFn_1085}, {29, (Value *)&protoFn_1108}, {31, (Value *)&protoFn_1131}, {33, (Value *)&protoFn_1168}, {35, (Value *)&protoFn_1188}, {37, (Value *)&protoFn_1211}, {39, (Value *)&protoFn_1285}, {41, (Value *)&protoFn_1318}, {43, (Value *)&protoFn_1349}, {45, (Value *)&protoFn_1443}, {47, (Value *)&protoFn_1981}, {49, (Value *)&protoFn_2048}, {51, (Value *)&protoFn_2074}, {53, (Value *)&protoFn_2098}, {55, (Value *)&protoFn_2122}, {57, (Value *)&protoFn_2233}, {59, (Value *)&protoFn_2278}, {61, (Value *)&protoFn_2321}, {63, (Value *)&protoFn_2449}, {65, (Value *)&protoFn_2488}, {67, (Value *)&protoFn_2518}, {69, (Value *)&protoFn_2554}, {71, (Value *)&protoFn_2604}, {73, (Value *)&protoFn_2669}, {75, (Value *)&protoFn_2709}, {77, (Value *)&protoFn_2759}, {79, (Value *)&protoFn_2827}, {81, (Value *)&protoFn_2865}, {83, (Value *)&protoFn_2955}, {86, (Value *)&protoFn_3381}, {88, (Value *)&protoFn_3420}}}; -ProtoImpls localImpls_3436 = {4, (Value *)&defaultFn_76, {{4, (Value *)&fn_447}, {14, (Value *)&protoFn_717}, {85, (Value *)&protoFn_3374}, {87, (Value *)&protoFn_3409}}}; -ProtoImpls localImpls_3437 = {4, (Value *)0, {{17, (Value *)&protoFn_803}, {19, (Value *)&protoFn_854}, {21, (Value *)&protoFn_911}, {23, (Value *)&protoFn_966}}}; -ProtoImpls localImpls_3438 = {0, (Value *)0, {}}; -ProtoImpls localImpls_3439 = {0, (Value *)0, {}}; -ProtoImpls localImpls_3440 = {9, (Value *)&defaultFn_98, {{4, (Value *)&fn_445}, {14, (Value *)&protoFn_705}, {15, (Value *)&protoFn_755}, {17, (Value *)&protoFn_795}, {19, (Value *)&protoFn_846}, {21, (Value *)&protoFn_903}, {23, (Value *)&protoFn_958}, {85, (Value *)&protoFn_3366}, {87, (Value *)&protoFn_3399}}}; -ProtoImpls localImpls_3441 = {10, (Value *)&defaultFn_104, {{3, (Value *)&fn_325}, {9, (Value *)&protoFn_377}, {14, (Value *)&protoFn_711}, {15, (Value *)&protoFn_759}, {17, (Value *)&protoFn_799}, {19, (Value *)&protoFn_850}, {21, (Value *)&protoFn_907}, {23, (Value *)&protoFn_962}, {85, (Value *)&protoFn_3370}, {87, (Value *)&protoFn_3405}}}; -ProtoImpls localImpls_3442 = {3, (Value *)&defaultFn_123, {{4, (Value *)&fn_441}, {85, (Value *)&protoFn_3362}, {87, (Value *)&protoFn_3395}}}; -ProtoImpls localImpls_3443 = {2, (Value *)&defaultFn_129, {{7, (Value *)&fn_335}, {5, (Value *)&fn_341}}}; -ProtoImpls localImpls_3444 = {17, (Value *)&defaultFn_135, {{3, (Value *)&fn_315}, {2, (Value *)&fn_331}, {7, (Value *)&fn_337}, {5, (Value *)&fn_343}, {4, (Value *)&fn_419}, {1, (Value *)&fn_483}, {6, (Value *)&fn_487}, {11, (Value *)&protoFn_574}, {12, (Value *)&protoFn_652}, {15, (Value *)&protoFn_747}, {17, (Value *)&protoFn_785}, {19, (Value *)&protoFn_834}, {21, (Value *)&protoFn_889}, {23, (Value *)&protoFn_946}, {50, (Value *)&protoFn_2054}, {85, (Value *)&protoFn_3354}, {87, (Value *)&protoFn_3387}}}; -ProtoImpls localImpls_3445 = {0, (Value *)&defaultFn_141, {}}; -ProtoImpls localImpls_3446 = {15, (Value *)&defaultFn_166, {{2, (Value *)&fn_327}, {7, (Value *)&fn_333}, {5, (Value *)&fn_339}, {4, (Value *)&fn_417}, {1, (Value *)&fn_467}, {6, (Value *)&fn_489}, {11, (Value *)&protoFn_568}, {12, (Value *)&protoFn_648}, {15, (Value *)&protoFn_751}, {19, (Value *)&protoFn_842}, {21, (Value *)&protoFn_899}, {23, (Value *)&protoFn_954}, {24, (Value *)&protoFn_997}, {85, (Value *)&protoFn_3358}, {87, (Value *)&protoFn_3391}}}; -ProtoImpls localImpls_3447 = {1, (Value *)&defaultFn_172, {{2, (Value *)&fn_329}}}; -ProtoImpls localImpls_3448 = {5, (Value *)0, {{9, (Value *)&protoFn_363}, {4, (Value *)&fn_421}, {1, (Value *)&fn_469}, {6, (Value *)&fn_491}, {11, (Value *)&protoFn_578}}}; -ProtoImpls localImpls_3449 = {3, (Value *)0, {{4, (Value *)&fn_423}, {1, (Value *)&fn_471}, {6, (Value *)&fn_493}}}; -ProtoImpls localImpls_3450 = {0, (Value *)0, {}}; -ProtoImpls localImpls_3451 = {4, (Value *)&defaultFn_193, {{4, (Value *)&fn_427}, {1, (Value *)&fn_473}, {6, (Value *)&fn_495}, {11, (Value *)&protoFn_582}}}; -ProtoImpls localImpls_3452 = {3, (Value *)0, {{4, (Value *)&fn_425}, {1, (Value *)&fn_475}, {6, (Value *)&fn_497}}}; -ProtoImpls localImpls_3453 = {1, (Value *)&defaultFn_207, {{4, (Value *)&fn_429}}}; -ProtoImpls localImpls_3454 = {4, (Value *)0, {{4, (Value *)&fn_431}, {1, (Value *)&fn_477}, {6, (Value *)&fn_499}, {11, (Value *)&protoFn_556}}}; -ProtoImpls localImpls_3455 = {5, (Value *)0, {{9, (Value *)&protoFn_367}, {4, (Value *)&fn_433}, {1, (Value *)&fn_479}, {6, (Value *)&fn_501}, {11, (Value *)&protoFn_560}}}; -ProtoImpls localImpls_3456 = {5, (Value *)0, {{9, (Value *)&protoFn_371}, {4, (Value *)&fn_435}, {1, (Value *)&fn_481}, {6, (Value *)&fn_503}, {11, (Value *)&protoFn_564}}}; -ProtoImpls localImpls_3457 = {1, (Value *)0, {{4, (Value *)&fn_415}}}; -ProtoImpls localImpls_3458 = {1, (Value *)0, {{4, (Value *)&fn_411}}}; -ProtoImpls localImpls_3459 = {10, (Value *)0, {{3, (Value *)&fn_317}, {4, (Value *)&fn_437}, {11, (Value *)&protoFn_586}, {14, (Value *)&protoFn_723}, {15, (Value *)&protoFn_763}, {17, (Value *)&protoFn_807}, {19, (Value *)&protoFn_858}, {21, (Value *)&protoFn_915}, {23, (Value *)&protoFn_970}, {88, (Value *)&protoFn_3428}}}; -ProtoImpls localImpls_3460 = {11, (Value *)0, {{3, (Value *)&fn_319}, {4, (Value *)&fn_439}, {1, (Value *)&fn_485}, {6, (Value *)&fn_505}, {11, (Value *)&protoFn_594}, {14, (Value *)&protoFn_729}, {15, (Value *)&protoFn_767}, {17, (Value *)&protoFn_811}, {19, (Value *)&protoFn_862}, {21, (Value *)&protoFn_919}, {23, (Value *)&protoFn_974}}}; -ProtoImpls localImpls_3461 = {1, (Value *)0, {{11, (Value *)&protoFn_598}}}; -ProtoImpls localImpls_3462 = {1, (Value *)&defaultFn_259, {{11, (Value *)&protoFn_602}}}; -ProtoImpls localImpls_3463 = {1, (Value *)0, {{11, (Value *)&protoFn_608}}}; -ProtoImpls localImpls_3464 = {1, (Value *)0, {{11, (Value *)&protoFn_614}}}; -ProtoImpls localImpls_3465 = {1, (Value *)0, {{9, (Value *)&protoFn_381}}}; -ProtoImpls localImpls_3466 = {1, (Value *)0, {{11, (Value *)&protoFn_618}}}; -ProtoImpls localImpls_3467 = {1, (Value *)0, {{14, (Value *)&protoFn_733}}}; -ProtoImpls localImpls_3468 = {4, (Value *)0, {{17, (Value *)&protoFn_791}, {19, (Value *)&protoFn_838}, {21, (Value *)&protoFn_895}, {23, (Value *)&protoFn_950}}}; -ProtoImpls localImpls_3469 = {1, (Value *)0, {{17, (Value *)&protoFn_815}}}; -ProtoImpls localImpls_3470 = {1, (Value *)0, {{19, (Value *)&protoFn_866}}}; -ProtoImpls localImpls_3471 = {1, (Value *)0, {{21, (Value *)&protoFn_923}}}; -ProtoImpls localImpls_3472 = {4, (Value *)0, {{21, (Value *)&protoFn_927}, {58, (Value *)&protoFn_2267}, {60, (Value *)&protoFn_2310}, {62, (Value *)&protoFn_2355}}}; -ProtoImpls localImpls_3473 = {3, (Value *)0, {{23, (Value *)&protoFn_978}, {32, (Value *)&protoFn_1141}, {87, (Value *)&protoFn_3413}}}; -ProtoImpls localImpls_3474 = {11, (Value *)&defaultFn_1033, {{26, (Value *)&protoFn_1058}, {28, (Value *)&protoFn_1093}, {30, (Value *)&protoFn_1116}, {32, (Value *)&protoFn_1137}, {34, (Value *)&protoFn_1176}, {36, (Value *)&protoFn_1196}, {38, (Value *)&protoFn_1219}, {40, (Value *)&protoFn_1295}, {42, (Value *)&protoFn_1328}, {44, (Value *)&protoFn_1359}, {46, (Value *)&protoFn_1455}}}; -ProtoImpls localImpls_3475 = {1, (Value *)0, {{26, (Value *)&protoFn_1062}}}; -ProtoImpls localImpls_3476 = {2, (Value *)0, {{28, (Value *)&protoFn_1097}, {30, (Value *)&protoFn_1120}}}; -ProtoImpls localImpls_3477 = {5, (Value *)0, {{46, (Value *)&protoFn_1459}, {70, (Value *)&protoFn_2588}, {74, (Value *)&protoFn_2679}, {82, (Value *)&protoFn_2895}, {84, (Value *)&protoFn_2965}}}; -ProtoImpls localImpls_3478 = {1, (Value *)0, {{46, (Value *)&protoFn_1463}}}; -ProtoImpls localImpls_3479 = {19, (Value *)&defaultFn_1969, {{48, (Value *)&protoFn_1987}, {50, (Value *)&protoFn_2058}, {52, (Value *)&protoFn_2082}, {54, (Value *)&protoFn_2106}, {56, (Value *)&protoFn_2130}, {58, (Value *)&protoFn_2263}, {60, (Value *)&protoFn_2306}, {62, (Value *)&protoFn_2351}, {64, (Value *)&protoFn_2463}, {66, (Value *)&protoFn_2498}, {68, (Value *)&protoFn_2534}, {70, (Value *)&protoFn_2584}, {72, (Value *)&protoFn_2610}, {74, (Value *)&protoFn_2675}, {76, (Value *)&protoFn_2721}, {78, (Value *)&protoFn_2769}, {80, (Value *)&protoFn_2845}, {82, (Value *)&protoFn_2891}, {84, (Value *)&protoFn_2961}}}; -ProtoImpls localImpls_3480 = {1, (Value *)0, {{48, (Value *)&protoFn_1991}}}; -ProtoImpls localImpls_3481 = {2, (Value *)0, {{50, (Value *)&protoFn_2062}, {72, (Value *)&protoFn_2614}}}; -ProtoImpls localImpls_3482 = {1, (Value *)0, {{52, (Value *)&protoFn_2086}}}; -ProtoImpls localImpls_3483 = {1, (Value *)0, {{54, (Value *)&protoFn_2110}}}; -ProtoImpls localImpls_3484 = {1, (Value *)0, {{56, (Value *)&protoFn_2134}}}; -ProtoImpls localImpls_3485 = {4, (Value *)0, {{58, (Value *)&protoFn_2271}, {60, (Value *)&protoFn_2314}, {62, (Value *)&protoFn_2359}, {68, (Value *)&protoFn_2542}}}; -ProtoImpls localImpls_3486 = {1, (Value *)0, {{64, (Value *)&protoFn_2467}}}; -ProtoImpls localImpls_3487 = {1, (Value *)0, {{64, (Value *)&protoFn_2471}}}; -ProtoImpls localImpls_3488 = {1, (Value *)0, {{66, (Value *)&protoFn_2502}}}; -ProtoImpls localImpls_3489 = {1, (Value *)0, {{66, (Value *)&protoFn_2506}}}; -ProtoImpls localImpls_3490 = {1, (Value *)0, {{68, (Value *)&protoFn_2538}}}; -ProtoImpls localImpls_3491 = {1, (Value *)0, {{70, (Value *)&protoFn_2592}}}; -ProtoImpls localImpls_3492 = {1, (Value *)0, {{74, (Value *)&protoFn_2683}}}; -ProtoImpls localImpls_3493 = {1, (Value *)0, {{76, (Value *)&protoFn_2725}}}; -ProtoImpls localImpls_3494 = {1, (Value *)0, {{76, (Value *)&protoFn_2729}}}; -ProtoImpls localImpls_3495 = {1, (Value *)0, {{78, (Value *)&protoFn_2773}}}; -ProtoImpls localImpls_3496 = {3, (Value *)0, {{78, (Value *)&protoFn_2777}, {80, (Value *)&protoFn_2849}, {82, (Value *)&protoFn_2903}}}; -ProtoImpls localImpls_3497 = {1, (Value *)0, {{82, (Value *)&protoFn_2899}}}; -ProtoImpls localImpls_3498 = {1, (Value *)0, {{84, (Value *)&protoFn_2969}}}; +ProtoImpls localImpls_3525 = {46, (Value *)0, {{8, (Value *)&protoFn_383}, {10, (Value *)&protoFn_620}, {5, (Value *)&fn_641}, {7, (Value *)&fn_643}, {13, (Value *)&protoFn_689}, {12, (Value *)&protoFn_725}, {15, (Value *)&protoFn_807}, {17, (Value *)&protoFn_858}, {19, (Value *)&protoFn_919}, {21, (Value *)&protoFn_970}, {24, (Value *)&protoFn_1054}, {26, (Value *)&protoFn_1089}, {28, (Value *)&protoFn_1112}, {30, (Value *)&protoFn_1133}, {32, (Value *)&protoFn_1169}, {34, (Value *)&protoFn_1189}, {36, (Value *)&protoFn_1212}, {38, (Value *)&protoFn_1288}, {40, (Value *)&protoFn_1321}, {42, (Value *)&protoFn_1352}, {44, (Value *)&protoFn_1455}, {46, (Value *)&protoFn_1986}, {48, (Value *)&protoFn_2057}, {50, (Value *)&protoFn_2081}, {52, (Value *)&protoFn_2105}, {54, (Value *)&protoFn_2129}, {56, (Value *)&protoFn_2266}, {58, (Value *)&protoFn_2309}, {60, (Value *)&protoFn_2354}, {62, (Value *)&protoFn_2466}, {64, (Value *)&protoFn_2501}, {66, (Value *)&protoFn_2537}, {68, (Value *)&protoFn_2587}, {70, (Value *)&protoFn_2609}, {72, (Value *)&protoFn_2678}, {74, (Value *)&protoFn_2724}, {76, (Value *)&protoFn_2772}, {78, (Value *)&protoFn_2844}, {80, (Value *)&protoFn_2898}, {82, (Value *)&protoFn_2964}, {85, (Value *)&protoFn_3408}, {87, (Value *)&protoFn_3417}, {88, (Value *)&protoFn_3462}, {90, (Value *)&protoFn_3471}, {91, (Value *)&protoFn_3512}, {93, (Value *)&protoFn_3521}}}; +ProtoImpls localImpls_3526 = {0, (Value *)0, {}}; +ProtoImpls localImpls_3527 = {0, (Value *)&defaultFn_63, {}}; +ProtoImpls localImpls_3528 = {43, (Value *)0, {{8, (Value *)&protoFn_357}, {10, (Value *)&protoFn_550}, {12, (Value *)&protoFn_683}, {15, (Value *)&protoFn_769}, {17, (Value *)&protoFn_818}, {19, (Value *)&protoFn_873}, {21, (Value *)&protoFn_930}, {24, (Value *)&protoFn_1038}, {26, (Value *)&protoFn_1075}, {28, (Value *)&protoFn_1098}, {30, (Value *)&protoFn_1121}, {32, (Value *)&protoFn_1158}, {34, (Value *)&protoFn_1178}, {36, (Value *)&protoFn_1201}, {38, (Value *)&protoFn_1275}, {40, (Value *)&protoFn_1308}, {42, (Value *)&protoFn_1339}, {44, (Value *)&protoFn_1433}, {46, (Value *)&protoFn_1974}, {48, (Value *)&protoFn_2041}, {50, (Value *)&protoFn_2067}, {52, (Value *)&protoFn_2091}, {54, (Value *)&protoFn_2115}, {56, (Value *)&protoFn_2226}, {58, (Value *)&protoFn_2271}, {60, (Value *)&protoFn_2314}, {62, (Value *)&protoFn_2442}, {64, (Value *)&protoFn_2481}, {66, (Value *)&protoFn_2511}, {68, (Value *)&protoFn_2547}, {70, (Value *)&protoFn_2597}, {72, (Value *)&protoFn_2662}, {74, (Value *)&protoFn_2702}, {76, (Value *)&protoFn_2752}, {78, (Value *)&protoFn_2820}, {80, (Value *)&protoFn_2858}, {82, (Value *)&protoFn_2948}, {85, (Value *)&protoFn_3374}, {87, (Value *)&protoFn_3413}, {88, (Value *)&protoFn_3428}, {90, (Value *)&protoFn_3467}, {91, (Value *)&protoFn_3478}, {93, (Value *)&protoFn_3517}}}; +ProtoImpls localImpls_3529 = {6, (Value *)&defaultFn_76, {{4, (Value *)&fn_447}, {13, (Value *)&protoFn_707}, {84, (Value *)&protoFn_3367}, {86, (Value *)&protoFn_3402}, {89, (Value *)&protoFn_3456}, {92, (Value *)&protoFn_3506}}}; +ProtoImpls localImpls_3530 = {4, (Value *)0, {{16, (Value *)&protoFn_793}, {18, (Value *)&protoFn_844}, {20, (Value *)&protoFn_901}, {22, (Value *)&protoFn_956}}}; +ProtoImpls localImpls_3531 = {0, (Value *)0, {}}; +ProtoImpls localImpls_3532 = {0, (Value *)0, {}}; +ProtoImpls localImpls_3533 = {11, (Value *)&defaultFn_98, {{4, (Value *)&fn_445}, {13, (Value *)&protoFn_695}, {14, (Value *)&protoFn_745}, {16, (Value *)&protoFn_785}, {18, (Value *)&protoFn_836}, {20, (Value *)&protoFn_893}, {22, (Value *)&protoFn_948}, {84, (Value *)&protoFn_3359}, {86, (Value *)&protoFn_3392}, {89, (Value *)&protoFn_3446}, {92, (Value *)&protoFn_3496}}}; +ProtoImpls localImpls_3534 = {12, (Value *)&defaultFn_104, {{3, (Value *)&fn_325}, {9, (Value *)&protoFn_377}, {13, (Value *)&protoFn_701}, {14, (Value *)&protoFn_749}, {16, (Value *)&protoFn_789}, {18, (Value *)&protoFn_840}, {20, (Value *)&protoFn_897}, {22, (Value *)&protoFn_952}, {84, (Value *)&protoFn_3363}, {86, (Value *)&protoFn_3398}, {89, (Value *)&protoFn_3452}, {92, (Value *)&protoFn_3502}}}; +ProtoImpls localImpls_3535 = {5, (Value *)&defaultFn_123, {{4, (Value *)&fn_441}, {84, (Value *)&protoFn_3355}, {86, (Value *)&protoFn_3388}, {89, (Value *)&protoFn_3442}, {92, (Value *)&protoFn_3492}}}; +ProtoImpls localImpls_3536 = {2, (Value *)&defaultFn_129, {{7, (Value *)&fn_335}, {5, (Value *)&fn_341}}}; +ProtoImpls localImpls_3537 = {18, (Value *)&defaultFn_135, {{3, (Value *)&fn_315}, {2, (Value *)&fn_331}, {7, (Value *)&fn_337}, {5, (Value *)&fn_343}, {4, (Value *)&fn_419}, {1, (Value *)&fn_483}, {6, (Value *)&fn_487}, {11, (Value *)&protoFn_574}, {14, (Value *)&protoFn_737}, {16, (Value *)&protoFn_775}, {18, (Value *)&protoFn_824}, {20, (Value *)&protoFn_879}, {22, (Value *)&protoFn_936}, {49, (Value *)&protoFn_2047}, {84, (Value *)&protoFn_3347}, {86, (Value *)&protoFn_3380}, {89, (Value *)&protoFn_3434}, {92, (Value *)&protoFn_3484}}}; +ProtoImpls localImpls_3538 = {0, (Value *)&defaultFn_141, {}}; +ProtoImpls localImpls_3539 = {16, (Value *)&defaultFn_166, {{2, (Value *)&fn_327}, {7, (Value *)&fn_333}, {5, (Value *)&fn_339}, {4, (Value *)&fn_417}, {1, (Value *)&fn_467}, {6, (Value *)&fn_489}, {11, (Value *)&protoFn_568}, {14, (Value *)&protoFn_741}, {18, (Value *)&protoFn_832}, {20, (Value *)&protoFn_889}, {22, (Value *)&protoFn_944}, {23, (Value *)&protoFn_987}, {84, (Value *)&protoFn_3351}, {86, (Value *)&protoFn_3384}, {89, (Value *)&protoFn_3438}, {92, (Value *)&protoFn_3488}}}; +ProtoImpls localImpls_3540 = {1, (Value *)&defaultFn_172, {{2, (Value *)&fn_329}}}; +ProtoImpls localImpls_3541 = {5, (Value *)0, {{9, (Value *)&protoFn_363}, {4, (Value *)&fn_421}, {1, (Value *)&fn_469}, {6, (Value *)&fn_491}, {11, (Value *)&protoFn_578}}}; +ProtoImpls localImpls_3542 = {3, (Value *)0, {{4, (Value *)&fn_423}, {1, (Value *)&fn_471}, {6, (Value *)&fn_493}}}; +ProtoImpls localImpls_3543 = {0, (Value *)0, {}}; +ProtoImpls localImpls_3544 = {4, (Value *)&defaultFn_193, {{4, (Value *)&fn_427}, {1, (Value *)&fn_473}, {6, (Value *)&fn_495}, {11, (Value *)&protoFn_582}}}; +ProtoImpls localImpls_3545 = {3, (Value *)0, {{4, (Value *)&fn_425}, {1, (Value *)&fn_475}, {6, (Value *)&fn_497}}}; +ProtoImpls localImpls_3546 = {1, (Value *)&defaultFn_207, {{4, (Value *)&fn_429}}}; +ProtoImpls localImpls_3547 = {4, (Value *)0, {{4, (Value *)&fn_431}, {1, (Value *)&fn_477}, {6, (Value *)&fn_499}, {11, (Value *)&protoFn_556}}}; +ProtoImpls localImpls_3548 = {5, (Value *)0, {{9, (Value *)&protoFn_367}, {4, (Value *)&fn_433}, {1, (Value *)&fn_479}, {6, (Value *)&fn_501}, {11, (Value *)&protoFn_560}}}; +ProtoImpls localImpls_3549 = {5, (Value *)0, {{9, (Value *)&protoFn_371}, {4, (Value *)&fn_435}, {1, (Value *)&fn_481}, {6, (Value *)&fn_503}, {11, (Value *)&protoFn_564}}}; +ProtoImpls localImpls_3550 = {1, (Value *)0, {{4, (Value *)&fn_415}}}; +ProtoImpls localImpls_3551 = {1, (Value *)0, {{4, (Value *)&fn_411}}}; +ProtoImpls localImpls_3552 = {10, (Value *)0, {{3, (Value *)&fn_317}, {4, (Value *)&fn_437}, {11, (Value *)&protoFn_586}, {13, (Value *)&protoFn_713}, {14, (Value *)&protoFn_753}, {16, (Value *)&protoFn_797}, {18, (Value *)&protoFn_848}, {20, (Value *)&protoFn_905}, {22, (Value *)&protoFn_960}, {87, (Value *)&protoFn_3421}}}; +ProtoImpls localImpls_3553 = {11, (Value *)0, {{3, (Value *)&fn_319}, {4, (Value *)&fn_439}, {1, (Value *)&fn_485}, {6, (Value *)&fn_505}, {11, (Value *)&protoFn_594}, {13, (Value *)&protoFn_719}, {14, (Value *)&protoFn_757}, {16, (Value *)&protoFn_801}, {18, (Value *)&protoFn_852}, {20, (Value *)&protoFn_909}, {22, (Value *)&protoFn_964}}}; +ProtoImpls localImpls_3554 = {1, (Value *)0, {{11, (Value *)&protoFn_598}}}; +ProtoImpls localImpls_3555 = {1, (Value *)&defaultFn_259, {{11, (Value *)&protoFn_602}}}; +ProtoImpls localImpls_3556 = {1, (Value *)0, {{11, (Value *)&protoFn_608}}}; +ProtoImpls localImpls_3557 = {1, (Value *)0, {{11, (Value *)&protoFn_614}}}; +ProtoImpls localImpls_3558 = {1, (Value *)0, {{9, (Value *)&protoFn_381}}}; +ProtoImpls localImpls_3559 = {1, (Value *)0, {{11, (Value *)&protoFn_618}}}; +ProtoImpls localImpls_3560 = {1, (Value *)0, {{13, (Value *)&protoFn_723}}}; +ProtoImpls localImpls_3561 = {4, (Value *)0, {{16, (Value *)&protoFn_781}, {18, (Value *)&protoFn_828}, {20, (Value *)&protoFn_885}, {22, (Value *)&protoFn_940}}}; +ProtoImpls localImpls_3562 = {1, (Value *)0, {{16, (Value *)&protoFn_805}}}; +ProtoImpls localImpls_3563 = {1, (Value *)0, {{18, (Value *)&protoFn_856}}}; +ProtoImpls localImpls_3564 = {1, (Value *)0, {{20, (Value *)&protoFn_913}}}; +ProtoImpls localImpls_3565 = {4, (Value *)0, {{20, (Value *)&protoFn_917}, {57, (Value *)&protoFn_2260}, {59, (Value *)&protoFn_2303}, {61, (Value *)&protoFn_2348}}}; +ProtoImpls localImpls_3566 = {5, (Value *)0, {{22, (Value *)&protoFn_968}, {31, (Value *)&protoFn_1131}, {86, (Value *)&protoFn_3406}, {89, (Value *)&protoFn_3460}, {92, (Value *)&protoFn_3510}}}; +ProtoImpls localImpls_3567 = {11, (Value *)&defaultFn_1023, {{25, (Value *)&protoFn_1048}, {27, (Value *)&protoFn_1083}, {29, (Value *)&protoFn_1106}, {31, (Value *)&protoFn_1127}, {33, (Value *)&protoFn_1166}, {35, (Value *)&protoFn_1186}, {37, (Value *)&protoFn_1209}, {39, (Value *)&protoFn_1285}, {41, (Value *)&protoFn_1318}, {43, (Value *)&protoFn_1349}, {45, (Value *)&protoFn_1445}}}; +ProtoImpls localImpls_3568 = {1, (Value *)0, {{25, (Value *)&protoFn_1052}}}; +ProtoImpls localImpls_3569 = {2, (Value *)0, {{27, (Value *)&protoFn_1087}, {29, (Value *)&protoFn_1110}}}; +ProtoImpls localImpls_3570 = {5, (Value *)0, {{45, (Value *)&protoFn_1449}, {69, (Value *)&protoFn_2581}, {73, (Value *)&protoFn_2672}, {81, (Value *)&protoFn_2888}, {83, (Value *)&protoFn_2958}}}; +ProtoImpls localImpls_3571 = {1, (Value *)0, {{45, (Value *)&protoFn_1453}}}; +ProtoImpls localImpls_3572 = {19, (Value *)&defaultFn_1962, {{47, (Value *)&protoFn_1980}, {49, (Value *)&protoFn_2051}, {51, (Value *)&protoFn_2075}, {53, (Value *)&protoFn_2099}, {55, (Value *)&protoFn_2123}, {57, (Value *)&protoFn_2256}, {59, (Value *)&protoFn_2299}, {61, (Value *)&protoFn_2344}, {63, (Value *)&protoFn_2456}, {65, (Value *)&protoFn_2491}, {67, (Value *)&protoFn_2527}, {69, (Value *)&protoFn_2577}, {71, (Value *)&protoFn_2603}, {73, (Value *)&protoFn_2668}, {75, (Value *)&protoFn_2714}, {77, (Value *)&protoFn_2762}, {79, (Value *)&protoFn_2838}, {81, (Value *)&protoFn_2884}, {83, (Value *)&protoFn_2954}}}; +ProtoImpls localImpls_3573 = {1, (Value *)0, {{47, (Value *)&protoFn_1984}}}; +ProtoImpls localImpls_3574 = {2, (Value *)0, {{49, (Value *)&protoFn_2055}, {71, (Value *)&protoFn_2607}}}; +ProtoImpls localImpls_3575 = {1, (Value *)0, {{51, (Value *)&protoFn_2079}}}; +ProtoImpls localImpls_3576 = {1, (Value *)0, {{53, (Value *)&protoFn_2103}}}; +ProtoImpls localImpls_3577 = {1, (Value *)0, {{55, (Value *)&protoFn_2127}}}; +ProtoImpls localImpls_3578 = {4, (Value *)0, {{57, (Value *)&protoFn_2264}, {59, (Value *)&protoFn_2307}, {61, (Value *)&protoFn_2352}, {67, (Value *)&protoFn_2535}}}; +ProtoImpls localImpls_3579 = {1, (Value *)0, {{63, (Value *)&protoFn_2460}}}; +ProtoImpls localImpls_3580 = {1, (Value *)0, {{63, (Value *)&protoFn_2464}}}; +ProtoImpls localImpls_3581 = {1, (Value *)0, {{65, (Value *)&protoFn_2495}}}; +ProtoImpls localImpls_3582 = {1, (Value *)0, {{65, (Value *)&protoFn_2499}}}; +ProtoImpls localImpls_3583 = {1, (Value *)0, {{67, (Value *)&protoFn_2531}}}; +ProtoImpls localImpls_3584 = {1, (Value *)0, {{69, (Value *)&protoFn_2585}}}; +ProtoImpls localImpls_3585 = {1, (Value *)0, {{73, (Value *)&protoFn_2676}}}; +ProtoImpls localImpls_3586 = {1, (Value *)0, {{75, (Value *)&protoFn_2718}}}; +ProtoImpls localImpls_3587 = {1, (Value *)0, {{75, (Value *)&protoFn_2722}}}; +ProtoImpls localImpls_3588 = {1, (Value *)0, {{77, (Value *)&protoFn_2766}}}; +ProtoImpls localImpls_3589 = {3, (Value *)0, {{77, (Value *)&protoFn_2770}, {79, (Value *)&protoFn_2842}, {81, (Value *)&protoFn_2896}}}; +ProtoImpls localImpls_3590 = {1, (Value *)0, {{81, (Value *)&protoFn_2892}}}; +ProtoImpls localImpls_3591 = {1, (Value *)0, {{83, (Value *)&protoFn_2962}}}; int toccataMain(int argc, char *argv[]) { GC_init(); @@ -44327,74 +45083,74 @@ int toccataMain(int argc, char *argv[]) { tail = newTail; argList->len++; } - protoImpls_0 = &localImpls_3432; - protoImpls_56 = &localImpls_3433; - protoImpls_61 = &localImpls_3434; - protoImpls_69 = &localImpls_3435; - protoImpls_74 = &localImpls_3436; - protoImpls_80 = &localImpls_3437; - protoImpls_85 = &localImpls_3438; - protoImpls_90 = &localImpls_3439; - protoImpls_96 = &localImpls_3440; - protoImpls_102 = &localImpls_3441; - protoImpls_121 = &localImpls_3442; - protoImpls_127 = &localImpls_3443; - protoImpls_133 = &localImpls_3444; - protoImpls_139 = &localImpls_3445; - protoImpls_164 = &localImpls_3446; - protoImpls_170 = &localImpls_3447; - protoImpls_176 = &localImpls_3448; - protoImpls_181 = &localImpls_3449; - protoImpls_186 = &localImpls_3450; - protoImpls_191 = &localImpls_3451; - protoImpls_197 = &localImpls_3452; - protoImpls_205 = &localImpls_3453; - protoImpls_211 = &localImpls_3454; - protoImpls_216 = &localImpls_3455; - protoImpls_221 = &localImpls_3456; - protoImpls_229 = &localImpls_3457; - protoImpls_234 = &localImpls_3458; - protoImpls_239 = &localImpls_3459; - protoImpls_244 = &localImpls_3460; - protoImpls_252 = &localImpls_3461; - protoImpls_257 = &localImpls_3462; - protoImpls_263 = &localImpls_3463; - protoImpls_268 = &localImpls_3464; - protoImpls_348 = &localImpls_3465; - protoImpls_541 = &localImpls_3466; - protoImpls_684 = &localImpls_3467; - protoImpls_737 = &localImpls_3468; - protoImpls_770 = &localImpls_3469; - protoImpls_819 = &localImpls_3470; - protoImpls_870 = &localImpls_3471; - protoImpls_875 = &localImpls_3472; - protoImpls_931 = &localImpls_3473; - protoImpls_1031 = &localImpls_3474; - protoImpls_1039 = &localImpls_3475; - protoImpls_1076 = &localImpls_3476; - protoImpls_1429 = &localImpls_3477; - protoImpls_1434 = &localImpls_3478; - protoImpls_1967 = &localImpls_3479; - protoImpls_1973 = &localImpls_3480; - protoImpls_2040 = &localImpls_3481; - protoImpls_2066 = &localImpls_3482; - protoImpls_2090 = &localImpls_3483; - protoImpls_2114 = &localImpls_3484; - protoImpls_2225 = &localImpls_3485; - protoImpls_2436 = &localImpls_3486; - protoImpls_2441 = &localImpls_3487; - protoImpls_2475 = &localImpls_3488; - protoImpls_2480 = &localImpls_3489; - protoImpls_2510 = &localImpls_3490; - protoImpls_2546 = &localImpls_3491; - protoImpls_2661 = &localImpls_3492; - protoImpls_2696 = &localImpls_3493; - protoImpls_2701 = &localImpls_3494; - protoImpls_2746 = &localImpls_3495; - protoImpls_2751 = &localImpls_3496; - protoImpls_2856 = &localImpls_3497; - protoImpls_2947 = &localImpls_3498; - return(main_3431((Value *)argList)); + protoImpls_0 = &localImpls_3525; + protoImpls_56 = &localImpls_3526; + protoImpls_61 = &localImpls_3527; + protoImpls_69 = &localImpls_3528; + protoImpls_74 = &localImpls_3529; + protoImpls_80 = &localImpls_3530; + protoImpls_85 = &localImpls_3531; + protoImpls_90 = &localImpls_3532; + protoImpls_96 = &localImpls_3533; + protoImpls_102 = &localImpls_3534; + protoImpls_121 = &localImpls_3535; + protoImpls_127 = &localImpls_3536; + protoImpls_133 = &localImpls_3537; + protoImpls_139 = &localImpls_3538; + protoImpls_164 = &localImpls_3539; + protoImpls_170 = &localImpls_3540; + protoImpls_176 = &localImpls_3541; + protoImpls_181 = &localImpls_3542; + protoImpls_186 = &localImpls_3543; + protoImpls_191 = &localImpls_3544; + protoImpls_197 = &localImpls_3545; + protoImpls_205 = &localImpls_3546; + protoImpls_211 = &localImpls_3547; + protoImpls_216 = &localImpls_3548; + protoImpls_221 = &localImpls_3549; + protoImpls_229 = &localImpls_3550; + protoImpls_234 = &localImpls_3551; + protoImpls_239 = &localImpls_3552; + protoImpls_244 = &localImpls_3553; + protoImpls_252 = &localImpls_3554; + protoImpls_257 = &localImpls_3555; + protoImpls_263 = &localImpls_3556; + protoImpls_268 = &localImpls_3557; + protoImpls_348 = &localImpls_3558; + protoImpls_541 = &localImpls_3559; + protoImpls_674 = &localImpls_3560; + protoImpls_727 = &localImpls_3561; + protoImpls_760 = &localImpls_3562; + protoImpls_809 = &localImpls_3563; + protoImpls_860 = &localImpls_3564; + protoImpls_865 = &localImpls_3565; + protoImpls_921 = &localImpls_3566; + protoImpls_1021 = &localImpls_3567; + protoImpls_1029 = &localImpls_3568; + protoImpls_1066 = &localImpls_3569; + protoImpls_1419 = &localImpls_3570; + protoImpls_1424 = &localImpls_3571; + protoImpls_1960 = &localImpls_3572; + protoImpls_1966 = &localImpls_3573; + protoImpls_2033 = &localImpls_3574; + protoImpls_2059 = &localImpls_3575; + protoImpls_2083 = &localImpls_3576; + protoImpls_2107 = &localImpls_3577; + protoImpls_2218 = &localImpls_3578; + protoImpls_2429 = &localImpls_3579; + protoImpls_2434 = &localImpls_3580; + protoImpls_2468 = &localImpls_3581; + protoImpls_2473 = &localImpls_3582; + protoImpls_2503 = &localImpls_3583; + protoImpls_2539 = &localImpls_3584; + protoImpls_2654 = &localImpls_3585; + protoImpls_2689 = &localImpls_3586; + protoImpls_2694 = &localImpls_3587; + protoImpls_2739 = &localImpls_3588; + protoImpls_2744 = &localImpls_3589; + protoImpls_2849 = &localImpls_3590; + protoImpls_2940 = &localImpls_3591; + return(main_3524((Value *)argList)); }; Value *symbol_literals() { List *syms = empty_list; @@ -44559,40 +45315,40 @@ numInfo = listCons(stringValue("_num_10"), empty_list); numInfo = listCons(numberValue(11), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_11"), empty_list); -numInfo = listCons(numberValue(14), numInfo); +numInfo = listCons(numberValue(13), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_12"), empty_list); -numInfo = listCons(numberValue(17), numInfo); +numInfo = listCons(numberValue(16), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_13"), empty_list); -numInfo = listCons(numberValue(19), numInfo); +numInfo = listCons(numberValue(18), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_14"), empty_list); -numInfo = listCons(numberValue(21), numInfo); +numInfo = listCons(numberValue(20), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_15"), empty_list); -numInfo = listCons(numberValue(23), numInfo); +numInfo = listCons(numberValue(22), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_16"), empty_list); -numInfo = listCons(numberValue(26), numInfo); +numInfo = listCons(numberValue(25), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_17"), empty_list); -numInfo = listCons(numberValue(28), numInfo); +numInfo = listCons(numberValue(27), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_18"), empty_list); -numInfo = listCons(numberValue(30), numInfo); +numInfo = listCons(numberValue(29), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_19"), empty_list); -numInfo = listCons(numberValue(32), numInfo); +numInfo = listCons(numberValue(31), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_20"), empty_list); -numInfo = listCons(numberValue(34), numInfo); +numInfo = listCons(numberValue(33), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_21"), empty_list); -numInfo = listCons(numberValue(36), numInfo); +numInfo = listCons(numberValue(35), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_22"), empty_list); -numInfo = listCons(numberValue(38), numInfo); +numInfo = listCons(numberValue(37), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_23"), empty_list); numInfo = listCons(numberValue(92), numInfo); @@ -44604,88 +45360,91 @@ numInfo = listCons(stringValue("_num_25"), empty_list); numInfo = listCons(numberValue(8), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_26"), empty_list); -numInfo = listCons(numberValue(13), numInfo); +numInfo = listCons(numberValue(12), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_27"), empty_list); -numInfo = listCons(numberValue(12), numInfo); +numInfo = listCons(numberValue(34), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_28"), empty_list); -numInfo = listCons(numberValue(40), numInfo); +numInfo = listCons(numberValue(39), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_29"), empty_list); numInfo = listCons(numberValue(-1), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_30"), empty_list); -numInfo = listCons(numberValue(42), numInfo); +numInfo = listCons(numberValue(41), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_31"), empty_list); -numInfo = listCons(numberValue(44), numInfo); +numInfo = listCons(numberValue(43), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_32"), empty_list); -numInfo = listCons(numberValue(46), numInfo); +numInfo = listCons(numberValue(45), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_33"), empty_list); -numInfo = listCons(numberValue(48), numInfo); +numInfo = listCons(numberValue(47), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_34"), empty_list); -numInfo = listCons(numberValue(50), numInfo); +numInfo = listCons(numberValue(49), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_35"), empty_list); -numInfo = listCons(numberValue(52), numInfo); +numInfo = listCons(numberValue(51), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_36"), empty_list); -numInfo = listCons(numberValue(54), numInfo); +numInfo = listCons(numberValue(53), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_37"), empty_list); -numInfo = listCons(numberValue(56), numInfo); +numInfo = listCons(numberValue(55), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_38"), empty_list); -numInfo = listCons(numberValue(58), numInfo); +numInfo = listCons(numberValue(57), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_39"), empty_list); -numInfo = listCons(numberValue(60), numInfo); +numInfo = listCons(numberValue(59), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_40"), empty_list); -numInfo = listCons(numberValue(62), numInfo); +numInfo = listCons(numberValue(61), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_41"), empty_list); -numInfo = listCons(numberValue(64), numInfo); +numInfo = listCons(numberValue(63), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_42"), empty_list); -numInfo = listCons(numberValue(66), numInfo); +numInfo = listCons(numberValue(65), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_43"), empty_list); -numInfo = listCons(numberValue(68), numInfo); +numInfo = listCons(numberValue(67), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_44"), empty_list); -numInfo = listCons(numberValue(70), numInfo); +numInfo = listCons(numberValue(69), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_45"), empty_list); -numInfo = listCons(numberValue(72), numInfo); +numInfo = listCons(numberValue(71), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_46"), empty_list); -numInfo = listCons(numberValue(74), numInfo); +numInfo = listCons(numberValue(73), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_47"), empty_list); -numInfo = listCons(numberValue(76), numInfo); +numInfo = listCons(numberValue(75), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_48"), empty_list); -numInfo = listCons(numberValue(78), numInfo); +numInfo = listCons(numberValue(77), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_49"), empty_list); -numInfo = listCons(numberValue(80), numInfo); +numInfo = listCons(numberValue(79), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_50"), empty_list); -numInfo = listCons(numberValue(82), numInfo); +numInfo = listCons(numberValue(81), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_51"), empty_list); -numInfo = listCons(numberValue(84), numInfo); +numInfo = listCons(numberValue(83), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_52"), empty_list); numInfo = listCons(numberValue(99), numInfo); nums = listCons((Value *)numInfo, nums); numInfo = listCons(stringValue("_num_53"), empty_list); -numInfo = listCons(numberValue(87), numInfo); +numInfo = listCons(numberValue(86), numInfo); +nums = listCons((Value *)numInfo, nums); +numInfo = listCons(stringValue("_num_54"), empty_list); +numInfo = listCons(numberValue(89), numInfo); nums = listCons((Value *)numInfo, nums); return((Value *)nums); } @@ -44766,1436 +45525,1439 @@ strInfo = listCons(stringValue("_str_23"), empty_list); strInfo = listCons(stringValue("}"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_24"), empty_list); -strInfo = listCons(stringValue(""), strInfo); +strInfo = listCons(stringValue(":"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_25"), empty_list); -strInfo = listCons(stringValue(":"), strInfo); +strInfo = listCons(stringValue(""), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_26"), empty_list); -strInfo = listCons(stringValue(""), strInfo); +strInfo = listCons(stringValue("=+-*/"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_37"), empty_list); -strInfo = listCons(stringValue("._<>=+-*/"), strInfo); +strInfo = listCons(stringValue("._<>=*/+!-?"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_38"), empty_list); -strInfo = listCons(stringValue("._<>=*/+!-?"), strInfo); +strInfo = listCons(stringValue("n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_39"), empty_list); -strInfo = listCons(stringValue("n"), strInfo); +strInfo = listCons(stringValue("t"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_40"), empty_list); -strInfo = listCons(stringValue("t"), strInfo); +strInfo = listCons(stringValue("b"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_41"), empty_list); -strInfo = listCons(stringValue("b"), strInfo); +strInfo = listCons(stringValue("r"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_42"), empty_list); -strInfo = listCons(stringValue("r"), strInfo); +strInfo = listCons(stringValue("f"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_43"), empty_list); -strInfo = listCons(stringValue("f"), strInfo); +strInfo = listCons(stringValue("1"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_44"), empty_list); -strInfo = listCons(stringValue("1"), strInfo); +strInfo = listCons(stringValue("2"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_45"), empty_list); -strInfo = listCons(stringValue("2"), strInfo); +strInfo = listCons(stringValue("3"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_46"), empty_list); -strInfo = listCons(stringValue("3"), strInfo); +strInfo = listCons(stringValue("4"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_47"), empty_list); -strInfo = listCons(stringValue("4"), strInfo); +strInfo = listCons(stringValue("5"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_48"), empty_list); -strInfo = listCons(stringValue("5"), strInfo); +strInfo = listCons(stringValue("6"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_49"), empty_list); -strInfo = listCons(stringValue("6"), strInfo); +strInfo = listCons(stringValue("7"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_50"), empty_list); -strInfo = listCons(stringValue("7"), strInfo); +strInfo = listCons(stringValue("8"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_51"), empty_list); -strInfo = listCons(stringValue("8"), strInfo); +strInfo = listCons(stringValue("-"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_52"), empty_list); -strInfo = listCons(stringValue("-"), strInfo); +strInfo = listCons(stringValue("form"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_53"), empty_list); -strInfo = listCons(stringValue("form"), strInfo); +strInfo = listCons(stringValue("["), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_54"), empty_list); -strInfo = listCons(stringValue("["), strInfo); +strInfo = listCons(stringValue("]"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_55"), empty_list); -strInfo = listCons(stringValue("]"), strInfo); +strInfo = listCons(stringValue(";"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_56"), empty_list); -strInfo = listCons(stringValue(";"), strInfo); +strInfo = listCons(stringValue(" ,"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_57"), empty_list); -strInfo = listCons(stringValue(" ,"), strInfo); +strInfo = listCons(stringValue("&"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_58"), empty_list); -strInfo = listCons(stringValue("&"), strInfo); +strInfo = listCons(stringValue("main"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_59"), empty_list); -strInfo = listCons(stringValue("main"), strInfo); +strInfo = listCons(stringValue("defn"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_60"), empty_list); -strInfo = listCons(stringValue("defn"), strInfo); +strInfo = listCons(stringValue("fn"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_61"), empty_list); -strInfo = listCons(stringValue("fn"), strInfo); +strInfo = listCons(stringValue("let"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_62"), empty_list); -strInfo = listCons(stringValue("let"), strInfo); +strInfo = listCons(stringValue(":let"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_63"), empty_list); -strInfo = listCons(stringValue(":let"), strInfo); +strInfo = listCons(stringValue(":when"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_64"), empty_list); -strInfo = listCons(stringValue(":when"), strInfo); +strInfo = listCons(stringValue("for"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_65"), empty_list); -strInfo = listCons(stringValue("for"), strInfo); +strInfo = listCons(stringValue("'"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_66"), empty_list); -strInfo = listCons(stringValue("'"), strInfo); +strInfo = listCons(stringValue("SymKey "), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_67"), empty_list); -strInfo = listCons(stringValue("SymKey "), strInfo); +strInfo = listCons(stringValue("_kw_"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_68"), empty_list); -strInfo = listCons(stringValue("_kw_"), strInfo); +strInfo = listCons(stringValue("Number "), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_69"), empty_list); -strInfo = listCons(stringValue("Number "), strInfo); +strInfo = listCons(stringValue("_num_"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_70"), empty_list); -strInfo = listCons(stringValue("_num_"), strInfo); +strInfo = listCons(stringValue("String "), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_71"), empty_list); -strInfo = listCons(stringValue("String "), strInfo); +strInfo = listCons(stringValue("_str_"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_72"), empty_list); -strInfo = listCons(stringValue("_str_"), strInfo); +strInfo = listCons(stringValue("no-name"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_73"), empty_list); -strInfo = listCons(stringValue("no-name"), strInfo); +strInfo = listCons(stringValue("_sym_"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_74"), empty_list); -strInfo = listCons(stringValue("_sym_"), strInfo); +strInfo = listCons(stringValue("cond must have a default clause"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_75"), empty_list); -strInfo = listCons(stringValue("cond must have a default clause"), strInfo); +strInfo = listCons(stringValue("_impl"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_76"), empty_list); -strInfo = listCons(stringValue("_impl"), strInfo); +strInfo = listCons(stringValue("could not analyze"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_77"), empty_list); -strInfo = listCons(stringValue("could not analyze"), strInfo); +strInfo = listCons(stringValue("void"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_78"), empty_list); -strInfo = listCons(stringValue("void"), strInfo); +strInfo = listCons(stringValue("char"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_79"), empty_list); -strInfo = listCons(stringValue("char"), strInfo); +strInfo = listCons(stringValue("char *"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_80"), empty_list); -strInfo = listCons(stringValue("char *"), strInfo); +strInfo = listCons(stringValue("int"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_81"), empty_list); -strInfo = listCons(stringValue("int"), strInfo); +strInfo = listCons(stringValue("int64_t"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_82"), empty_list); -strInfo = listCons(stringValue("int64_t"), strInfo); +strInfo = listCons(stringValue("typedef struct {int64_t type;} Value;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_83"), empty_list); -strInfo = listCons(stringValue("typedef struct {int64_t type;} Value;\n"), strInfo); +strInfo = listCons(stringValue("Value *"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_84"), empty_list); -strInfo = listCons(stringValue("Value *"), strInfo); +strInfo = listCons(stringValue("typedef struct {int64_t type; int32_t refs; int64_t numVal;} Number;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_85"), empty_list); -strInfo = listCons(stringValue("typedef struct {int64_t type; int32_t refs; int64_t numVal;} Number;\n"), strInfo); +strInfo = listCons(stringValue("Number *"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_86"), empty_list); -strInfo = listCons(stringValue("Number *"), strInfo); +strInfo = listCons(stringValue("typedef struct {int64_t type; int32_t refs; char *name;} SymKey;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_87"), empty_list); -strInfo = listCons(stringValue("typedef struct {int64_t type; int32_t refs; char *name;} SymKey;\n"), strInfo); +strInfo = listCons(stringValue("typedef struct {int64_t type; int64_t len; char buffer[0];} String;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_88"), empty_list); -strInfo = listCons(stringValue("typedef struct {int64_t type; int64_t len; char buffer[0];} String;\n"), strInfo); +strInfo = listCons(stringValue("String *"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_89"), empty_list); -strInfo = listCons(stringValue("String *"), strInfo); +strInfo = listCons(stringValue("typedef struct {int64_t type; int64_t len; Value *source; char *buffer;} SubString;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_90"), empty_list); -strInfo = listCons(stringValue("typedef struct {int64_t type; int64_t len; Value *source; char *buffer;} SubString;\n"), strInfo); +strInfo = listCons(stringValue("SubString *"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_91"), empty_list); -strInfo = listCons(stringValue("SubString *"), strInfo); +strInfo = listCons(stringValue("typedef struct List {int64_t type; int64_t len; Value* head; struct List *tail;} List;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_92"), empty_list); -strInfo = listCons(stringValue("typedef struct List {int64_t type; int64_t len; Value* head; struct List *tail;} List;\n"), strInfo); +strInfo = listCons(stringValue("List *"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_93"), empty_list); -strInfo = listCons(stringValue("List *"), strInfo); +strInfo = listCons(stringValue("typedef struct {int count; List *closures; int variadic; void *fn;} FnArity;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_94"), empty_list); -strInfo = listCons(stringValue("typedef struct {int count; List *closures; int variadic; void *fn;} FnArity;\n"), strInfo); +strInfo = listCons(stringValue("FnArity *"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_95"), empty_list); -strInfo = listCons(stringValue("FnArity *"), strInfo); +strInfo = listCons(stringValue("typedef struct {int64_t type; char *name; int64_t arityCount; FnArity *arities[];} Function;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_96"), empty_list); -strInfo = listCons(stringValue("typedef struct {int64_t type; char *name; int64_t arityCount; FnArity *arities[];} Function;\n"), strInfo); +strInfo = listCons(stringValue("typedef struct {int64_t type; Value *implFn;} ProtoImpl;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_97"), empty_list); -strInfo = listCons(stringValue("typedef struct {int64_t type; Value *implFn;} ProtoImpl;\n"), strInfo); +strInfo = listCons(stringValue("typedef struct {int64_t implCount; Value *defaultImpl; ProtoImpl impls[];} ProtoImpls;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_98"), empty_list); -strInfo = listCons(stringValue("typedef struct {int64_t implCount; Value *defaultImpl; ProtoImpl impls[];} ProtoImpls;\n"), strInfo); +strInfo = listCons(stringValue("typedef struct {int64_t type; int implCount; Value* impls[];} ReifiedVal;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_99"), empty_list); -strInfo = listCons(stringValue("typedef struct {int64_t type; int implCount; Value* impls[];} ReifiedVal;\n"), strInfo); +strInfo = listCons(stringValue("ReifiedVal *"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_100"), empty_list); -strInfo = listCons(stringValue("ReifiedVal *"), strInfo); +strInfo = listCons(stringValue("val"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_101"), empty_list); -strInfo = listCons(stringValue("val"), strInfo); +strInfo = listCons(stringValue("Undefined symbol:"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_102"), empty_list); -strInfo = listCons(stringValue("Undefined symbol:"), strInfo); +strInfo = listCons(stringValue("at"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_103"), empty_list); -strInfo = listCons(stringValue("at"), strInfo); +strInfo = listCons(stringValue("(Value *)&"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_104"), empty_list); -strInfo = listCons(stringValue("(Value *)&"), strInfo); +strInfo = listCons(stringValue(" = closures->head;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_105"), empty_list); -strInfo = listCons(stringValue(" = closures->head;\n"), strInfo); +strInfo = listCons(stringValue("if (closures->tail)\nclosures->tail->len = closures->len - 1;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_106"), empty_list); -strInfo = listCons(stringValue("if (closures->tail)\nclosures->tail->len = closures->len - 1;\n"), strInfo); -strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_107"), empty_list); strInfo = listCons(stringValue("closures = closures->tail;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_108"), empty_list); +strInfo = listCons(stringValue("_str_107"), empty_list); strInfo = listCons(stringValue("return ("), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_109"), empty_list); +strInfo = listCons(stringValue("_str_108"), empty_list); strInfo = listCons(stringValue(");\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_110"), empty_list); +strInfo = listCons(stringValue("_str_109"), empty_list); strInfo = listCons(stringValue("&(FnArity){"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_111"), empty_list); +strInfo = listCons(stringValue("_str_110"), empty_list); strInfo = listCons(stringValue(", (List *)0, "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_112"), empty_list); +strInfo = listCons(stringValue("_str_111"), empty_list); strInfo = listCons(stringValue("->closures = listCons((Value *)"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_113"), empty_list); +strInfo = listCons(stringValue("_str_112"), empty_list); strInfo = listCons(stringValue(", (List *)"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_114"), empty_list); +strInfo = listCons(stringValue("_str_113"), empty_list); strInfo = listCons(stringValue("->closures);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_115"), empty_list); +strInfo = listCons(stringValue("_str_114"), empty_list); strInfo = listCons(stringValue(" = (FnArity *)GC_malloc(sizeof(FnArity));\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_116"), empty_list); +strInfo = listCons(stringValue("_str_115"), empty_list); strInfo = listCons(stringValue("->count = "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_117"), empty_list); +strInfo = listCons(stringValue("_str_116"), empty_list); strInfo = listCons(stringValue(";\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_118"), empty_list); +strInfo = listCons(stringValue("_str_117"), empty_list); strInfo = listCons(stringValue("->closures = empty_list;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_119"), empty_list); +strInfo = listCons(stringValue("_str_118"), empty_list); strInfo = listCons(stringValue("->variadic = "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_120"), empty_list); +strInfo = listCons(stringValue("_str_119"), empty_list); strInfo = listCons(stringValue("->fn = "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_121"), empty_list); +strInfo = listCons(stringValue("_str_120"), empty_list); strInfo = listCons(stringValue("extern "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_122"), empty_list); +strInfo = listCons(stringValue("_str_121"), empty_list); strInfo = listCons(stringValue("arg"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_123"), empty_list); +strInfo = listCons(stringValue("_str_122"), empty_list); strInfo = listCons(stringValue("closures"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_124"), empty_list); +strInfo = listCons(stringValue("_str_123"), empty_list); strInfo = listCons(stringValue("varArgs"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_125"), empty_list); +strInfo = listCons(stringValue("_str_124"), empty_list); strInfo = listCons(stringValue("arityImpl_"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_126"), empty_list); +strInfo = listCons(stringValue("_str_125"), empty_list); strInfo = listCons(stringValue("arity_"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_127"), empty_list); +strInfo = listCons(stringValue("_str_126"), empty_list); strInfo = listCons(stringValue("(List *closures, Value *varArgs) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_128"), empty_list); +strInfo = listCons(stringValue("_str_127"), empty_list); strInfo = listCons(stringValue("List *argsList = (List *)varArgs;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_129"), empty_list); +strInfo = listCons(stringValue("_str_128"), empty_list); strInfo = listCons(stringValue(" = argsList->head;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_130"), empty_list); +strInfo = listCons(stringValue("_str_129"), empty_list); strInfo = listCons(stringValue("if (argsList->tail) argsList->tail->len = argsList->len - 1;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_131"), empty_list); +strInfo = listCons(stringValue("_str_130"), empty_list); strInfo = listCons(stringValue("argsList = argsList->tail;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_132"), empty_list); +strInfo = listCons(stringValue("_str_131"), empty_list); strInfo = listCons(stringValue(" = (Value *)argsList;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_133"), empty_list); +strInfo = listCons(stringValue("_str_132"), empty_list); strInfo = listCons(stringValue("};\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_134"), empty_list); +strInfo = listCons(stringValue("_str_133"), empty_list); strInfo = listCons(stringValue("List *closures"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_135"), empty_list); +strInfo = listCons(stringValue("_str_134"), empty_list); strInfo = listCons(stringValue(") {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_136"), empty_list); +strInfo = listCons(stringValue("_str_135"), empty_list); strInfo = listCons(stringValue("};\n\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_137"), empty_list); +strInfo = listCons(stringValue("_str_136"), empty_list); strInfo = listCons(stringValue("main_"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_138"), empty_list); +strInfo = listCons(stringValue("_str_137"), empty_list); strInfo = listCons(stringValue("\nint "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_139"), empty_list); +strInfo = listCons(stringValue("_str_138"), empty_list); strInfo = listCons(stringValue(" ("), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_140"), empty_list); +strInfo = listCons(stringValue("_str_139"), empty_list); strInfo = listCons(stringValue("\nreturn(0);\n}\n\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_141"), empty_list); +strInfo = listCons(stringValue("_str_140"), empty_list); strInfo = listCons(stringValue("arity"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_142"), empty_list); +strInfo = listCons(stringValue("_str_141"), empty_list); strInfo = listCons(stringValue("rslt"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_143"), empty_list); +strInfo = listCons(stringValue("_str_142"), empty_list); strInfo = listCons(stringValue("->closures"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_144"), empty_list); +strInfo = listCons(stringValue("_str_143"), empty_list); strInfo = listCons(stringValue("if(("), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_145"), empty_list); +strInfo = listCons(stringValue("_str_144"), empty_list); strInfo = listCons(stringValue(")->type != "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_146"), empty_list); +strInfo = listCons(stringValue("_str_145"), empty_list); strInfo = listCons(stringValue(" = "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_147"), empty_list); +strInfo = listCons(stringValue("_str_146"), empty_list); strInfo = listCons(stringValue("(empty_list, "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_148"), empty_list); +strInfo = listCons(stringValue("_str_147"), empty_list); strInfo = listCons(stringValue(");\n} else {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_149"), empty_list); +strInfo = listCons(stringValue("_str_148"), empty_list); strInfo = listCons(stringValue(" = findFnArity("), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_150"), empty_list); +strInfo = listCons(stringValue("_str_149"), empty_list); strInfo = listCons(stringValue("if("), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_151"), empty_list); +strInfo = listCons(stringValue("_str_150"), empty_list); strInfo = listCons(stringValue(" != (FnArity *)0 && !"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_152"), empty_list); +strInfo = listCons(stringValue("_str_151"), empty_list); strInfo = listCons(stringValue("->variadic) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_153"), empty_list); +strInfo = listCons(stringValue("_str_152"), empty_list); strInfo = listCons(stringValue("FnType"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_154"), empty_list); +strInfo = listCons(stringValue("_str_153"), empty_list); strInfo = listCons(stringValue(" *"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_155"), empty_list); +strInfo = listCons(stringValue("_str_154"), empty_list); strInfo = listCons(stringValue(" = (FnType"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_156"), empty_list); +strInfo = listCons(stringValue("_str_155"), empty_list); strInfo = listCons(stringValue(" *)"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_157"), empty_list); +strInfo = listCons(stringValue("_str_156"), empty_list); strInfo = listCons(stringValue("->fn;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_158"), empty_list); +strInfo = listCons(stringValue("_str_157"), empty_list); strInfo = listCons(stringValue("} else if("), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_159"), empty_list); +strInfo = listCons(stringValue("_str_158"), empty_list); strInfo = listCons(stringValue(" != (FnArity *)0 && "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_160"), empty_list); +strInfo = listCons(stringValue("_str_159"), empty_list); strInfo = listCons(stringValue("FnType1 *"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_161"), empty_list); +strInfo = listCons(stringValue("_str_160"), empty_list); strInfo = listCons(stringValue(" = (FnType1 *)"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_162"), empty_list); +strInfo = listCons(stringValue("_str_161"), empty_list); strInfo = listCons(stringValue(" = (List *)GC_malloc(sizeof(List));\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_163"), empty_list); +strInfo = listCons(stringValue("_str_162"), empty_list); strInfo = listCons(stringValue("->type = ListType;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_164"), empty_list); +strInfo = listCons(stringValue("_str_163"), empty_list); strInfo = listCons(stringValue("->len = 0;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_165"), empty_list); +strInfo = listCons(stringValue("_str_164"), empty_list); strInfo = listCons(stringValue("->head = (Value *)0;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_166"), empty_list); +strInfo = listCons(stringValue("_str_165"), empty_list); strInfo = listCons(stringValue("->tail = (List *)0;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_167"), empty_list); +strInfo = listCons(stringValue("_str_166"), empty_list); strInfo = listCons(stringValue(" = (List *)listCons("), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_168"), empty_list); +strInfo = listCons(stringValue("_str_167"), empty_list); strInfo = listCons(stringValue(", (Value *)"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_169"), empty_list); +strInfo = listCons(stringValue("_str_168"), empty_list); strInfo = listCons(stringValue("} else {\nfprintf(stderr, \"\\n*** no arity found for '%s'.\\n\", "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_170"), empty_list); +strInfo = listCons(stringValue("_str_169"), empty_list); strInfo = listCons(stringValue("((Function *)"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_171"), empty_list); +strInfo = listCons(stringValue("_str_170"), empty_list); strInfo = listCons(stringValue(")->name"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_172"), empty_list); +strInfo = listCons(stringValue("_str_171"), empty_list); strInfo = listCons(stringValue(");\n abort();\n}\n}\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_173"), empty_list); +strInfo = listCons(stringValue("_str_172"), empty_list); strInfo = listCons(stringValue("(List *)"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_174"), empty_list); +strInfo = listCons(stringValue("_str_173"), empty_list); strInfo = listCons(stringValue("(Value *)"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_175"), empty_list); +strInfo = listCons(stringValue("_str_174"), empty_list); strInfo = listCons(stringValue("could not emit callsite for '"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_176"), empty_list); +strInfo = listCons(stringValue("_str_175"), empty_list); strInfo = listCons(stringValue("fn_"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_177"), empty_list); +strInfo = listCons(stringValue("_str_176"), empty_list); strInfo = listCons(stringValue("\n// --------- "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_178"), empty_list); +strInfo = listCons(stringValue("_str_177"), empty_list); strInfo = listCons(stringValue(" --------------\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_179"), empty_list); +strInfo = listCons(stringValue("_str_178"), empty_list); strInfo = listCons(stringValue("Function "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_180"), empty_list); +strInfo = listCons(stringValue("_str_179"), empty_list); strInfo = listCons(stringValue(" main body --------------\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_181"), empty_list); +strInfo = listCons(stringValue("_str_180"), empty_list); strInfo = listCons(stringValue(" = {"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_182"), empty_list); +strInfo = listCons(stringValue("_str_181"), empty_list); strInfo = listCons(stringValue(", \""), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_183"), empty_list); +strInfo = listCons(stringValue("_str_182"), empty_list); strInfo = listCons(stringValue("\", "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_184"), empty_list); +strInfo = listCons(stringValue("_str_183"), empty_list); strInfo = listCons(stringValue("}};\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_185"), empty_list); +strInfo = listCons(stringValue("_str_184"), empty_list); strInfo = listCons(stringValue("Function *"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_186"), empty_list); +strInfo = listCons(stringValue("_str_185"), empty_list); strInfo = listCons(stringValue(" = (Function *)GC_malloc(sizeof(Function)"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_187"), empty_list); +strInfo = listCons(stringValue("_str_186"), empty_list); strInfo = listCons(stringValue(" + sizeof(FnArity *) * "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_188"), empty_list); +strInfo = listCons(stringValue("_str_187"), empty_list); strInfo = listCons(stringValue("->type = "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_189"), empty_list); +strInfo = listCons(stringValue("_str_188"), empty_list); strInfo = listCons(stringValue("->name = \""), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_190"), empty_list); +strInfo = listCons(stringValue("_str_189"), empty_list); strInfo = listCons(stringValue("\";\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_191"), empty_list); +strInfo = listCons(stringValue("_str_190"), empty_list); strInfo = listCons(stringValue("->arityCount = "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_192"), empty_list); +strInfo = listCons(stringValue("_str_191"), empty_list); strInfo = listCons(stringValue("->arities["), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_193"), empty_list); +strInfo = listCons(stringValue("_str_192"), empty_list); strInfo = listCons(stringValue("] = "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_194"), empty_list); +strInfo = listCons(stringValue("_str_193"), empty_list); strInfo = listCons(stringValue("not found"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_195"), empty_list); +strInfo = listCons(stringValue("_str_194"), empty_list); strInfo = listCons(stringValue("var_"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_196"), empty_list); +strInfo = listCons(stringValue("_str_195"), empty_list); strInfo = listCons(stringValue("// forward declaration for '"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_197"), empty_list); +strInfo = listCons(stringValue("_str_196"), empty_list); strInfo = listCons(stringValue("'\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_198"), empty_list); +strInfo = listCons(stringValue("_str_197"), empty_list); strInfo = listCons(stringValue(";\n\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_199"), empty_list); +strInfo = listCons(stringValue("_str_198"), empty_list); strInfo = listCons(stringValue("invalid definition: "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_200"), empty_list); +strInfo = listCons(stringValue("_str_199"), empty_list); strInfo = listCons(stringValue("\nif (isTrue("), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_201"), empty_list); +strInfo = listCons(stringValue("_str_200"), empty_list); strInfo = listCons(stringValue(")) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_202"), empty_list); +strInfo = listCons(stringValue("_str_201"), empty_list); strInfo = listCons(stringValue(";\n} else {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_203"), empty_list); +strInfo = listCons(stringValue("_str_202"), empty_list); strInfo = listCons(stringValue("}\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_204"), empty_list); +strInfo = listCons(stringValue("_str_203"), empty_list); strInfo = listCons(stringValue("cond"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_205"), empty_list); +strInfo = listCons(stringValue("_str_204"), empty_list); strInfo = listCons(stringValue("protoImpl_"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_206"), empty_list); +strInfo = listCons(stringValue("_str_205"), empty_list); strInfo = listCons(stringValue("protoFn_"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_207"), empty_list); +strInfo = listCons(stringValue("_str_206"), empty_list); strInfo = listCons(stringValue("invalid protocol fn spec for"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_208"), empty_list); +strInfo = listCons(stringValue("_str_207"), empty_list); strInfo = listCons(stringValue("arityPtr = ((Function *)((ReifiedVal *)arg0)->impls["), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_209"), empty_list); +strInfo = listCons(stringValue("_str_208"), empty_list); strInfo = listCons(stringValue("])->arities[0];\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_210"), empty_list); +strInfo = listCons(stringValue("_str_209"), empty_list); strInfo = listCons(stringValue("return (((FnType"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_211"), empty_list); +strInfo = listCons(stringValue("_str_210"), empty_list); strInfo = listCons(stringValue(" *)arityPtr->fn)(arityPtr->"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_212"), empty_list); +strInfo = listCons(stringValue("_str_211"), empty_list); strInfo = listCons(stringValue("));\n};\n\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_213"), empty_list); +strInfo = listCons(stringValue("_str_212"), empty_list); strInfo = listCons(stringValue(" = {3, \""), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_214"), empty_list); +strInfo = listCons(stringValue("_str_213"), empty_list); strInfo = listCons(stringValue("\", 1, {&(FnArity){"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_215"), empty_list); +strInfo = listCons(stringValue("_str_214"), empty_list); strInfo = listCons(stringValue(", (List *)0, 0, "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_216"), empty_list); +strInfo = listCons(stringValue("_str_215"), empty_list); strInfo = listCons(stringValue("}}};\n\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_217"), empty_list); +strInfo = listCons(stringValue("_str_216"), empty_list); strInfo = listCons(stringValue("reified_"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_218"), empty_list); +strInfo = listCons(stringValue("_str_217"), empty_list); strInfo = listCons(stringValue(" = (ReifiedVal *)GC_malloc(sizeof("), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_219"), empty_list); +strInfo = listCons(stringValue("_str_218"), empty_list); strInfo = listCons(stringValue("ReifiedVal) + sizeof(Function *) * "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_220"), empty_list); +strInfo = listCons(stringValue("_str_219"), empty_list); strInfo = listCons(stringValue("->implCount = "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_221"), empty_list); +strInfo = listCons(stringValue("_str_220"), empty_list); strInfo = listCons(stringValue("->impls["), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_222"), empty_list); +strInfo = listCons(stringValue("_str_221"), empty_list); strInfo = listCons(stringValue("ReifiedVal "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_223"), empty_list); +strInfo = listCons(stringValue("_str_222"), empty_list); strInfo = listCons(stringValue(", {"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_224"), empty_list); +strInfo = listCons(stringValue("_str_223"), empty_list); strInfo = listCons(stringValue("."), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_225"), empty_list); +strInfo = listCons(stringValue("_str_224"), empty_list); strInfo = listCons(stringValue("protoFnImpl_"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_226"), empty_list); +strInfo = listCons(stringValue("_str_225"), empty_list); strInfo = listCons(stringValue("protoFnArity_"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_227"), empty_list); +strInfo = listCons(stringValue("_str_226"), empty_list); strInfo = listCons(stringValue(" Function *implFn = (Function *)findProtoImpl(arg0->type, "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_228"), empty_list); +strInfo = listCons(stringValue("_str_227"), empty_list); strInfo = listCons(stringValue(" if(implFn == (Function *)0) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_229"), empty_list); +strInfo = listCons(stringValue("_str_228"), empty_list); strInfo = listCons(stringValue(" fprintf(stderr, \"\\n*** Could not find proto impl for '"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_230"), empty_list); +strInfo = listCons(stringValue("_str_229"), empty_list); strInfo = listCons(stringValue("' %lld\\n\", arg0->type);\nabort();\n}\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_231"), empty_list); +strInfo = listCons(stringValue("_str_230"), empty_list); strInfo = listCons(stringValue(" FnArity *_arity = findFnArity((Value *)implFn, "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_232"), empty_list); +strInfo = listCons(stringValue("_str_231"), empty_list); strInfo = listCons(stringValue(" if(_arity == (FnArity *)0 || _arity->variadic) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_233"), empty_list); +strInfo = listCons(stringValue("_str_232"), empty_list); strInfo = listCons(stringValue(" fprintf(stderr, \"\\n*** Invalid number of args in call to '"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_234"), empty_list); +strInfo = listCons(stringValue("_str_233"), empty_list); strInfo = listCons(stringValue("'\\n\");\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_235"), empty_list); +strInfo = listCons(stringValue("_str_234"), empty_list); strInfo = listCons(stringValue(" abort();\n}\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_236"), empty_list); +strInfo = listCons(stringValue("_str_235"), empty_list); strInfo = listCons(stringValue(" FnType"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_237"), empty_list); +strInfo = listCons(stringValue("_str_236"), empty_list); strInfo = listCons(stringValue(" *_fn = (FnType"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_238"), empty_list); +strInfo = listCons(stringValue("_str_237"), empty_list); strInfo = listCons(stringValue(" *)_arity->fn;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_239"), empty_list); +strInfo = listCons(stringValue("_str_238"), empty_list); strInfo = listCons(stringValue(" return(_fn("), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_240"), empty_list); +strInfo = listCons(stringValue("_str_239"), empty_list); strInfo = listCons(stringValue("_arity->closures"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_241"), empty_list); +strInfo = listCons(stringValue("_str_240"), empty_list); strInfo = listCons(stringValue("));\n}\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_242"), empty_list); +strInfo = listCons(stringValue("_str_241"), empty_list); strInfo = listCons(stringValue("FnArity "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_243"), empty_list); +strInfo = listCons(stringValue("_str_242"), empty_list); strInfo = listCons(stringValue("protoImpls_"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_244"), empty_list); +strInfo = listCons(stringValue("_str_243"), empty_list); strInfo = listCons(stringValue("defaultFn_"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_245"), empty_list); +strInfo = listCons(stringValue("_str_244"), empty_list); strInfo = listCons(stringValue("ProtoImpls *"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_246"), empty_list); +strInfo = listCons(stringValue("_str_245"), empty_list); strInfo = listCons(stringValue(",\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_247"), empty_list); +strInfo = listCons(stringValue("_str_246"), empty_list); strInfo = listCons(stringValue("}};\n\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_248"), empty_list); +strInfo = listCons(stringValue("_str_247"), empty_list); strInfo = listCons(stringValue("extern Function "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_249"), empty_list); +strInfo = listCons(stringValue("_str_248"), empty_list); strInfo = listCons(stringValue("typedef Value *(FnType0)(List *);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_250"), empty_list); +strInfo = listCons(stringValue("_str_249"), empty_list); strInfo = listCons(stringValue("typedef Value *(FnType"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_251"), empty_list); +strInfo = listCons(stringValue("_str_250"), empty_list); strInfo = listCons(stringValue(")("), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_252"), empty_list); +strInfo = listCons(stringValue("_str_251"), empty_list); strInfo = listCons(stringValue("..."), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_253"), empty_list); +strInfo = listCons(stringValue("_str_252"), empty_list); strInfo = listCons(stringValue("const char *"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_254"), empty_list); +strInfo = listCons(stringValue("_str_253"), empty_list); strInfo = listCons(stringValue("Value* true;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_255"), empty_list); +strInfo = listCons(stringValue("_str_254"), empty_list); strInfo = listCons(stringValue("Value* false;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_256"), empty_list); +strInfo = listCons(stringValue("_str_255"), empty_list); strInfo = listCons(stringValue("Number trueVal;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_257"), empty_list); +strInfo = listCons(stringValue("_str_256"), empty_list); strInfo = listCons(stringValue("Number falseVal;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_258"), empty_list); +strInfo = listCons(stringValue("_str_257"), empty_list); strInfo = listCons(stringValue("int isTrue(Value *boolVal);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_259"), empty_list); +strInfo = listCons(stringValue("_str_258"), empty_list); strInfo = listCons(stringValue("Value *findProtoImpl(int64_t type, ProtoImpls *impls);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_260"), empty_list); +strInfo = listCons(stringValue("_str_259"), empty_list); strInfo = listCons(stringValue("FnArity *findFnArity(Value *fnVal, int argCount);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_261"), empty_list); +strInfo = listCons(stringValue("_str_260"), empty_list); strInfo = listCons(stringValue("Value *symbolValue(char *s);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_262"), empty_list); +strInfo = listCons(stringValue("_str_261"), empty_list); strInfo = listCons(stringValue("Value *keywordValue(char *s);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_263"), empty_list); +strInfo = listCons(stringValue("_str_262"), empty_list); strInfo = listCons(stringValue("Value *stringValue(char *s);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_264"), empty_list); +strInfo = listCons(stringValue("_str_263"), empty_list); strInfo = listCons(stringValue("Value *makeSubstr(int64_t len, Value *str, char *subsStart);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_265"), empty_list); +strInfo = listCons(stringValue("_str_264"), empty_list); strInfo = listCons(stringValue("Value *numberValue(int64_t n);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_266"), empty_list); +strInfo = listCons(stringValue("_str_265"), empty_list); strInfo = listCons(stringValue("List *listCons(Value *x, List *l);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_267"), empty_list); +strInfo = listCons(stringValue("_str_266"), empty_list); strInfo = listCons(stringValue("Number trueVal = {NumberType, -1, 1};\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_268"), empty_list); +strInfo = listCons(stringValue("_str_267"), empty_list); strInfo = listCons(stringValue("Value* true = (Value *)&trueVal;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_269"), empty_list); +strInfo = listCons(stringValue("_str_268"), empty_list); strInfo = listCons(stringValue("Number falseVal = {NumberType, -1, 0};\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_270"), empty_list); +strInfo = listCons(stringValue("_str_269"), empty_list); strInfo = listCons(stringValue("Value* false = (Value *)&falseVal;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_271"), empty_list); +strInfo = listCons(stringValue("_str_270"), empty_list); strInfo = listCons(stringValue("int isTrue(Value *boolVal) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_272"), empty_list); +strInfo = listCons(stringValue("_str_271"), empty_list); strInfo = listCons(stringValue("if (boolVal->type != "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_273"), empty_list); +strInfo = listCons(stringValue("_str_272"), empty_list); strInfo = listCons(stringValue("printf(\"Invalid boolean value\\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_274"), empty_list); +strInfo = listCons(stringValue("_str_273"), empty_list); strInfo = listCons(stringValue("\");\nabort();\n}\nelse\nreturn (((Number *)boolVal)->numVal);\n}\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_275"), empty_list); +strInfo = listCons(stringValue("_str_274"), empty_list); strInfo = listCons(stringValue("Value *findProtoImpl(int64_t type, ProtoImpls *impls) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_276"), empty_list); +strInfo = listCons(stringValue("_str_275"), empty_list); strInfo = listCons(stringValue("int64_t implIndex = 0;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_277"), empty_list); +strInfo = listCons(stringValue("_str_276"), empty_list); strInfo = listCons(stringValue("while(implIndex < impls->implCount) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_278"), empty_list); +strInfo = listCons(stringValue("_str_277"), empty_list); strInfo = listCons(stringValue("if (type != impls->impls[implIndex].type) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_279"), empty_list); +strInfo = listCons(stringValue("_str_278"), empty_list); strInfo = listCons(stringValue("implIndex++;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_280"), empty_list); +strInfo = listCons(stringValue("_str_279"), empty_list); strInfo = listCons(stringValue("} else\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_281"), empty_list); +strInfo = listCons(stringValue("_str_280"), empty_list); strInfo = listCons(stringValue("return(impls->impls[implIndex].implFn);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_282"), empty_list); +strInfo = listCons(stringValue("_str_281"), empty_list); strInfo = listCons(stringValue("return(impls->defaultImpl);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_283"), empty_list); +strInfo = listCons(stringValue("_str_282"), empty_list); strInfo = listCons(stringValue("FnArity *findFnArity(Value *fnVal, int argCount) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_284"), empty_list); +strInfo = listCons(stringValue("_str_283"), empty_list); strInfo = listCons(stringValue("Function *fn = (Function *)fnVal;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_285"), empty_list); +strInfo = listCons(stringValue("_str_284"), empty_list); strInfo = listCons(stringValue("int arityIndex = 0;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_286"), empty_list); +strInfo = listCons(stringValue("_str_285"), empty_list); strInfo = listCons(stringValue("FnArity *arity = (FnArity *)fn->arities[arityIndex];\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_287"), empty_list); +strInfo = listCons(stringValue("_str_286"), empty_list); strInfo = listCons(stringValue("FnArity *variadic = (FnArity *)0;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_288"), empty_list); +strInfo = listCons(stringValue("_str_287"), empty_list); strInfo = listCons(stringValue("while(arityIndex < fn->arityCount) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_289"), empty_list); +strInfo = listCons(stringValue("_str_288"), empty_list); strInfo = listCons(stringValue("arity = (FnArity *)fn->arities[arityIndex];\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_290"), empty_list); +strInfo = listCons(stringValue("_str_289"), empty_list); strInfo = listCons(stringValue("if (arity->variadic) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_291"), empty_list); +strInfo = listCons(stringValue("_str_290"), empty_list); strInfo = listCons(stringValue("variadic = arity;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_292"), empty_list); +strInfo = listCons(stringValue("_str_291"), empty_list); strInfo = listCons(stringValue("arityIndex++;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_293"), empty_list); +strInfo = listCons(stringValue("_str_292"), empty_list); strInfo = listCons(stringValue("} else if (arity->count != argCount) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_294"), empty_list); +strInfo = listCons(stringValue("_str_293"), empty_list); strInfo = listCons(stringValue("return(arity);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_295"), empty_list); +strInfo = listCons(stringValue("_str_294"), empty_list); strInfo = listCons(stringValue("return(variadic);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_296"), empty_list); +strInfo = listCons(stringValue("_str_295"), empty_list); strInfo = listCons(stringValue("Value *symbolValue(char *s) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_297"), empty_list); +strInfo = listCons(stringValue("_str_296"), empty_list); strInfo = listCons(stringValue("SymKey *sym = (SymKey *)GC_malloc(sizeof(SymKey));\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_298"), empty_list); +strInfo = listCons(stringValue("_str_297"), empty_list); strInfo = listCons(stringValue("sym->type = SymbolType;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_299"), empty_list); +strInfo = listCons(stringValue("_str_298"), empty_list); strInfo = listCons(stringValue("sym->name = s;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_300"), empty_list); +strInfo = listCons(stringValue("_str_299"), empty_list); strInfo = listCons(stringValue("return((Value *)sym);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_301"), empty_list); +strInfo = listCons(stringValue("_str_300"), empty_list); strInfo = listCons(stringValue("Value *keywordValue(char *s) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_302"), empty_list); +strInfo = listCons(stringValue("_str_301"), empty_list); strInfo = listCons(stringValue("SymKey *kw = (SymKey *)GC_malloc(sizeof(SymKey));\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_303"), empty_list); +strInfo = listCons(stringValue("_str_302"), empty_list); strInfo = listCons(stringValue("kw->type = KeywordType;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_304"), empty_list); +strInfo = listCons(stringValue("_str_303"), empty_list); strInfo = listCons(stringValue("kw->name = s;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_305"), empty_list); +strInfo = listCons(stringValue("_str_304"), empty_list); strInfo = listCons(stringValue("return((Value *)kw);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_306"), empty_list); +strInfo = listCons(stringValue("_str_305"), empty_list); strInfo = listCons(stringValue("Value *stringValue(char *s) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_307"), empty_list); +strInfo = listCons(stringValue("_str_306"), empty_list); strInfo = listCons(stringValue("int64_t len = strlen(s);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_308"), empty_list); +strInfo = listCons(stringValue("_str_307"), empty_list); strInfo = listCons(stringValue("String *strVal = (String *)GC_malloc(sizeof(String) + len + 4);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_309"), empty_list); +strInfo = listCons(stringValue("_str_308"), empty_list); strInfo = listCons(stringValue("strVal->type = StringType;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_310"), empty_list); +strInfo = listCons(stringValue("_str_309"), empty_list); strInfo = listCons(stringValue("strVal->len = strlen(s);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_311"), empty_list); +strInfo = listCons(stringValue("_str_310"), empty_list); strInfo = listCons(stringValue("strncpy(strVal->buffer, s, len);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_312"), empty_list); +strInfo = listCons(stringValue("_str_311"), empty_list); strInfo = listCons(stringValue("return((Value *)strVal);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_313"), empty_list); +strInfo = listCons(stringValue("_str_312"), empty_list); strInfo = listCons(stringValue("Value *makeSubstr(int64_t len, Value *str, char *subsStart) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_314"), empty_list); +strInfo = listCons(stringValue("_str_313"), empty_list); strInfo = listCons(stringValue("SubString *subStr = (SubString *)GC_malloc(sizeof(SubString));\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_315"), empty_list); +strInfo = listCons(stringValue("_str_314"), empty_list); strInfo = listCons(stringValue("subStr->type = SubStringType;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_316"), empty_list); +strInfo = listCons(stringValue("_str_315"), empty_list); strInfo = listCons(stringValue("subStr->len = len;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_317"), empty_list); +strInfo = listCons(stringValue("_str_316"), empty_list); strInfo = listCons(stringValue("subStr->source = str;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_318"), empty_list); +strInfo = listCons(stringValue("_str_317"), empty_list); strInfo = listCons(stringValue("subStr->buffer = subsStart;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_319"), empty_list); +strInfo = listCons(stringValue("_str_318"), empty_list); strInfo = listCons(stringValue("return((Value *)subStr);}\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_320"), empty_list); +strInfo = listCons(stringValue("_str_319"), empty_list); strInfo = listCons(stringValue("Value *numberValue(int64_t n) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_321"), empty_list); +strInfo = listCons(stringValue("_str_320"), empty_list); strInfo = listCons(stringValue("Number *numVal = (Number *)GC_malloc(sizeof(Number));\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_322"), empty_list); +strInfo = listCons(stringValue("_str_321"), empty_list); strInfo = listCons(stringValue("numVal->type = NumberType;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_323"), empty_list); +strInfo = listCons(stringValue("_str_322"), empty_list); strInfo = listCons(stringValue("numVal->numVal = n;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_324"), empty_list); +strInfo = listCons(stringValue("_str_323"), empty_list); strInfo = listCons(stringValue("return((Value *)numVal);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_325"), empty_list); +strInfo = listCons(stringValue("_str_324"), empty_list); strInfo = listCons(stringValue("List *listCons(Value *x, List *l) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_326"), empty_list); +strInfo = listCons(stringValue("_str_325"), empty_list); strInfo = listCons(stringValue("if (l->type != ListType) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_327"), empty_list); +strInfo = listCons(stringValue("_str_326"), empty_list); strInfo = listCons(stringValue("printf(\"'cons' requires a list\ \");\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_328"), empty_list); +strInfo = listCons(stringValue("_str_327"), empty_list); strInfo = listCons(stringValue("abort();\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_329"), empty_list); +strInfo = listCons(stringValue("_str_328"), empty_list); strInfo = listCons(stringValue("List *newList = (List *)GC_malloc(sizeof(List));\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_330"), empty_list); +strInfo = listCons(stringValue("_str_329"), empty_list); strInfo = listCons(stringValue("List *oldList = (List *)l;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_331"), empty_list); +strInfo = listCons(stringValue("_str_330"), empty_list); strInfo = listCons(stringValue("newList->type = ListType;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_332"), empty_list); +strInfo = listCons(stringValue("_str_331"), empty_list); strInfo = listCons(stringValue("newList->len = oldList->len + 1;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_333"), empty_list); +strInfo = listCons(stringValue("_str_332"), empty_list); strInfo = listCons(stringValue("newList->head = (Value *)x;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_334"), empty_list); +strInfo = listCons(stringValue("_str_333"), empty_list); strInfo = listCons(stringValue("newList->tail = oldList;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_335"), empty_list); +strInfo = listCons(stringValue("_str_334"), empty_list); strInfo = listCons(stringValue("return(newList);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_336"), empty_list); +strInfo = listCons(stringValue("_str_335"), empty_list); strInfo = listCons(stringValue("(Value *)0"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_337"), empty_list); +strInfo = listCons(stringValue("_str_336"), empty_list); strInfo = listCons(stringValue("localImpls_"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_338"), empty_list); +strInfo = listCons(stringValue("_str_337"), empty_list); strInfo = listCons(stringValue("extern ProtoImpls *"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_339"), empty_list); +strInfo = listCons(stringValue("_str_338"), empty_list); strInfo = listCons(stringValue("ProtoImpls "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_340"), empty_list); +strInfo = listCons(stringValue("_str_339"), empty_list); strInfo = listCons(stringValue("#include \n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_341"), empty_list); +strInfo = listCons(stringValue("_str_340"), empty_list); strInfo = listCons(stringValue("#include \n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_342"), empty_list); +strInfo = listCons(stringValue("_str_341"), empty_list); strInfo = listCons(stringValue("#include \n\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_343"), empty_list); +strInfo = listCons(stringValue("_str_342"), empty_list); strInfo = listCons(stringValue("const int64_t NumberType;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_344"), empty_list); +strInfo = listCons(stringValue("_str_343"), empty_list); strInfo = listCons(stringValue("const int64_t KeywordType;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_345"), empty_list); +strInfo = listCons(stringValue("_str_344"), empty_list); strInfo = listCons(stringValue("const int64_t SymbolType;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_346"), empty_list); +strInfo = listCons(stringValue("_str_345"), empty_list); strInfo = listCons(stringValue("const int64_t StringType;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_347"), empty_list); +strInfo = listCons(stringValue("_str_346"), empty_list); strInfo = listCons(stringValue("const int64_t SubStringType;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_348"), empty_list); +strInfo = listCons(stringValue("_str_347"), empty_list); strInfo = listCons(stringValue("const int64_t ListType;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_349"), empty_list); +strInfo = listCons(stringValue("_str_348"), empty_list); strInfo = listCons(stringValue("const int64_t FunctionType;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_350"), empty_list); +strInfo = listCons(stringValue("_str_349"), empty_list); strInfo = listCons(stringValue("List *empty_list;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_351"), empty_list); +strInfo = listCons(stringValue("_str_350"), empty_list); strInfo = listCons(stringValue("Value *number_literals();\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_352"), empty_list); +strInfo = listCons(stringValue("_str_351"), empty_list); strInfo = listCons(stringValue("Value *counts();\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_353"), empty_list); +strInfo = listCons(stringValue("_str_352"), empty_list); strInfo = listCons(stringValue("Value *types();\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_354"), empty_list); +strInfo = listCons(stringValue("_str_353"), empty_list); strInfo = listCons(stringValue("Value *symbol_literals();\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_355"), empty_list); +strInfo = listCons(stringValue("_str_354"), empty_list); strInfo = listCons(stringValue("Value *keyword_literals();\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_356"), empty_list); +strInfo = listCons(stringValue("_str_355"), empty_list); strInfo = listCons(stringValue("Value *string_literals();\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_357"), empty_list); +strInfo = listCons(stringValue("_str_356"), empty_list); strInfo = listCons(stringValue("Value *defined_syms();\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_358"), empty_list); +strInfo = listCons(stringValue("_str_357"), empty_list); strInfo = listCons(stringValue("Value *static_fns();\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_359"), empty_list); +strInfo = listCons(stringValue("_str_358"), empty_list); strInfo = listCons(stringValue("Value *protocols();\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_360"), empty_list); +strInfo = listCons(stringValue("_str_359"), empty_list); strInfo = listCons(stringValue("noString_ptr"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_361"), empty_list); +strInfo = listCons(stringValue("_str_360"), empty_list); strInfo = listCons(stringValue("noString_name"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_362"), empty_list); +strInfo = listCons(stringValue("_str_361"), empty_list); strInfo = listCons(stringValue("struct {int64_t type;\n int64_t len;\n char buffer["), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_363"), empty_list); +strInfo = listCons(stringValue("_str_362"), empty_list); strInfo = listCons(stringValue("];} "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_364"), empty_list); +strInfo = listCons(stringValue("_str_363"), empty_list); strInfo = listCons(stringValue(","), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_365"), empty_list); +strInfo = listCons(stringValue("_str_364"), empty_list); strInfo = listCons(stringValue(",\""), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_366"), empty_list); +strInfo = listCons(stringValue("_str_365"), empty_list); strInfo = listCons(stringValue("\"};\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_367"), empty_list); +strInfo = listCons(stringValue("_str_366"), empty_list); strInfo = listCons(stringValue("no_symbol_val"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_368"), empty_list); +strInfo = listCons(stringValue("_str_367"), empty_list); strInfo = listCons(stringValue(", -1, \""), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_369"), empty_list); +strInfo = listCons(stringValue("_str_368"), empty_list); strInfo = listCons(stringValue("no_symbol_name"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_370"), empty_list); +strInfo = listCons(stringValue("_str_369"), empty_list); strInfo = listCons(stringValue("noNumber_sym"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_371"), empty_list); +strInfo = listCons(stringValue("_str_370"), empty_list); strInfo = listCons(stringValue(", -1, "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_372"), empty_list); +strInfo = listCons(stringValue("_str_371"), empty_list); strInfo = listCons(stringValue("noNumber_val"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_373"), empty_list); +strInfo = listCons(stringValue("_str_372"), empty_list); strInfo = listCons(stringValue("no_String_type"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_374"), empty_list); +strInfo = listCons(stringValue("_str_373"), empty_list); strInfo = listCons(stringValue("no_Number_type"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_375"), empty_list); +strInfo = listCons(stringValue("_str_374"), empty_list); strInfo = listCons(stringValue("no_Symbol_type"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_376"), empty_list); +strInfo = listCons(stringValue("_str_375"), empty_list); strInfo = listCons(stringValue("no_Keyword_type"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_377"), empty_list); +strInfo = listCons(stringValue("_str_376"), empty_list); strInfo = listCons(stringValue("toccataMain"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_378"), empty_list); +strInfo = listCons(stringValue("_str_377"), empty_list); strInfo = listCons(stringValue("(int argc, char *argv[]) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_379"), empty_list); +strInfo = listCons(stringValue("_str_378"), empty_list); strInfo = listCons(stringValue(" GC_init();\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_380"), empty_list); +strInfo = listCons(stringValue("_str_379"), empty_list); strInfo = listCons(stringValue(" List *argList = (List *)GC_malloc(sizeof(List));\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_381"), empty_list); +strInfo = listCons(stringValue("_str_380"), empty_list); strInfo = listCons(stringValue(" argList->type = ListType;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_382"), empty_list); +strInfo = listCons(stringValue("_str_381"), empty_list); strInfo = listCons(stringValue(" argList->len = 0;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_383"), empty_list); +strInfo = listCons(stringValue("_str_382"), empty_list); strInfo = listCons(stringValue(" argList->head = (Value *)0;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_384"), empty_list); +strInfo = listCons(stringValue("_str_383"), empty_list); strInfo = listCons(stringValue(" argList->tail = (List *)0;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_385"), empty_list); +strInfo = listCons(stringValue("_str_384"), empty_list); strInfo = listCons(stringValue(" List *tail = argList;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_386"), empty_list); +strInfo = listCons(stringValue("_str_385"), empty_list); strInfo = listCons(stringValue(" for(int i = 0; i < argc; i++) {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_387"), empty_list); +strInfo = listCons(stringValue("_str_386"), empty_list); strInfo = listCons(stringValue(" tail->head = stringValue(argv[i]);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_388"), empty_list); +strInfo = listCons(stringValue("_str_387"), empty_list); strInfo = listCons(stringValue(" List *newTail = (List *)GC_malloc(sizeof(List));\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_389"), empty_list); +strInfo = listCons(stringValue("_str_388"), empty_list); strInfo = listCons(stringValue(" newTail->type = ListType;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_390"), empty_list); +strInfo = listCons(stringValue("_str_389"), empty_list); strInfo = listCons(stringValue(" newTail->len = 0;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_391"), empty_list); +strInfo = listCons(stringValue("_str_390"), empty_list); strInfo = listCons(stringValue(" newTail->tail = (List *)0;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_392"), empty_list); +strInfo = listCons(stringValue("_str_391"), empty_list); strInfo = listCons(stringValue(" newTail->head = (Value *)0;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_393"), empty_list); +strInfo = listCons(stringValue("_str_392"), empty_list); strInfo = listCons(stringValue(" tail->tail = newTail;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_394"), empty_list); +strInfo = listCons(stringValue("_str_393"), empty_list); strInfo = listCons(stringValue(" tail = newTail;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_395"), empty_list); +strInfo = listCons(stringValue("_str_394"), empty_list); strInfo = listCons(stringValue(" argList->len++;\n}\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_396"), empty_list); +strInfo = listCons(stringValue("_str_395"), empty_list); strInfo = listCons(stringValue(" "), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_397"), empty_list); +strInfo = listCons(stringValue("_str_396"), empty_list); strInfo = listCons(stringValue(" = &"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_398"), empty_list); +strInfo = listCons(stringValue("_str_397"), empty_list); strInfo = listCons(stringValue(" return("), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_399"), empty_list); +strInfo = listCons(stringValue("_str_398"), empty_list); strInfo = listCons(stringValue("((Value *)argList));\n};\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_400"), empty_list); +strInfo = listCons(stringValue("_str_399"), empty_list); strInfo = listCons(stringValue("Value *protocols() {\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_401"), empty_list); +strInfo = listCons(stringValue("_str_400"), empty_list); strInfo = listCons(stringValue("List *protos = empty_list;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_402"), empty_list); +strInfo = listCons(stringValue("_str_401"), empty_list); strInfo = listCons(stringValue("List *protoInfo;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_403"), empty_list); +strInfo = listCons(stringValue("_str_402"), empty_list); strInfo = listCons(stringValue("List *impls;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_404"), empty_list); +strInfo = listCons(stringValue("_str_403"), empty_list); strInfo = listCons(stringValue("List *impl;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_405"), empty_list); +strInfo = listCons(stringValue("_str_404"), empty_list); strInfo = listCons(stringValue("protoInfo = empty_list;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_406"), empty_list); +strInfo = listCons(stringValue("_str_405"), empty_list); strInfo = listCons(stringValue("impls = empty_list;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_407"), empty_list); +strInfo = listCons(stringValue("_str_406"), empty_list); strInfo = listCons(stringValue("impl = empty_list;\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_408"), empty_list); +strInfo = listCons(stringValue("_str_407"), empty_list); strInfo = listCons(stringValue("impl = listCons(stringValue(\""), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_409"), empty_list); +strInfo = listCons(stringValue("_str_408"), empty_list); strInfo = listCons(stringValue("\"), impl);\n"), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_410"), empty_list); +strInfo = listCons(stringValue("_str_409"), empty_list); strInfo = listCons(stringValue("impl = listCons("), strInfo); strs = listCons((Value *)strInfo, strs); -strInfo = listCons(stringValue("_str_411"), empty_list); +strInfo = listCons(stringValue("_str_410"), empty_list); strInfo = listCons(stringValue("keywordValue(\":default\")"), strInfo); strs = listCons((Value *)strInfo, strs); +strInfo = listCons(stringValue("_str_411"), empty_list); +strInfo = listCons(stringValue("numberValue("), strInfo); +strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_412"), empty_list); -strInfo = listCons(stringValue("numberValue("), strInfo); +strInfo = listCons(stringValue(", impl);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_413"), empty_list); -strInfo = listCons(stringValue(", impl);\n"), strInfo); +strInfo = listCons(stringValue("impls = listCons((Value *)impl, impls);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_414"), empty_list); -strInfo = listCons(stringValue("impls = listCons((Value *)impl, impls);\n"), strInfo); +strInfo = listCons(stringValue("protoInfo = listCons((Value *)impls, protoInfo);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_415"), empty_list); -strInfo = listCons(stringValue("protoInfo = listCons((Value *)impls, protoInfo);\n"), strInfo); +strInfo = listCons(stringValue("protoInfo = listCons(stringValue(\""), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_416"), empty_list); -strInfo = listCons(stringValue("protoInfo = listCons(stringValue(\""), strInfo); +strInfo = listCons(stringValue("\"), protoInfo);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_417"), empty_list); -strInfo = listCons(stringValue("\"), protoInfo);\n"), strInfo); +strInfo = listCons(stringValue("protoInfo = listCons(symbolValue(\""), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_418"), empty_list); -strInfo = listCons(stringValue("protoInfo = listCons(symbolValue(\""), strInfo); +strInfo = listCons(stringValue("protos = listCons((Value *)protoInfo, protos);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_419"), empty_list); -strInfo = listCons(stringValue("protos = listCons((Value *)protoInfo, protos);\n"), strInfo); +strInfo = listCons(stringValue("return((Value *)protos);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_420"), empty_list); -strInfo = listCons(stringValue("return((Value *)protos);\n"), strInfo); +strInfo = listCons(stringValue("}\n\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_421"), empty_list); -strInfo = listCons(stringValue("}\n\n"), strInfo); +strInfo = listCons(stringValue("Value *static_fns() {\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_422"), empty_list); -strInfo = listCons(stringValue("Value *static_fns() {\n"), strInfo); +strInfo = listCons(stringValue("List *staticFns = empty_list;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_423"), empty_list); -strInfo = listCons(stringValue("List *staticFns = empty_list;\n"), strInfo); +strInfo = listCons(stringValue("List *fnInfo;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_424"), empty_list); -strInfo = listCons(stringValue("List *fnInfo;\n"), strInfo); +strInfo = listCons(stringValue("List *arityInfo;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_425"), empty_list); -strInfo = listCons(stringValue("List *arityInfo;\n"), strInfo); +strInfo = listCons(stringValue("fnInfo = empty_list;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_426"), empty_list); -strInfo = listCons(stringValue("fnInfo = empty_list;\n"), strInfo); +strInfo = listCons(stringValue("arityInfo = listCons(stringValue(\""), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_427"), empty_list); -strInfo = listCons(stringValue("arityInfo = listCons(stringValue(\""), strInfo); +strInfo = listCons(stringValue("\"), empty_list);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_428"), empty_list); -strInfo = listCons(stringValue("\"), empty_list);\n"), strInfo); +strInfo = listCons(stringValue("arityInfo = listCons(keywordValue(\":variadic\")"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_429"), empty_list); -strInfo = listCons(stringValue("arityInfo = listCons(keywordValue(\":variadic\")"), strInfo); +strInfo = listCons(stringValue(", arityInfo);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_430"), empty_list); -strInfo = listCons(stringValue(", arityInfo);\n"), strInfo); +strInfo = listCons(stringValue("arityInfo = listCons(numberValue("), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_431"), empty_list); -strInfo = listCons(stringValue("arityInfo = listCons(numberValue("), strInfo); +strInfo = listCons(stringValue("), arityInfo);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_432"), empty_list); -strInfo = listCons(stringValue("), arityInfo);\n"), strInfo); +strInfo = listCons(stringValue("fnInfo = listCons((Value *)arityInfo, fnInfo);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_433"), empty_list); -strInfo = listCons(stringValue("fnInfo = listCons((Value *)arityInfo, fnInfo);\n"), strInfo); +strInfo = listCons(stringValue("fnInfo = listCons((Value *)fnInfo, empty_list);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_434"), empty_list); -strInfo = listCons(stringValue("fnInfo = listCons((Value *)fnInfo, empty_list);\n"), strInfo); +strInfo = listCons(stringValue("fnInfo = listCons(stringValue(\""), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_435"), empty_list); -strInfo = listCons(stringValue("fnInfo = listCons(stringValue(\""), strInfo); +strInfo = listCons(stringValue("\"), fnInfo);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_436"), empty_list); -strInfo = listCons(stringValue("\"), fnInfo);\n"), strInfo); +strInfo = listCons(stringValue("staticFns = listCons((Value *)fnInfo, staticFns);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_437"), empty_list); -strInfo = listCons(stringValue("staticFns = listCons((Value *)fnInfo, staticFns);\n"), strInfo); +strInfo = listCons(stringValue("return((Value *)staticFns);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_438"), empty_list); -strInfo = listCons(stringValue("return((Value *)staticFns);\n"), strInfo); +strInfo = listCons(stringValue("Value *defined_syms() {\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_439"), empty_list); -strInfo = listCons(stringValue("Value *defined_syms() {\n"), strInfo); +strInfo = listCons(stringValue("List *defSyms = empty_list;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_440"), empty_list); -strInfo = listCons(stringValue("List *defSyms = empty_list;\n"), strInfo); +strInfo = listCons(stringValue("List *symInfo;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_441"), empty_list); -strInfo = listCons(stringValue("List *symInfo;\n"), strInfo); +strInfo = listCons(stringValue("symInfo = listCons(stringValue(\""), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_442"), empty_list); -strInfo = listCons(stringValue("symInfo = listCons(stringValue(\""), strInfo); +strInfo = listCons(stringValue("\"), symInfo);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_443"), empty_list); -strInfo = listCons(stringValue("\"), symInfo);\n"), strInfo); +strInfo = listCons(stringValue("symInfo = listCons((Value *)symInfo, empty_list);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_444"), empty_list); -strInfo = listCons(stringValue("symInfo = listCons((Value *)symInfo, empty_list);\n"), strInfo); +strInfo = listCons(stringValue("symInfo = listCons(symbolValue(\""), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_445"), empty_list); -strInfo = listCons(stringValue("symInfo = listCons(symbolValue(\""), strInfo); +strInfo = listCons(stringValue("defSyms = listCons((Value *)symInfo, defSyms);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_446"), empty_list); -strInfo = listCons(stringValue("defSyms = listCons((Value *)symInfo, defSyms);\n"), strInfo); +strInfo = listCons(stringValue("return((Value *)defSyms);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_447"), empty_list); -strInfo = listCons(stringValue("return((Value *)defSyms);\n"), strInfo); +strInfo = listCons(stringValue("Value *number_literals() {\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_448"), empty_list); -strInfo = listCons(stringValue("Value *number_literals() {\n"), strInfo); +strInfo = listCons(stringValue("List *nums = empty_list;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_449"), empty_list); -strInfo = listCons(stringValue("List *nums = empty_list;\n"), strInfo); +strInfo = listCons(stringValue("List *numInfo;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_450"), empty_list); -strInfo = listCons(stringValue("List *numInfo;\n"), strInfo); +strInfo = listCons(stringValue("numInfo = listCons(stringValue(\""), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_451"), empty_list); -strInfo = listCons(stringValue("numInfo = listCons(stringValue(\""), strInfo); +strInfo = listCons(stringValue("numInfo = listCons(numberValue("), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_452"), empty_list); -strInfo = listCons(stringValue("numInfo = listCons(numberValue("), strInfo); +strInfo = listCons(stringValue("), numInfo);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_453"), empty_list); -strInfo = listCons(stringValue("), numInfo);\n"), strInfo); +strInfo = listCons(stringValue("nums = listCons((Value *)numInfo, nums);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_454"), empty_list); -strInfo = listCons(stringValue("nums = listCons((Value *)numInfo, nums);\n"), strInfo); +strInfo = listCons(stringValue("return((Value *)nums);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_455"), empty_list); -strInfo = listCons(stringValue("return((Value *)nums);\n"), strInfo); +strInfo = listCons(stringValue("Value *string_literals() {\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_456"), empty_list); -strInfo = listCons(stringValue("Value *string_literals() {\n"), strInfo); +strInfo = listCons(stringValue("List *strs = empty_list;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_457"), empty_list); -strInfo = listCons(stringValue("List *strs = empty_list;\n"), strInfo); +strInfo = listCons(stringValue("List *strInfo;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_458"), empty_list); -strInfo = listCons(stringValue("List *strInfo;\n"), strInfo); +strInfo = listCons(stringValue("strInfo = listCons(stringValue(\""), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_459"), empty_list); -strInfo = listCons(stringValue("strInfo = listCons(stringValue(\""), strInfo); +strInfo = listCons(stringValue("\"), strInfo);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_460"), empty_list); -strInfo = listCons(stringValue("\"), strInfo);\n"), strInfo); +strInfo = listCons(stringValue("strs = listCons((Value *)strInfo, strs);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_461"), empty_list); -strInfo = listCons(stringValue("strs = listCons((Value *)strInfo, strs);\n"), strInfo); +strInfo = listCons(stringValue("return((Value *)strs);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_462"), empty_list); -strInfo = listCons(stringValue("return((Value *)strs);\n"), strInfo); +strInfo = listCons(stringValue("Value *keyword_literals() {\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_463"), empty_list); -strInfo = listCons(stringValue("Value *keyword_literals() {\n"), strInfo); +strInfo = listCons(stringValue("List *kws = empty_list;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_464"), empty_list); -strInfo = listCons(stringValue("List *kws = empty_list;\n"), strInfo); +strInfo = listCons(stringValue("List *kwInfo;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_465"), empty_list); -strInfo = listCons(stringValue("List *kwInfo;\n"), strInfo); +strInfo = listCons(stringValue("kwInfo = listCons(stringValue(\""), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_466"), empty_list); -strInfo = listCons(stringValue("kwInfo = listCons(stringValue(\""), strInfo); +strInfo = listCons(stringValue("kwInfo = listCons(keywordValue(\""), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_467"), empty_list); -strInfo = listCons(stringValue("kwInfo = listCons(keywordValue(\""), strInfo); +strInfo = listCons(stringValue("\"), kwInfo);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_468"), empty_list); -strInfo = listCons(stringValue("\"), kwInfo);\n"), strInfo); +strInfo = listCons(stringValue("kws = listCons((Value *)kwInfo, kws);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_469"), empty_list); -strInfo = listCons(stringValue("kws = listCons((Value *)kwInfo, kws);\n"), strInfo); +strInfo = listCons(stringValue("return((Value *)kws);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_470"), empty_list); -strInfo = listCons(stringValue("return((Value *)kws);\n"), strInfo); +strInfo = listCons(stringValue("Value *symbol_literals() {\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_471"), empty_list); -strInfo = listCons(stringValue("Value *symbol_literals() {\n"), strInfo); +strInfo = listCons(stringValue("List *syms = empty_list;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_472"), empty_list); -strInfo = listCons(stringValue("List *syms = empty_list;\n"), strInfo); +strInfo = listCons(stringValue("syms = listCons((Value *)symInfo, syms);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_473"), empty_list); -strInfo = listCons(stringValue("syms = listCons((Value *)symInfo, syms);\n"), strInfo); +strInfo = listCons(stringValue("return((Value *)syms);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_474"), empty_list); -strInfo = listCons(stringValue("return((Value *)syms);\n"), strInfo); +strInfo = listCons(stringValue("\nValue *counts() {\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_475"), empty_list); -strInfo = listCons(stringValue("\nValue *counts() {\n"), strInfo); +strInfo = listCons(stringValue("List *cnts = empty_list;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_476"), empty_list); -strInfo = listCons(stringValue("List *cnts = empty_list;\n"), strInfo); +strInfo = listCons(stringValue("cnts = listCons(numberValue("), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_477"), empty_list); -strInfo = listCons(stringValue("cnts = listCons(numberValue("), strInfo); +strInfo = listCons(stringValue("), cnts);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_478"), empty_list); -strInfo = listCons(stringValue("), cnts);\n"), strInfo); +strInfo = listCons(stringValue("return((Value *)cnts);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_479"), empty_list); -strInfo = listCons(stringValue("return((Value *)cnts);\n"), strInfo); +strInfo = listCons(stringValue("Value *types() {\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_480"), empty_list); -strInfo = listCons(stringValue("Value *types() {\n"), strInfo); +strInfo = listCons(stringValue("List *types = empty_list;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_481"), empty_list); -strInfo = listCons(stringValue("List *types = empty_list;\n"), strInfo); +strInfo = listCons(stringValue("List *typeInfo;\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_482"), empty_list); -strInfo = listCons(stringValue("List *typeInfo;\n"), strInfo); +strInfo = listCons(stringValue("typeInfo = listCons(numberValue("), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_483"), empty_list); -strInfo = listCons(stringValue("typeInfo = listCons(numberValue("), strInfo); +strInfo = listCons(stringValue("), empty_list);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_484"), empty_list); -strInfo = listCons(stringValue("), empty_list);\n"), strInfo); +strInfo = listCons(stringValue("typeInfo = listCons(symbolValue(\""), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_485"), empty_list); -strInfo = listCons(stringValue("typeInfo = listCons(symbolValue(\""), strInfo); +strInfo = listCons(stringValue("\"), typeInfo);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_486"), empty_list); -strInfo = listCons(stringValue("\"), typeInfo);\n"), strInfo); +strInfo = listCons(stringValue("types = listCons((Value *)typeInfo, types);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_487"), empty_list); -strInfo = listCons(stringValue("types = listCons((Value *)typeInfo, types);\n"), strInfo); +strInfo = listCons(stringValue("return((Value *)types);\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_488"), empty_list); -strInfo = listCons(stringValue("return((Value *)types);\n"), strInfo); +strInfo = listCons(stringValue("const int64_t NumberType = "), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_489"), empty_list); -strInfo = listCons(stringValue("const int64_t NumberType = "), strInfo); +strInfo = listCons(stringValue("const int64_t KeywordType = "), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_490"), empty_list); -strInfo = listCons(stringValue("const int64_t KeywordType = "), strInfo); +strInfo = listCons(stringValue("const int64_t SymbolType = "), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_491"), empty_list); -strInfo = listCons(stringValue("const int64_t SymbolType = "), strInfo); +strInfo = listCons(stringValue("const int64_t StringType = "), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_492"), empty_list); -strInfo = listCons(stringValue("const int64_t StringType = "), strInfo); +strInfo = listCons(stringValue("const int64_t SubStringType = "), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_493"), empty_list); -strInfo = listCons(stringValue("const int64_t SubStringType = "), strInfo); +strInfo = listCons(stringValue("const int64_t ListType = "), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_494"), empty_list); -strInfo = listCons(stringValue("const int64_t ListType = "), strInfo); +strInfo = listCons(stringValue("const int64_t FunctionType = "), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_495"), empty_list); -strInfo = listCons(stringValue("const int64_t FunctionType = "), strInfo); +strInfo = listCons(stringValue("List *empty_list = &(List){4,0,0,0};\n"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_496"), empty_list); -strInfo = listCons(stringValue("List *empty_list = &(List){4,0,0,0};\n"), strInfo); +strInfo = listCons(stringValue("Number _num_"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_497"), empty_list); -strInfo = listCons(stringValue("Number _num_"), strInfo); +strInfo = listCons(stringValue("(Value *)&_num_"), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_498"), empty_list); -strInfo = listCons(stringValue("(Value *)&_num_"), strInfo); +strInfo = listCons(stringValue(""), strInfo); strs = listCons((Value *)strInfo, strs); strInfo = listCons(stringValue("_str_499"), empty_list); -strInfo = listCons(stringValue(""), strInfo); +strInfo = listCons(stringValue("")))) - (defn symbol? [sym] (= Symbol (get-type sym))) @@ -2121,6 +2112,16 @@ toccata-core } else return(numberValue(((Number *)arg0)->numVal * ((Number *)arg1)->numVal));\n")) +(defn rem [x y] + (inline-text + "if (arg0->type != NumberType || + arg1->type != NumberType) { + printf(\"\\ninvalid types for 'rem'\\n\"); + abort(); + } else + return(numberValue(((Number *)arg0)->numVal % + ((Number *)arg1)->numVal));\n")) + (def empty-list (inline-text "(Value *)&(List){4,0,0,0};")) @@ -4071,7 +4072,7 @@ toccata-core Eq (=* [mv x] (cond - (type= v x) (= v (.v x)) + (type= mv x) (= v (.v x)) false)) Functor