-
Notifications
You must be signed in to change notification settings - Fork 7
/
toc.c
5832 lines (5464 loc) · 186 KB
/
toc.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
#include "types.h"
#include "runtime.h"
void entry(struct Cora* co);
void _35clofun2849(struct Cora* co);
void _35clofun2850(struct Cora* co);
void _35clofun3160(struct Cora* co);
void _35clofun3200(struct Cora* co);
void _35clofun3201(struct Cora* co);
void _35clofun3206(struct Cora* co);
void _35clofun3209(struct Cora* co);
void _35clofun3212(struct Cora* co);
void _35clofun3213(struct Cora* co);
void _35clofun3210(struct Cora* co);
void _35clofun3211(struct Cora* co);
void _35clofun3207(struct Cora* co);
void _35clofun3208(struct Cora* co);
void _35clofun3204(struct Cora* co);
void _35clofun3205(struct Cora* co);
void _35clofun3202(struct Cora* co);
void _35clofun3203(struct Cora* co);
void _35clofun3199(struct Cora* co);
void _35clofun3198(struct Cora* co);
void _35clofun3197(struct Cora* co);
void _35clofun3196(struct Cora* co);
void _35clofun3195(struct Cora* co);
void _35clofun3194(struct Cora* co);
void _35clofun3193(struct Cora* co);
void _35clofun3192(struct Cora* co);
void _35clofun3191(struct Cora* co);
void _35clofun3190(struct Cora* co);
void _35clofun3189(struct Cora* co);
void _35clofun3188(struct Cora* co);
void _35clofun3187(struct Cora* co);
void _35clofun3186(struct Cora* co);
void _35clofun3185(struct Cora* co);
void _35clofun3184(struct Cora* co);
void _35clofun3178(struct Cora* co);
void _35clofun3179(struct Cora* co);
void _35clofun3180(struct Cora* co);
void _35clofun3181(struct Cora* co);
void _35clofun3182(struct Cora* co);
void _35clofun3183(struct Cora* co);
void _35clofun3170(struct Cora* co);
void _35clofun3171(struct Cora* co);
void _35clofun3172(struct Cora* co);
void _35clofun3175(struct Cora* co);
void _35clofun3176(struct Cora* co);
void _35clofun3177(struct Cora* co);
void _35clofun3173(struct Cora* co);
void _35clofun3174(struct Cora* co);
void _35clofun3166(struct Cora* co);
void _35clofun3167(struct Cora* co);
void _35clofun3169(struct Cora* co);
void _35clofun3168(struct Cora* co);
void _35clofun3161(struct Cora* co);
void _35clofun3162(struct Cora* co);
void _35clofun3163(struct Cora* co);
void _35clofun3164(struct Cora* co);
void _35clofun3165(struct Cora* co);
void _35clofun3157(struct Cora* co);
void _35clofun3158(struct Cora* co);
void _35clofun3159(struct Cora* co);
void _35clofun3154(struct Cora* co);
void _35clofun3155(struct Cora* co);
void _35clofun3156(struct Cora* co);
void _35clofun3152(struct Cora* co);
void _35clofun3153(struct Cora* co);
void _35clofun3151(struct Cora* co);
void _35clofun3150(struct Cora* co);
void _35clofun3149(struct Cora* co);
void _35clofun3148(struct Cora* co);
void _35clofun3141(struct Cora* co);
void _35clofun3143(struct Cora* co);
void _35clofun3144(struct Cora* co);
void _35clofun3145(struct Cora* co);
void _35clofun3146(struct Cora* co);
void _35clofun3147(struct Cora* co);
void _35clofun3142(struct Cora* co);
void _35clofun3133(struct Cora* co);
void _35clofun3134(struct Cora* co);
void _35clofun3136(struct Cora* co);
void _35clofun3137(struct Cora* co);
void _35clofun3138(struct Cora* co);
void _35clofun3139(struct Cora* co);
void _35clofun3140(struct Cora* co);
void _35clofun3135(struct Cora* co);
void _35clofun3129(struct Cora* co);
void _35clofun3130(struct Cora* co);
void _35clofun3131(struct Cora* co);
void _35clofun3132(struct Cora* co);
void _35clofun3128(struct Cora* co);
void _35clofun3122(struct Cora* co);
void _35clofun3123(struct Cora* co);
void _35clofun3125(struct Cora* co);
void _35clofun3126(struct Cora* co);
void _35clofun3127(struct Cora* co);
void _35clofun3124(struct Cora* co);
void _35clofun3111(struct Cora* co);
void _35clofun3113(struct Cora* co);
void _35clofun3114(struct Cora* co);
void _35clofun3115(struct Cora* co);
void _35clofun3116(struct Cora* co);
void _35clofun3117(struct Cora* co);
void _35clofun3118(struct Cora* co);
void _35clofun3121(struct Cora* co);
void _35clofun3119(struct Cora* co);
void _35clofun3120(struct Cora* co);
void _35clofun3112(struct Cora* co);
void _35clofun3103(struct Cora* co);
void _35clofun3104(struct Cora* co);
void _35clofun3106(struct Cora* co);
void _35clofun3107(struct Cora* co);
void _35clofun3108(struct Cora* co);
void _35clofun3109(struct Cora* co);
void _35clofun3110(struct Cora* co);
void _35clofun3105(struct Cora* co);
void _35clofun3031(struct Cora* co);
void _35clofun3032(struct Cora* co);
void _35clofun3100(struct Cora* co);
void _35clofun3101(struct Cora* co);
void _35clofun3102(struct Cora* co);
void _35clofun3033(struct Cora* co);
void _35clofun3098(struct Cora* co);
void _35clofun3099(struct Cora* co);
void _35clofun3034(struct Cora* co);
void _35clofun3096(struct Cora* co);
void _35clofun3097(struct Cora* co);
void _35clofun3035(struct Cora* co);
void _35clofun3090(struct Cora* co);
void _35clofun3093(struct Cora* co);
void _35clofun3094(struct Cora* co);
void _35clofun3095(struct Cora* co);
void _35clofun3091(struct Cora* co);
void _35clofun3092(struct Cora* co);
void _35clofun3087(struct Cora* co);
void _35clofun3088(struct Cora* co);
void _35clofun3089(struct Cora* co);
void _35clofun3036(struct Cora* co);
void _35clofun3077(struct Cora* co);
void _35clofun3083(struct Cora* co);
void _35clofun3084(struct Cora* co);
void _35clofun3085(struct Cora* co);
void _35clofun3086(struct Cora* co);
void _35clofun3078(struct Cora* co);
void _35clofun3079(struct Cora* co);
void _35clofun3080(struct Cora* co);
void _35clofun3081(struct Cora* co);
void _35clofun3082(struct Cora* co);
void _35clofun3037(struct Cora* co);
void _35clofun3073(struct Cora* co);
void _35clofun3074(struct Cora* co);
void _35clofun3075(struct Cora* co);
void _35clofun3076(struct Cora* co);
void _35clofun3038(struct Cora* co);
void _35clofun3067(struct Cora* co);
void _35clofun3068(struct Cora* co);
void _35clofun3069(struct Cora* co);
void _35clofun3070(struct Cora* co);
void _35clofun3071(struct Cora* co);
void _35clofun3072(struct Cora* co);
void _35clofun3039(struct Cora* co);
void _35clofun3057(struct Cora* co);
void _35clofun3058(struct Cora* co);
void _35clofun3059(struct Cora* co);
void _35clofun3060(struct Cora* co);
void _35clofun3061(struct Cora* co);
void _35clofun3062(struct Cora* co);
void _35clofun3063(struct Cora* co);
void _35clofun3064(struct Cora* co);
void _35clofun3065(struct Cora* co);
void _35clofun3066(struct Cora* co);
void _35clofun3040(struct Cora* co);
void _35clofun3055(struct Cora* co);
void _35clofun3056(struct Cora* co);
void _35clofun3041(struct Cora* co);
void _35clofun3053(struct Cora* co);
void _35clofun3054(struct Cora* co);
void _35clofun3042(struct Cora* co);
void _35clofun3043(struct Cora* co);
void _35clofun3052(struct Cora* co);
void _35clofun3044(struct Cora* co);
void _35clofun3046(struct Cora* co);
void _35clofun3047(struct Cora* co);
void _35clofun3048(struct Cora* co);
void _35clofun3051(struct Cora* co);
void _35clofun3049(struct Cora* co);
void _35clofun3050(struct Cora* co);
void _35clofun3045(struct Cora* co);
void _35clofun3029(struct Cora* co);
void _35clofun3030(struct Cora* co);
void _35clofun3024(struct Cora* co);
void _35clofun3028(struct Cora* co);
void _35clofun3025(struct Cora* co);
void _35clofun3027(struct Cora* co);
void _35clofun3026(struct Cora* co);
void _35clofun3014(struct Cora* co);
void _35clofun3022(struct Cora* co);
void _35clofun3023(struct Cora* co);
void _35clofun3020(struct Cora* co);
void _35clofun3021(struct Cora* co);
void _35clofun3018(struct Cora* co);
void _35clofun3019(struct Cora* co);
void _35clofun3015(struct Cora* co);
void _35clofun3016(struct Cora* co);
void _35clofun3017(struct Cora* co);
void _35clofun2996(struct Cora* co);
void _35clofun3013(struct Cora* co);
void _35clofun2997(struct Cora* co);
void _35clofun2998(struct Cora* co);
void _35clofun3012(struct Cora* co);
void _35clofun2999(struct Cora* co);
void _35clofun3007(struct Cora* co);
void _35clofun3008(struct Cora* co);
void _35clofun3009(struct Cora* co);
void _35clofun3010(struct Cora* co);
void _35clofun3011(struct Cora* co);
void _35clofun3000(struct Cora* co);
void _35clofun3004(struct Cora* co);
void _35clofun3005(struct Cora* co);
void _35clofun3006(struct Cora* co);
void _35clofun3001(struct Cora* co);
void _35clofun3003(struct Cora* co);
void _35clofun3002(struct Cora* co);
void _35clofun2986(struct Cora* co);
void _35clofun2990(struct Cora* co);
void _35clofun2991(struct Cora* co);
void _35clofun2995(struct Cora* co);
void _35clofun2992(struct Cora* co);
void _35clofun2994(struct Cora* co);
void _35clofun2993(struct Cora* co);
void _35clofun2987(struct Cora* co);
void _35clofun2989(struct Cora* co);
void _35clofun2988(struct Cora* co);
void _35clofun2968(struct Cora* co);
void _35clofun2985(struct Cora* co);
void _35clofun2969(struct Cora* co);
void _35clofun2984(struct Cora* co);
void _35clofun2970(struct Cora* co);
void _35clofun2981(struct Cora* co);
void _35clofun2982(struct Cora* co);
void _35clofun2983(struct Cora* co);
void _35clofun2971(struct Cora* co);
void _35clofun2979(struct Cora* co);
void _35clofun2980(struct Cora* co);
void _35clofun2972(struct Cora* co);
void _35clofun2977(struct Cora* co);
void _35clofun2978(struct Cora* co);
void _35clofun2973(struct Cora* co);
void _35clofun2976(struct Cora* co);
void _35clofun2974(struct Cora* co);
void _35clofun2975(struct Cora* co);
void _35clofun2967(struct Cora* co);
void _35clofun2952(struct Cora* co);
void _35clofun2966(struct Cora* co);
void _35clofun2953(struct Cora* co);
void _35clofun2965(struct Cora* co);
void _35clofun2954(struct Cora* co);
void _35clofun2961(struct Cora* co);
void _35clofun2962(struct Cora* co);
void _35clofun2963(struct Cora* co);
void _35clofun2964(struct Cora* co);
void _35clofun2955(struct Cora* co);
void _35clofun2959(struct Cora* co);
void _35clofun2960(struct Cora* co);
void _35clofun2956(struct Cora* co);
void _35clofun2958(struct Cora* co);
void _35clofun2957(struct Cora* co);
void _35clofun2929(struct Cora* co);
void _35clofun2951(struct Cora* co);
void _35clofun2930(struct Cora* co);
void _35clofun2931(struct Cora* co);
void _35clofun2950(struct Cora* co);
void _35clofun2932(struct Cora* co);
void _35clofun2949(struct Cora* co);
void _35clofun2933(struct Cora* co);
void _35clofun2948(struct Cora* co);
void _35clofun2934(struct Cora* co);
void _35clofun2945(struct Cora* co);
void _35clofun2946(struct Cora* co);
void _35clofun2947(struct Cora* co);
void _35clofun2935(struct Cora* co);
void _35clofun2936(struct Cora* co);
void _35clofun2937(struct Cora* co);
void _35clofun2944(struct Cora* co);
void _35clofun2938(struct Cora* co);
void _35clofun2939(struct Cora* co);
void _35clofun2943(struct Cora* co);
void _35clofun2940(struct Cora* co);
void _35clofun2942(struct Cora* co);
void _35clofun2941(struct Cora* co);
void _35clofun2922(struct Cora* co);
void _35clofun2923(struct Cora* co);
void _35clofun2924(struct Cora* co);
void _35clofun2925(struct Cora* co);
void _35clofun2926(struct Cora* co);
void _35clofun2927(struct Cora* co);
void _35clofun2928(struct Cora* co);
void _35clofun2916(struct Cora* co);
void _35clofun2917(struct Cora* co);
void _35clofun2921(struct Cora* co);
void _35clofun2918(struct Cora* co);
void _35clofun2920(struct Cora* co);
void _35clofun2919(struct Cora* co);
void _35clofun2910(struct Cora* co);
void _35clofun2911(struct Cora* co);
void _35clofun2915(struct Cora* co);
void _35clofun2912(struct Cora* co);
void _35clofun2914(struct Cora* co);
void _35clofun2913(struct Cora* co);
void _35clofun2880(struct Cora* co);
void _35clofun2907(struct Cora* co);
void _35clofun2908(struct Cora* co);
void _35clofun2909(struct Cora* co);
void _35clofun2881(struct Cora* co);
void _35clofun2882(struct Cora* co);
void _35clofun2906(struct Cora* co);
void _35clofun2883(struct Cora* co);
void _35clofun2904(struct Cora* co);
void _35clofun2905(struct Cora* co);
void _35clofun2884(struct Cora* co);
void _35clofun2902(struct Cora* co);
void _35clofun2903(struct Cora* co);
void _35clofun2885(struct Cora* co);
void _35clofun2900(struct Cora* co);
void _35clofun2901(struct Cora* co);
void _35clofun2886(struct Cora* co);
void _35clofun2898(struct Cora* co);
void _35clofun2899(struct Cora* co);
void _35clofun2887(struct Cora* co);
void _35clofun2891(struct Cora* co);
void _35clofun2892(struct Cora* co);
void _35clofun2893(struct Cora* co);
void _35clofun2896(struct Cora* co);
void _35clofun2897(struct Cora* co);
void _35clofun2894(struct Cora* co);
void _35clofun2895(struct Cora* co);
void _35clofun2888(struct Cora* co);
void _35clofun2890(struct Cora* co);
void _35clofun2889(struct Cora* co);
void _35clofun2877(struct Cora* co);
void _35clofun2878(struct Cora* co);
void _35clofun2879(struct Cora* co);
void _35clofun2874(struct Cora* co);
void _35clofun2875(struct Cora* co);
void _35clofun2876(struct Cora* co);
void _35clofun2871(struct Cora* co);
void _35clofun2872(struct Cora* co);
void _35clofun2873(struct Cora* co);
void _35clofun2868(struct Cora* co);
void _35clofun2869(struct Cora* co);
void _35clofun2870(struct Cora* co);
void _35clofun2864(struct Cora* co);
void _35clofun2865(struct Cora* co);
void _35clofun2867(struct Cora* co);
void _35clofun2866(struct Cora* co);
void _35clofun2863(struct Cora* co);
void _35clofun2859(struct Cora* co);
void _35clofun2860(struct Cora* co);
void _35clofun2861(struct Cora* co);
void _35clofun2862(struct Cora* co);
void _35clofun2855(struct Cora* co);
void _35clofun2856(struct Cora* co);
void _35clofun2858(struct Cora* co);
void _35clofun2857(struct Cora* co);
void _35clofun2851(struct Cora* co);
void _35clofun2852(struct Cora* co);
void _35clofun2853(struct Cora* co);
void _35clofun2854(struct Cora* co);
void entry(struct Cora* co) {
pushCont(co, 0, _35clofun2849, 0);
coraCall(co, 2, globalRef(intern("import")), makeString1("cora/lib/toc/internal"));
}
void _35clofun2849(struct Cora* co) {
Obj _35val1398 = co->args[1];
pushCont(co, 0, _35clofun2850, 0);
coraCall(co, 2, globalRef(intern("import")), makeString1("cora/lib/io"));
}
void _35clofun2850(struct Cora* co) {
Obj _35val1399 = co->args[1];
Obj _35reg1414 = primSet(intern("cora/lib/toc.assq"), makeNative(0, _35clofun2851, 2, 0));
Obj _35reg1420 = primSet(intern("cora/lib/toc.foldl"), makeNative(0, _35clofun2855, 3, 0));
Obj _35reg1430 = primSet(intern("cora/lib/toc.pos-in-list0"), makeNative(0, _35clofun2859, 3, 0));
Obj _35reg1431 = primSet(intern("cora/lib/toc.index"), makeNative(0, _35clofun2863, 2, 0));
Obj _35reg1438 = primSet(intern("cora/lib/toc.exist-in-env"), makeNative(0, _35clofun2864, 2, 0));
Obj _35reg1439 = primCons(intern("primSet"), Nil);
Obj _35reg1440 = primCons(makeNumber(2), _35reg1439);
Obj _35reg1441 = primCons(intern("set"), _35reg1440);
Obj _35reg1442 = primCons(intern("primCar"), Nil);
Obj _35reg1443 = primCons(makeNumber(1), _35reg1442);
Obj _35reg1444 = primCons(intern("car"), _35reg1443);
Obj _35reg1445 = primCons(intern("primCdr"), Nil);
Obj _35reg1446 = primCons(makeNumber(1), _35reg1445);
Obj _35reg1447 = primCons(intern("cdr"), _35reg1446);
Obj _35reg1448 = primCons(intern("primCons"), Nil);
Obj _35reg1449 = primCons(makeNumber(2), _35reg1448);
Obj _35reg1450 = primCons(intern("cons"), _35reg1449);
Obj _35reg1451 = primCons(intern("primIsCons"), Nil);
Obj _35reg1452 = primCons(makeNumber(1), _35reg1451);
Obj _35reg1453 = primCons(intern("cons?"), _35reg1452);
Obj _35reg1454 = primCons(intern("primAdd"), Nil);
Obj _35reg1455 = primCons(makeNumber(2), _35reg1454);
Obj _35reg1456 = primCons(intern("+"), _35reg1455);
Obj _35reg1457 = primCons(intern("primSub"), Nil);
Obj _35reg1458 = primCons(makeNumber(2), _35reg1457);
Obj _35reg1459 = primCons(intern("-"), _35reg1458);
Obj _35reg1460 = primCons(intern("primMul"), Nil);
Obj _35reg1461 = primCons(makeNumber(2), _35reg1460);
Obj _35reg1462 = primCons(intern("*"), _35reg1461);
Obj _35reg1463 = primCons(intern("primDiv"), Nil);
Obj _35reg1464 = primCons(makeNumber(2), _35reg1463);
Obj _35reg1465 = primCons(intern("/"), _35reg1464);
Obj _35reg1466 = primCons(intern("primEQ"), Nil);
Obj _35reg1467 = primCons(makeNumber(2), _35reg1466);
Obj _35reg1468 = primCons(intern("="), _35reg1467);
Obj _35reg1469 = primCons(intern("primGT"), Nil);
Obj _35reg1470 = primCons(makeNumber(2), _35reg1469);
Obj _35reg1471 = primCons(intern(">"), _35reg1470);
Obj _35reg1472 = primCons(intern("primLT"), Nil);
Obj _35reg1473 = primCons(makeNumber(2), _35reg1472);
Obj _35reg1474 = primCons(intern("<"), _35reg1473);
Obj _35reg1475 = primCons(intern("primGenSym"), Nil);
Obj _35reg1476 = primCons(makeNumber(1), _35reg1475);
Obj _35reg1477 = primCons(intern("gensym"), _35reg1476);
Obj _35reg1478 = primCons(intern("primIsSymbol"), Nil);
Obj _35reg1479 = primCons(makeNumber(1), _35reg1478);
Obj _35reg1480 = primCons(intern("symbol?"), _35reg1479);
Obj _35reg1481 = primCons(intern("primNot"), Nil);
Obj _35reg1482 = primCons(makeNumber(1), _35reg1481);
Obj _35reg1483 = primCons(intern("not"), _35reg1482);
Obj _35reg1484 = primCons(intern("primIsNumber"), Nil);
Obj _35reg1485 = primCons(makeNumber(1), _35reg1484);
Obj _35reg1486 = primCons(intern("integer?"), _35reg1485);
Obj _35reg1487 = primCons(intern("primIsString"), Nil);
Obj _35reg1488 = primCons(makeNumber(1), _35reg1487);
Obj _35reg1489 = primCons(intern("string?"), _35reg1488);
Obj _35reg1490 = primCons(_35reg1489, Nil);
Obj _35reg1491 = primCons(_35reg1486, _35reg1490);
Obj _35reg1492 = primCons(_35reg1483, _35reg1491);
Obj _35reg1493 = primCons(_35reg1480, _35reg1492);
Obj _35reg1494 = primCons(_35reg1477, _35reg1493);
Obj _35reg1495 = primCons(_35reg1474, _35reg1494);
Obj _35reg1496 = primCons(_35reg1471, _35reg1495);
Obj _35reg1497 = primCons(_35reg1468, _35reg1496);
Obj _35reg1498 = primCons(_35reg1465, _35reg1497);
Obj _35reg1499 = primCons(_35reg1462, _35reg1498);
Obj _35reg1500 = primCons(_35reg1459, _35reg1499);
Obj _35reg1501 = primCons(_35reg1456, _35reg1500);
Obj _35reg1502 = primCons(_35reg1453, _35reg1501);
Obj _35reg1503 = primCons(_35reg1450, _35reg1502);
Obj _35reg1504 = primCons(_35reg1447, _35reg1503);
Obj _35reg1505 = primCons(_35reg1444, _35reg1504);
Obj _35reg1506 = primCons(_35reg1441, _35reg1505);
Obj _35reg1507 = primSet(intern("cora/lib/toc.*builtin-prims*"), _35reg1506);
Obj _35reg1511 = primSet(intern("builtin?"), makeNative(0, _35clofun2868, 1, 0));
Obj _35reg1514 = primSet(intern("cora/lib/toc.builtin->name"), makeNative(0, _35clofun2871, 1, 0));
Obj _35reg1517 = primSet(intern("cora/lib/toc.builtin->args"), makeNative(0, _35clofun2874, 1, 0));
Obj _35reg1522 = primSet(intern("cora/lib/toc.temp-list"), makeNative(0, _35clofun2877, 2, 0));
Obj _35reg1658 = primSet(intern("cora/lib/toc.parse"), makeNative(0, _35clofun2880, 2, 0));
Obj _35reg1669 = primSet(intern("cora/lib/toc.union"), makeNative(0, _35clofun2910, 2, 0));
Obj _35reg1680 = primSet(intern("cora/lib/toc.diff"), makeNative(0, _35clofun2916, 2, 0));
Obj _35reg1731 = primSet(intern("cora/lib/toc.convert-protect?"), makeNative(0, _35clofun2922, 1, 0));
Obj _35reg1906 = primSet(intern("cora/lib/toc.free-vars"), makeNative(0, _35clofun2929, 1, 0));
Obj _35reg1979 = primSet(intern("cora/lib/toc.closure-convert"), makeNative(0, _35clofun2952, 2, 0));
Obj _35reg1982 = primSet(intern("cora/lib/toc.id"), makeNative(0, _35clofun2967, 1, 0));
Obj _35reg2119 = primSet(intern("cora/lib/toc.tailify"), makeNative(0, _35clofun2968, 2, 0));
Obj _35reg2166 = primSet(intern("cora/lib/toc.tailify-list"), makeNative(0, _35clofun2986, 3, 0));
Obj _35reg2245 = primSet(intern("cora/lib/toc.explicit-stack"), makeNative(0, _35clofun2996, 2, 0));
Obj _35reg2352 = primSet(intern("cora/lib/toc.collect-lambda"), makeNative(0, _35clofun3014, 3, 0));
Obj _35reg2359 = primSet(intern("cora/lib/toc.collect-lambda-list"), makeNative(0, _35clofun3024, 4, 0));
Obj _35reg2366 = primSet(intern("cora/lib/toc.wrap-var"), makeNative(0, _35clofun3029, 2, 0));
Obj _35reg2617 = primSet(intern("cora/lib/toc.generate-inst"), makeNative(0, _35clofun3031, 3, 0));
Obj _35reg2628 = primSet(intern("cora/lib/toc.generate-call-args"), makeNative(0, _35clofun3103, 4, 0));
Obj _35reg2647 = primSet(intern("cora/lib/toc.generate-cont"), makeNative(0, _35clofun3111, 2, 0));
Obj _35reg2656 = primSet(intern("cora/lib/toc.generate-inst-list-h"), makeNative(0, _35clofun3122, 4, 0));
Obj _35reg2657 = primSet(intern("cora/lib/toc.generate-inst-list"), makeNative(0, _35clofun3128, 3, 0));
Obj _35reg2661 = primSet(intern("cora/lib/toc.code-gen-func-declare"), makeNative(0, _35clofun3129, 2, 0));
Obj _35reg2672 = primSet(intern("cora/lib/toc.generate-call-args-reverse"), makeNative(0, _35clofun3133, 5, 0));
Obj _35reg2729 = primSet(intern("cora/lib/toc.code-gen-toplevel"), makeNative(0, _35clofun3141, 2, 0));
Obj _35reg2730 = primSet(intern("cora/lib/toc.parse-pass"), makeNative(0, _35clofun3148, 1, 0));
Obj _35reg2731 = primSet(intern("cora/lib/toc.closure-convert-pass"), makeNative(0, _35clofun3149, 1, 0));
Obj _35reg2732 = primSet(intern("cora/lib/toc.tailify-pass"), makeNative(0, _35clofun3150, 1, 0));
Obj _35reg2733 = primSet(intern("cora/lib/toc.explicit-stack-pass"), makeNative(0, _35clofun3151, 1, 0));
Obj _35reg2741 = primSet(intern("cora/lib/toc.collect-lambda-pass"), makeNative(0, _35clofun3152, 1, 0));
Obj _35reg2748 = primSet(intern("cora/lib/toc.rewrite-->macro"), makeNative(0, _35clofun3154, 2, 0));
pushCont(co, 0, _35clofun3160, 0);
coraCall(co, 3, globalRef(intern("cora/init.add-to-*macros*")), intern("->"), makeNative(0, _35clofun3157, 1, 0));
}
void _35clofun3160(struct Cora* co) {
Obj _35val2751 = co->args[1];
Obj _35reg2756 = primSet(intern("cora/lib/toc.compile"), makeNative(0, _35clofun3161, 1, 0));
Obj _35reg2762 = primSet(intern("for-each"), makeNative(0, _35clofun3166, 2, 0));
Obj _35reg2769 = primSet(intern("cora/lib/toc.generate-c"), makeNative(0, _35clofun3170, 2, 0));
Obj _35reg2775 = primSet(intern("cora/lib/toc.compile-to-c"), makeNative(0, _35clofun3178, 3, 0));
Obj _35reg2777 = primSet(intern("set"), makeNative(0, _35clofun3184, 2, 0));
Obj _35reg2779 = primSet(intern("car"), makeNative(0, _35clofun3185, 1, 0));
Obj _35reg2781 = primSet(intern("cdr"), makeNative(0, _35clofun3186, 1, 0));
Obj _35reg2783 = primSet(intern("cons"), makeNative(0, _35clofun3187, 2, 0));
Obj _35reg2785 = primSet(intern("cons"), makeNative(0, _35clofun3188, 2, 0));
Obj _35reg2787 = primSet(intern("+"), makeNative(0, _35clofun3189, 2, 0));
Obj _35reg2789 = primSet(intern("-"), makeNative(0, _35clofun3190, 2, 0));
Obj _35reg2791 = primSet(intern("*"), makeNative(0, _35clofun3191, 2, 0));
Obj _35reg2793 = primSet(intern("/"), makeNative(0, _35clofun3192, 2, 0));
Obj _35reg2795 = primSet(intern("="), makeNative(0, _35clofun3193, 2, 0));
Obj _35reg2797 = primSet(intern(">"), makeNative(0, _35clofun3194, 2, 0));
Obj _35reg2799 = primSet(intern("<"), makeNative(0, _35clofun3195, 2, 0));
Obj _35reg2801 = primSet(intern("gensym"), makeNative(0, _35clofun3196, 1, 0));
Obj _35reg2803 = primSet(intern("symbol?"), makeNative(0, _35clofun3197, 1, 0));
Obj _35reg2805 = primSet(intern("not"), makeNative(0, _35clofun3198, 1, 0));
Obj _35reg2807 = primSet(intern("string?"), makeNative(0, _35clofun3199, 1, 0));
Obj _35reg2848 = primSet(intern("cora/lib/toc.eval0"), makeNative(0, _35clofun3200, 1, 0));
coraReturn(co, _35reg2848);
return;
}
void _35clofun3200(struct Cora* co) {
Obj exp = co->args[1];
Obj _35reg2808 = primIsSymbol(exp);
if (True == _35reg2808) {
coraCall(co, 2, globalRef(intern("value")), exp);
} else {
pushCont(co, 0, _35clofun3201, 1, exp);
coraCall(co, 2, globalRef(intern("number?")), exp);
}
}
void _35clofun3201(struct Cora* co) {
Obj _35val2809 = co->args[1];
Obj exp = co->ctx.stk.stack[co->ctx.stk.base + 0];
if (True == _35val2809) {
if (True == True) {
coraReturn(co, exp);
return;
} else {
Obj _35reg2810 = primIsCons(exp);
if (True == _35reg2810) {
Obj _35reg2811 = primCar(exp);
Obj _35reg2812 = primEQ(_35reg2811, intern("quote"));
if (True == _35reg2812) {
coraCall(co, 2, globalRef(intern("cadr")), exp);
} else {
Obj _35reg2813 = primCar(exp);
pushCont(co, 0, _35clofun3202, 1, exp);
coraCall(co, 2, globalRef(intern("cora/lib/toc.eval0")), _35reg2813);
}
} else {
coraCall(co, 2, globalRef(intern("error")), makeString1("no cond match"));
}
}
} else {
Obj _35reg2817 = primIsString(exp);
if (True == _35reg2817) {
if (True == True) {
coraReturn(co, exp);
return;
} else {
Obj _35reg2818 = primIsCons(exp);
if (True == _35reg2818) {
Obj _35reg2819 = primCar(exp);
Obj _35reg2820 = primEQ(_35reg2819, intern("quote"));
if (True == _35reg2820) {
coraCall(co, 2, globalRef(intern("cadr")), exp);
} else {
Obj _35reg2821 = primCar(exp);
pushCont(co, 0, _35clofun3204, 1, exp);
coraCall(co, 2, globalRef(intern("cora/lib/toc.eval0")), _35reg2821);
}
} else {
coraCall(co, 2, globalRef(intern("error")), makeString1("no cond match"));
}
}
} else {
pushCont(co, 0, _35clofun3206, 1, exp);
coraCall(co, 2, globalRef(intern("boolean?")), exp);
}
}
}
void _35clofun3206(struct Cora* co) {
Obj _35val2825 = co->args[1];
Obj exp = co->ctx.stk.stack[co->ctx.stk.base + 0];
if (True == _35val2825) {
if (True == True) {
coraReturn(co, exp);
return;
} else {
Obj _35reg2826 = primIsCons(exp);
if (True == _35reg2826) {
Obj _35reg2827 = primCar(exp);
Obj _35reg2828 = primEQ(_35reg2827, intern("quote"));
if (True == _35reg2828) {
coraCall(co, 2, globalRef(intern("cadr")), exp);
} else {
Obj _35reg2829 = primCar(exp);
pushCont(co, 0, _35clofun3207, 1, exp);
coraCall(co, 2, globalRef(intern("cora/lib/toc.eval0")), _35reg2829);
}
} else {
coraCall(co, 2, globalRef(intern("error")), makeString1("no cond match"));
}
}
} else {
pushCont(co, 0, _35clofun3209, 1, exp);
coraCall(co, 2, globalRef(intern("null?")), exp);
}
}
void _35clofun3209(struct Cora* co) {
Obj _35val2833 = co->args[1];
Obj exp = co->ctx.stk.stack[co->ctx.stk.base + 0];
if (True == _35val2833) {
if (True == True) {
coraReturn(co, exp);
return;
} else {
Obj _35reg2834 = primIsCons(exp);
if (True == _35reg2834) {
Obj _35reg2835 = primCar(exp);
Obj _35reg2836 = primEQ(_35reg2835, intern("quote"));
if (True == _35reg2836) {
coraCall(co, 2, globalRef(intern("cadr")), exp);
} else {
Obj _35reg2837 = primCar(exp);
pushCont(co, 0, _35clofun3210, 1, exp);
coraCall(co, 2, globalRef(intern("cora/lib/toc.eval0")), _35reg2837);
}
} else {
coraCall(co, 2, globalRef(intern("error")), makeString1("no cond match"));
}
}
} else {
if (True == False) {
coraReturn(co, exp);
return;
} else {
Obj _35reg2841 = primIsCons(exp);
if (True == _35reg2841) {
Obj _35reg2842 = primCar(exp);
Obj _35reg2843 = primEQ(_35reg2842, intern("quote"));
if (True == _35reg2843) {
coraCall(co, 2, globalRef(intern("cadr")), exp);
} else {
Obj _35reg2844 = primCar(exp);
pushCont(co, 0, _35clofun3212, 1, exp);
coraCall(co, 2, globalRef(intern("cora/lib/toc.eval0")), _35reg2844);
}
} else {
coraCall(co, 2, globalRef(intern("error")), makeString1("no cond match"));
}
}
}
}
void _35clofun3212(struct Cora* co) {
Obj _35val2845 = co->args[1];
Obj exp = co->ctx.stk.stack[co->ctx.stk.base + 0];
Obj _35reg2846 = primCdr(exp);
pushCont(co, 0, _35clofun3213, 1, _35val2845);
coraCall(co, 3, globalRef(intern("map")), globalRef(intern("cora/lib/toc.eval0")), _35reg2846);
}
void _35clofun3213(struct Cora* co) {
Obj _35val2847 = co->args[1];
Obj _35val2845 = co->ctx.stk.stack[co->ctx.stk.base + 0];
coraCall(co, 3, globalRef(intern("apply")), _35val2845, _35val2847);
}
void _35clofun3210(struct Cora* co) {
Obj _35val2838 = co->args[1];
Obj exp = co->ctx.stk.stack[co->ctx.stk.base + 0];
Obj _35reg2839 = primCdr(exp);
pushCont(co, 0, _35clofun3211, 1, _35val2838);
coraCall(co, 3, globalRef(intern("map")), globalRef(intern("cora/lib/toc.eval0")), _35reg2839);
}
void _35clofun3211(struct Cora* co) {
Obj _35val2840 = co->args[1];
Obj _35val2838 = co->ctx.stk.stack[co->ctx.stk.base + 0];
coraCall(co, 3, globalRef(intern("apply")), _35val2838, _35val2840);
}
void _35clofun3207(struct Cora* co) {
Obj _35val2830 = co->args[1];
Obj exp = co->ctx.stk.stack[co->ctx.stk.base + 0];
Obj _35reg2831 = primCdr(exp);
pushCont(co, 0, _35clofun3208, 1, _35val2830);
coraCall(co, 3, globalRef(intern("map")), globalRef(intern("cora/lib/toc.eval0")), _35reg2831);
}
void _35clofun3208(struct Cora* co) {
Obj _35val2832 = co->args[1];
Obj _35val2830 = co->ctx.stk.stack[co->ctx.stk.base + 0];
coraCall(co, 3, globalRef(intern("apply")), _35val2830, _35val2832);
}
void _35clofun3204(struct Cora* co) {
Obj _35val2822 = co->args[1];
Obj exp = co->ctx.stk.stack[co->ctx.stk.base + 0];
Obj _35reg2823 = primCdr(exp);
pushCont(co, 0, _35clofun3205, 1, _35val2822);
coraCall(co, 3, globalRef(intern("map")), globalRef(intern("cora/lib/toc.eval0")), _35reg2823);
}
void _35clofun3205(struct Cora* co) {
Obj _35val2824 = co->args[1];
Obj _35val2822 = co->ctx.stk.stack[co->ctx.stk.base + 0];
coraCall(co, 3, globalRef(intern("apply")), _35val2822, _35val2824);
}
void _35clofun3202(struct Cora* co) {
Obj _35val2814 = co->args[1];
Obj exp = co->ctx.stk.stack[co->ctx.stk.base + 0];
Obj _35reg2815 = primCdr(exp);
pushCont(co, 0, _35clofun3203, 1, _35val2814);
coraCall(co, 3, globalRef(intern("map")), globalRef(intern("cora/lib/toc.eval0")), _35reg2815);
}
void _35clofun3203(struct Cora* co) {
Obj _35val2816 = co->args[1];
Obj _35val2814 = co->ctx.stk.stack[co->ctx.stk.base + 0];
coraCall(co, 3, globalRef(intern("apply")), _35val2814, _35val2816);
}
void _35clofun3199(struct Cora* co) {
Obj _35tmp1397 = co->args[1];
Obj _35reg2806 = primIsString(_35tmp1397);
coraReturn(co, _35reg2806);
return;
}
void _35clofun3198(struct Cora* co) {
Obj _35tmp1396 = co->args[1];
Obj _35reg2804 = primNot(_35tmp1396);
coraReturn(co, _35reg2804);
return;
}
void _35clofun3197(struct Cora* co) {
Obj _35tmp1395 = co->args[1];
Obj _35reg2802 = primIsSymbol(_35tmp1395);
coraReturn(co, _35reg2802);
return;
}
void _35clofun3196(struct Cora* co) {
Obj _35tmp1394 = co->args[1];
Obj _35reg2800 = primGenSym(_35tmp1394);
coraReturn(co, _35reg2800);
return;
}
void _35clofun3195(struct Cora* co) {
Obj _35tmp1393 = co->args[1];
Obj _35tmp1392 = co->args[2];
Obj _35reg2798 = primLT(_35tmp1393, _35tmp1392);
coraReturn(co, _35reg2798);
return;
}
void _35clofun3194(struct Cora* co) {
Obj _35tmp1391 = co->args[1];
Obj _35tmp1390 = co->args[2];
Obj _35reg2796 = primGT(_35tmp1391, _35tmp1390);
coraReturn(co, _35reg2796);
return;
}
void _35clofun3193(struct Cora* co) {
Obj _35tmp1389 = co->args[1];
Obj _35tmp1388 = co->args[2];
Obj _35reg2794 = primEQ(_35tmp1389, _35tmp1388);
coraReturn(co, _35reg2794);
return;
}
void _35clofun3192(struct Cora* co) {
Obj _35tmp1387 = co->args[1];
Obj _35tmp1386 = co->args[2];
Obj _35reg2792 = primDiv(_35tmp1387, _35tmp1386);
coraReturn(co, _35reg2792);
return;
}
void _35clofun3191(struct Cora* co) {
Obj _35tmp1385 = co->args[1];
Obj _35tmp1384 = co->args[2];
Obj _35reg2790 = primMul(_35tmp1385, _35tmp1384);
coraReturn(co, _35reg2790);
return;
}
void _35clofun3190(struct Cora* co) {
Obj _35tmp1383 = co->args[1];
Obj _35tmp1382 = co->args[2];
Obj _35reg2788 = primSub(_35tmp1383, _35tmp1382);
coraReturn(co, _35reg2788);
return;
}
void _35clofun3189(struct Cora* co) {
Obj _35tmp1381 = co->args[1];
Obj _35tmp1380 = co->args[2];
Obj _35reg2786 = primAdd(_35tmp1381, _35tmp1380);
coraReturn(co, _35reg2786);
return;
}
void _35clofun3188(struct Cora* co) {
Obj _35tmp1379 = co->args[1];
Obj _35tmp1378 = co->args[2];
Obj _35reg2784 = primCons(_35tmp1379, _35tmp1378);
coraReturn(co, _35reg2784);
return;
}
void _35clofun3187(struct Cora* co) {
Obj _35tmp1377 = co->args[1];
Obj _35tmp1376 = co->args[2];
Obj _35reg2782 = primCons(_35tmp1377, _35tmp1376);
coraReturn(co, _35reg2782);
return;
}
void _35clofun3186(struct Cora* co) {
Obj _35tmp1375 = co->args[1];
Obj _35reg2780 = primCdr(_35tmp1375);
coraReturn(co, _35reg2780);
return;
}
void _35clofun3185(struct Cora* co) {
Obj _35tmp1374 = co->args[1];
Obj _35reg2778 = primCar(_35tmp1374);
coraReturn(co, _35reg2778);
return;
}
void _35clofun3184(struct Cora* co) {
Obj _35tmp1373 = co->args[1];
Obj _35tmp1372 = co->args[2];
Obj _35reg2776 = primSet(_35tmp1373, _35tmp1372);
coraReturn(co, _35reg2776);
return;
}
void _35clofun3178(struct Cora* co) {
Obj from = co->args[1];
Obj to = co->args[2];
Obj pkg_45str = co->args[3];
pushCont(co, 0, _35clofun3179, 1, to);
coraCall(co, 3, globalRef(intern("read-file-as-sexp")), from, pkg_45str);
}
void _35clofun3179(struct Cora* co) {
Obj _35val2770 = co->args[1];
Obj to = co->ctx.stk.stack[co->ctx.stk.base + 0];
Obj sexp = _35val2770;
pushCont(co, 0, _35clofun3180, 1, to);
coraCall(co, 2, globalRef(intern("macroexpand")), sexp);
}
void _35clofun3180(struct Cora* co) {
Obj _35val2771 = co->args[1];
Obj to = co->ctx.stk.stack[co->ctx.stk.base + 0];
Obj input = _35val2771;
pushCont(co, 0, _35clofun3181, 1, to);
coraCall(co, 2, globalRef(intern("cora/lib/toc.compile")), input);
}
void _35clofun3181(struct Cora* co) {
Obj _35val2772 = co->args[1];
Obj to = co->ctx.stk.stack[co->ctx.stk.base + 0];
Obj bc = _35val2772;
pushCont(co, 0, _35clofun3182, 1, bc);
coraCall(co, 2, globalRef(intern("cora/lib/io.open-output-file")), to);
}
void _35clofun3182(struct Cora* co) {
Obj _35val2773 = co->args[1];
Obj bc = co->ctx.stk.stack[co->ctx.stk.base + 0];
Obj stream = _35val2773;
pushCont(co, 0, _35clofun3183, 1, stream);
coraCall(co, 3, globalRef(intern("cora/lib/toc.generate-c")), stream, bc);
}
void _35clofun3183(struct Cora* co) {
Obj _35val2774 = co->args[1];
Obj stream = co->ctx.stk.stack[co->ctx.stk.base + 0];
coraCall(co, 2, globalRef(intern("cora/lib/io.close-output-file")), stream);
}
void _35clofun3170(struct Cora* co) {
Obj to = co->args[1];
Obj bc = co->args[2];
pushCont(co, 0, _35clofun3171, 2, to, bc);
coraCall(co, 3, globalRef(intern("cora/lib/toc/internal.generate-str")), to, makeString1("#include \"types.h\"\n"));
}
void _35clofun3171(struct Cora* co) {
Obj _35val2763 = co->args[1];
Obj to = co->ctx.stk.stack[co->ctx.stk.base + 0];
Obj bc = co->ctx.stk.stack[co->ctx.stk.base + 1];
pushCont(co, 0, _35clofun3172, 2, to, bc);
coraCall(co, 3, globalRef(intern("cora/lib/toc/internal.generate-str")), to, makeString1("#include \"runtime.h\"\n\n"));
}
void _35clofun3172(struct Cora* co) {
Obj _35val2764 = co->args[1];
Obj to = co->ctx.stk.stack[co->ctx.stk.base + 0];
Obj bc = co->ctx.stk.stack[co->ctx.stk.base + 1];
pushCont(co, 0, _35clofun3175, 2, to, bc);
coraCall(co, 3, globalRef(intern("for-each")), makeNative(0, _35clofun3173, 1, 1, to), bc);
}
void _35clofun3175(struct Cora* co) {
Obj _35val2767 = co->args[1];
Obj to = co->ctx.stk.stack[co->ctx.stk.base + 0];
Obj bc = co->ctx.stk.stack[co->ctx.stk.base + 1];
pushCont(co, 0, _35clofun3176, 2, to, bc);
coraCall(co, 3, globalRef(intern("cora/lib/toc/internal.generate-str")), to, makeString1("\n"));
}
void _35clofun3176(struct Cora* co) {
Obj _35val2768 = co->args[1];
Obj to = co->ctx.stk.stack[co->ctx.stk.base + 0];
Obj bc = co->ctx.stk.stack[co->ctx.stk.base + 1];
coraCall(co, 3, globalRef(intern("for-each")), makeNative(0, _35clofun3177, 1, 1, to), bc);
}
void _35clofun3177(struct Cora* co) {
Obj x = co->args[1];
coraCall(co, 3, globalRef(intern("cora/lib/toc.code-gen-toplevel")), closureRef(co, 0), x);
}
void _35clofun3173(struct Cora* co) {
Obj x = co->args[1];
Obj _35reg2765 = primCar(x);
pushCont(co, 0, _35clofun3174, 0);
coraCall(co, 3, globalRef(intern("cora/lib/toc.code-gen-func-declare")), closureRef(co, 0), _35reg2765);
}
void _35clofun3174(struct Cora* co) {
Obj _35val2766 = co->args[1];
coraCall(co, 3, globalRef(intern("cora/lib/toc/internal.generate-str")), closureRef(co, 0), makeString1(";\n"));
}
void _35clofun3166(struct Cora* co) {
Obj _35p1368 = co->args[1];
Obj _35p1369 = co->args[2];
Obj _35cc1370 = makeNative(0, _35clofun3167, 0, 2, _35p1368, _35p1369);
Obj fn = _35p1368;
Obj _35reg2761 = primEQ(Nil, _35p1369);
if (True == _35reg2761) {
coraReturn(co, Nil);
return;
} else {
coraCall(co, 1, _35cc1370);
}
}
void _35clofun3167(struct Cora* co) {
Obj _35cc1371 = makeNative(0, _35clofun3168, 0, 0);
Obj fn = closureRef(co, 0);
Obj _35reg2757 = primIsCons(closureRef(co, 1));
if (True == _35reg2757) {
Obj _35reg2758 = primCar(closureRef(co, 1));
Obj x = _35reg2758;
Obj _35reg2759 = primCdr(closureRef(co, 1));
Obj y = _35reg2759;
pushCont(co, 0, _35clofun3169, 2, fn, y);
coraCall(co, 2, fn, x);
} else {
coraCall(co, 1, _35cc1371);
}
}
void _35clofun3169(struct Cora* co) {
Obj _35val2760 = co->args[1];
Obj fn = co->ctx.stk.stack[co->ctx.stk.base + 0];
Obj y = co->ctx.stk.stack[co->ctx.stk.base + 1];
coraCall(co, 3, globalRef(intern("for-each")), fn, y);
}
void _35clofun3168(struct Cora* co) {
coraCall(co, 2, globalRef(intern("error")), makeString1("no match-help found!"));
}
void _35clofun3161(struct Cora* co) {
Obj exp = co->args[1];
pushCont(co, 0, _35clofun3162, 0);
coraCall(co, 2, globalRef(intern("cora/lib/toc.parse-pass")), exp);
}
void _35clofun3162(struct Cora* co) {
Obj _35val2752 = co->args[1];
pushCont(co, 0, _35clofun3163, 0);