/*===========================================================================*/
/*   (Match/s2cfun.scm)                                                      */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Match/s2cfun.scm -indent -o objs/obj_u/Match/s2cfun.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* unsafe mode */
#define BIGLOO_UNSAFE 1

/* traces mode */
#define BIGLOO_TRACE 0

/* standard Bigloo include */
#include <bigloo.h>

#ifdef __cplusplus
extern "C"
{
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___MATCH_S2CFUN_TYPE_DEFINITIONS
#define BGL___MATCH_S2CFUN_TYPE_DEFINITIONS
#endif													// BGL___MATCH_S2CFUN_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	extern obj_t BGl_putpropz12z12zz__r4_symbols_6_4z00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62concatz62zz__match_s2cfunz00(obj_t, obj_t);
	extern obj_t BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__match_s2cfunz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zz__match_s2cfunz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	static obj_t BGl_z62ormapz62zz__match_s2cfunz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
	extern bool_t BGl_numberzf3zf3zz__r4_numbers_6_5z00(obj_t);
	static obj_t BGl_toplevelzd2initzd2zz__match_s2cfunz00(void);
	BGL_EXPORTED_DEF obj_t BGl_jimzd2gensymzd2zz__match_s2cfunz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_concatz00zz__match_s2cfunz00(obj_t);
	static obj_t BGl_cnstzd2initzd2zz__match_s2cfunz00(void);
	static obj_t BGl_genericzd2initzd2zz__match_s2cfunz00(void);
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	extern long bgl_list_length(obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__match_s2cfunz00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__match_s2cfunz00(void);
	static obj_t BGl_objectzd2initzd2zz__match_s2cfunz00(void);
	extern obj_t BGl_2zb2zb2zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t BGl_z62andmapz62zz__match_s2cfunz00(obj_t, obj_t, obj_t);
	extern obj_t bgl_bignum_add(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31225ze3ze5zz__match_s2cfunz00(obj_t,
		obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_methodzd2initzd2zz__match_s2cfunz00(void);
	BGL_EXPORTED_DECL obj_t BGl_atomzf3zf3zz__match_s2cfunz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_andmapz00zz__match_s2cfunz00(obj_t, obj_t);
	static obj_t BGl_symbol1730z00zz__match_s2cfunz00 = BUNSPEC;
	static obj_t BGl_symbol1732z00zz__match_s2cfunz00 = BUNSPEC;
	static obj_t BGl_symbol1734z00zz__match_s2cfunz00 = BUNSPEC;
	extern obj_t bgl_long_to_bignum(long);
	extern obj_t BGl_memberz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_ormapz00zz__match_s2cfunz00(obj_t, obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62atomzf3z91zz__match_s2cfunz00(obj_t, obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_andmapzd2envzd2zz__match_s2cfunz00,
		BgL_bgl_za762andmapza762za7za7__1738z00, va_generic_entry,
		BGl_z62andmapz62zz__match_s2cfunz00, BUNSPEC, -2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_concatzd2envzd2zz__match_s2cfunz00,
		BgL_bgl_za762concatza762za7za7__1739z00, va_generic_entry,
		BGl_z62concatz62zz__match_s2cfunz00, BUNSPEC, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ormapzd2envzd2zz__match_s2cfunz00,
		BgL_bgl_za762ormapza762za7za7__m1740z00, va_generic_entry,
		BGl_z62ormapz62zz__match_s2cfunz00, BUNSPEC, -2);
	      BGL_DEFINE_STRING(BGl_string1731z00zz__match_s2cfunz00,
		BgL_bgl_string1731za700za7za7_1741za7, "G", 1);
	      BGL_DEFINE_STRING(BGl_string1733z00zz__match_s2cfunz00,
		BgL_bgl_string1733za700za7za7_1742za7, "non-user", 8);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_atomzf3zd2envz21zz__match_s2cfunz00,
		BgL_bgl_za762atomza7f3za791za7za7_1743za7,
		BGl_z62atomzf3z91zz__match_s2cfunz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string1735z00zz__match_s2cfunz00,
		BgL_bgl_string1735za700za7za7_1744za7, "concat", 6);
	      BGL_DEFINE_STRING(BGl_string1736z00zz__match_s2cfunz00,
		BgL_bgl_string1736za700za7za7_1745za7, "", 0);
	      BGL_DEFINE_STRING(BGl_string1737z00zz__match_s2cfunz00,
		BgL_bgl_string1737za700za7za7_1746za7, "__match_s2cfun", 14);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_STRING(BGl_string1737z00zz__match_s2cfunz00,
			BgL_bgl_string1737za700za7za7_1746za7);
		BGL_BIND_STRING(BGl_string1736z00zz__match_s2cfunz00,
			BgL_bgl_string1736za700za7za7_1745za7);
		BGL_BIND_STRING(BGl_string1735z00zz__match_s2cfunz00,
			BgL_bgl_string1735za700za7za7_1744za7);
		BGL_BIND_PROCEDURE(BGl_atomzf3zd2envz21zz__match_s2cfunz00,
			BgL_bgl_za762atomza7f3za791za7za7_1743za7);
		BGL_BIND_STRING(BGl_string1733z00zz__match_s2cfunz00,
			BgL_bgl_string1733za700za7za7_1742za7);
		BGL_BIND_STRING(BGl_string1731z00zz__match_s2cfunz00,
			BgL_bgl_string1731za700za7za7_1741za7);
		BGL_BIND_PROCEDURE(BGl_ormapzd2envzd2zz__match_s2cfunz00,
			BgL_bgl_za762ormapza762za7za7__m1740z00);
		BGL_BIND_PROCEDURE(BGl_concatzd2envzd2zz__match_s2cfunz00,
			BgL_bgl_za762concatza762za7za7__1739z00);
		BGL_BIND_PROCEDURE(BGl_andmapzd2envzd2zz__match_s2cfunz00,
			BgL_bgl_za762andmapza762za7za7__1738z00);
	}

/* GC roots registration */
	static obj_t bgl_gc_roots_register()
	{
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
		void *roots_min = (void *) ULONG_MAX, *roots_max = 0;

		ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__match_s2cfunz00));
		ADD_ROOT((void *) (&BGl_jimzd2gensymzd2zz__match_s2cfunz00));
		ADD_ROOT((void *) (&BGl_symbol1730z00zz__match_s2cfunz00));
		ADD_ROOT((void *) (&BGl_symbol1732z00zz__match_s2cfunz00));
		ADD_ROOT((void *) (&BGl_symbol1734z00zz__match_s2cfunz00));
#undef ADD_ROOT
		if (roots_max > 0)
			GC_add_roots(roots_min, ((void **) roots_max) + 1);
#endif
		return BUNSPEC;
	}



/* module-initialization */
	BGL_EXPORTED_DEF obj_t
		BGl_modulezd2initializa7ationz75zz__match_s2cfunz00(long
		BgL_checksumz00_2265, char *BgL_fromz00_2266)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__match_s2cfunz00))
				{
					BGl_requirezd2initializa7ationz75zz__match_s2cfunz00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__match_s2cfunz00();
					BGl_cnstzd2initzd2zz__match_s2cfunz00();
					BGl_importedzd2moduleszd2initz00zz__match_s2cfunz00();
					return BGl_toplevelzd2initzd2zz__match_s2cfunz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__match_s2cfunz00(void)
	{
		{	/* Match/s2cfun.scm 11 */
			BGl_symbol1730z00zz__match_s2cfunz00 =
				bstring_to_symbol(BGl_string1731z00zz__match_s2cfunz00);
			BGl_symbol1732z00zz__match_s2cfunz00 =
				bstring_to_symbol(BGl_string1733z00zz__match_s2cfunz00);
			return (BGl_symbol1734z00zz__match_s2cfunz00 =
				bstring_to_symbol(BGl_string1735z00zz__match_s2cfunz00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__match_s2cfunz00(void)
	{
		{	/* Match/s2cfun.scm 11 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__match_s2cfunz00(void)
	{
		{	/* Match/s2cfun.scm 11 */
			{	/* Match/s2cfun.scm 66 */
				obj_t BgL_counterz00_2243;

				BgL_counterz00_2243 = BGL_MAKE_UNSAFE_CELL(BINT(100L));
				{	/* Match/s2cfun.scm 67 */
					obj_t BgL_zc3z04anonymousza31225ze3z87_2238;

					BgL_zc3z04anonymousza31225ze3z87_2238 =
						MAKE_VA_PROCEDURE
						(BGl_z62zc3z04anonymousza31225ze3ze5zz__match_s2cfunz00,
						(int) ((-1L)), (int) (1L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31225ze3z87_2238, (int) (0L),
						((obj_t) BgL_counterz00_2243));
					return (BGl_jimzd2gensymzd2zz__match_s2cfunz00 =
						BgL_zc3z04anonymousza31225ze3z87_2238, BUNSPEC);
				}
			}
		}

	}



/* &<@anonymous:1225> */
	obj_t BGl_z62zc3z04anonymousza31225ze3ze5zz__match_s2cfunz00(obj_t
		BgL_envz00_2239, obj_t BgL_argsz00_2241)
	{
		{	/* Match/s2cfun.scm 67 */
			{	/* Match/s2cfun.scm 68 */
				obj_t BgL_counterz00_2240;

				BgL_counterz00_2240 = PROCEDURE_REF(BgL_envz00_2239, (int) (0L));
				{	/* Match/s2cfun.scm 68 */
					obj_t BgL_auxz00_2258;

					if (INTEGERP(BGL_UNSAFE_CELL_REF(BgL_counterz00_2240)))
						{	/* Match/s2cfun.scm 68 */
							obj_t BgL_za71za7_2259;

							BgL_za71za7_2259 = BGL_UNSAFE_CELL_REF(BgL_counterz00_2240);
							{	/* Match/s2cfun.scm 68 */
								obj_t BgL_tmpz00_2260;

								BgL_tmpz00_2260 = BINT(0L);
								{	/* Match/s2cfun.scm 68 */
									bool_t BgL_test1749z00_2291;

									{	/* Match/s2cfun.scm 68 */
										obj_t BgL_tmpz00_2292;

										BgL_tmpz00_2292 = BINT(1L);
										BgL_test1749z00_2291 =
											BGL_ADDFX_OV(BgL_za71za7_2259, BgL_tmpz00_2292,
											BgL_tmpz00_2260);
									}
									if (BgL_test1749z00_2291)
										{	/* Match/s2cfun.scm 68 */
											BgL_auxz00_2258 =
												bgl_bignum_add(bgl_long_to_bignum(
													(long) CINT(BgL_za71za7_2259)),
												bgl_long_to_bignum(1L));
										}
									else
										{	/* Match/s2cfun.scm 68 */
											BgL_auxz00_2258 = BgL_tmpz00_2260;
										}
								}
							}
						}
					else
						{	/* Match/s2cfun.scm 68 */
							BgL_auxz00_2258 =
								BGl_2zb2zb2zz__r4_numbers_6_5z00(BGL_UNSAFE_CELL_REF
								(BgL_counterz00_2240), BINT(1L));
						}
					BGL_UNSAFE_CELL_SET(BgL_counterz00_2240, BgL_auxz00_2258);
				}
				{	/* Match/s2cfun.scm 69 */
					obj_t BgL_symbolz00_2261;

					{	/* Match/s2cfun.scm 69 */
						obj_t BgL_arg1226z00_2262;

						if (PAIRP(BgL_argsz00_2241))
							{	/* Match/s2cfun.scm 69 */
								BgL_arg1226z00_2262 = CAR(BgL_argsz00_2241);
							}
						else
							{	/* Match/s2cfun.scm 69 */
								BgL_arg1226z00_2262 = BGl_symbol1730z00zz__match_s2cfunz00;
							}
						{	/* Match/s2cfun.scm 69 */
							obj_t BgL_list1227z00_2263;

							{	/* Match/s2cfun.scm 69 */
								obj_t BgL_arg1230z00_2264;

								BgL_arg1230z00_2264 =
									MAKE_YOUNG_PAIR(BGL_UNSAFE_CELL_REF(BgL_counterz00_2240),
									BNIL);
								BgL_list1227z00_2263 =
									MAKE_YOUNG_PAIR(BgL_arg1226z00_2262, BgL_arg1230z00_2264);
							}
							BgL_symbolz00_2261 =
								BGl_concatz00zz__match_s2cfunz00(BgL_list1227z00_2263);
						}
					}
					BGl_putpropz12z12zz__r4_symbols_6_4z00(BgL_symbolz00_2261,
						BGl_symbol1732z00zz__match_s2cfunz00, BTRUE);
					return BgL_symbolz00_2261;
				}
			}
		}

	}



/* atom? */
	BGL_EXPORTED_DEF obj_t BGl_atomzf3zf3zz__match_s2cfunz00(obj_t BgL_ez00_3)
	{
		{	/* Match/s2cfun.scm 52 */
			if (PAIRP(BgL_ez00_3))
				{	/* Match/s2cfun.scm 53 */
					return BFALSE;
				}
			else
				{	/* Match/s2cfun.scm 53 */
					return BTRUE;
				}
		}

	}



/* &atom? */
	obj_t BGl_z62atomzf3z91zz__match_s2cfunz00(obj_t BgL_envz00_2245,
		obj_t BgL_ez00_2246)
	{
		{	/* Match/s2cfun.scm 52 */
			return BGl_atomzf3zf3zz__match_s2cfunz00(BgL_ez00_2246);
		}

	}



/* concat */
	BGL_EXPORTED_DEF obj_t BGl_concatz00zz__match_s2cfunz00(obj_t BgL_argsz00_4)
	{
		{	/* Match/s2cfun.scm 55 */
			{	/* Match/s2cfun.scm 57 */
				obj_t BgL_arg1239z00_1206;

				{	/* Match/s2cfun.scm 57 */
					obj_t BgL_runner1253z00_1225;

					if (NULLP(BgL_argsz00_4))
						{	/* Match/s2cfun.scm 58 */
							BgL_runner1253z00_1225 = BNIL;
						}
					else
						{	/* Match/s2cfun.scm 58 */
							obj_t BgL_head1094z00_1209;

							BgL_head1094z00_1209 = MAKE_YOUNG_PAIR(BNIL, BNIL);
							{
								obj_t BgL_l1092z00_1211;
								obj_t BgL_tail1095z00_1212;

								BgL_l1092z00_1211 = BgL_argsz00_4;
								BgL_tail1095z00_1212 = BgL_head1094z00_1209;
							BgL_zc3z04anonymousza31241ze3z87_1213:
								if (NULLP(BgL_l1092z00_1211))
									{	/* Match/s2cfun.scm 58 */
										BgL_runner1253z00_1225 = CDR(BgL_head1094z00_1209);
									}
								else
									{	/* Match/s2cfun.scm 58 */
										obj_t BgL_newtail1096z00_1215;

										{	/* Match/s2cfun.scm 58 */
											obj_t BgL_arg1249z00_1217;

											{	/* Match/s2cfun.scm 58 */
												obj_t BgL_sz00_1218;

												BgL_sz00_1218 = CAR(((obj_t) BgL_l1092z00_1211));
												if (STRINGP(BgL_sz00_1218))
													{	/* Match/s2cfun.scm 59 */
														BgL_arg1249z00_1217 = BgL_sz00_1218;
													}
												else
													{	/* Match/s2cfun.scm 59 */
														if (SYMBOLP(BgL_sz00_1218))
															{	/* Match/s2cfun.scm 60 */
																obj_t BgL_arg1501z00_1819;

																BgL_arg1501z00_1819 =
																	SYMBOL_TO_STRING(BgL_sz00_1218);
																BgL_arg1249z00_1217 =
																	BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																	(BgL_arg1501z00_1819);
															}
														else
															{	/* Match/s2cfun.scm 60 */
																if (BGl_numberzf3zf3zz__r4_numbers_6_5z00
																	(BgL_sz00_1218))
																	{	/* Ieee/number.scm 172 */

																		BgL_arg1249z00_1217 =
																			BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
																			(BgL_sz00_1218, BINT(10L));
																	}
																else
																	{	/* Match/s2cfun.scm 61 */
																		BgL_arg1249z00_1217 =
																			BGl_errorz00zz__errorz00
																			(BGl_symbol1734z00zz__match_s2cfunz00,
																			BGl_string1736z00zz__match_s2cfunz00,
																			BgL_argsz00_4);
																	}
															}
													}
											}
											BgL_newtail1096z00_1215 =
												MAKE_YOUNG_PAIR(BgL_arg1249z00_1217, BNIL);
										}
										SET_CDR(BgL_tail1095z00_1212, BgL_newtail1096z00_1215);
										{	/* Match/s2cfun.scm 58 */
											obj_t BgL_arg1248z00_1216;

											BgL_arg1248z00_1216 = CDR(((obj_t) BgL_l1092z00_1211));
											{
												obj_t BgL_tail1095z00_2335;
												obj_t BgL_l1092z00_2334;

												BgL_l1092z00_2334 = BgL_arg1248z00_1216;
												BgL_tail1095z00_2335 = BgL_newtail1096z00_1215;
												BgL_tail1095z00_1212 = BgL_tail1095z00_2335;
												BgL_l1092z00_1211 = BgL_l1092z00_2334;
												goto BgL_zc3z04anonymousza31241ze3z87_1213;
											}
										}
									}
							}
						}
					BgL_arg1239z00_1206 =
						BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_runner1253z00_1225);
				}
				return bstring_to_symbol(BgL_arg1239z00_1206);
			}
		}

	}



/* &concat */
	obj_t BGl_z62concatz62zz__match_s2cfunz00(obj_t BgL_envz00_2247,
		obj_t BgL_argsz00_2248)
	{
		{	/* Match/s2cfun.scm 55 */
			return BGl_concatz00zz__match_s2cfunz00(BgL_argsz00_2248);
		}

	}



/* andmap */
	BGL_EXPORTED_DEF obj_t BGl_andmapz00zz__match_s2cfunz00(obj_t BgL_pz00_5,
		obj_t BgL_argsz00_6)
	{
		{	/* Match/s2cfun.scm 74 */
			{
				obj_t BgL_argsz00_1227;
				obj_t BgL_valuez00_1228;

				BgL_argsz00_1227 = BgL_argsz00_6;
				BgL_valuez00_1228 = BTRUE;
			BgL_zc3z04anonymousza31254ze3z87_1229:
				{	/* Match/s2cfun.scm 77 */
					bool_t BgL_test1757z00_2339;

					{
						obj_t BgL_lsz00_1277;

						BgL_lsz00_1277 = BgL_argsz00_1227;
					BgL_zc3z04anonymousza31286ze3z87_1278:
						if (PAIRP(BgL_lsz00_1277))
							{	/* Match/s2cfun.scm 79 */
								bool_t BgL__ortest_1040z00_1280;

								{	/* Match/s2cfun.scm 79 */
									bool_t BgL_test1759z00_2342;

									{	/* Match/s2cfun.scm 79 */
										obj_t BgL_tmpz00_2343;

										BgL_tmpz00_2343 = CAR(BgL_lsz00_1277);
										BgL_test1759z00_2342 = PAIRP(BgL_tmpz00_2343);
									}
									if (BgL_test1759z00_2342)
										{	/* Match/s2cfun.scm 79 */
											BgL__ortest_1040z00_1280 = ((bool_t) 0);
										}
									else
										{	/* Match/s2cfun.scm 79 */
											BgL__ortest_1040z00_1280 = ((bool_t) 1);
										}
								}
								if (BgL__ortest_1040z00_1280)
									{	/* Match/s2cfun.scm 79 */
										BgL_test1757z00_2339 = BgL__ortest_1040z00_1280;
									}
								else
									{
										obj_t BgL_lsz00_2347;

										BgL_lsz00_2347 = CDR(BgL_lsz00_1277);
										BgL_lsz00_1277 = BgL_lsz00_2347;
										goto BgL_zc3z04anonymousza31286ze3z87_1278;
									}
							}
						else
							{	/* Match/s2cfun.scm 78 */
								BgL_test1757z00_2339 = ((bool_t) 0);
							}
					}
					if (BgL_test1757z00_2339)
						{	/* Match/s2cfun.scm 77 */
							return BgL_valuez00_1228;
						}
					else
						{	/* Match/s2cfun.scm 82 */
							obj_t BgL_valuez00_1241;

							{	/* Match/s2cfun.scm 82 */
								obj_t BgL_auxz00_2349;

								if (NULLP(BgL_argsz00_1227))
									{	/* Match/s2cfun.scm 82 */
										BgL_auxz00_2349 = BNIL;
									}
								else
									{	/* Match/s2cfun.scm 82 */
										obj_t BgL_head1099z00_1262;

										{	/* Match/s2cfun.scm 82 */
											obj_t BgL_arg1283z00_1274;

											{	/* Match/s2cfun.scm 82 */
												obj_t BgL_pairz00_1826;

												BgL_pairz00_1826 = CAR(((obj_t) BgL_argsz00_1227));
												BgL_arg1283z00_1274 = CAR(BgL_pairz00_1826);
											}
											BgL_head1099z00_1262 =
												MAKE_YOUNG_PAIR(BgL_arg1283z00_1274, BNIL);
										}
										{	/* Match/s2cfun.scm 82 */
											obj_t BgL_g1102z00_1263;

											BgL_g1102z00_1263 = CDR(((obj_t) BgL_argsz00_1227));
											{
												obj_t BgL_l1097z00_1847;
												obj_t BgL_tail1100z00_1848;

												BgL_l1097z00_1847 = BgL_g1102z00_1263;
												BgL_tail1100z00_1848 = BgL_head1099z00_1262;
											BgL_zc3z04anonymousza31278ze3z87_1846:
												if (NULLP(BgL_l1097z00_1847))
													{	/* Match/s2cfun.scm 82 */
														BgL_auxz00_2349 = BgL_head1099z00_1262;
													}
												else
													{	/* Match/s2cfun.scm 82 */
														obj_t BgL_newtail1101z00_1855;

														{	/* Match/s2cfun.scm 82 */
															obj_t BgL_arg1281z00_1856;

															{	/* Match/s2cfun.scm 82 */
																obj_t BgL_pairz00_1860;

																BgL_pairz00_1860 =
																	CAR(((obj_t) BgL_l1097z00_1847));
																BgL_arg1281z00_1856 = CAR(BgL_pairz00_1860);
															}
															BgL_newtail1101z00_1855 =
																MAKE_YOUNG_PAIR(BgL_arg1281z00_1856, BNIL);
														}
														SET_CDR(BgL_tail1100z00_1848,
															BgL_newtail1101z00_1855);
														{	/* Match/s2cfun.scm 82 */
															obj_t BgL_arg1280z00_1858;

															BgL_arg1280z00_1858 =
																CDR(((obj_t) BgL_l1097z00_1847));
															{
																obj_t BgL_tail1100z00_2368;
																obj_t BgL_l1097z00_2367;

																BgL_l1097z00_2367 = BgL_arg1280z00_1858;
																BgL_tail1100z00_2368 = BgL_newtail1101z00_1855;
																BgL_tail1100z00_1848 = BgL_tail1100z00_2368;
																BgL_l1097z00_1847 = BgL_l1097z00_2367;
																goto BgL_zc3z04anonymousza31278ze3z87_1846;
															}
														}
													}
											}
										}
									}
								BgL_valuez00_1241 = apply(BgL_pz00_5, BgL_auxz00_2349);
							}
							if (CBOOL(BgL_valuez00_1241))
								{	/* Match/s2cfun.scm 83 */
									obj_t BgL_arg1263z00_1243;

									if (NULLP(BgL_argsz00_1227))
										{	/* Match/s2cfun.scm 83 */
											BgL_arg1263z00_1243 = BNIL;
										}
									else
										{	/* Match/s2cfun.scm 83 */
											obj_t BgL_head1105z00_1246;

											{	/* Match/s2cfun.scm 83 */
												obj_t BgL_arg1274z00_1258;

												{	/* Match/s2cfun.scm 83 */
													obj_t BgL_pairz00_1864;

													BgL_pairz00_1864 = CAR(((obj_t) BgL_argsz00_1227));
													BgL_arg1274z00_1258 = CDR(BgL_pairz00_1864);
												}
												BgL_head1105z00_1246 =
													MAKE_YOUNG_PAIR(BgL_arg1274z00_1258, BNIL);
											}
											{	/* Match/s2cfun.scm 83 */
												obj_t BgL_g1108z00_1247;

												BgL_g1108z00_1247 = CDR(((obj_t) BgL_argsz00_1227));
												{
													obj_t BgL_l1103z00_1885;
													obj_t BgL_tail1106z00_1886;

													BgL_l1103z00_1885 = BgL_g1108z00_1247;
													BgL_tail1106z00_1886 = BgL_head1105z00_1246;
												BgL_zc3z04anonymousza31265ze3z87_1884:
													if (NULLP(BgL_l1103z00_1885))
														{	/* Match/s2cfun.scm 83 */
															BgL_arg1263z00_1243 = BgL_head1105z00_1246;
														}
													else
														{	/* Match/s2cfun.scm 83 */
															obj_t BgL_newtail1107z00_1893;

															{	/* Match/s2cfun.scm 83 */
																obj_t BgL_arg1269z00_1894;

																{	/* Match/s2cfun.scm 83 */
																	obj_t BgL_pairz00_1898;

																	BgL_pairz00_1898 =
																		CAR(((obj_t) BgL_l1103z00_1885));
																	BgL_arg1269z00_1894 = CDR(BgL_pairz00_1898);
																}
																BgL_newtail1107z00_1893 =
																	MAKE_YOUNG_PAIR(BgL_arg1269z00_1894, BNIL);
															}
															SET_CDR(BgL_tail1106z00_1886,
																BgL_newtail1107z00_1893);
															{	/* Match/s2cfun.scm 83 */
																obj_t BgL_arg1267z00_1896;

																BgL_arg1267z00_1896 =
																	CDR(((obj_t) BgL_l1103z00_1885));
																{
																	obj_t BgL_tail1106z00_2390;
																	obj_t BgL_l1103z00_2389;

																	BgL_l1103z00_2389 = BgL_arg1267z00_1896;
																	BgL_tail1106z00_2390 =
																		BgL_newtail1107z00_1893;
																	BgL_tail1106z00_1886 = BgL_tail1106z00_2390;
																	BgL_l1103z00_1885 = BgL_l1103z00_2389;
																	goto BgL_zc3z04anonymousza31265ze3z87_1884;
																}
															}
														}
												}
											}
										}
									{
										obj_t BgL_valuez00_2392;
										obj_t BgL_argsz00_2391;

										BgL_argsz00_2391 = BgL_arg1263z00_1243;
										BgL_valuez00_2392 = BgL_valuez00_1241;
										BgL_valuez00_1228 = BgL_valuez00_2392;
										BgL_argsz00_1227 = BgL_argsz00_2391;
										goto BgL_zc3z04anonymousza31254ze3z87_1229;
									}
								}
							else
								{	/* Match/s2cfun.scm 83 */
									return BFALSE;
								}
						}
				}
			}
		}

	}



/* &andmap */
	obj_t BGl_z62andmapz62zz__match_s2cfunz00(obj_t BgL_envz00_2249,
		obj_t BgL_pz00_2250, obj_t BgL_argsz00_2251)
	{
		{	/* Match/s2cfun.scm 74 */
			return BGl_andmapz00zz__match_s2cfunz00(BgL_pz00_2250, BgL_argsz00_2251);
		}

	}



/* ormap */
	BGL_EXPORTED_DEF obj_t BGl_ormapz00zz__match_s2cfunz00(obj_t BgL_pz00_7,
		obj_t BgL_argsz00_8)
	{
		{	/* Match/s2cfun.scm 86 */
			if ((bgl_list_length(BgL_argsz00_8) == 1L))
				{	/* Match/s2cfun.scm 89 */
					obj_t BgL_arg1293z00_1288;

					{	/* Match/s2cfun.scm 89 */
						obj_t BgL_l1110z00_1289;

						BgL_l1110z00_1289 = CAR(((obj_t) BgL_argsz00_8));
						if (NULLP(BgL_l1110z00_1289))
							{	/* Match/s2cfun.scm 89 */
								BgL_arg1293z00_1288 = BNIL;
							}
						else
							{	/* Match/s2cfun.scm 89 */
								obj_t BgL_head1112z00_1291;

								{	/* Match/s2cfun.scm 89 */
									obj_t BgL_arg1329z00_1303;

									{	/* Match/s2cfun.scm 89 */
										obj_t BgL_arg1330z00_1304;

										BgL_arg1330z00_1304 = CAR(((obj_t) BgL_l1110z00_1289));
										BgL_arg1329z00_1303 =
											BGL_PROCEDURE_CALL1(BgL_pz00_7, BgL_arg1330z00_1304);
									}
									BgL_head1112z00_1291 =
										MAKE_YOUNG_PAIR(BgL_arg1329z00_1303, BNIL);
								}
								{	/* Match/s2cfun.scm 89 */
									obj_t BgL_g1115z00_1292;

									BgL_g1115z00_1292 = CDR(((obj_t) BgL_l1110z00_1289));
									{
										obj_t BgL_l1110z00_1922;
										obj_t BgL_tail1113z00_1923;

										BgL_l1110z00_1922 = BgL_g1115z00_1292;
										BgL_tail1113z00_1923 = BgL_head1112z00_1291;
									BgL_zc3z04anonymousza31295ze3z87_1921:
										if (NULLP(BgL_l1110z00_1922))
											{	/* Match/s2cfun.scm 89 */
												BgL_arg1293z00_1288 = BgL_head1112z00_1291;
											}
										else
											{	/* Match/s2cfun.scm 89 */
												obj_t BgL_newtail1114z00_1930;

												{	/* Match/s2cfun.scm 89 */
													obj_t BgL_arg1301z00_1931;

													{	/* Match/s2cfun.scm 89 */
														obj_t BgL_arg1322z00_1932;

														BgL_arg1322z00_1932 =
															CAR(((obj_t) BgL_l1110z00_1922));
														BgL_arg1301z00_1931 =
															BGL_PROCEDURE_CALL1(BgL_pz00_7,
															BgL_arg1322z00_1932);
													}
													BgL_newtail1114z00_1930 =
														MAKE_YOUNG_PAIR(BgL_arg1301z00_1931, BNIL);
												}
												SET_CDR(BgL_tail1113z00_1923, BgL_newtail1114z00_1930);
												{	/* Match/s2cfun.scm 89 */
													obj_t BgL_arg1298z00_1933;

													BgL_arg1298z00_1933 =
														CDR(((obj_t) BgL_l1110z00_1922));
													{
														obj_t BgL_tail1113z00_2423;
														obj_t BgL_l1110z00_2422;

														BgL_l1110z00_2422 = BgL_arg1298z00_1933;
														BgL_tail1113z00_2423 = BgL_newtail1114z00_1930;
														BgL_tail1113z00_1923 = BgL_tail1113z00_2423;
														BgL_l1110z00_1922 = BgL_l1110z00_2422;
														goto BgL_zc3z04anonymousza31295ze3z87_1921;
													}
												}
											}
									}
								}
							}
					}
					return
						BGl_memberz00zz__r4_pairs_and_lists_6_3z00(BTRUE,
						BgL_arg1293z00_1288);
				}
			else
				{
					obj_t BgL_argsz00_1306;
					obj_t BgL_valuez00_1307;

					BgL_argsz00_1306 = BgL_argsz00_8;
					BgL_valuez00_1307 = BFALSE;
				BgL_zc3z04anonymousza31331ze3z87_1308:
					{	/* Match/s2cfun.scm 91 */
						bool_t BgL_test1769z00_2425;

						{
							obj_t BgL_lsz00_1356;

							BgL_lsz00_1356 = BgL_argsz00_1306;
						BgL_zc3z04anonymousza31357ze3z87_1357:
							if (PAIRP(BgL_lsz00_1356))
								{	/* Match/s2cfun.scm 93 */
									bool_t BgL__ortest_1043z00_1359;

									{	/* Match/s2cfun.scm 93 */
										bool_t BgL_test1771z00_2428;

										{	/* Match/s2cfun.scm 93 */
											obj_t BgL_tmpz00_2429;

											BgL_tmpz00_2429 = CAR(BgL_lsz00_1356);
											BgL_test1771z00_2428 = PAIRP(BgL_tmpz00_2429);
										}
										if (BgL_test1771z00_2428)
											{	/* Match/s2cfun.scm 93 */
												BgL__ortest_1043z00_1359 = ((bool_t) 0);
											}
										else
											{	/* Match/s2cfun.scm 93 */
												BgL__ortest_1043z00_1359 = ((bool_t) 1);
											}
									}
									if (BgL__ortest_1043z00_1359)
										{	/* Match/s2cfun.scm 93 */
											BgL_test1769z00_2425 = BgL__ortest_1043z00_1359;
										}
									else
										{
											obj_t BgL_lsz00_2433;

											BgL_lsz00_2433 = CDR(BgL_lsz00_1356);
											BgL_lsz00_1356 = BgL_lsz00_2433;
											goto BgL_zc3z04anonymousza31357ze3z87_1357;
										}
								}
							else
								{	/* Match/s2cfun.scm 92 */
									BgL_test1769z00_2425 = ((bool_t) 0);
								}
						}
						if (BgL_test1769z00_2425)
							{	/* Match/s2cfun.scm 91 */
								return BgL_valuez00_1307;
							}
						else
							{	/* Match/s2cfun.scm 96 */
								obj_t BgL_valuez00_1320;

								{	/* Match/s2cfun.scm 96 */
									obj_t BgL_auxz00_2435;

									if (NULLP(BgL_argsz00_1306))
										{	/* Match/s2cfun.scm 96 */
											BgL_auxz00_2435 = BNIL;
										}
									else
										{	/* Match/s2cfun.scm 96 */
											obj_t BgL_head1118z00_1341;

											{	/* Match/s2cfun.scm 96 */
												obj_t BgL_arg1355z00_1353;

												{	/* Match/s2cfun.scm 96 */
													obj_t BgL_pairz00_1940;

													BgL_pairz00_1940 = CAR(((obj_t) BgL_argsz00_1306));
													BgL_arg1355z00_1353 = CAR(BgL_pairz00_1940);
												}
												BgL_head1118z00_1341 =
													MAKE_YOUNG_PAIR(BgL_arg1355z00_1353, BNIL);
											}
											{	/* Match/s2cfun.scm 96 */
												obj_t BgL_g1121z00_1342;

												BgL_g1121z00_1342 = CDR(((obj_t) BgL_argsz00_1306));
												{
													obj_t BgL_l1116z00_1961;
													obj_t BgL_tail1119z00_1962;

													BgL_l1116z00_1961 = BgL_g1121z00_1342;
													BgL_tail1119z00_1962 = BgL_head1118z00_1341;
												BgL_zc3z04anonymousza31349ze3z87_1960:
													if (NULLP(BgL_l1116z00_1961))
														{	/* Match/s2cfun.scm 96 */
															BgL_auxz00_2435 = BgL_head1118z00_1341;
														}
													else
														{	/* Match/s2cfun.scm 96 */
															obj_t BgL_newtail1120z00_1969;

															{	/* Match/s2cfun.scm 96 */
																obj_t BgL_arg1352z00_1970;

																{	/* Match/s2cfun.scm 96 */
																	obj_t BgL_pairz00_1974;

																	BgL_pairz00_1974 =
																		CAR(((obj_t) BgL_l1116z00_1961));
																	BgL_arg1352z00_1970 = CAR(BgL_pairz00_1974);
																}
																BgL_newtail1120z00_1969 =
																	MAKE_YOUNG_PAIR(BgL_arg1352z00_1970, BNIL);
															}
															SET_CDR(BgL_tail1119z00_1962,
																BgL_newtail1120z00_1969);
															{	/* Match/s2cfun.scm 96 */
																obj_t BgL_arg1351z00_1972;

																BgL_arg1351z00_1972 =
																	CDR(((obj_t) BgL_l1116z00_1961));
																{
																	obj_t BgL_tail1119z00_2454;
																	obj_t BgL_l1116z00_2453;

																	BgL_l1116z00_2453 = BgL_arg1351z00_1972;
																	BgL_tail1119z00_2454 =
																		BgL_newtail1120z00_1969;
																	BgL_tail1119z00_1962 = BgL_tail1119z00_2454;
																	BgL_l1116z00_1961 = BgL_l1116z00_2453;
																	goto BgL_zc3z04anonymousza31349ze3z87_1960;
																}
															}
														}
												}
											}
										}
									BgL_valuez00_1320 = apply(BgL_pz00_7, BgL_auxz00_2435);
								}
								if (CBOOL(BgL_valuez00_1320))
									{	/* Match/s2cfun.scm 97 */
										return BgL_valuez00_1320;
									}
								else
									{	/* Match/s2cfun.scm 97 */
										obj_t BgL_arg1338z00_1322;

										if (NULLP(BgL_argsz00_1306))
											{	/* Match/s2cfun.scm 97 */
												BgL_arg1338z00_1322 = BNIL;
											}
										else
											{	/* Match/s2cfun.scm 97 */
												obj_t BgL_head1124z00_1325;

												{	/* Match/s2cfun.scm 97 */
													obj_t BgL_arg1346z00_1337;

													{	/* Match/s2cfun.scm 97 */
														obj_t BgL_pairz00_1978;

														BgL_pairz00_1978 = CAR(((obj_t) BgL_argsz00_1306));
														BgL_arg1346z00_1337 = CDR(BgL_pairz00_1978);
													}
													BgL_head1124z00_1325 =
														MAKE_YOUNG_PAIR(BgL_arg1346z00_1337, BNIL);
												}
												{	/* Match/s2cfun.scm 97 */
													obj_t BgL_g1127z00_1326;

													BgL_g1127z00_1326 = CDR(((obj_t) BgL_argsz00_1306));
													{
														obj_t BgL_l1122z00_1999;
														obj_t BgL_tail1125z00_2000;

														BgL_l1122z00_1999 = BgL_g1127z00_1326;
														BgL_tail1125z00_2000 = BgL_head1124z00_1325;
													BgL_zc3z04anonymousza31340ze3z87_1998:
														if (NULLP(BgL_l1122z00_1999))
															{	/* Match/s2cfun.scm 97 */
																BgL_arg1338z00_1322 = BgL_head1124z00_1325;
															}
														else
															{	/* Match/s2cfun.scm 97 */
																obj_t BgL_newtail1126z00_2007;

																{	/* Match/s2cfun.scm 97 */
																	obj_t BgL_arg1343z00_2008;

																	{	/* Match/s2cfun.scm 97 */
																		obj_t BgL_pairz00_2012;

																		BgL_pairz00_2012 =
																			CAR(((obj_t) BgL_l1122z00_1999));
																		BgL_arg1343z00_2008 = CDR(BgL_pairz00_2012);
																	}
																	BgL_newtail1126z00_2007 =
																		MAKE_YOUNG_PAIR(BgL_arg1343z00_2008, BNIL);
																}
																SET_CDR(BgL_tail1125z00_2000,
																	BgL_newtail1126z00_2007);
																{	/* Match/s2cfun.scm 97 */
																	obj_t BgL_arg1342z00_2010;

																	BgL_arg1342z00_2010 =
																		CDR(((obj_t) BgL_l1122z00_1999));
																	{
																		obj_t BgL_tail1125z00_2476;
																		obj_t BgL_l1122z00_2475;

																		BgL_l1122z00_2475 = BgL_arg1342z00_2010;
																		BgL_tail1125z00_2476 =
																			BgL_newtail1126z00_2007;
																		BgL_tail1125z00_2000 = BgL_tail1125z00_2476;
																		BgL_l1122z00_1999 = BgL_l1122z00_2475;
																		goto BgL_zc3z04anonymousza31340ze3z87_1998;
																	}
																}
															}
													}
												}
											}
										{
											obj_t BgL_valuez00_2478;
											obj_t BgL_argsz00_2477;

											BgL_argsz00_2477 = BgL_arg1338z00_1322;
											BgL_valuez00_2478 = BgL_valuez00_1320;
											BgL_valuez00_1307 = BgL_valuez00_2478;
											BgL_argsz00_1306 = BgL_argsz00_2477;
											goto BgL_zc3z04anonymousza31331ze3z87_1308;
										}
									}
							}
					}
				}
		}

	}



/* &ormap */
	obj_t BGl_z62ormapz62zz__match_s2cfunz00(obj_t BgL_envz00_2252,
		obj_t BgL_pz00_2253, obj_t BgL_argsz00_2254)
	{
		{	/* Match/s2cfun.scm 86 */
			return BGl_ormapz00zz__match_s2cfunz00(BgL_pz00_2253, BgL_argsz00_2254);
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__match_s2cfunz00(void)
	{
		{	/* Match/s2cfun.scm 11 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__match_s2cfunz00(void)
	{
		{	/* Match/s2cfun.scm 11 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__match_s2cfunz00(void)
	{
		{	/* Match/s2cfun.scm 11 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__match_s2cfunz00(void)
	{
		{	/* Match/s2cfun.scm 11 */
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string1737z00zz__match_s2cfunz00));
			return
				BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string1737z00zz__match_s2cfunz00));
		}

	}

#ifdef __cplusplus
}
#endif
