/*===========================================================================*/
/*   (Unsafe/http.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 Unsafe/http.scm -indent -o objs/obj_u/Unsafe/http.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___HTTP_TYPE_DEFINITIONS
#define BGL___HTTP_TYPE_DEFINITIONS

/* object type definitions */
	typedef struct BgL_z62exceptionz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
	}                      *BgL_z62exceptionz62_bglt;

	typedef struct BgL_z62errorz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                  *BgL_z62errorz62_bglt;

	typedef struct BgL_z62iozd2parsezd2errorz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                               *BgL_z62iozd2parsezd2errorz62_bglt;

	typedef struct BgL_z62httpzd2errorzb0_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                         *BgL_z62httpzd2errorzb0_bglt;

	typedef struct BgL_z62httpzd2redirectionzd2errorz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                                      
		*BgL_z62httpzd2redirectionzd2errorz62_bglt;

	typedef struct BgL_z62httpzd2statuszd2errorz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
		int BgL_statusz00;
	}                                  *BgL_z62httpzd2statuszd2errorz62_bglt;

	typedef struct BgL_z62httpzd2redirectionzb0_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_portz00;
		obj_t BgL_urlz00;
	}                               *BgL_z62httpzd2redirectionzb0_bglt;


#endif													// BGL___HTTP_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t BGl_symbol5791z00zz__httpz00 = BUNSPEC;
	extern long BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(long, long);
	static obj_t BGl_list5680z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5795z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_z62lambda5170z62zz__httpz00(obj_t, obj_t);
	static obj_t BGl_z62lambda5171z62zz__httpz00(obj_t, obj_t, obj_t);
	static BgL_z62httpzd2redirectionzb0_bglt
		BGl_z62lambda5177z62zz__httpz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static BgL_z62httpzd2redirectionzb0_bglt
		BGl_z62lambda5179z62zz__httpz00(obj_t);
	static obj_t BGl_z62httpzd2readzd2linez62zz__httpz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza35104ze3ze5zz__httpz00(obj_t);
	extern obj_t bstring_to_keyword(obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__httpz00 = BUNSPEC;
	extern obj_t BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_raisez00zz__errorz00(obj_t);
	static obj_t BGl_makezd2httpzd2postzd2bodyzd2zz__httpz00(obj_t, obj_t);
	static obj_t BGl_z62lambda5185z62zz__httpz00(obj_t, obj_t);
	static obj_t BGl_z62lambda5186z62zz__httpz00(obj_t, obj_t, obj_t);
	static obj_t BGl__httpz00zz__httpz00(obj_t, obj_t);
	extern obj_t BGl_base64zd2encodezd2zz__base64z00(obj_t, obj_t);
	static obj_t BGl_z62httpzd2parsezd2responsez62zz__httpz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_keyword5701z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_z62httpzd2chunkszd2ze3procedurez81zz__httpz00(obj_t, obj_t);
	static obj_t BGl_keyword5703z00zz__httpz00 = BUNSPEC;
	extern obj_t bgl_display_obj(obj_t, obj_t);
	static obj_t BGl_keyword5705z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_z62lambda5190z62zz__httpz00(obj_t, obj_t);
	static obj_t BGl_z62lambda5191z62zz__httpz00(obj_t, obj_t, obj_t);
	static obj_t BGl_keyword5707z00zz__httpz00 = BUNSPEC;
	extern obj_t string_for_read(obj_t);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_keyword5709z00zz__httpz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__httpz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__socketz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__base64z00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__rgcz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__urlz00(long, char *);
	BGL_EXPORTED_DECL obj_t BGl_httpzd2parsezd2headerz00zz__httpz00(obj_t, obj_t);
	extern obj_t BGl_makezd2clientzd2socketz00zz__socketz00(obj_t, int, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_crlfzd2grammarze70z35zz__httpz00(obj_t);
	BGL_EXPORTED_DEF obj_t BGl_z62httpzd2redirectionzb0zz__httpz00 = BUNSPEC;
	extern obj_t BGl_z62errorz62zz__objectz00;
	static obj_t BGl_keyword5711z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5713z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5715z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5717z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5719z00zz__httpz00 = BUNSPEC;
	extern obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
	BGL_EXPORTED_DEF obj_t BGl_z62httpzd2redirectionzd2errorz62zz__httpz00 =
		BUNSPEC;
	static obj_t BGl_toplevelzd2initzd2zz__httpz00(void);
	static obj_t BGl_z62zc3z04anonymousza35123ze3ze5zz__httpz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_httpzd2parsezd2statuszd2linezd2zz__httpz00(obj_t);
	static obj_t BGl_z62httpzd2chunkszd2ze3portz81zz__httpz00(obj_t, obj_t);
	extern obj_t BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long,
		long);
	extern obj_t rgc_buffer_downcase_keyword(obj_t);
	static long BGl_za2bufferzd2lengthza2zd2zz__httpz00 = 0L;
	extern obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	extern bool_t BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
	BGL_EXPORTED_DEF obj_t BGl_z62httpzd2statuszd2errorz62zz__httpz00 = BUNSPEC;
	extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_cnstzd2initzd2zz__httpz00(void);
	extern obj_t BGl_stringzd2indexzd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
	extern obj_t BGl_z62iozd2parsezd2errorz62zz__objectz00;
	static obj_t BGl_genericzd2initzd2zz__httpz00(void);
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_makezd2httpzd2socketz00zz__httpz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62httpzd2readzd2crlfz62zz__httpz00(obj_t, obj_t);
	extern obj_t BGl_registerzd2classz12zc0zz__objectz00(obj_t, obj_t, obj_t,
		long, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__httpz00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__httpz00(void);
	static obj_t BGl_z62zc3z04anonymousza35109ze3ze5zz__httpz00(obj_t);
	extern obj_t BGl_makezd2classzd2fieldz00zz__objectz00(obj_t, obj_t, obj_t,
		bool_t, bool_t, obj_t, obj_t, obj_t);
	static obj_t BGl_objectzd2initzd2zz__httpz00(void);
	static obj_t BGl_httpzd2skipzd2blankz00zz__httpz00(obj_t);
	extern obj_t BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_httpzd2readzd2linez00zz__httpz00(obj_t);
	static obj_t BGl_valuezd2grammarze70z35zz__httpz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31821ze3ze5zz__httpz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_httpzd2sendzd2chunksz00zz__httpz00(obj_t, obj_t,
		bool_t);
	static obj_t BGl_httpzd2parsezd2errorzd2msgzd2zz__httpz00(obj_t, obj_t);
	extern obj_t BGl_z62exceptionz62zz__objectz00;
	static obj_t BGl_keyword5670z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_barrierzd2portzd2zz__httpz00(obj_t, obj_t);
	extern obj_t bgl_reverse_bang(obj_t);
	extern obj_t string_append_3(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_httpzd2chunkszd2ze3portze3zz__httpz00(obj_t);
	extern long rgc_buffer_fixnum(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_httpzd2chunkszd2ze3procedureze3zz__httpz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza32373ze3ze5zz__httpz00(obj_t, obj_t);
	static obj_t BGl_keyword5681z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5683z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_z62parsezd2bodyzb0zz__httpz00(obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_keyword5685z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5687z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5689z00zz__httpz00 = BUNSPEC;
	extern obj_t BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(obj_t);
	static obj_t BGl_symbol5803z00zz__httpz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t
		BGl_httpzd2responsezd2bodyzd2ze3portz31zz__httpz00(obj_t, obj_t);
	static obj_t BGl_symbol5806z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_za2chunkzd2siza7ezd2grammarza2za7zz__httpz00 = BUNSPEC;
	static obj_t BGl_generatezd2httpzd2boundaryz00zz__httpz00(void);
	static obj_t BGl_symbol5809z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_authzd2grammarze70z35zz__httpz00(obj_t);
	static obj_t BGl_keyword5772z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5691z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5774z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5693z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_thezd2substringze70z35zz__httpz00(obj_t, int, int);
	extern obj_t
		BGl_inputzd2portzd2closezd2hookzd2setz12z12zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl_keyword5776z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5695z00zz__httpz00 = BUNSPEC;
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_keyword5778z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5697z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5699z00zz__httpz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_httpzd2parsezd2responsez00zz__httpz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_symbol5811z00zz__httpz00 = BUNSPEC;
	extern obj_t c_substring(obj_t, long, long);
	static obj_t BGl_symbol5731z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5814z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5653z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5738z00zz__httpz00 = BUNSPEC;
	extern obj_t BGl_readzd2charszd2zz__r4_input_6_10_2z00(obj_t, obj_t);
	extern obj_t BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_methodzd2initzd2zz__httpz00(void);
	extern obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_thezd2failureze70z35zz__httpz00(obj_t);
	static obj_t BGl_symbol5821z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5740z00zz__httpz00 = BUNSPEC;
	extern obj_t BGl_readzd2charzd2zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl_symbol5823z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5742z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5828z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_httpzd2readzd2fixnumz00zz__httpz00(obj_t);
	static obj_t BGl_statuszd2linezd2grammarz00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5748z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza35146ze3ze5zz__httpz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza34950ze3ze5zz__httpz00(obj_t, obj_t);
	extern obj_t BGl_xzd2wwwzd2formzd2urlencodezd2zz__urlz00(obj_t);
	static obj_t BGl_keyword5793z00zz__httpz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_httpzd2readzd2crlfz00zz__httpz00(obj_t);
	extern obj_t BGl_openzd2inputzd2procedurez00zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl_symbol5832z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_loopze70ze7zz__httpz00(obj_t, obj_t);
	static obj_t BGl_symbol5834z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5675z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5839z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5678z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza31591ze3ze5zz__httpz00(obj_t, obj_t);
	extern bool_t rgc_fill_buffer(obj_t);
	extern obj_t make_string(long, unsigned char);
	extern obj_t bgl_close_input_port(obj_t);
	static obj_t BGl_symbol5843z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5844z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5847z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5767z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5849z00zz__httpz00 = BUNSPEC;
	static BgL_z62httpzd2errorzb0_bglt BGl_z62lambda5142z62zz__httpz00(obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza35156ze3ze5zz__httpz00(obj_t, obj_t);
	static BgL_z62httpzd2errorzb0_bglt BGl_z62lambda5144z62zz__httpz00(obj_t);
	static obj_t BGl_z62httpzd2sendzd2chunksz62zz__httpz00(obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_httpz00zz__httpz00(obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t);
	extern obj_t BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(obj_t);
	extern obj_t BGl_zb2zb2zz__r4_numbers_6_5z00(obj_t);
	static obj_t BGl_symbol5854z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza35181ze3ze5zz__httpz00(obj_t, obj_t);
	static BgL_z62httpzd2redirectionzd2errorz62_bglt
		BGl_z62lambda5152z62zz__httpz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62httpzd2parsezd2statuszd2linezb0zz__httpz00(obj_t, obj_t);
	static obj_t BGl_list5668z00zz__httpz00 = BUNSPEC;
	extern obj_t rgc_buffer_substring(obj_t, long, long);
	static obj_t BGl_list5669z00zz__httpz00 = BUNSPEC;
	static BgL_z62httpzd2redirectionzd2errorz62_bglt
		BGl_z62lambda5154z62zz__httpz00(obj_t);
	BGL_EXPORTED_DEF obj_t BGl_z62httpzd2errorzb0zz__httpz00 = BUNSPEC;
	static obj_t BGl_z62httpzd2parsezd2headerz62zz__httpz00(obj_t, obj_t, obj_t);
	extern obj_t
		BGl_callzd2withzd2outputzd2stringzd2zz__r4_ports_6_10_1z00(obj_t);
	extern long BGl_sendzd2charszd2zz__r4_input_6_10_2z00(obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62httpzd2responsezd2bodyzd2ze3portz53zz__httpz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_list5752z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5788z00zz__httpz00 = BUNSPEC;
	static BgL_z62httpzd2statuszd2errorz62_bglt
		BGl_z62lambda5162z62zz__httpz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza35166ze3ze5zz__httpz00(obj_t, obj_t);
	extern obj_t rgc_buffer_downcase_subsymbol(obj_t, long, long);
	static BgL_z62httpzd2statuszd2errorz62_bglt
		BGl_z62lambda5164z62zz__httpz00(obj_t);
	static obj_t *__cnst;


	   
		 
		BGL_DEFINE_STRING(BGl_string5700z00zz__httpz00,
		BgL_bgl_string5700za700za7za7_5856za7, "login", 5);
	      BGL_DEFINE_STRING(BGl_string5702z00zz__httpz00,
		BgL_bgl_string5702za700za7za7_5857za7, "method", 6);
	      BGL_DEFINE_STRING(BGl_string5704z00zz__httpz00,
		BgL_bgl_string5704za700za7za7_5858za7, "out", 3);
	      BGL_DEFINE_STRING(BGl_string5706z00zz__httpz00,
		BgL_bgl_string5706za700za7za7_5859za7, "password", 8);
	      BGL_DEFINE_STRING(BGl_string5708z00zz__httpz00,
		BgL_bgl_string5708za700za7za7_5860za7, "path", 4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_httpzd2responsezd2bodyzd2ze3portzd2envze3zz__httpz00,
		BgL_bgl_za762httpza7d2respon5861z00,
		BGl_z62httpzd2responsezd2bodyzd2ze3portz53zz__httpz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string5710z00zz__httpz00,
		BgL_bgl_string5710za700za7za7_5862za7, "port", 4);
	      BGL_DEFINE_STRING(BGl_string5712z00zz__httpz00,
		BgL_bgl_string5712za700za7za7_5863za7, "protocol", 8);
	      BGL_DEFINE_STRING(BGl_string5714z00zz__httpz00,
		BgL_bgl_string5714za700za7za7_5864za7, "proxy", 5);
	      BGL_DEFINE_STRING(BGl_string5716z00zz__httpz00,
		BgL_bgl_string5716za700za7za7_5865za7, "socket", 6);
	      BGL_DEFINE_STRING(BGl_string5718z00zz__httpz00,
		BgL_bgl_string5718za700za7za7_5866za7, "timeout", 7);
	      BGL_DEFINE_STRING(BGl_string5801z00zz__httpz00,
		BgL_bgl_string5801za700za7za7_5867za7, "&http-response-body->port", 25);
	      BGL_DEFINE_STRING(BGl_string5720z00zz__httpz00,
		BgL_bgl_string5720za700za7za7_5868za7, "username", 8);
	      BGL_DEFINE_STRING(BGl_string5802z00zz__httpz00,
		BgL_bgl_string5802za700za7za7_5869za7, "output-port", 11);
	      BGL_DEFINE_STRING(BGl_string5721z00zz__httpz00,
		BgL_bgl_string5721za700za7za7_5870za7, "Illegal keyword argument", 24);
	      BGL_DEFINE_STRING(BGl_string5722z00zz__httpz00,
		BgL_bgl_string5722za700za7za7_5871za7,
		"wrong number of arguments: [0..20] expected, provided", 53);
	      BGL_DEFINE_STRING(BGl_string5804z00zz__httpz00,
		BgL_bgl_string5804za700za7za7_5872za7, "http-read-crlf", 14);
	      BGL_DEFINE_STRING(BGl_string5723z00zz__httpz00,
		BgL_bgl_string5723za700za7za7_5873za7, "bint", 4);
	      BGL_DEFINE_STRING(BGl_string5805z00zz__httpz00,
		BgL_bgl_string5805za700za7za7_5874za7, "&http-read-crlf", 15);
	      BGL_DEFINE_STRING(BGl_string5724z00zz__httpz00,
		BgL_bgl_string5724za700za7za7_5875za7,
		"Missing either \"host\" or \"port\" argument", 40);
	      BGL_DEFINE_STRING(BGl_string5725z00zz__httpz00,
		BgL_bgl_string5725za700za7za7_5876za7, "Missing \"out\" argument", 22);
	      BGL_DEFINE_STRING(BGl_string5807z00zz__httpz00,
		BgL_bgl_string5807za700za7za7_5877za7, "size", 4);
	      BGL_DEFINE_STRING(BGl_string5726z00zz__httpz00,
		BgL_bgl_string5726za700za7za7_5878za7,
		"Missing either \"in\" or \"socket\" argument", 40);
	      BGL_DEFINE_STRING(BGl_string5808z00zz__httpz00,
		BgL_bgl_string5808za700za7za7_5879za7, "&http-chunks->procedure", 23);
	      BGL_DEFINE_STRING(BGl_string5727z00zz__httpz00,
		BgL_bgl_string5727za700za7za7_5880za7, " http://", 8);
	      BGL_DEFINE_STRING(BGl_string5728z00zz__httpz00,
		BgL_bgl_string5728za700za7za7_5881za7, ":", 1);
	      BGL_DEFINE_STRING(BGl_string5729z00zz__httpz00,
		BgL_bgl_string5729za700za7za7_5882za7, " ", 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5800z00zz__httpz00,
		BgL_bgl_za762parseza7d2bodyza75883za7, BGl_z62parsezd2bodyzb0zz__httpz00,
		0L, BUNSPEC, 5);
	      BGL_DEFINE_STRING(BGl_string5810z00zz__httpz00,
		BgL_bgl_string5810za700za7za7_5884za7, "eof", 3);
	      BGL_DEFINE_STRING(BGl_string5730z00zz__httpz00,
		BgL_bgl_string5730za700za7za7_5885za7, "\r\n", 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_httpzd2sendzd2chunkszd2envzd2zz__httpz00,
		BgL_bgl_za762httpza7d2sendza7d5886za7,
		BGl_z62httpzd2sendzd2chunksz62zz__httpz00, 0L, BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string5812z00zz__httpz00,
		BgL_bgl_string5812za700za7za7_5887za7, "trailer", 7);
	      BGL_DEFINE_STRING(BGl_string5813z00zz__httpz00,
		BgL_bgl_string5813za700za7za7_5888za7, "\n", 1);
	      BGL_DEFINE_STRING(BGl_string5732z00zz__httpz00,
		BgL_bgl_string5732za700za7za7_5889za7, "https", 5);
	      BGL_DEFINE_STRING(BGl_string5733z00zz__httpz00,
		BgL_bgl_string5733za700za7za7_5890za7, "Host: ", 6);
	      BGL_DEFINE_STRING(BGl_string5815z00zz__httpz00,
		BgL_bgl_string5815za700za7za7_5891za7, "chunk", 5);
	      BGL_DEFINE_STRING(BGl_string5734z00zz__httpz00,
		BgL_bgl_string5734za700za7za7_5892za7, ": ", 2);
	      BGL_DEFINE_STRING(BGl_string5816z00zz__httpz00,
		BgL_bgl_string5816za700za7za7_5893za7, "&http-chunks->port", 18);
	      BGL_DEFINE_STRING(BGl_string5735z00zz__httpz00,
		BgL_bgl_string5735za700za7za7_5894za7, "Authorization: Basic ", 21);
	      BGL_DEFINE_STRING(BGl_string5654z00zz__httpz00,
		BgL_bgl_string5654za700za7za7_5895za7, "chunks", 6);
	      BGL_DEFINE_STRING(BGl_string5817z00zz__httpz00,
		BgL_bgl_string5817za700za7za7_5896za7, "&http-send-chunks", 17);
	      BGL_DEFINE_STRING(BGl_string5736z00zz__httpz00,
		BgL_bgl_string5736za700za7za7_5897za7, "Authorization: ", 15);
	      BGL_DEFINE_STRING(BGl_string5655z00zz__httpz00,
		BgL_bgl_string5655za700za7za7_5898za7, "Illegal chunk size", 18);
	      BGL_DEFINE_STRING(BGl_string5737z00zz__httpz00,
		BgL_bgl_string5737za700za7za7_5899za7, "Connection: ", 12);
	      BGL_DEFINE_STRING(BGl_string5656z00zz__httpz00,
		BgL_bgl_string5656za700za7za7_5900za7, "#<eof-object>", 13);
	      BGL_DEFINE_STRING(BGl_string5657z00zz__httpz00,
		BgL_bgl_string5657za700za7za7_5901za7, "regular-grammar", 15);
	      BGL_DEFINE_STRING(BGl_string5739z00zz__httpz00,
		BgL_bgl_string5739za700za7za7_5902za7, "post", 4);
	      BGL_DEFINE_STRING(BGl_string5658z00zz__httpz00,
		BgL_bgl_string5658za700za7za7_5903za7, "Illegal match", 13);
	      BGL_DEFINE_STRING(BGl_string5659z00zz__httpz00,
		BgL_bgl_string5659za700za7za7_5904za7, "Illegal character", 17);
	      BGL_DEFINE_STRING(BGl_string5822z00zz__httpz00,
		BgL_bgl_string5822za700za7za7_5905za7, "&http-error", 11);
	      BGL_DEFINE_STRING(BGl_string5741z00zz__httpz00,
		BgL_bgl_string5741za700za7za7_5906za7, "POST", 4);
	      BGL_DEFINE_STRING(BGl_string5660z00zz__httpz00,
		BgL_bgl_string5660za700za7za7_5907za7, "Illegal range `~a'", 18);
	      BGL_DEFINE_STRING(BGl_string5661z00zz__httpz00,
		BgL_bgl_string5661za700za7za7_5908za7, "the-substring", 13);
	      BGL_DEFINE_STRING(BGl_string5824z00zz__httpz00,
		BgL_bgl_string5824za700za7za7_5909za7, "__http", 6);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5818z00zz__httpz00,
		BgL_bgl_za762za7c3za704anonymo5910za7,
		BGl_z62zc3z04anonymousza35146ze3ze5zz__httpz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string5743z00zz__httpz00,
		BgL_bgl_string5743za700za7za7_5911za7, "multipart/form-data", 19);
	      BGL_DEFINE_STRING(BGl_string5662z00zz__httpz00,
		BgL_bgl_string5662za700za7za7_5912za7, "http-parse-status-line", 22);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5819z00zz__httpz00,
		BgL_bgl_za762lambda5144za7625913z00, BGl_z62lambda5144z62zz__httpz00, 0L,
		BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string5744z00zz__httpz00,
		BgL_bgl_string5744za700za7za7_5914za7, "Content-Length: ", 16);
	      BGL_DEFINE_STRING(BGl_string5663z00zz__httpz00,
		BgL_bgl_string5663za700za7za7_5915za7,
		"Illegal status line, premature end of input", 43);
	      BGL_DEFINE_STRING(BGl_string5745z00zz__httpz00,
		BgL_bgl_string5745za700za7za7_5916za7,
		"Content-Type: multipart/form-data; boundary=", 44);
	      BGL_DEFINE_STRING(BGl_string5664z00zz__httpz00,
		BgL_bgl_string5664za700za7za7_5917za7, "Illegal status line", 19);
	      BGL_DEFINE_STRING(BGl_string5746z00zz__httpz00,
		BgL_bgl_string5746za700za7za7_5918za7, "application/x-www-form-urlencoded",
		33);
	      BGL_DEFINE_STRING(BGl_string5665z00zz__httpz00,
		BgL_bgl_string5665za700za7za7_5919za7,
		"/tmp/bigloo/runtime/Unsafe/http.scm", 35);
	      BGL_DEFINE_STRING(BGl_string5747z00zz__httpz00,
		BgL_bgl_string5747za700za7za7_5920za7, "Content-Type: ", 14);
	      BGL_DEFINE_STRING(BGl_string5666z00zz__httpz00,
		BgL_bgl_string5666za700za7za7_5921za7, "_http", 5);
	      BGL_DEFINE_STRING(BGl_string5829z00zz__httpz00,
		BgL_bgl_string5829za700za7za7_5922za7, "&http-redirection-error", 23);
	      BGL_DEFINE_STRING(BGl_string5667z00zz__httpz00,
		BgL_bgl_string5667za700za7za7_5923za7, "vector", 6);
	      BGL_DEFINE_STRING(BGl_string5749z00zz__httpz00,
		BgL_bgl_string5749za700za7za7_5924za7, "inet", 4);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5820z00zz__httpz00,
		BgL_bgl_za762lambda5142za7625925z00, BGl_z62lambda5142z62zz__httpz00, 0L,
		BUNSPEC, 6);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5825z00zz__httpz00,
		BgL_bgl_za762za7c3za704anonymo5926za7,
		BGl_z62zc3z04anonymousza35156ze3ze5zz__httpz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string5750z00zz__httpz00,
		BgL_bgl_string5750za700za7za7_5927za7, "integer", 7);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5826z00zz__httpz00,
		BgL_bgl_za762lambda5154za7625928z00, BGl_z62lambda5154z62zz__httpz00, 0L,
		BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string5751z00zz__httpz00,
		BgL_bgl_string5751za700za7za7_5929za7, "string", 6);
	      BGL_DEFINE_STRING(BGl_string5833z00zz__httpz00,
		BgL_bgl_string5833za700za7za7_5930za7, "status", 6);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5827z00zz__httpz00,
		BgL_bgl_za762lambda5152za7625931z00, BGl_z62lambda5152z62zz__httpz00, 0L,
		BUNSPEC, 6);
	      BGL_DEFINE_STRING(BGl_string5671z00zz__httpz00,
		BgL_bgl_string5671za700za7za7_5932za7, "user-agent", 10);
	      BGL_DEFINE_STRING(BGl_string5753z00zz__httpz00,
		BgL_bgl_string5753za700za7za7_5933za7, "--", 2);
	      BGL_DEFINE_STRING(BGl_string5672z00zz__httpz00,
		BgL_bgl_string5672za700za7za7_5934za7, "Mozilla/5.0", 11);
	      BGL_DEFINE_STRING(BGl_string5835z00zz__httpz00,
		BgL_bgl_string5835za700za7za7_5935za7, "int", 3);
	      BGL_DEFINE_STRING(BGl_string5754z00zz__httpz00,
		BgL_bgl_string5754za700za7za7_5936za7, "\r\n\r\n", 4);
	      BGL_DEFINE_STRING(BGl_string5673z00zz__httpz00,
		BgL_bgl_string5673za700za7za7_5937za7, "localhost", 9);
	      BGL_DEFINE_STRING(BGl_string5755z00zz__httpz00,
		BgL_bgl_string5755za700za7za7_5938za7, "\";", 2);
	      BGL_DEFINE_STRING(BGl_string5674z00zz__httpz00,
		BgL_bgl_string5674za700za7za7_5939za7, "HTTP/1.1", 8);
	      BGL_DEFINE_STRING(BGl_string5756z00zz__httpz00,
		BgL_bgl_string5756za700za7za7_5940za7,
		"Content-Disposition: form-data; name=\"", 38);
	      BGL_DEFINE_STRING(BGl_string5757z00zz__httpz00,
		BgL_bgl_string5757za700za7za7_5941za7, "\"\r\n", 3);
	      BGL_DEFINE_STRING(BGl_string5676z00zz__httpz00,
		BgL_bgl_string5676za700za7za7_5942za7, "get", 3);
	      BGL_DEFINE_STRING(BGl_string5758z00zz__httpz00,
		BgL_bgl_string5758za700za7za7_5943za7, "0123456789abcdef", 16);
	      BGL_DEFINE_STRING(BGl_string5677z00zz__httpz00,
		BgL_bgl_string5677za700za7za7_5944za7, "/", 1);
	      BGL_DEFINE_STRING(BGl_string5759z00zz__httpz00,
		BgL_bgl_string5759za700za7za7_5945za7, "", 0);
	      BGL_DEFINE_STRING(BGl_string5679z00zz__httpz00,
		BgL_bgl_string5679za700za7za7_5946za7, "http", 4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_httpzd2parsezd2responsezd2envzd2zz__httpz00,
		BgL_bgl_za762httpza7d2parseza75947za7,
		BGl_z62httpzd2parsezd2responsez62zz__httpz00, 0L, BUNSPEC, 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5830z00zz__httpz00,
		BgL_bgl_za762lambda5171za7625948z00, BGl_z62lambda5171z62zz__httpz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5831z00zz__httpz00,
		BgL_bgl_za762lambda5170za7625949z00, BGl_z62lambda5170z62zz__httpz00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string5840z00zz__httpz00,
		BgL_bgl_string5840za700za7za7_5950za7, "&http-status-error", 18);
	      BGL_DEFINE_STRING(BGl_string5760z00zz__httpz00,
		BgL_bgl_string5760za700za7za7_5951za7, "}", 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5836z00zz__httpz00,
		BgL_bgl_za762za7c3za704anonymo5952za7,
		BGl_z62zc3z04anonymousza35166ze3ze5zz__httpz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string5761z00zz__httpz00,
		BgL_bgl_string5761za700za7za7_5953za7, "{", 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5837z00zz__httpz00,
		BgL_bgl_za762lambda5164za7625954z00, BGl_z62lambda5164z62zz__httpz00, 0L,
		BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string5762z00zz__httpz00,
		BgL_bgl_string5762za700za7za7_5955za7, "&http-parse-status-line", 23);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5838z00zz__httpz00,
		BgL_bgl_za762lambda5162za7625956z00, BGl_z62lambda5162z62zz__httpz00, 0L,
		BUNSPEC, 7);
	      BGL_DEFINE_STRING(BGl_string5763z00zz__httpz00,
		BgL_bgl_string5763za700za7za7_5957za7, "input-port", 10);
	      BGL_DEFINE_STRING(BGl_string5682z00zz__httpz00,
		BgL_bgl_string5682za700za7za7_5958za7, "args", 4);
	      BGL_DEFINE_STRING(BGl_string5764z00zz__httpz00,
		BgL_bgl_string5764za700za7za7_5959za7, "&http-read-line", 15);
	      BGL_DEFINE_STRING(BGl_string5765z00zz__httpz00,
		BgL_bgl_string5765za700za7za7_5960za7, "Illegal separator", 17);
	      BGL_DEFINE_STRING(BGl_string5684z00zz__httpz00,
		BgL_bgl_string5684za700za7za7_5961za7, "authorization", 13);
	      BGL_DEFINE_ELONG(BGl_elong5786z00zz__httpz00,
		BgL_bgl_elong5786za700za7za7__5962za7, -1);
	      BGL_DEFINE_STRING(BGl_string5766z00zz__httpz00,
		BgL_bgl_string5766za700za7za7_5963za7, "Illegal integer", 15);
	      BGL_DEFINE_STRING(BGl_string5848z00zz__httpz00,
		BgL_bgl_string5848za700za7za7_5964za7, "url", 3);
	      BGL_DEFINE_STRING(BGl_string5686z00zz__httpz00,
		BgL_bgl_string5686za700za7za7_5965za7, "body", 4);
	      BGL_DEFINE_STRING(BGl_string5768z00zz__httpz00,
		BgL_bgl_string5768za700za7za7_5966za7, "the-downcase-subsymbol", 22);
	      BGL_DEFINE_STRING(BGl_string5769z00zz__httpz00,
		BgL_bgl_string5769za700za7za7_5967za7, "Illegal range", 13);
	      BGL_DEFINE_STRING(BGl_string5688z00zz__httpz00,
		BgL_bgl_string5688za700za7za7_5968za7, "connection", 10);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_httpzd2parsezd2headerzd2envzd2zz__httpz00,
		BgL_bgl_za762httpza7d2parseza75969za7,
		BGl_z62httpzd2parsezd2headerz62zz__httpz00, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5841z00zz__httpz00,
		BgL_bgl_za762lambda5186za7625970z00, BGl_z62lambda5186z62zz__httpz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5842z00zz__httpz00,
		BgL_bgl_za762lambda5185za7625971z00, BGl_z62lambda5185z62zz__httpz00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string5850z00zz__httpz00,
		BgL_bgl_string5850za700za7za7_5972za7, "bstring", 7);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5845z00zz__httpz00,
		BgL_bgl_za762lambda5191za7625973z00, BGl_z62lambda5191z62zz__httpz00, 0L,
		BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string5770z00zz__httpz00,
		BgL_bgl_string5770za700za7za7_5974za7, "http-parse-header", 17);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5846z00zz__httpz00,
		BgL_bgl_za762lambda5190za7625975z00, BGl_z62lambda5190z62zz__httpz00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string5771z00zz__httpz00,
		BgL_bgl_string5771za700za7za7_5976za7, "Illegal characters: ~a", 22);
	      BGL_DEFINE_STRING(BGl_string5690z00zz__httpz00,
		BgL_bgl_string5690za700za7za7_5977za7, "content-type", 12);
	      BGL_DEFINE_STRING(BGl_string5773z00zz__httpz00,
		BgL_bgl_string5773za700za7za7_5978za7, "content-length", 14);
	      BGL_DEFINE_STRING(BGl_string5692z00zz__httpz00,
		BgL_bgl_string5692za700za7za7_5979za7, "header", 6);
	      BGL_DEFINE_STRING(BGl_string5855z00zz__httpz00,
		BgL_bgl_string5855za700za7za7_5980za7, "&http-redirection", 17);
	      BGL_DEFINE_STRING(BGl_string5775z00zz__httpz00,
		BgL_bgl_string5775za700za7za7_5981za7, "transfer-encoding", 17);
	      BGL_DEFINE_STRING(BGl_string5694z00zz__httpz00,
		BgL_bgl_string5694za700za7za7_5982za7, "host", 4);
	      BGL_DEFINE_STRING(BGl_string5777z00zz__httpz00,
		BgL_bgl_string5777za700za7za7_5983za7, "proxy-authorization", 19);
	      BGL_DEFINE_STRING(BGl_string5696z00zz__httpz00,
		BgL_bgl_string5696za700za7za7_5984za7, "http-version", 12);
	      BGL_DEFINE_STRING(BGl_string5779z00zz__httpz00,
		BgL_bgl_string5779za700za7za7_5985za7, "expect", 6);
	      BGL_DEFINE_STRING(BGl_string5698z00zz__httpz00,
		BgL_bgl_string5698za700za7za7_5986za7, "in", 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_httpzd2chunkszd2ze3portzd2envz31zz__httpz00,
		BgL_bgl_za762httpza7d2chunks5987z00,
		BGl_z62httpzd2chunkszd2ze3portz81zz__httpz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_httpzd2chunkszd2ze3procedurezd2envz31zz__httpz00,
		BgL_bgl_za762httpza7d2chunks5988z00,
		BGl_z62httpzd2chunkszd2ze3procedurez81zz__httpz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_httpzd2parsezd2statuszd2linezd2envz00zz__httpz00,
		BgL_bgl_za762httpza7d2parseza75989za7,
		BGl_z62httpzd2parsezd2statuszd2linezb0zz__httpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5851z00zz__httpz00,
		BgL_bgl_za762za7c3za704anonymo5990za7,
		BGl_z62zc3z04anonymousza35181ze3ze5zz__httpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5852z00zz__httpz00,
		BgL_bgl_za762lambda5179za7625991z00, BGl_z62lambda5179z62zz__httpz00, 0L,
		BUNSPEC, 0);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5853z00zz__httpz00,
		BgL_bgl_za762lambda5177za7625992z00, BGl_z62lambda5177z62zz__httpz00, 0L,
		BUNSPEC, 5);
	      BGL_DEFINE_STRING(BGl_string5780z00zz__httpz00,
		BgL_bgl_string5780za700za7za7_5993za7, "100-continue", 12);
	      BGL_DEFINE_STRING(BGl_string5781z00zz__httpz00,
		BgL_bgl_string5781za700za7za7_5994za7, "HTTP/1.1 100 Continue\r\n\r\n", 25);
	      BGL_DEFINE_STRING(BGl_string5782z00zz__httpz00,
		BgL_bgl_string5782za700za7za7_5995za7,
		"HTTP/1.1 417 Expectation Failed\r\n\r\n", 35);
	      BGL_DEFINE_STRING(BGl_string5783z00zz__httpz00,
		BgL_bgl_string5783za700za7za7_5996za7, "expect-header", 13);
	      BGL_DEFINE_STRING(BGl_string5784z00zz__httpz00,
		BgL_bgl_string5784za700za7za7_5997za7, "Expectation failed (~a)", 23);
	      BGL_DEFINE_STRING(BGl_string5785z00zz__httpz00,
		BgL_bgl_string5785za700za7za7_5998za7,
		"Cannot honnor message because output-port is #f", 47);
	      BGL_DEFINE_STRING(BGl_string5787z00zz__httpz00,
		BgL_bgl_string5787za700za7za7_5999za7, "&http-parse-header", 18);
	      BGL_DEFINE_STRING(BGl_string5789z00zz__httpz00,
		BgL_bgl_string5789za700za7za7_6000za7, "http-parse-response", 19);
	      BGL_DEFINE_STRING(BGl_string5790z00zz__httpz00,
		BgL_bgl_string5790za700za7za7_6001za7, "Bad status code: ~a", 19);
	      BGL_DEFINE_STRING(BGl_string5792z00zz__httpz00,
		BgL_bgl_string5792za700za7za7_6002za7, "chunked", 7);
	      BGL_DEFINE_STRING(BGl_string5794z00zz__httpz00,
		BgL_bgl_string5794za700za7za7_6003za7, "location", 8);
	      BGL_DEFINE_STRING(BGl_string5796z00zz__httpz00,
		BgL_bgl_string5796za700za7za7_6004za7, "http-parse-body", 15);
	      BGL_DEFINE_STRING(BGl_string5797z00zz__httpz00,
		BgL_bgl_string5797za700za7za7_6005za7, "No URL for redirection!", 23);
	      BGL_DEFINE_STRING(BGl_string5798z00zz__httpz00,
		BgL_bgl_string5798za700za7za7_6006za7, "&http-parse-response", 20);
	      BGL_DEFINE_STRING(BGl_string5799z00zz__httpz00,
		BgL_bgl_string5799za700za7za7_6007za7, "procedure", 9);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_httpzd2envzd2zz__httpz00,
		BgL_bgl__httpza700za7za7__http6008za7, opt_generic_entry,
		BGl__httpz00zz__httpz00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_httpzd2readzd2linezd2envzd2zz__httpz00,
		BgL_bgl_za762httpza7d2readza7d6009za7,
		BGl_z62httpzd2readzd2linez62zz__httpz00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_httpzd2readzd2crlfzd2envzd2zz__httpz00,
		BgL_bgl_za762httpza7d2readza7d6010za7,
		BGl_z62httpzd2readzd2crlfz62zz__httpz00, 0L, BUNSPEC, 1);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_httpzd2readzd2crlfzd2envzd2zz__httpz00,
			BgL_bgl_za762httpza7d2readza7d6010za7);
		BGL_BIND_PROCEDURE(BGl_httpzd2readzd2linezd2envzd2zz__httpz00,
			BgL_bgl_za762httpza7d2readza7d6009za7);
		BGL_BIND_PROCEDURE(BGl_httpzd2envzd2zz__httpz00,
			BgL_bgl__httpza700za7za7__http6008za7);
		BGL_BIND_STRING(BGl_string5799z00zz__httpz00,
			BgL_bgl_string5799za700za7za7_6007za7);
		BGL_BIND_STRING(BGl_string5798z00zz__httpz00,
			BgL_bgl_string5798za700za7za7_6006za7);
		BGL_BIND_STRING(BGl_string5797z00zz__httpz00,
			BgL_bgl_string5797za700za7za7_6005za7);
		BGL_BIND_STRING(BGl_string5796z00zz__httpz00,
			BgL_bgl_string5796za700za7za7_6004za7);
		BGL_BIND_STRING(BGl_string5794z00zz__httpz00,
			BgL_bgl_string5794za700za7za7_6003za7);
		BGL_BIND_STRING(BGl_string5792z00zz__httpz00,
			BgL_bgl_string5792za700za7za7_6002za7);
		BGL_BIND_STRING(BGl_string5790z00zz__httpz00,
			BgL_bgl_string5790za700za7za7_6001za7);
		BGL_BIND_STRING(BGl_string5789z00zz__httpz00,
			BgL_bgl_string5789za700za7za7_6000za7);
		BGL_BIND_STRING(BGl_string5787z00zz__httpz00,
			BgL_bgl_string5787za700za7za7_5999za7);
		BGL_BIND_STRING(BGl_string5785z00zz__httpz00,
			BgL_bgl_string5785za700za7za7_5998za7);
		BGL_BIND_STRING(BGl_string5784z00zz__httpz00,
			BgL_bgl_string5784za700za7za7_5997za7);
		BGL_BIND_STRING(BGl_string5783z00zz__httpz00,
			BgL_bgl_string5783za700za7za7_5996za7);
		BGL_BIND_STRING(BGl_string5782z00zz__httpz00,
			BgL_bgl_string5782za700za7za7_5995za7);
		BGL_BIND_STRING(BGl_string5781z00zz__httpz00,
			BgL_bgl_string5781za700za7za7_5994za7);
		BGL_BIND_STRING(BGl_string5780z00zz__httpz00,
			BgL_bgl_string5780za700za7za7_5993za7);
		BGL_BIND_PROCEDURE(BGl_proc5853z00zz__httpz00,
			BgL_bgl_za762lambda5177za7625992z00);
		BGL_BIND_PROCEDURE(BGl_proc5852z00zz__httpz00,
			BgL_bgl_za762lambda5179za7625991z00);
		BGL_BIND_PROCEDURE(BGl_proc5851z00zz__httpz00,
			BgL_bgl_za762za7c3za704anonymo5990za7);
		BGL_BIND_PROCEDURE(BGl_httpzd2parsezd2statuszd2linezd2envz00zz__httpz00,
			BgL_bgl_za762httpza7d2parseza75989za7);
		BGL_BIND_PROCEDURE(BGl_httpzd2chunkszd2ze3procedurezd2envz31zz__httpz00,
			BgL_bgl_za762httpza7d2chunks5988z00);
		BGL_BIND_PROCEDURE(BGl_httpzd2chunkszd2ze3portzd2envz31zz__httpz00,
			BgL_bgl_za762httpza7d2chunks5987z00);
		BGL_BIND_STRING(BGl_string5698z00zz__httpz00,
			BgL_bgl_string5698za700za7za7_5986za7);
		BGL_BIND_STRING(BGl_string5779z00zz__httpz00,
			BgL_bgl_string5779za700za7za7_5985za7);
		BGL_BIND_STRING(BGl_string5696z00zz__httpz00,
			BgL_bgl_string5696za700za7za7_5984za7);
		BGL_BIND_STRING(BGl_string5777z00zz__httpz00,
			BgL_bgl_string5777za700za7za7_5983za7);
		BGL_BIND_STRING(BGl_string5694z00zz__httpz00,
			BgL_bgl_string5694za700za7za7_5982za7);
		BGL_BIND_STRING(BGl_string5775z00zz__httpz00,
			BgL_bgl_string5775za700za7za7_5981za7);
		BGL_BIND_STRING(BGl_string5855z00zz__httpz00,
			BgL_bgl_string5855za700za7za7_5980za7);
		BGL_BIND_STRING(BGl_string5692z00zz__httpz00,
			BgL_bgl_string5692za700za7za7_5979za7);
		BGL_BIND_STRING(BGl_string5773z00zz__httpz00,
			BgL_bgl_string5773za700za7za7_5978za7);
		BGL_BIND_STRING(BGl_string5690z00zz__httpz00,
			BgL_bgl_string5690za700za7za7_5977za7);
		BGL_BIND_STRING(BGl_string5771z00zz__httpz00,
			BgL_bgl_string5771za700za7za7_5976za7);
		BGL_BIND_PROCEDURE(BGl_proc5846z00zz__httpz00,
			BgL_bgl_za762lambda5190za7625975z00);
		BGL_BIND_STRING(BGl_string5770z00zz__httpz00,
			BgL_bgl_string5770za700za7za7_5974za7);
		BGL_BIND_PROCEDURE(BGl_proc5845z00zz__httpz00,
			BgL_bgl_za762lambda5191za7625973z00);
		BGL_BIND_STRING(BGl_string5850z00zz__httpz00,
			BgL_bgl_string5850za700za7za7_5972za7);
		BGL_BIND_PROCEDURE(BGl_proc5842z00zz__httpz00,
			BgL_bgl_za762lambda5185za7625971z00);
		BGL_BIND_PROCEDURE(BGl_proc5841z00zz__httpz00,
			BgL_bgl_za762lambda5186za7625970z00);
		BGL_BIND_PROCEDURE(BGl_httpzd2parsezd2headerzd2envzd2zz__httpz00,
			BgL_bgl_za762httpza7d2parseza75969za7);
		BGL_BIND_STRING(BGl_string5688z00zz__httpz00,
			BgL_bgl_string5688za700za7za7_5968za7);
		BGL_BIND_STRING(BGl_string5769z00zz__httpz00,
			BgL_bgl_string5769za700za7za7_5967za7);
		BGL_BIND_STRING(BGl_string5768z00zz__httpz00,
			BgL_bgl_string5768za700za7za7_5966za7);
		BGL_BIND_STRING(BGl_string5686z00zz__httpz00,
			BgL_bgl_string5686za700za7za7_5965za7);
		BGL_BIND_STRING(BGl_string5848z00zz__httpz00,
			BgL_bgl_string5848za700za7za7_5964za7);
		BGL_BIND_STRING(BGl_string5766z00zz__httpz00,
			BgL_bgl_string5766za700za7za7_5963za7);
		BGL_BIND_ELONG(BGl_elong5786z00zz__httpz00,
			BgL_bgl_elong5786za700za7za7__5962za7);
		BGL_BIND_STRING(BGl_string5684z00zz__httpz00,
			BgL_bgl_string5684za700za7za7_5961za7);
		BGL_BIND_STRING(BGl_string5765z00zz__httpz00,
			BgL_bgl_string5765za700za7za7_5960za7);
		BGL_BIND_STRING(BGl_string5764z00zz__httpz00,
			BgL_bgl_string5764za700za7za7_5959za7);
		BGL_BIND_STRING(BGl_string5682z00zz__httpz00,
			BgL_bgl_string5682za700za7za7_5958za7);
		BGL_BIND_STRING(BGl_string5763z00zz__httpz00,
			BgL_bgl_string5763za700za7za7_5957za7);
		BGL_BIND_PROCEDURE(BGl_proc5838z00zz__httpz00,
			BgL_bgl_za762lambda5162za7625956z00);
		BGL_BIND_STRING(BGl_string5762z00zz__httpz00,
			BgL_bgl_string5762za700za7za7_5955za7);
		BGL_BIND_PROCEDURE(BGl_proc5837z00zz__httpz00,
			BgL_bgl_za762lambda5164za7625954z00);
		BGL_BIND_STRING(BGl_string5761z00zz__httpz00,
			BgL_bgl_string5761za700za7za7_5953za7);
		BGL_BIND_PROCEDURE(BGl_proc5836z00zz__httpz00,
			BgL_bgl_za762za7c3za704anonymo5952za7);
		BGL_BIND_STRING(BGl_string5760z00zz__httpz00,
			BgL_bgl_string5760za700za7za7_5951za7);
		BGL_BIND_STRING(BGl_string5840z00zz__httpz00,
			BgL_bgl_string5840za700za7za7_5950za7);
		BGL_BIND_PROCEDURE(BGl_proc5831z00zz__httpz00,
			BgL_bgl_za762lambda5170za7625949z00);
		BGL_BIND_PROCEDURE(BGl_proc5830z00zz__httpz00,
			BgL_bgl_za762lambda5171za7625948z00);
		BGL_BIND_PROCEDURE(BGl_httpzd2parsezd2responsezd2envzd2zz__httpz00,
			BgL_bgl_za762httpza7d2parseza75947za7);
		BGL_BIND_STRING(BGl_string5679z00zz__httpz00,
			BgL_bgl_string5679za700za7za7_5946za7);
		BGL_BIND_STRING(BGl_string5759z00zz__httpz00,
			BgL_bgl_string5759za700za7za7_5945za7);
		BGL_BIND_STRING(BGl_string5677z00zz__httpz00,
			BgL_bgl_string5677za700za7za7_5944za7);
		BGL_BIND_STRING(BGl_string5758z00zz__httpz00,
			BgL_bgl_string5758za700za7za7_5943za7);
		BGL_BIND_STRING(BGl_string5676z00zz__httpz00,
			BgL_bgl_string5676za700za7za7_5942za7);
		BGL_BIND_STRING(BGl_string5757z00zz__httpz00,
			BgL_bgl_string5757za700za7za7_5941za7);
		BGL_BIND_STRING(BGl_string5756z00zz__httpz00,
			BgL_bgl_string5756za700za7za7_5940za7);
		BGL_BIND_STRING(BGl_string5674z00zz__httpz00,
			BgL_bgl_string5674za700za7za7_5939za7);
		BGL_BIND_STRING(BGl_string5755z00zz__httpz00,
			BgL_bgl_string5755za700za7za7_5938za7);
		BGL_BIND_STRING(BGl_string5673z00zz__httpz00,
			BgL_bgl_string5673za700za7za7_5937za7);
		BGL_BIND_STRING(BGl_string5754z00zz__httpz00,
			BgL_bgl_string5754za700za7za7_5936za7);
		BGL_BIND_STRING(BGl_string5835z00zz__httpz00,
			BgL_bgl_string5835za700za7za7_5935za7);
		BGL_BIND_STRING(BGl_string5672z00zz__httpz00,
			BgL_bgl_string5672za700za7za7_5934za7);
		BGL_BIND_STRING(BGl_string5753z00zz__httpz00,
			BgL_bgl_string5753za700za7za7_5933za7);
		BGL_BIND_STRING(BGl_string5671z00zz__httpz00,
			BgL_bgl_string5671za700za7za7_5932za7);
		BGL_BIND_PROCEDURE(BGl_proc5827z00zz__httpz00,
			BgL_bgl_za762lambda5152za7625931z00);
		BGL_BIND_STRING(BGl_string5833z00zz__httpz00,
			BgL_bgl_string5833za700za7za7_5930za7);
		BGL_BIND_STRING(BGl_string5751z00zz__httpz00,
			BgL_bgl_string5751za700za7za7_5929za7);
		BGL_BIND_PROCEDURE(BGl_proc5826z00zz__httpz00,
			BgL_bgl_za762lambda5154za7625928z00);
		BGL_BIND_STRING(BGl_string5750z00zz__httpz00,
			BgL_bgl_string5750za700za7za7_5927za7);
		BGL_BIND_PROCEDURE(BGl_proc5825z00zz__httpz00,
			BgL_bgl_za762za7c3za704anonymo5926za7);
		BGL_BIND_PROCEDURE(BGl_proc5820z00zz__httpz00,
			BgL_bgl_za762lambda5142za7625925z00);
		BGL_BIND_STRING(BGl_string5749z00zz__httpz00,
			BgL_bgl_string5749za700za7za7_5924za7);
		BGL_BIND_STRING(BGl_string5667z00zz__httpz00,
			BgL_bgl_string5667za700za7za7_5923za7);
		BGL_BIND_STRING(BGl_string5829z00zz__httpz00,
			BgL_bgl_string5829za700za7za7_5922za7);
		BGL_BIND_STRING(BGl_string5666z00zz__httpz00,
			BgL_bgl_string5666za700za7za7_5921za7);
		BGL_BIND_STRING(BGl_string5747z00zz__httpz00,
			BgL_bgl_string5747za700za7za7_5920za7);
		BGL_BIND_STRING(BGl_string5665z00zz__httpz00,
			BgL_bgl_string5665za700za7za7_5919za7);
		BGL_BIND_STRING(BGl_string5746z00zz__httpz00,
			BgL_bgl_string5746za700za7za7_5918za7);
		BGL_BIND_STRING(BGl_string5664z00zz__httpz00,
			BgL_bgl_string5664za700za7za7_5917za7);
		BGL_BIND_STRING(BGl_string5745z00zz__httpz00,
			BgL_bgl_string5745za700za7za7_5916za7);
		BGL_BIND_STRING(BGl_string5663z00zz__httpz00,
			BgL_bgl_string5663za700za7za7_5915za7);
		BGL_BIND_STRING(BGl_string5744z00zz__httpz00,
			BgL_bgl_string5744za700za7za7_5914za7);
		BGL_BIND_PROCEDURE(BGl_proc5819z00zz__httpz00,
			BgL_bgl_za762lambda5144za7625913z00);
		BGL_BIND_STRING(BGl_string5662z00zz__httpz00,
			BgL_bgl_string5662za700za7za7_5912za7);
		BGL_BIND_STRING(BGl_string5743z00zz__httpz00,
			BgL_bgl_string5743za700za7za7_5911za7);
		BGL_BIND_PROCEDURE(BGl_proc5818z00zz__httpz00,
			BgL_bgl_za762za7c3za704anonymo5910za7);
		BGL_BIND_STRING(BGl_string5824z00zz__httpz00,
			BgL_bgl_string5824za700za7za7_5909za7);
		BGL_BIND_STRING(BGl_string5661z00zz__httpz00,
			BgL_bgl_string5661za700za7za7_5908za7);
		BGL_BIND_STRING(BGl_string5660z00zz__httpz00,
			BgL_bgl_string5660za700za7za7_5907za7);
		BGL_BIND_STRING(BGl_string5741z00zz__httpz00,
			BgL_bgl_string5741za700za7za7_5906za7);
		BGL_BIND_STRING(BGl_string5822z00zz__httpz00,
			BgL_bgl_string5822za700za7za7_5905za7);
		BGL_BIND_STRING(BGl_string5659z00zz__httpz00,
			BgL_bgl_string5659za700za7za7_5904za7);
		BGL_BIND_STRING(BGl_string5658z00zz__httpz00,
			BgL_bgl_string5658za700za7za7_5903za7);
		BGL_BIND_STRING(BGl_string5739z00zz__httpz00,
			BgL_bgl_string5739za700za7za7_5902za7);
		BGL_BIND_STRING(BGl_string5657z00zz__httpz00,
			BgL_bgl_string5657za700za7za7_5901za7);
		BGL_BIND_STRING(BGl_string5656z00zz__httpz00,
			BgL_bgl_string5656za700za7za7_5900za7);
		BGL_BIND_STRING(BGl_string5737z00zz__httpz00,
			BgL_bgl_string5737za700za7za7_5899za7);
		BGL_BIND_STRING(BGl_string5655z00zz__httpz00,
			BgL_bgl_string5655za700za7za7_5898za7);
		BGL_BIND_STRING(BGl_string5736z00zz__httpz00,
			BgL_bgl_string5736za700za7za7_5897za7);
		BGL_BIND_STRING(BGl_string5817z00zz__httpz00,
			BgL_bgl_string5817za700za7za7_5896za7);
		BGL_BIND_STRING(BGl_string5654z00zz__httpz00,
			BgL_bgl_string5654za700za7za7_5895za7);
		BGL_BIND_STRING(BGl_string5735z00zz__httpz00,
			BgL_bgl_string5735za700za7za7_5894za7);
		BGL_BIND_STRING(BGl_string5816z00zz__httpz00,
			BgL_bgl_string5816za700za7za7_5893za7);
		BGL_BIND_STRING(BGl_string5734z00zz__httpz00,
			BgL_bgl_string5734za700za7za7_5892za7);
		BGL_BIND_STRING(BGl_string5815z00zz__httpz00,
			BgL_bgl_string5815za700za7za7_5891za7);
		BGL_BIND_STRING(BGl_string5733z00zz__httpz00,
			BgL_bgl_string5733za700za7za7_5890za7);
		BGL_BIND_STRING(BGl_string5732z00zz__httpz00,
			BgL_bgl_string5732za700za7za7_5889za7);
		BGL_BIND_STRING(BGl_string5813z00zz__httpz00,
			BgL_bgl_string5813za700za7za7_5888za7);
		BGL_BIND_STRING(BGl_string5812z00zz__httpz00,
			BgL_bgl_string5812za700za7za7_5887za7);
		BGL_BIND_PROCEDURE(BGl_httpzd2sendzd2chunkszd2envzd2zz__httpz00,
			BgL_bgl_za762httpza7d2sendza7d5886za7);
		BGL_BIND_STRING(BGl_string5730z00zz__httpz00,
			BgL_bgl_string5730za700za7za7_5885za7);
		BGL_BIND_STRING(BGl_string5810z00zz__httpz00,
			BgL_bgl_string5810za700za7za7_5884za7);
		BGL_BIND_PROCEDURE(BGl_proc5800z00zz__httpz00,
			BgL_bgl_za762parseza7d2bodyza75883za7);
		BGL_BIND_STRING(BGl_string5729z00zz__httpz00,
			BgL_bgl_string5729za700za7za7_5882za7);
		BGL_BIND_STRING(BGl_string5728z00zz__httpz00,
			BgL_bgl_string5728za700za7za7_5881za7);
		BGL_BIND_STRING(BGl_string5727z00zz__httpz00,
			BgL_bgl_string5727za700za7za7_5880za7);
		BGL_BIND_STRING(BGl_string5808z00zz__httpz00,
			BgL_bgl_string5808za700za7za7_5879za7);
		BGL_BIND_STRING(BGl_string5726z00zz__httpz00,
			BgL_bgl_string5726za700za7za7_5878za7);
		BGL_BIND_STRING(BGl_string5807z00zz__httpz00,
			BgL_bgl_string5807za700za7za7_5877za7);
		BGL_BIND_STRING(BGl_string5725z00zz__httpz00,
			BgL_bgl_string5725za700za7za7_5876za7);
		BGL_BIND_STRING(BGl_string5724z00zz__httpz00,
			BgL_bgl_string5724za700za7za7_5875za7);
		BGL_BIND_STRING(BGl_string5805z00zz__httpz00,
			BgL_bgl_string5805za700za7za7_5874za7);
		BGL_BIND_STRING(BGl_string5723z00zz__httpz00,
			BgL_bgl_string5723za700za7za7_5873za7);
		BGL_BIND_STRING(BGl_string5804z00zz__httpz00,
			BgL_bgl_string5804za700za7za7_5872za7);
		BGL_BIND_STRING(BGl_string5722z00zz__httpz00,
			BgL_bgl_string5722za700za7za7_5871za7);
		BGL_BIND_STRING(BGl_string5721z00zz__httpz00,
			BgL_bgl_string5721za700za7za7_5870za7);
		BGL_BIND_STRING(BGl_string5802z00zz__httpz00,
			BgL_bgl_string5802za700za7za7_5869za7);
		BGL_BIND_STRING(BGl_string5720z00zz__httpz00,
			BgL_bgl_string5720za700za7za7_5868za7);
		BGL_BIND_STRING(BGl_string5801z00zz__httpz00,
			BgL_bgl_string5801za700za7za7_5867za7);
		BGL_BIND_STRING(BGl_string5718z00zz__httpz00,
			BgL_bgl_string5718za700za7za7_5866za7);
		BGL_BIND_STRING(BGl_string5716z00zz__httpz00,
			BgL_bgl_string5716za700za7za7_5865za7);
		BGL_BIND_STRING(BGl_string5714z00zz__httpz00,
			BgL_bgl_string5714za700za7za7_5864za7);
		BGL_BIND_STRING(BGl_string5712z00zz__httpz00,
			BgL_bgl_string5712za700za7za7_5863za7);
		BGL_BIND_STRING(BGl_string5710z00zz__httpz00,
			BgL_bgl_string5710za700za7za7_5862za7);
		BGL_BIND_PROCEDURE(BGl_httpzd2responsezd2bodyzd2ze3portzd2envze3zz__httpz00,
			BgL_bgl_za762httpza7d2respon5861z00);
		BGL_BIND_STRING(BGl_string5708z00zz__httpz00,
			BgL_bgl_string5708za700za7za7_5860za7);
		BGL_BIND_STRING(BGl_string5706z00zz__httpz00,
			BgL_bgl_string5706za700za7za7_5859za7);
		BGL_BIND_STRING(BGl_string5704z00zz__httpz00,
			BgL_bgl_string5704za700za7za7_5858za7);
		BGL_BIND_STRING(BGl_string5702z00zz__httpz00,
			BgL_bgl_string5702za700za7za7_5857za7);
		BGL_BIND_STRING(BGl_string5700z00zz__httpz00,
			BgL_bgl_string5700za700za7za7_5856za7);
	}

/* 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_symbol5791z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_list5680z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5795z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5701z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5703z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5705z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5707z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5709z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_z62httpzd2redirectionzb0zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5711z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5713z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5715z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5717z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5719z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_z62httpzd2redirectionzd2errorz62zz__httpz00));
		ADD_ROOT((void *) (&BGl_z62httpzd2statuszd2errorz62zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5670z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5681z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5683z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5685z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5687z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5689z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5803z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5806z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_za2chunkzd2siza7ezd2grammarza2za7zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5809z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5772z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5691z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5774z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5693z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5776z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5695z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5778z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5697z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5699z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5811z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5731z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5814z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5653z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5738z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5821z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5740z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5823z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5742z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5828z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_statuszd2linezd2grammarz00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5748z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_keyword5793z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5832z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5834z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5675z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5839z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5678z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5843z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5844z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5847z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5767z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5849z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5854z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_list5668z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_list5669z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_z62httpzd2errorzb0zz__httpz00));
		ADD_ROOT((void *) (&BGl_list5752z00zz__httpz00));
		ADD_ROOT((void *) (&BGl_symbol5788z00zz__httpz00));
#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__httpz00(long
		BgL_checksumz00_13129, char *BgL_fromz00_13130)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__httpz00))
				{
					BGl_requirezd2initializa7ationz75zz__httpz00 = BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__httpz00();
					BGl_cnstzd2initzd2zz__httpz00();
					BGl_importedzd2moduleszd2initz00zz__httpz00();
					BGl_objectzd2initzd2zz__httpz00();
					return BGl_toplevelzd2initzd2zz__httpz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__httpz00(void)
	{
		{	/* Unsafe/http.scm 15 */
			BGl_symbol5653z00zz__httpz00 =
				bstring_to_symbol(BGl_string5654z00zz__httpz00);
			BGl_keyword5670z00zz__httpz00 =
				bstring_to_keyword(BGl_string5671z00zz__httpz00);
			BGl_list5669z00zz__httpz00 =
				MAKE_YOUNG_PAIR(BGl_keyword5670z00zz__httpz00,
				MAKE_YOUNG_PAIR(BGl_string5672z00zz__httpz00, BNIL));
			BGl_list5668z00zz__httpz00 =
				MAKE_YOUNG_PAIR(BGl_list5669z00zz__httpz00, BNIL);
			BGl_symbol5675z00zz__httpz00 =
				bstring_to_symbol(BGl_string5676z00zz__httpz00);
			BGl_symbol5678z00zz__httpz00 =
				bstring_to_symbol(BGl_string5679z00zz__httpz00);
			BGl_keyword5681z00zz__httpz00 =
				bstring_to_keyword(BGl_string5682z00zz__httpz00);
			BGl_keyword5683z00zz__httpz00 =
				bstring_to_keyword(BGl_string5684z00zz__httpz00);
			BGl_keyword5685z00zz__httpz00 =
				bstring_to_keyword(BGl_string5686z00zz__httpz00);
			BGl_keyword5687z00zz__httpz00 =
				bstring_to_keyword(BGl_string5688z00zz__httpz00);
			BGl_keyword5689z00zz__httpz00 =
				bstring_to_keyword(BGl_string5690z00zz__httpz00);
			BGl_keyword5691z00zz__httpz00 =
				bstring_to_keyword(BGl_string5692z00zz__httpz00);
			BGl_keyword5693z00zz__httpz00 =
				bstring_to_keyword(BGl_string5694z00zz__httpz00);
			BGl_keyword5695z00zz__httpz00 =
				bstring_to_keyword(BGl_string5696z00zz__httpz00);
			BGl_keyword5697z00zz__httpz00 =
				bstring_to_keyword(BGl_string5698z00zz__httpz00);
			BGl_keyword5699z00zz__httpz00 =
				bstring_to_keyword(BGl_string5700z00zz__httpz00);
			BGl_keyword5701z00zz__httpz00 =
				bstring_to_keyword(BGl_string5702z00zz__httpz00);
			BGl_keyword5703z00zz__httpz00 =
				bstring_to_keyword(BGl_string5704z00zz__httpz00);
			BGl_keyword5705z00zz__httpz00 =
				bstring_to_keyword(BGl_string5706z00zz__httpz00);
			BGl_keyword5707z00zz__httpz00 =
				bstring_to_keyword(BGl_string5708z00zz__httpz00);
			BGl_keyword5709z00zz__httpz00 =
				bstring_to_keyword(BGl_string5710z00zz__httpz00);
			BGl_keyword5711z00zz__httpz00 =
				bstring_to_keyword(BGl_string5712z00zz__httpz00);
			BGl_keyword5713z00zz__httpz00 =
				bstring_to_keyword(BGl_string5714z00zz__httpz00);
			BGl_keyword5715z00zz__httpz00 =
				bstring_to_keyword(BGl_string5716z00zz__httpz00);
			BGl_keyword5717z00zz__httpz00 =
				bstring_to_keyword(BGl_string5718z00zz__httpz00);
			BGl_keyword5719z00zz__httpz00 =
				bstring_to_keyword(BGl_string5720z00zz__httpz00);
			BGl_list5680z00zz__httpz00 =
				MAKE_YOUNG_PAIR(BGl_keyword5681z00zz__httpz00,
				MAKE_YOUNG_PAIR(BGl_keyword5683z00zz__httpz00,
					MAKE_YOUNG_PAIR(BGl_keyword5685z00zz__httpz00,
						MAKE_YOUNG_PAIR(BGl_keyword5687z00zz__httpz00,
							MAKE_YOUNG_PAIR(BGl_keyword5689z00zz__httpz00,
								MAKE_YOUNG_PAIR(BGl_keyword5691z00zz__httpz00,
									MAKE_YOUNG_PAIR(BGl_keyword5693z00zz__httpz00,
										MAKE_YOUNG_PAIR(BGl_keyword5695z00zz__httpz00,
											MAKE_YOUNG_PAIR(BGl_keyword5697z00zz__httpz00,
												MAKE_YOUNG_PAIR(BGl_keyword5699z00zz__httpz00,
													MAKE_YOUNG_PAIR(BGl_keyword5701z00zz__httpz00,
														MAKE_YOUNG_PAIR(BGl_keyword5703z00zz__httpz00,
															MAKE_YOUNG_PAIR(BGl_keyword5705z00zz__httpz00,
																MAKE_YOUNG_PAIR(BGl_keyword5707z00zz__httpz00,
																	MAKE_YOUNG_PAIR(BGl_keyword5709z00zz__httpz00,
																		MAKE_YOUNG_PAIR
																		(BGl_keyword5711z00zz__httpz00,
																			MAKE_YOUNG_PAIR
																			(BGl_keyword5713z00zz__httpz00,
																				MAKE_YOUNG_PAIR
																				(BGl_keyword5715z00zz__httpz00,
																					MAKE_YOUNG_PAIR
																					(BGl_keyword5717z00zz__httpz00,
																						MAKE_YOUNG_PAIR
																						(BGl_keyword5719z00zz__httpz00,
																							BNIL))))))))))))))))))));
			BGl_symbol5731z00zz__httpz00 =
				bstring_to_symbol(BGl_string5732z00zz__httpz00);
			BGl_symbol5738z00zz__httpz00 =
				bstring_to_symbol(BGl_string5739z00zz__httpz00);
			BGl_symbol5740z00zz__httpz00 =
				bstring_to_symbol(BGl_string5741z00zz__httpz00);
			BGl_symbol5742z00zz__httpz00 =
				bstring_to_symbol(BGl_string5743z00zz__httpz00);
			BGl_symbol5748z00zz__httpz00 =
				bstring_to_symbol(BGl_string5749z00zz__httpz00);
			BGl_list5752z00zz__httpz00 =
				MAKE_YOUNG_PAIR(BGl_string5730z00zz__httpz00, BNIL);
			BGl_symbol5767z00zz__httpz00 =
				bstring_to_symbol(BGl_string5759z00zz__httpz00);
			BGl_keyword5772z00zz__httpz00 =
				bstring_to_keyword(BGl_string5773z00zz__httpz00);
			BGl_keyword5774z00zz__httpz00 =
				bstring_to_keyword(BGl_string5775z00zz__httpz00);
			BGl_keyword5776z00zz__httpz00 =
				bstring_to_keyword(BGl_string5777z00zz__httpz00);
			BGl_keyword5778z00zz__httpz00 =
				bstring_to_keyword(BGl_string5779z00zz__httpz00);
			BGl_symbol5788z00zz__httpz00 =
				bstring_to_symbol(BGl_string5789z00zz__httpz00);
			BGl_symbol5791z00zz__httpz00 =
				bstring_to_symbol(BGl_string5792z00zz__httpz00);
			BGl_keyword5793z00zz__httpz00 =
				bstring_to_keyword(BGl_string5794z00zz__httpz00);
			BGl_symbol5795z00zz__httpz00 =
				bstring_to_symbol(BGl_string5796z00zz__httpz00);
			BGl_symbol5803z00zz__httpz00 =
				bstring_to_symbol(BGl_string5804z00zz__httpz00);
			BGl_symbol5806z00zz__httpz00 =
				bstring_to_symbol(BGl_string5807z00zz__httpz00);
			BGl_symbol5809z00zz__httpz00 =
				bstring_to_symbol(BGl_string5810z00zz__httpz00);
			BGl_symbol5811z00zz__httpz00 =
				bstring_to_symbol(BGl_string5812z00zz__httpz00);
			BGl_symbol5814z00zz__httpz00 =
				bstring_to_symbol(BGl_string5815z00zz__httpz00);
			BGl_symbol5821z00zz__httpz00 =
				bstring_to_symbol(BGl_string5822z00zz__httpz00);
			BGl_symbol5823z00zz__httpz00 =
				bstring_to_symbol(BGl_string5824z00zz__httpz00);
			BGl_symbol5828z00zz__httpz00 =
				bstring_to_symbol(BGl_string5829z00zz__httpz00);
			BGl_symbol5832z00zz__httpz00 =
				bstring_to_symbol(BGl_string5833z00zz__httpz00);
			BGl_symbol5834z00zz__httpz00 =
				bstring_to_symbol(BGl_string5835z00zz__httpz00);
			BGl_symbol5839z00zz__httpz00 =
				bstring_to_symbol(BGl_string5840z00zz__httpz00);
			BGl_symbol5843z00zz__httpz00 =
				bstring_to_symbol(BGl_string5710z00zz__httpz00);
			BGl_symbol5844z00zz__httpz00 =
				bstring_to_symbol(BGl_string5763z00zz__httpz00);
			BGl_symbol5847z00zz__httpz00 =
				bstring_to_symbol(BGl_string5848z00zz__httpz00);
			BGl_symbol5849z00zz__httpz00 =
				bstring_to_symbol(BGl_string5850z00zz__httpz00);
			return (BGl_symbol5854z00zz__httpz00 =
				bstring_to_symbol(BGl_string5855z00zz__httpz00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__httpz00(void)
	{
		{	/* Unsafe/http.scm 15 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__httpz00(void)
	{
		{	/* Unsafe/http.scm 15 */
			{	/* Unsafe/http.scm 333 */
				obj_t BgL_zc3z04anonymousza31591ze3z87_12394;

				{
					int BgL_tmpz00_13219;

					BgL_tmpz00_13219 = (int) (0L);
					BgL_zc3z04anonymousza31591ze3z87_12394 =
						MAKE_EL_PROCEDURE(BgL_tmpz00_13219);
				}
				BGl_statuszd2linezd2grammarz00zz__httpz00 =
					BgL_zc3z04anonymousza31591ze3z87_12394;
			}
			{	/* Unsafe/http.scm 691 */
				obj_t BgL_zc3z04anonymousza31821ze3z87_12393;

				{
					int BgL_tmpz00_13222;

					BgL_tmpz00_13222 = (int) (0L);
					BgL_zc3z04anonymousza31821ze3z87_12393 =
						MAKE_EL_PROCEDURE(BgL_tmpz00_13222);
				}
				BGl_za2chunkzd2siza7ezd2grammarza2za7zz__httpz00 =
					BgL_zc3z04anonymousza31821ze3z87_12393;
			}
			return (BGl_za2bufferzd2lengthza2zd2zz__httpz00 = 8192L, BUNSPEC);
		}

	}



/* &<@anonymous:1821> */
	obj_t BGl_z62zc3z04anonymousza31821ze3ze5zz__httpz00(obj_t BgL_envz00_12395,
		obj_t BgL_iportz00_12396, obj_t BgL_opz00_12397)
	{
		{	/* Unsafe/http.scm 691 */
			{
				obj_t BgL_iportz00_12758;
				long BgL_lastzd2matchzd2_12759;
				long BgL_forwardz00_12760;
				long BgL_bufposz00_12761;
				obj_t BgL_iportz00_12749;
				long BgL_lastzd2matchzd2_12750;
				long BgL_forwardz00_12751;
				long BgL_bufposz00_12752;
				obj_t BgL_iportz00_12731;
				long BgL_lastzd2matchzd2_12732;
				long BgL_forwardz00_12733;
				long BgL_bufposz00_12734;
				obj_t BgL_iportz00_12712;
				long BgL_lastzd2matchzd2_12713;
				long BgL_forwardz00_12714;
				long BgL_bufposz00_12715;

				RGC_START_MATCH(BgL_iportz00_12396);
				{	/* Unsafe/http.scm 691 */
					long BgL_matchz00_12777;

					{	/* Unsafe/http.scm 691 */
						long BgL_arg2220z00_12778;
						long BgL_arg2221z00_12779;

						BgL_arg2220z00_12778 = RGC_BUFFER_FORWARD(BgL_iportz00_12396);
						BgL_arg2221z00_12779 = RGC_BUFFER_BUFPOS(BgL_iportz00_12396);
						BgL_iportz00_12749 = BgL_iportz00_12396;
						BgL_lastzd2matchzd2_12750 = 2L;
						BgL_forwardz00_12751 = BgL_arg2220z00_12778;
						BgL_bufposz00_12752 = BgL_arg2221z00_12779;
					BgL_statezd20zd21298z00_12708:
						if ((BgL_forwardz00_12751 == BgL_bufposz00_12752))
							{	/* Unsafe/http.scm 691 */
								if (rgc_fill_buffer(BgL_iportz00_12749))
									{	/* Unsafe/http.scm 691 */
										long BgL_arg1863z00_12753;
										long BgL_arg1864z00_12754;

										BgL_arg1863z00_12753 =
											RGC_BUFFER_FORWARD(BgL_iportz00_12749);
										BgL_arg1864z00_12754 =
											RGC_BUFFER_BUFPOS(BgL_iportz00_12749);
										{
											long BgL_bufposz00_13235;
											long BgL_forwardz00_13234;

											BgL_forwardz00_13234 = BgL_arg1863z00_12753;
											BgL_bufposz00_13235 = BgL_arg1864z00_12754;
											BgL_bufposz00_12752 = BgL_bufposz00_13235;
											BgL_forwardz00_12751 = BgL_forwardz00_13234;
											goto BgL_statezd20zd21298z00_12708;
										}
									}
								else
									{	/* Unsafe/http.scm 691 */
										BgL_matchz00_12777 = BgL_lastzd2matchzd2_12750;
									}
							}
						else
							{	/* Unsafe/http.scm 691 */
								int BgL_curz00_12755;

								BgL_curz00_12755 =
									RGC_BUFFER_GET_CHAR(BgL_iportz00_12749, BgL_forwardz00_12751);
								{	/* Unsafe/http.scm 691 */

									{	/* Unsafe/http.scm 691 */
										bool_t BgL_test6014z00_13237;

										{	/* Unsafe/http.scm 691 */
											bool_t BgL_test6015z00_13238;

											if (((long) (BgL_curz00_12755) >= 48L))
												{	/* Unsafe/http.scm 691 */
													BgL_test6015z00_13238 =
														((long) (BgL_curz00_12755) < 58L);
												}
											else
												{	/* Unsafe/http.scm 691 */
													BgL_test6015z00_13238 = ((bool_t) 0);
												}
											if (BgL_test6015z00_13238)
												{	/* Unsafe/http.scm 691 */
													BgL_test6014z00_13237 = ((bool_t) 1);
												}
											else
												{	/* Unsafe/http.scm 691 */
													bool_t BgL_test6017z00_13244;

													if (((long) (BgL_curz00_12755) >= 65L))
														{	/* Unsafe/http.scm 691 */
															BgL_test6017z00_13244 =
																((long) (BgL_curz00_12755) < 71L);
														}
													else
														{	/* Unsafe/http.scm 691 */
															BgL_test6017z00_13244 = ((bool_t) 0);
														}
													if (BgL_test6017z00_13244)
														{	/* Unsafe/http.scm 691 */
															BgL_test6014z00_13237 = ((bool_t) 1);
														}
													else
														{	/* Unsafe/http.scm 691 */
															if (((long) (BgL_curz00_12755) >= 97L))
																{	/* Unsafe/http.scm 691 */
																	BgL_test6014z00_13237 =
																		((long) (BgL_curz00_12755) < 103L);
																}
															else
																{	/* Unsafe/http.scm 691 */
																	BgL_test6014z00_13237 = ((bool_t) 0);
																}
														}
												}
										}
										if (BgL_test6014z00_13237)
											{	/* Unsafe/http.scm 691 */
												BgL_iportz00_12712 = BgL_iportz00_12749;
												BgL_lastzd2matchzd2_12713 = BgL_lastzd2matchzd2_12750;
												BgL_forwardz00_12714 = (1L + BgL_forwardz00_12751);
												BgL_bufposz00_12715 = BgL_bufposz00_12752;
											BgL_statezd22zd21300z00_12706:
												{	/* Unsafe/http.scm 691 */
													long BgL_newzd2matchzd2_12716;

													RGC_STOP_MATCH(BgL_iportz00_12712,
														BgL_forwardz00_12714);
													BgL_newzd2matchzd2_12716 = 2L;
													if ((BgL_forwardz00_12714 == BgL_bufposz00_12715))
														{	/* Unsafe/http.scm 691 */
															if (rgc_fill_buffer(BgL_iportz00_12712))
																{	/* Unsafe/http.scm 691 */
																	long BgL_arg1825z00_12717;
																	long BgL_arg1827z00_12718;

																	BgL_arg1825z00_12717 =
																		RGC_BUFFER_FORWARD(BgL_iportz00_12712);
																	BgL_arg1827z00_12718 =
																		RGC_BUFFER_BUFPOS(BgL_iportz00_12712);
																	{
																		long BgL_bufposz00_13263;
																		long BgL_forwardz00_13262;

																		BgL_forwardz00_13262 = BgL_arg1825z00_12717;
																		BgL_bufposz00_13263 = BgL_arg1827z00_12718;
																		BgL_bufposz00_12715 = BgL_bufposz00_13263;
																		BgL_forwardz00_12714 = BgL_forwardz00_13262;
																		goto BgL_statezd22zd21300z00_12706;
																	}
																}
															else
																{	/* Unsafe/http.scm 691 */
																	BgL_matchz00_12777 = BgL_newzd2matchzd2_12716;
																}
														}
													else
														{	/* Unsafe/http.scm 691 */
															int BgL_curz00_12719;

															BgL_curz00_12719 =
																RGC_BUFFER_GET_CHAR(BgL_iportz00_12712,
																BgL_forwardz00_12714);
															{	/* Unsafe/http.scm 691 */

																if (((long) (BgL_curz00_12719) == 59L))
																	{	/* Unsafe/http.scm 691 */
																		long BgL_arg1829z00_12720;

																		BgL_arg1829z00_12720 =
																			(1L + BgL_forwardz00_12714);
																		{	/* Unsafe/http.scm 691 */
																			long BgL_newzd2matchzd2_12721;

																			RGC_STOP_MATCH(BgL_iportz00_12712,
																				BgL_arg1829z00_12720);
																			BgL_newzd2matchzd2_12721 = 0L;
																			BgL_matchz00_12777 =
																				BgL_newzd2matchzd2_12721;
																	}}
																else
																	{	/* Unsafe/http.scm 691 */
																		bool_t BgL_test6023z00_13270;

																		{	/* Unsafe/http.scm 691 */
																			bool_t BgL_test6024z00_13271;

																			if (((long) (BgL_curz00_12719) >= 48L))
																				{	/* Unsafe/http.scm 691 */
																					BgL_test6024z00_13271 =
																						((long) (BgL_curz00_12719) < 58L);
																				}
																			else
																				{	/* Unsafe/http.scm 691 */
																					BgL_test6024z00_13271 = ((bool_t) 0);
																				}
																			if (BgL_test6024z00_13271)
																				{	/* Unsafe/http.scm 691 */
																					BgL_test6023z00_13270 = ((bool_t) 1);
																				}
																			else
																				{	/* Unsafe/http.scm 691 */
																					bool_t BgL_test6026z00_13277;

																					if (
																						((long) (BgL_curz00_12719) >= 65L))
																						{	/* Unsafe/http.scm 691 */
																							BgL_test6026z00_13277 =
																								(
																								(long) (BgL_curz00_12719) <
																								71L);
																						}
																					else
																						{	/* Unsafe/http.scm 691 */
																							BgL_test6026z00_13277 =
																								((bool_t) 0);
																						}
																					if (BgL_test6026z00_13277)
																						{	/* Unsafe/http.scm 691 */
																							BgL_test6023z00_13270 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Unsafe/http.scm 691 */
																							if (
																								((long) (BgL_curz00_12719) >=
																									97L))
																								{	/* Unsafe/http.scm 691 */
																									BgL_test6023z00_13270 =
																										(
																										(long) (BgL_curz00_12719) <
																										103L);
																								}
																							else
																								{	/* Unsafe/http.scm 691 */
																									BgL_test6023z00_13270 =
																										((bool_t) 0);
																								}
																						}
																				}
																		}
																		if (BgL_test6023z00_13270)
																			{	/* Unsafe/http.scm 691 */
																				BgL_iportz00_12731 = BgL_iportz00_12712;
																				BgL_lastzd2matchzd2_12732 =
																					BgL_newzd2matchzd2_12716;
																				BgL_forwardz00_12733 =
																					(1L + BgL_forwardz00_12714);
																				BgL_bufposz00_12734 =
																					BgL_bufposz00_12715;
																			BgL_statezd25zd21303z00_12707:
																				if (
																					(BgL_forwardz00_12733 ==
																						BgL_bufposz00_12734))
																					{	/* Unsafe/http.scm 691 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_12731))
																							{	/* Unsafe/http.scm 691 */
																								long BgL_arg1845z00_12735;
																								long BgL_arg1846z00_12736;

																								BgL_arg1845z00_12735 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_12731);
																								BgL_arg1846z00_12736 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_12731);
																								{
																									long BgL_bufposz00_13295;
																									long BgL_forwardz00_13294;

																									BgL_forwardz00_13294 =
																										BgL_arg1845z00_12735;
																									BgL_bufposz00_13295 =
																										BgL_arg1846z00_12736;
																									BgL_bufposz00_12734 =
																										BgL_bufposz00_13295;
																									BgL_forwardz00_12733 =
																										BgL_forwardz00_13294;
																									goto
																										BgL_statezd25zd21303z00_12707;
																								}
																							}
																						else
																							{	/* Unsafe/http.scm 691 */
																								BgL_matchz00_12777 =
																									BgL_lastzd2matchzd2_12732;
																							}
																					}
																				else
																					{	/* Unsafe/http.scm 691 */
																						int BgL_curz00_12737;

																						BgL_curz00_12737 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_12731,
																							BgL_forwardz00_12733);
																						{	/* Unsafe/http.scm 691 */

																							if (
																								((long) (BgL_curz00_12737) ==
																									59L))
																								{	/* Unsafe/http.scm 691 */
																									long BgL_arg1848z00_12738;

																									BgL_arg1848z00_12738 =
																										(1L + BgL_forwardz00_12733);
																									{	/* Unsafe/http.scm 691 */
																										long
																											BgL_newzd2matchzd2_12739;
																										RGC_STOP_MATCH
																											(BgL_iportz00_12731,
																											BgL_arg1848z00_12738);
																										BgL_newzd2matchzd2_12739 =
																											0L;
																										BgL_matchz00_12777 =
																											BgL_newzd2matchzd2_12739;
																								}}
																							else
																								{	/* Unsafe/http.scm 691 */
																									bool_t BgL_test6032z00_13302;

																									{	/* Unsafe/http.scm 691 */
																										bool_t
																											BgL_test6033z00_13303;
																										if (((long)
																												(BgL_curz00_12737) >=
																												48L))
																											{	/* Unsafe/http.scm 691 */
																												BgL_test6033z00_13303 =
																													(
																													(long)
																													(BgL_curz00_12737) <
																													58L);
																											}
																										else
																											{	/* Unsafe/http.scm 691 */
																												BgL_test6033z00_13303 =
																													((bool_t) 0);
																											}
																										if (BgL_test6033z00_13303)
																											{	/* Unsafe/http.scm 691 */
																												BgL_test6032z00_13302 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Unsafe/http.scm 691 */
																												bool_t
																													BgL_test6035z00_13309;
																												if (((long)
																														(BgL_curz00_12737)
																														>= 65L))
																													{	/* Unsafe/http.scm 691 */
																														BgL_test6035z00_13309
																															=
																															((long)
																															(BgL_curz00_12737)
																															< 71L);
																													}
																												else
																													{	/* Unsafe/http.scm 691 */
																														BgL_test6035z00_13309
																															= ((bool_t) 0);
																													}
																												if (BgL_test6035z00_13309)
																													{	/* Unsafe/http.scm 691 */
																														BgL_test6032z00_13302
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Unsafe/http.scm 691 */
																														if (
																															((long)
																																(BgL_curz00_12737)
																																>= 97L))
																															{	/* Unsafe/http.scm 691 */
																																BgL_test6032z00_13302
																																	=
																																	((long)
																																	(BgL_curz00_12737)
																																	< 103L);
																															}
																														else
																															{	/* Unsafe/http.scm 691 */
																																BgL_test6032z00_13302
																																	=
																																	((bool_t) 0);
																															}
																													}
																											}
																									}
																									if (BgL_test6032z00_13302)
																										{
																											long BgL_forwardz00_13320;

																											BgL_forwardz00_13320 =
																												(1L +
																												BgL_forwardz00_12733);
																											BgL_forwardz00_12733 =
																												BgL_forwardz00_13320;
																											goto
																												BgL_statezd25zd21303z00_12707;
																										}
																									else
																										{	/* Unsafe/http.scm 691 */
																											if (
																												((long)
																													(BgL_curz00_12737) ==
																													13L))
																												{	/* Unsafe/http.scm 691 */
																													long
																														BgL_arg1856z00_12740;
																													BgL_arg1856z00_12740 =
																														(1L +
																														BgL_forwardz00_12733);
																													{
																														long
																															BgL_forwardz00_12742;
																														long
																															BgL_bufposz00_12743;
																														BgL_forwardz00_12742
																															=
																															BgL_arg1856z00_12740;
																														BgL_bufposz00_12743
																															=
																															BgL_bufposz00_12734;
																													BgL_statezd24zd21302z00_12741:
																														if (
																															(BgL_forwardz00_12742
																																==
																																BgL_bufposz00_12743))
																															{	/* Unsafe/http.scm 691 */
																																if (rgc_fill_buffer(BgL_iportz00_12731))
																																	{	/* Unsafe/http.scm 691 */
																																		long
																																			BgL_arg1879z00_12744;
																																		long
																																			BgL_arg1881z00_12745;
																																		BgL_arg1879z00_12744
																																			=
																																			RGC_BUFFER_FORWARD
																																			(BgL_iportz00_12731);
																																		BgL_arg1881z00_12745
																																			=
																																			RGC_BUFFER_BUFPOS
																																			(BgL_iportz00_12731);
																																		{
																																			long
																																				BgL_bufposz00_13333;
																																			long
																																				BgL_forwardz00_13332;
																																			BgL_forwardz00_13332
																																				=
																																				BgL_arg1879z00_12744;
																																			BgL_bufposz00_13333
																																				=
																																				BgL_arg1881z00_12745;
																																			BgL_bufposz00_12743
																																				=
																																				BgL_bufposz00_13333;
																																			BgL_forwardz00_12742
																																				=
																																				BgL_forwardz00_13332;
																																			goto
																																				BgL_statezd24zd21302z00_12741;
																																		}
																																	}
																																else
																																	{	/* Unsafe/http.scm 691 */
																																		BgL_matchz00_12777
																																			=
																																			BgL_lastzd2matchzd2_12732;
																																	}
																															}
																														else
																															{	/* Unsafe/http.scm 691 */
																																int
																																	BgL_curz00_12746;
																																BgL_curz00_12746
																																	=
																																	RGC_BUFFER_GET_CHAR
																																	(BgL_iportz00_12731,
																																	BgL_forwardz00_12742);
																																{	/* Unsafe/http.scm 691 */

																																	if (
																																		((long)
																																			(BgL_curz00_12746)
																																			== 10L))
																																		{	/* Unsafe/http.scm 691 */
																																			long
																																				BgL_arg1883z00_12747;
																																			BgL_arg1883z00_12747
																																				=
																																				(1L +
																																				BgL_forwardz00_12742);
																																			{	/* Unsafe/http.scm 691 */
																																				long
																																					BgL_newzd2matchzd2_12748;
																																				RGC_STOP_MATCH
																																					(BgL_iportz00_12731,
																																					BgL_arg1883z00_12747);
																																				BgL_newzd2matchzd2_12748
																																					= 1L;
																																				BgL_matchz00_12777
																																					=
																																					BgL_newzd2matchzd2_12748;
																																		}}
																																	else
																																		{	/* Unsafe/http.scm 691 */
																																			BgL_matchz00_12777
																																				=
																																				BgL_lastzd2matchzd2_12732;
																																		}
																																}
																															}
																													}
																												}
																											else
																												{	/* Unsafe/http.scm 691 */
																													bool_t
																														BgL_test6042z00_13340;
																													if (((long)
																															(BgL_curz00_12737)
																															== 9L))
																														{	/* Unsafe/http.scm 691 */
																															BgL_test6042z00_13340
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Unsafe/http.scm 691 */
																															BgL_test6042z00_13340
																																=
																																((long)
																																(BgL_curz00_12737)
																																== 32L);
																														}
																													if (BgL_test6042z00_13340)
																														{	/* Unsafe/http.scm 691 */
																															BgL_iportz00_12758
																																=
																																BgL_iportz00_12731;
																															BgL_lastzd2matchzd2_12759
																																=
																																BgL_lastzd2matchzd2_12732;
																															BgL_forwardz00_12760
																																=
																																(1L +
																																BgL_forwardz00_12733);
																															BgL_bufposz00_12761
																																=
																																BgL_bufposz00_12734;
																														BgL_statezd23zd21301z00_12709:
																															if (
																																(BgL_forwardz00_12760
																																	==
																																	BgL_bufposz00_12761))
																																{	/* Unsafe/http.scm 691 */
																																	if (rgc_fill_buffer(BgL_iportz00_12758))
																																		{	/* Unsafe/http.scm 691 */
																																			long
																																				BgL_arg1887z00_12762;
																																			long
																																				BgL_arg1888z00_12763;
																																			BgL_arg1887z00_12762
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_iportz00_12758);
																																			BgL_arg1888z00_12763
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_iportz00_12758);
																																			{
																																				long
																																					BgL_bufposz00_13353;
																																				long
																																					BgL_forwardz00_13352;
																																				BgL_forwardz00_13352
																																					=
																																					BgL_arg1887z00_12762;
																																				BgL_bufposz00_13353
																																					=
																																					BgL_arg1888z00_12763;
																																				BgL_bufposz00_12761
																																					=
																																					BgL_bufposz00_13353;
																																				BgL_forwardz00_12760
																																					=
																																					BgL_forwardz00_13352;
																																				goto
																																					BgL_statezd23zd21301z00_12709;
																																			}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 691 */
																																			BgL_matchz00_12777
																																				=
																																				BgL_lastzd2matchzd2_12759;
																																		}
																																}
																															else
																																{	/* Unsafe/http.scm 691 */
																																	int
																																		BgL_curz00_12764;
																																	BgL_curz00_12764
																																		=
																																		RGC_BUFFER_GET_CHAR
																																		(BgL_iportz00_12758,
																																		BgL_forwardz00_12760);
																																	{	/* Unsafe/http.scm 691 */

																																		if (
																																			((long)
																																				(BgL_curz00_12764)
																																				== 59L))
																																			{	/* Unsafe/http.scm 691 */
																																				long
																																					BgL_arg1890z00_12765;
																																				BgL_arg1890z00_12765
																																					=
																																					(1L +
																																					BgL_forwardz00_12760);
																																				{	/* Unsafe/http.scm 691 */
																																					long
																																						BgL_newzd2matchzd2_12766;
																																					RGC_STOP_MATCH
																																						(BgL_iportz00_12758,
																																						BgL_arg1890z00_12765);
																																					BgL_newzd2matchzd2_12766
																																						=
																																						0L;
																																					BgL_matchz00_12777
																																						=
																																						BgL_newzd2matchzd2_12766;
																																			}}
																																		else
																																			{	/* Unsafe/http.scm 691 */
																																				if (
																																					((long) (BgL_curz00_12764) == 13L))
																																					{	/* Unsafe/http.scm 691 */
																																						long
																																							BgL_arg1892z00_12767;
																																						BgL_arg1892z00_12767
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_12760);
																																						{
																																							long
																																								BgL_forwardz00_12769;
																																							long
																																								BgL_bufposz00_12770;
																																							BgL_forwardz00_12769
																																								=
																																								BgL_arg1892z00_12767;
																																							BgL_bufposz00_12770
																																								=
																																								BgL_bufposz00_12761;
																																						BgL_statezd24zd21302z00_12768:
																																							if ((BgL_forwardz00_12769 == BgL_bufposz00_12770))
																																								{	/* Unsafe/http.scm 691 */
																																									if (rgc_fill_buffer(BgL_iportz00_12758))
																																										{	/* Unsafe/http.scm 691 */
																																											long
																																												BgL_arg1879z00_12771;
																																											long
																																												BgL_arg1881z00_12772;
																																											BgL_arg1879z00_12771
																																												=
																																												RGC_BUFFER_FORWARD
																																												(BgL_iportz00_12758);
																																											BgL_arg1881z00_12772
																																												=
																																												RGC_BUFFER_BUFPOS
																																												(BgL_iportz00_12758);
																																											{
																																												long
																																													BgL_bufposz00_13371;
																																												long
																																													BgL_forwardz00_13370;
																																												BgL_forwardz00_13370
																																													=
																																													BgL_arg1879z00_12771;
																																												BgL_bufposz00_13371
																																													=
																																													BgL_arg1881z00_12772;
																																												BgL_bufposz00_12770
																																													=
																																													BgL_bufposz00_13371;
																																												BgL_forwardz00_12769
																																													=
																																													BgL_forwardz00_13370;
																																												goto
																																													BgL_statezd24zd21302z00_12768;
																																											}
																																										}
																																									else
																																										{	/* Unsafe/http.scm 691 */
																																											BgL_matchz00_12777
																																												=
																																												BgL_lastzd2matchzd2_12759;
																																										}
																																								}
																																							else
																																								{	/* Unsafe/http.scm 691 */
																																									int
																																										BgL_curz00_12773;
																																									BgL_curz00_12773
																																										=
																																										RGC_BUFFER_GET_CHAR
																																										(BgL_iportz00_12758,
																																										BgL_forwardz00_12769);
																																									{	/* Unsafe/http.scm 691 */

																																										if (((long) (BgL_curz00_12773) == 10L))
																																											{	/* Unsafe/http.scm 691 */
																																												long
																																													BgL_arg1883z00_12774;
																																												BgL_arg1883z00_12774
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_12769);
																																												{	/* Unsafe/http.scm 691 */
																																													long
																																														BgL_newzd2matchzd2_12775;
																																													RGC_STOP_MATCH
																																														(BgL_iportz00_12758,
																																														BgL_arg1883z00_12774);
																																													BgL_newzd2matchzd2_12775
																																														=
																																														1L;
																																													BgL_matchz00_12777
																																														=
																																														BgL_newzd2matchzd2_12775;
																																											}}
																																										else
																																											{	/* Unsafe/http.scm 691 */
																																												BgL_matchz00_12777
																																													=
																																													BgL_lastzd2matchzd2_12759;
																																											}
																																									}
																																								}
																																						}
																																					}
																																				else
																																					{	/* Unsafe/http.scm 691 */
																																						bool_t
																																							BgL_test6051z00_13378;
																																						if (
																																							((long) (BgL_curz00_12764) == 9L))
																																							{	/* Unsafe/http.scm 691 */
																																								BgL_test6051z00_13378
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Unsafe/http.scm 691 */
																																								BgL_test6051z00_13378
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_12764)
																																									==
																																									32L);
																																							}
																																						if (BgL_test6051z00_13378)
																																							{
																																								long
																																									BgL_forwardz00_13384;
																																								BgL_forwardz00_13384
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_12760);
																																								BgL_forwardz00_12760
																																									=
																																									BgL_forwardz00_13384;
																																								goto
																																									BgL_statezd23zd21301z00_12709;
																																							}
																																						else
																																							{	/* Unsafe/http.scm 691 */
																																								BgL_matchz00_12777
																																									=
																																									BgL_lastzd2matchzd2_12759;
																																							}
																																					}
																																			}
																																	}
																																}
																														}
																													else
																														{	/* Unsafe/http.scm 691 */
																															BgL_matchz00_12777
																																=
																																BgL_lastzd2matchzd2_12732;
																														}
																												}
																										}
																								}
																						}
																					}
																			}
																		else
																			{	/* Unsafe/http.scm 691 */
																				if (((long) (BgL_curz00_12719) == 13L))
																					{	/* Unsafe/http.scm 691 */
																						long BgL_arg1837z00_12722;

																						BgL_arg1837z00_12722 =
																							(1L + BgL_forwardz00_12714);
																						{
																							long BgL_forwardz00_12724;
																							long BgL_bufposz00_12725;

																							BgL_forwardz00_12724 =
																								BgL_arg1837z00_12722;
																							BgL_bufposz00_12725 =
																								BgL_bufposz00_12715;
																						BgL_statezd24zd21302z00_12723:
																							if (
																								(BgL_forwardz00_12724 ==
																									BgL_bufposz00_12725))
																								{	/* Unsafe/http.scm 691 */
																									if (rgc_fill_buffer
																										(BgL_iportz00_12712))
																										{	/* Unsafe/http.scm 691 */
																											long BgL_arg1879z00_12726;
																											long BgL_arg1881z00_12727;

																											BgL_arg1879z00_12726 =
																												RGC_BUFFER_FORWARD
																												(BgL_iportz00_12712);
																											BgL_arg1881z00_12727 =
																												RGC_BUFFER_BUFPOS
																												(BgL_iportz00_12712);
																											{
																												long
																													BgL_bufposz00_13399;
																												long
																													BgL_forwardz00_13398;
																												BgL_forwardz00_13398 =
																													BgL_arg1879z00_12726;
																												BgL_bufposz00_13399 =
																													BgL_arg1881z00_12727;
																												BgL_bufposz00_12725 =
																													BgL_bufposz00_13399;
																												BgL_forwardz00_12724 =
																													BgL_forwardz00_13398;
																												goto
																													BgL_statezd24zd21302z00_12723;
																											}
																										}
																									else
																										{	/* Unsafe/http.scm 691 */
																											BgL_matchz00_12777 =
																												BgL_newzd2matchzd2_12716;
																										}
																								}
																							else
																								{	/* Unsafe/http.scm 691 */
																									int BgL_curz00_12728;

																									BgL_curz00_12728 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_iportz00_12712,
																										BgL_forwardz00_12724);
																									{	/* Unsafe/http.scm 691 */

																										if (
																											((long) (BgL_curz00_12728)
																												== 10L))
																											{	/* Unsafe/http.scm 691 */
																												long
																													BgL_arg1883z00_12729;
																												BgL_arg1883z00_12729 =
																													(1L +
																													BgL_forwardz00_12724);
																												{	/* Unsafe/http.scm 691 */
																													long
																														BgL_newzd2matchzd2_12730;
																													RGC_STOP_MATCH
																														(BgL_iportz00_12712,
																														BgL_arg1883z00_12729);
																													BgL_newzd2matchzd2_12730
																														= 1L;
																													BgL_matchz00_12777 =
																														BgL_newzd2matchzd2_12730;
																											}}
																										else
																											{	/* Unsafe/http.scm 691 */
																												BgL_matchz00_12777 =
																													BgL_newzd2matchzd2_12716;
																											}
																									}
																								}
																						}
																					}
																				else
																					{	/* Unsafe/http.scm 691 */
																						bool_t BgL_test6057z00_13406;

																						if (
																							((long) (BgL_curz00_12719) == 9L))
																							{	/* Unsafe/http.scm 691 */
																								BgL_test6057z00_13406 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Unsafe/http.scm 691 */
																								BgL_test6057z00_13406 =
																									(
																									(long) (BgL_curz00_12719) ==
																									32L);
																							}
																						if (BgL_test6057z00_13406)
																							{
																								long BgL_bufposz00_13416;
																								long BgL_forwardz00_13414;
																								long BgL_lastzd2matchzd2_13413;
																								obj_t BgL_iportz00_13412;

																								BgL_iportz00_13412 =
																									BgL_iportz00_12712;
																								BgL_lastzd2matchzd2_13413 =
																									BgL_newzd2matchzd2_12716;
																								BgL_forwardz00_13414 =
																									(1L + BgL_forwardz00_12714);
																								BgL_bufposz00_13416 =
																									BgL_bufposz00_12715;
																								BgL_bufposz00_12761 =
																									BgL_bufposz00_13416;
																								BgL_forwardz00_12760 =
																									BgL_forwardz00_13414;
																								BgL_lastzd2matchzd2_12759 =
																									BgL_lastzd2matchzd2_13413;
																								BgL_iportz00_12758 =
																									BgL_iportz00_13412;
																								goto
																									BgL_statezd23zd21301z00_12709;
																							}
																						else
																							{	/* Unsafe/http.scm 691 */
																								BgL_matchz00_12777 =
																									BgL_newzd2matchzd2_12716;
																							}
																					}
																			}
																	}
															}
														}
												}
											}
										else
											{	/* Unsafe/http.scm 691 */
												long BgL_arg1873z00_12756;

												BgL_arg1873z00_12756 = (1L + BgL_forwardz00_12751);
												{	/* Unsafe/http.scm 691 */
													long BgL_newzd2matchzd2_12757;

													RGC_STOP_MATCH(BgL_iportz00_12749,
														BgL_arg1873z00_12756);
													BgL_newzd2matchzd2_12757 = 2L;
													BgL_matchz00_12777 = BgL_newzd2matchzd2_12757;
					}}}}}}
					RGC_SET_FILEPOS(BgL_iportz00_12396);
					switch (BgL_matchz00_12777)
						{
						case 2L:

							{	/* Unsafe/http.scm 716 */
								obj_t BgL_c1z00_12780;

								{	/* Unsafe/http.scm 691 */
									bool_t BgL_test6059z00_13421;

									{	/* Unsafe/http.scm 691 */
										long BgL_arg1984z00_12776;

										BgL_arg1984z00_12776 =
											RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12396);
										BgL_test6059z00_13421 = (BgL_arg1984z00_12776 == 0L);
									}
									if (BgL_test6059z00_13421)
										{	/* Unsafe/http.scm 691 */
											BgL_c1z00_12780 = BEOF;
										}
									else
										{	/* Unsafe/http.scm 691 */
											BgL_c1z00_12780 =
												BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_12396));
										}
								}
								{	/* Unsafe/http.scm 716 */
									obj_t BgL_c2z00_12781;

									BgL_c2z00_12781 =
										BGl_readzd2charzd2zz__r4_input_6_10_2z00
										(BgL_iportz00_12396);
									{	/* Unsafe/http.scm 717 */
										obj_t BgL_c3z00_12782;

										BgL_c3z00_12782 =
											BGl_readzd2charzd2zz__r4_input_6_10_2z00
											(BgL_iportz00_12396);
										{	/* Unsafe/http.scm 718 */
											obj_t BgL_c4z00_12783;

											BgL_c4z00_12783 =
												BGl_readzd2charzd2zz__r4_input_6_10_2z00
												(BgL_iportz00_12396);
											{	/* Unsafe/http.scm 719 */
												obj_t BgL_c5z00_12784;

												BgL_c5z00_12784 =
													BGl_readzd2charzd2zz__r4_input_6_10_2z00
													(BgL_iportz00_12396);
												{	/* Unsafe/http.scm 720 */

													{	/* Unsafe/http.scm 721 */
														BgL_z62iozd2parsezd2errorz62_bglt
															BgL_arg1991z00_12785;
														{	/* Unsafe/http.scm 721 */
															BgL_z62iozd2parsezd2errorz62_bglt
																BgL_new1313z00_12786;
															{	/* Unsafe/http.scm 721 */
																BgL_z62iozd2parsezd2errorz62_bglt
																	BgL_new1312z00_12787;
																BgL_new1312z00_12787 =
																	((BgL_z62iozd2parsezd2errorz62_bglt)
																	BOBJECT(GC_MALLOC(sizeof(struct
																				BgL_z62iozd2parsezd2errorz62_bgl))));
																{	/* Unsafe/http.scm 721 */
																	long BgL_arg2007z00_12788;

																	BgL_arg2007z00_12788 =
																		BGL_CLASS_NUM
																		(BGl_z62iozd2parsezd2errorz62zz__objectz00);
																	BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
																			BgL_new1312z00_12787),
																		BgL_arg2007z00_12788);
																}
																BgL_new1313z00_12786 = BgL_new1312z00_12787;
															}
															((((BgL_z62exceptionz62_bglt) COBJECT(
																			((BgL_z62exceptionz62_bglt)
																				BgL_new1313z00_12786)))->BgL_fnamez00) =
																((obj_t) BFALSE), BUNSPEC);
															((((BgL_z62exceptionz62_bglt)
																		COBJECT(((BgL_z62exceptionz62_bglt)
																				BgL_new1313z00_12786)))->
																	BgL_locationz00) = ((obj_t) BFALSE), BUNSPEC);
															{
																obj_t BgL_auxz00_13438;

																{	/* Unsafe/http.scm 721 */
																	obj_t BgL_arg1992z00_12789;

																	{	/* Unsafe/http.scm 721 */
																		obj_t BgL_arg1993z00_12790;

																		{	/* Unsafe/http.scm 721 */
																			obj_t BgL_classz00_12791;

																			BgL_classz00_12791 =
																				BGl_z62iozd2parsezd2errorz62zz__objectz00;
																			BgL_arg1993z00_12790 =
																				BGL_CLASS_ALL_FIELDS
																				(BgL_classz00_12791);
																		}
																		BgL_arg1992z00_12789 =
																			VECTOR_REF(BgL_arg1993z00_12790, 2L);
																	}
																	BgL_auxz00_13438 =
																		BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																		(BgL_arg1992z00_12789);
																}
																((((BgL_z62exceptionz62_bglt) COBJECT(
																				((BgL_z62exceptionz62_bglt)
																					BgL_new1313z00_12786)))->
																		BgL_stackz00) =
																	((obj_t) BgL_auxz00_13438), BUNSPEC);
															}
															((((BgL_z62errorz62_bglt) COBJECT(
																			((BgL_z62errorz62_bglt)
																				BgL_new1313z00_12786)))->BgL_procz00) =
																((obj_t) BGl_symbol5653z00zz__httpz00),
																BUNSPEC);
															((((BgL_z62errorz62_bglt)
																		COBJECT(((BgL_z62errorz62_bglt)
																				BgL_new1313z00_12786)))->BgL_msgz00) =
																((obj_t) BGl_string5655z00zz__httpz00),
																BUNSPEC);
															{
																obj_t BgL_auxz00_13448;

																{	/* Unsafe/http.scm 724 */
																	bool_t BgL_test6060z00_13450;

																	if (EOF_OBJECTP(BgL_c1z00_12780))
																		{	/* Unsafe/http.scm 724 */
																			BgL_test6060z00_13450 = ((bool_t) 1);
																		}
																	else
																		{	/* Unsafe/http.scm 724 */
																			if (EOF_OBJECTP(BgL_c2z00_12781))
																				{	/* Unsafe/http.scm 725 */
																					BgL_test6060z00_13450 = ((bool_t) 1);
																				}
																			else
																				{	/* Unsafe/http.scm 725 */
																					if (EOF_OBJECTP(BgL_c3z00_12782))
																						{	/* Unsafe/http.scm 726 */
																							BgL_test6060z00_13450 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Unsafe/http.scm 726 */
																							if (EOF_OBJECTP(BgL_c4z00_12783))
																								{	/* Unsafe/http.scm 727 */
																									BgL_test6060z00_13450 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Unsafe/http.scm 727 */
																									BgL_test6060z00_13450 =
																										EOF_OBJECTP
																										(BgL_c5z00_12784);
																								}
																						}
																				}
																		}
																	if (BgL_test6060z00_13450)
																		{	/* Unsafe/http.scm 724 */
																			BgL_auxz00_13448 =
																				BGl_string5656z00zz__httpz00;
																		}
																	else
																		{	/* Unsafe/http.scm 730 */
																			obj_t BgL_arg1999z00_12792;

																			{	/* Unsafe/http.scm 730 */
																				obj_t BgL_list2000z00_12793;

																				{	/* Unsafe/http.scm 730 */
																					obj_t BgL_arg2002z00_12794;

																					{	/* Unsafe/http.scm 730 */
																						obj_t BgL_arg2003z00_12795;

																						{	/* Unsafe/http.scm 730 */
																							obj_t BgL_arg2004z00_12796;

																							{	/* Unsafe/http.scm 730 */
																								obj_t BgL_arg2005z00_12797;

																								BgL_arg2005z00_12797 =
																									MAKE_YOUNG_PAIR
																									(BgL_c5z00_12784, BNIL);
																								BgL_arg2004z00_12796 =
																									MAKE_YOUNG_PAIR
																									(BgL_c4z00_12783,
																									BgL_arg2005z00_12797);
																							}
																							BgL_arg2003z00_12795 =
																								MAKE_YOUNG_PAIR(BgL_c3z00_12782,
																								BgL_arg2004z00_12796);
																						}
																						BgL_arg2002z00_12794 =
																							MAKE_YOUNG_PAIR(BgL_c2z00_12781,
																							BgL_arg2003z00_12795);
																					}
																					BgL_list2000z00_12793 =
																						MAKE_YOUNG_PAIR(BgL_c1z00_12780,
																						BgL_arg2002z00_12794);
																				}
																				BgL_arg1999z00_12792 =
																					BGl_listzd2ze3stringz31zz__r4_strings_6_7z00
																					(BgL_list2000z00_12793);
																			}
																			BgL_auxz00_13448 =
																				string_for_read(BgL_arg1999z00_12792);
																		}
																}
																((((BgL_z62errorz62_bglt) COBJECT(
																				((BgL_z62errorz62_bglt)
																					BgL_new1313z00_12786)))->BgL_objz00) =
																	((obj_t) BgL_auxz00_13448), BUNSPEC);
															}
															BgL_arg1991z00_12785 = BgL_new1313z00_12786;
														}
														return
															BGl_raisez00zz__errorz00(
															((obj_t) BgL_arg1991z00_12785));
													}
												}
											}
										}
									}
								}
							}
							break;
						case 1L:

							if (CBOOL(BgL_opz00_12397))
								{	/* Unsafe/http.scm 712 */
									obj_t BgL_arg2013z00_12798;

									{	/* Unsafe/http.scm 691 */
										long BgL_arg1905z00_12799;

										BgL_arg1905z00_12799 =
											RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12396);
										BgL_arg2013z00_12798 =
											rgc_buffer_substring(BgL_iportz00_12396, 0L,
											BgL_arg1905z00_12799);
									}
									bgl_display_obj(BgL_arg2013z00_12798, BgL_opz00_12397);
								}
							else
								{	/* Unsafe/http.scm 712 */
									BFALSE;
								}
							{	/* Unsafe/http.scm 713 */
								long BgL_lz00_12800;

								BgL_lz00_12800 = RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12396);
								{	/* Unsafe/http.scm 714 */
									obj_t BgL_arg2016z00_12801;

									{	/* Unsafe/http.scm 714 */
										long BgL_arg2017z00_12802;

										BgL_arg2017z00_12802 = (BgL_lz00_12800 - 2L);
										BgL_arg2016z00_12801 =
											BGl_thezd2substringze70z35zz__httpz00(BgL_iportz00_12396,
											(int) (0L), (int) (BgL_arg2017z00_12802));
									}
									{	/* Unsafe/http.scm 714 */
										long BgL_tmpz00_13480;

										{	/* Unsafe/http.scm 714 */
											char *BgL_tmpz00_13481;

											BgL_tmpz00_13481 =
												BSTRING_TO_STRING(BgL_arg2016z00_12801);
											BgL_tmpz00_13480 = BGL_STRTOL(BgL_tmpz00_13481, 0L, 16L);
										}
										return BINT(BgL_tmpz00_13480);
									}
								}
							}
							break;
						case 0L:

							if (CBOOL(BgL_opz00_12397))
								{	/* Unsafe/http.scm 696 */
									obj_t BgL_arg2018z00_12803;

									{	/* Unsafe/http.scm 691 */
										long BgL_arg1905z00_12804;

										BgL_arg1905z00_12804 =
											RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12396);
										BgL_arg2018z00_12803 =
											rgc_buffer_substring(BgL_iportz00_12396, 0L,
											BgL_arg1905z00_12804);
									}
									bgl_display_obj(BgL_arg2018z00_12803, BgL_opz00_12397);
								}
							else
								{	/* Unsafe/http.scm 696 */
									BFALSE;
								}
							{	/* Unsafe/http.scm 697 */
								long BgL_sza7za7_12805;

								{	/* Unsafe/http.scm 698 */
									obj_t BgL_arg2217z00_12806;

									{	/* Unsafe/http.scm 698 */
										long BgL_arg2218z00_12807;

										{	/* Unsafe/http.scm 698 */
											long BgL_arg2219z00_12808;

											BgL_arg2219z00_12808 =
												RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12396);
											BgL_arg2218z00_12807 = (BgL_arg2219z00_12808 - 1L);
										}
										BgL_arg2217z00_12806 =
											BGl_thezd2substringze70z35zz__httpz00(BgL_iportz00_12396,
											(int) (0L), (int) (BgL_arg2218z00_12807));
									}
									{	/* Unsafe/http.scm 697 */
										char *BgL_tmpz00_13495;

										BgL_tmpz00_13495 = BSTRING_TO_STRING(BgL_arg2217z00_12806);
										BgL_sza7za7_12805 = BGL_STRTOL(BgL_tmpz00_13495, 0L, 16L);
								}}
								{
									obj_t BgL_iportz00_12922;
									long BgL_lastzd2matchzd2_12923;
									long BgL_forwardz00_12924;
									long BgL_bufposz00_12925;
									obj_t BgL_iportz00_12915;
									long BgL_lastzd2matchzd2_12916;
									long BgL_forwardz00_12917;
									long BgL_bufposz00_12918;
									obj_t BgL_iportz00_12906;
									long BgL_lastzd2matchzd2_12907;
									long BgL_forwardz00_12908;
									long BgL_bufposz00_12909;
									obj_t BgL_iportz00_12899;
									long BgL_lastzd2matchzd2_12900;
									long BgL_forwardz00_12901;
									long BgL_bufposz00_12902;
									obj_t BgL_iportz00_12890;
									long BgL_lastzd2matchzd2_12891;
									long BgL_forwardz00_12892;
									long BgL_bufposz00_12893;
									obj_t BgL_iportz00_12883;
									long BgL_lastzd2matchzd2_12884;
									long BgL_forwardz00_12885;
									long BgL_bufposz00_12886;
									obj_t BgL_iportz00_12874;
									long BgL_lastzd2matchzd2_12875;
									long BgL_forwardz00_12876;
									long BgL_bufposz00_12877;
									obj_t BgL_iportz00_12867;
									long BgL_lastzd2matchzd2_12868;
									long BgL_forwardz00_12869;
									long BgL_bufposz00_12870;
									obj_t BgL_iportz00_12858;
									long BgL_lastzd2matchzd2_12859;
									long BgL_forwardz00_12860;
									long BgL_bufposz00_12861;
									obj_t BgL_iportz00_12851;
									long BgL_lastzd2matchzd2_12852;
									long BgL_forwardz00_12853;
									long BgL_bufposz00_12854;
									obj_t BgL_iportz00_12843;
									long BgL_lastzd2matchzd2_12844;
									long BgL_forwardz00_12845;
									long BgL_bufposz00_12846;

									RGC_START_MATCH(BgL_iportz00_12396);
									{	/* Unsafe/http.scm 700 */
										long BgL_matchz00_12822;

										{	/* Unsafe/http.scm 700 */
											long BgL_arg2214z00_12823;
											long BgL_arg2216z00_12824;

											BgL_arg2214z00_12823 =
												RGC_BUFFER_FORWARD(BgL_iportz00_12396);
											BgL_arg2216z00_12824 =
												RGC_BUFFER_BUFPOS(BgL_iportz00_12396);
											{
												long BgL_forwardz00_12826;
												long BgL_bufposz00_12827;

												BgL_forwardz00_12826 = BgL_arg2214z00_12823;
												BgL_bufposz00_12827 = BgL_arg2216z00_12824;
											BgL_statezd20zd21314z00_12825:
												if ((BgL_forwardz00_12826 == BgL_bufposz00_12827))
													{	/* Unsafe/http.scm 700 */
														if (rgc_fill_buffer(BgL_iportz00_12396))
															{	/* Unsafe/http.scm 700 */
																long BgL_arg2072z00_12828;
																long BgL_arg2073z00_12829;

																BgL_arg2072z00_12828 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_12396);
																BgL_arg2073z00_12829 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_12396);
																{
																	long BgL_bufposz00_13508;
																	long BgL_forwardz00_13507;

																	BgL_forwardz00_13507 = BgL_arg2072z00_12828;
																	BgL_bufposz00_13508 = BgL_arg2073z00_12829;
																	BgL_bufposz00_12827 = BgL_bufposz00_13508;
																	BgL_forwardz00_12826 = BgL_forwardz00_13507;
																	goto BgL_statezd20zd21314z00_12825;
																}
															}
														else
															{	/* Unsafe/http.scm 700 */
																BgL_matchz00_12822 = 1L;
															}
													}
												else
													{	/* Unsafe/http.scm 700 */
														int BgL_curz00_12830;

														BgL_curz00_12830 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_12396,
															BgL_forwardz00_12826);
														{	/* Unsafe/http.scm 700 */

															if (((long) (BgL_curz00_12830) == 13L))
																{	/* Unsafe/http.scm 700 */
																	BgL_iportz00_12922 = BgL_iportz00_12396;
																	BgL_lastzd2matchzd2_12923 = 1L;
																	BgL_forwardz00_12924 =
																		(1L + BgL_forwardz00_12826);
																	BgL_bufposz00_12925 = BgL_bufposz00_12827;
																BgL_statezd22zd21316z00_12821:
																	{	/* Unsafe/http.scm 700 */
																		long BgL_newzd2matchzd2_12926;

																		RGC_STOP_MATCH(BgL_iportz00_12922,
																			BgL_forwardz00_12924);
																		BgL_newzd2matchzd2_12926 = 1L;
																		if (
																			(BgL_forwardz00_12924 ==
																				BgL_bufposz00_12925))
																			{	/* Unsafe/http.scm 700 */
																				if (rgc_fill_buffer(BgL_iportz00_12922))
																					{	/* Unsafe/http.scm 700 */
																						long BgL_arg2022z00_12927;
																						long BgL_arg2023z00_12928;

																						BgL_arg2022z00_12927 =
																							RGC_BUFFER_FORWARD
																							(BgL_iportz00_12922);
																						BgL_arg2023z00_12928 =
																							RGC_BUFFER_BUFPOS
																							(BgL_iportz00_12922);
																						{
																							long BgL_bufposz00_13521;
																							long BgL_forwardz00_13520;

																							BgL_forwardz00_13520 =
																								BgL_arg2022z00_12927;
																							BgL_bufposz00_13521 =
																								BgL_arg2023z00_12928;
																							BgL_bufposz00_12925 =
																								BgL_bufposz00_13521;
																							BgL_forwardz00_12924 =
																								BgL_forwardz00_13520;
																							goto
																								BgL_statezd22zd21316z00_12821;
																						}
																					}
																				else
																					{	/* Unsafe/http.scm 700 */
																						BgL_matchz00_12822 =
																							BgL_newzd2matchzd2_12926;
																					}
																			}
																		else
																			{	/* Unsafe/http.scm 700 */
																				int BgL_curz00_12929;

																				BgL_curz00_12929 =
																					RGC_BUFFER_GET_CHAR
																					(BgL_iportz00_12922,
																					BgL_forwardz00_12924);
																				{	/* Unsafe/http.scm 700 */

																					if (
																						((long) (BgL_curz00_12929) == 10L))
																						{	/* Unsafe/http.scm 700 */
																							BgL_matchz00_12822 =
																								BgL_newzd2matchzd2_12926;
																						}
																					else
																						{	/* Unsafe/http.scm 700 */
																							BgL_iportz00_12851 =
																								BgL_iportz00_12922;
																							BgL_lastzd2matchzd2_12852 =
																								BgL_newzd2matchzd2_12926;
																							BgL_forwardz00_12853 =
																								(1L + BgL_forwardz00_12924);
																							BgL_bufposz00_12854 =
																								BgL_bufposz00_12925;
																						BgL_statezd23zd21317z00_12812:
																							if (
																								(BgL_forwardz00_12853 ==
																									BgL_bufposz00_12854))
																								{	/* Unsafe/http.scm 700 */
																									if (rgc_fill_buffer
																										(BgL_iportz00_12851))
																										{	/* Unsafe/http.scm 700 */
																											long BgL_arg2105z00_12855;
																											long BgL_arg2106z00_12856;

																											BgL_arg2105z00_12855 =
																												RGC_BUFFER_FORWARD
																												(BgL_iportz00_12851);
																											BgL_arg2106z00_12856 =
																												RGC_BUFFER_BUFPOS
																												(BgL_iportz00_12851);
																											{
																												long
																													BgL_bufposz00_13533;
																												long
																													BgL_forwardz00_13532;
																												BgL_forwardz00_13532 =
																													BgL_arg2105z00_12855;
																												BgL_bufposz00_13533 =
																													BgL_arg2106z00_12856;
																												BgL_bufposz00_12854 =
																													BgL_bufposz00_13533;
																												BgL_forwardz00_12853 =
																													BgL_forwardz00_13532;
																												goto
																													BgL_statezd23zd21317z00_12812;
																											}
																										}
																									else
																										{	/* Unsafe/http.scm 700 */
																											BgL_matchz00_12822 =
																												BgL_lastzd2matchzd2_12852;
																										}
																								}
																							else
																								{	/* Unsafe/http.scm 700 */
																									int BgL_curz00_12857;

																									BgL_curz00_12857 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_iportz00_12851,
																										BgL_forwardz00_12853);
																									{	/* Unsafe/http.scm 700 */

																										if (
																											((long) (BgL_curz00_12857)
																												== 13L))
																											{	/* Unsafe/http.scm 700 */
																												BgL_iportz00_12858 =
																													BgL_iportz00_12851;
																												BgL_lastzd2matchzd2_12859
																													=
																													BgL_lastzd2matchzd2_12852;
																												BgL_forwardz00_12860 =
																													(1L +
																													BgL_forwardz00_12853);
																												BgL_bufposz00_12861 =
																													BgL_bufposz00_12854;
																											BgL_statezd26zd21320z00_12813:
																												if (
																													(BgL_forwardz00_12860
																														==
																														BgL_bufposz00_12861))
																													{	/* Unsafe/http.scm 700 */
																														if (rgc_fill_buffer
																															(BgL_iportz00_12858))
																															{	/* Unsafe/http.scm 700 */
																																long
																																	BgL_arg2096z00_12862;
																																long
																																	BgL_arg2097z00_12863;
																																BgL_arg2096z00_12862
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_iportz00_12858);
																																BgL_arg2097z00_12863
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_iportz00_12858);
																																{
																																	long
																																		BgL_bufposz00_13545;
																																	long
																																		BgL_forwardz00_13544;
																																	BgL_forwardz00_13544
																																		=
																																		BgL_arg2096z00_12862;
																																	BgL_bufposz00_13545
																																		=
																																		BgL_arg2097z00_12863;
																																	BgL_bufposz00_12861
																																		=
																																		BgL_bufposz00_13545;
																																	BgL_forwardz00_12860
																																		=
																																		BgL_forwardz00_13544;
																																	goto
																																		BgL_statezd26zd21320z00_12813;
																																}
																															}
																														else
																															{	/* Unsafe/http.scm 700 */
																																BgL_matchz00_12822
																																	=
																																	BgL_lastzd2matchzd2_12859;
																															}
																													}
																												else
																													{	/* Unsafe/http.scm 700 */
																														int
																															BgL_curz00_12864;
																														BgL_curz00_12864 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_iportz00_12858,
																															BgL_forwardz00_12860);
																														{	/* Unsafe/http.scm 700 */

																															if (
																																((long)
																																	(BgL_curz00_12864)
																																	== 10L))
																																{	/* Unsafe/http.scm 700 */
																																	long
																																		BgL_arg2100z00_12865;
																																	BgL_arg2100z00_12865
																																		=
																																		(1L +
																																		BgL_forwardz00_12860);
																																	{	/* Unsafe/http.scm 700 */
																																		long
																																			BgL_newzd2matchzd2_12866;
																																		RGC_STOP_MATCH
																																			(BgL_iportz00_12858,
																																			BgL_arg2100z00_12865);
																																		BgL_newzd2matchzd2_12866
																																			= 0L;
																																		BgL_matchz00_12822
																																			=
																																			BgL_newzd2matchzd2_12866;
																																}}
																															else
																																{	/* Unsafe/http.scm 700 */
																																	BgL_iportz00_12867
																																		=
																																		BgL_iportz00_12858;
																																	BgL_lastzd2matchzd2_12868
																																		=
																																		BgL_lastzd2matchzd2_12859;
																																	BgL_forwardz00_12869
																																		=
																																		(1L +
																																		BgL_forwardz00_12860);
																																	BgL_bufposz00_12870
																																		=
																																		BgL_bufposz00_12861;
																																BgL_statezd27zd21321z00_12814:
																																	if (
																																		(BgL_forwardz00_12869
																																			==
																																			BgL_bufposz00_12870))
																																		{	/* Unsafe/http.scm 700 */
																																			if (rgc_fill_buffer(BgL_iportz00_12867))
																																				{	/* Unsafe/http.scm 700 */
																																					long
																																						BgL_arg2088z00_12871;
																																					long
																																						BgL_arg2089z00_12872;
																																					BgL_arg2088z00_12871
																																						=
																																						RGC_BUFFER_FORWARD
																																						(BgL_iportz00_12867);
																																					BgL_arg2089z00_12872
																																						=
																																						RGC_BUFFER_BUFPOS
																																						(BgL_iportz00_12867);
																																					{
																																						long
																																							BgL_bufposz00_13559;
																																						long
																																							BgL_forwardz00_13558;
																																						BgL_forwardz00_13558
																																							=
																																							BgL_arg2088z00_12871;
																																						BgL_bufposz00_13559
																																							=
																																							BgL_arg2089z00_12872;
																																						BgL_bufposz00_12870
																																							=
																																							BgL_bufposz00_13559;
																																						BgL_forwardz00_12869
																																							=
																																							BgL_forwardz00_13558;
																																						goto
																																							BgL_statezd27zd21321z00_12814;
																																					}
																																				}
																																			else
																																				{	/* Unsafe/http.scm 700 */
																																					BgL_matchz00_12822
																																						=
																																						BgL_lastzd2matchzd2_12868;
																																				}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 700 */
																																			int
																																				BgL_curz00_12873;
																																			BgL_curz00_12873
																																				=
																																				RGC_BUFFER_GET_CHAR
																																				(BgL_iportz00_12867,
																																				BgL_forwardz00_12869);
																																			{	/* Unsafe/http.scm 700 */

																																				if (
																																					((long) (BgL_curz00_12873) == 13L))
																																					{	/* Unsafe/http.scm 700 */
																																						BgL_iportz00_12890
																																							=
																																							BgL_iportz00_12867;
																																						BgL_lastzd2matchzd2_12891
																																							=
																																							BgL_lastzd2matchzd2_12868;
																																						BgL_forwardz00_12892
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_12869);
																																						BgL_bufposz00_12893
																																							=
																																							BgL_bufposz00_12870;
																																					BgL_statezd29zd21323z00_12817:
																																						if (
																																							(BgL_forwardz00_12892
																																								==
																																								BgL_bufposz00_12893))
																																							{	/* Unsafe/http.scm 700 */
																																								if (rgc_fill_buffer(BgL_iportz00_12890))
																																									{	/* Unsafe/http.scm 700 */
																																										long
																																											BgL_arg2054z00_12894;
																																										long
																																											BgL_arg2055z00_12895;
																																										BgL_arg2054z00_12894
																																											=
																																											RGC_BUFFER_FORWARD
																																											(BgL_iportz00_12890);
																																										BgL_arg2055z00_12895
																																											=
																																											RGC_BUFFER_BUFPOS
																																											(BgL_iportz00_12890);
																																										{
																																											long
																																												BgL_bufposz00_13571;
																																											long
																																												BgL_forwardz00_13570;
																																											BgL_forwardz00_13570
																																												=
																																												BgL_arg2054z00_12894;
																																											BgL_bufposz00_13571
																																												=
																																												BgL_arg2055z00_12895;
																																											BgL_bufposz00_12893
																																												=
																																												BgL_bufposz00_13571;
																																											BgL_forwardz00_12892
																																												=
																																												BgL_forwardz00_13570;
																																											goto
																																												BgL_statezd29zd21323z00_12817;
																																										}
																																									}
																																								else
																																									{	/* Unsafe/http.scm 700 */
																																										BgL_matchz00_12822
																																											=
																																											BgL_lastzd2matchzd2_12891;
																																									}
																																							}
																																						else
																																							{	/* Unsafe/http.scm 700 */
																																								int
																																									BgL_curz00_12896;
																																								BgL_curz00_12896
																																									=
																																									RGC_BUFFER_GET_CHAR
																																									(BgL_iportz00_12890,
																																									BgL_forwardz00_12892);
																																								{	/* Unsafe/http.scm 700 */

																																									if (((long) (BgL_curz00_12896) == 10L))
																																										{	/* Unsafe/http.scm 700 */
																																											long
																																												BgL_arg2058z00_12897;
																																											BgL_arg2058z00_12897
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_12892);
																																											{	/* Unsafe/http.scm 700 */
																																												long
																																													BgL_newzd2matchzd2_12898;
																																												RGC_STOP_MATCH
																																													(BgL_iportz00_12890,
																																													BgL_arg2058z00_12897);
																																												BgL_newzd2matchzd2_12898
																																													=
																																													0L;
																																												BgL_matchz00_12822
																																													=
																																													BgL_newzd2matchzd2_12898;
																																										}}
																																									else
																																										{
																																											long
																																												BgL_bufposz00_13582;
																																											long
																																												BgL_forwardz00_13580;
																																											long
																																												BgL_lastzd2matchzd2_13579;
																																											obj_t
																																												BgL_iportz00_13578;
																																											BgL_iportz00_13578
																																												=
																																												BgL_iportz00_12890;
																																											BgL_lastzd2matchzd2_13579
																																												=
																																												BgL_lastzd2matchzd2_12891;
																																											BgL_forwardz00_13580
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_12892);
																																											BgL_bufposz00_13582
																																												=
																																												BgL_bufposz00_12893;
																																											BgL_bufposz00_12870
																																												=
																																												BgL_bufposz00_13582;
																																											BgL_forwardz00_12869
																																												=
																																												BgL_forwardz00_13580;
																																											BgL_lastzd2matchzd2_12868
																																												=
																																												BgL_lastzd2matchzd2_13579;
																																											BgL_iportz00_12867
																																												=
																																												BgL_iportz00_13578;
																																											goto
																																												BgL_statezd27zd21321z00_12814;
																																										}
																																								}
																																							}
																																					}
																																				else
																																					{	/* Unsafe/http.scm 700 */
																																						BgL_iportz00_12899
																																							=
																																							BgL_iportz00_12867;
																																						BgL_lastzd2matchzd2_12900
																																							=
																																							BgL_lastzd2matchzd2_12868;
																																						BgL_forwardz00_12901
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_12869);
																																						BgL_bufposz00_12902
																																							=
																																							BgL_bufposz00_12870;
																																					BgL_statezd25zd21319z00_12818:
																																						if (
																																							(BgL_forwardz00_12901
																																								==
																																								BgL_bufposz00_12902))
																																							{	/* Unsafe/http.scm 700 */
																																								if (rgc_fill_buffer(BgL_iportz00_12899))
																																									{	/* Unsafe/http.scm 700 */
																																										long
																																											BgL_arg2046z00_12903;
																																										long
																																											BgL_arg2047z00_12904;
																																										BgL_arg2046z00_12903
																																											=
																																											RGC_BUFFER_FORWARD
																																											(BgL_iportz00_12899);
																																										BgL_arg2047z00_12904
																																											=
																																											RGC_BUFFER_BUFPOS
																																											(BgL_iportz00_12899);
																																										{
																																											long
																																												BgL_bufposz00_13591;
																																											long
																																												BgL_forwardz00_13590;
																																											BgL_forwardz00_13590
																																												=
																																												BgL_arg2046z00_12903;
																																											BgL_bufposz00_13591
																																												=
																																												BgL_arg2047z00_12904;
																																											BgL_bufposz00_12902
																																												=
																																												BgL_bufposz00_13591;
																																											BgL_forwardz00_12901
																																												=
																																												BgL_forwardz00_13590;
																																											goto
																																												BgL_statezd25zd21319z00_12818;
																																										}
																																									}
																																								else
																																									{	/* Unsafe/http.scm 700 */
																																										BgL_matchz00_12822
																																											=
																																											BgL_lastzd2matchzd2_12900;
																																									}
																																							}
																																						else
																																							{	/* Unsafe/http.scm 700 */
																																								int
																																									BgL_curz00_12905;
																																								BgL_curz00_12905
																																									=
																																									RGC_BUFFER_GET_CHAR
																																									(BgL_iportz00_12899,
																																									BgL_forwardz00_12901);
																																								{	/* Unsafe/http.scm 700 */

																																									if (((long) (BgL_curz00_12905) == 13L))
																																										{	/* Unsafe/http.scm 700 */
																																											BgL_iportz00_12874
																																												=
																																												BgL_iportz00_12899;
																																											BgL_lastzd2matchzd2_12875
																																												=
																																												BgL_lastzd2matchzd2_12900;
																																											BgL_forwardz00_12876
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_12901);
																																											BgL_bufposz00_12877
																																												=
																																												BgL_bufposz00_12902;
																																										BgL_statezd210zd21324z00_12815:
																																											if ((BgL_forwardz00_12876 == BgL_bufposz00_12877))
																																												{	/* Unsafe/http.scm 700 */
																																													if (rgc_fill_buffer(BgL_iportz00_12874))
																																														{	/* Unsafe/http.scm 700 */
																																															long
																																																BgL_arg2080z00_12878;
																																															long
																																																BgL_arg2081z00_12879;
																																															BgL_arg2080z00_12878
																																																=
																																																RGC_BUFFER_FORWARD
																																																(BgL_iportz00_12874);
																																															BgL_arg2081z00_12879
																																																=
																																																RGC_BUFFER_BUFPOS
																																																(BgL_iportz00_12874);
																																															{
																																																long
																																																	BgL_bufposz00_13603;
																																																long
																																																	BgL_forwardz00_13602;
																																																BgL_forwardz00_13602
																																																	=
																																																	BgL_arg2080z00_12878;
																																																BgL_bufposz00_13603
																																																	=
																																																	BgL_arg2081z00_12879;
																																																BgL_bufposz00_12877
																																																	=
																																																	BgL_bufposz00_13603;
																																																BgL_forwardz00_12876
																																																	=
																																																	BgL_forwardz00_13602;
																																																goto
																																																	BgL_statezd210zd21324z00_12815;
																																															}
																																														}
																																													else
																																														{	/* Unsafe/http.scm 700 */
																																															BgL_matchz00_12822
																																																=
																																																BgL_lastzd2matchzd2_12875;
																																														}
																																												}
																																											else
																																												{	/* Unsafe/http.scm 700 */
																																													int
																																														BgL_curz00_12880;
																																													BgL_curz00_12880
																																														=
																																														RGC_BUFFER_GET_CHAR
																																														(BgL_iportz00_12874,
																																														BgL_forwardz00_12876);
																																													{	/* Unsafe/http.scm 700 */

																																														if (((long) (BgL_curz00_12880) == 10L))
																																															{	/* Unsafe/http.scm 700 */
																																																long
																																																	BgL_arg2083z00_12881;
																																																BgL_arg2083z00_12881
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_12876);
																																																{	/* Unsafe/http.scm 700 */
																																																	long
																																																		BgL_newzd2matchzd2_12882;
																																																	RGC_STOP_MATCH
																																																		(BgL_iportz00_12874,
																																																		BgL_arg2083z00_12881);
																																																	BgL_newzd2matchzd2_12882
																																																		=
																																																		0L;
																																																	BgL_matchz00_12822
																																																		=
																																																		BgL_newzd2matchzd2_12882;
																																															}}
																																														else
																																															{	/* Unsafe/http.scm 700 */
																																																BgL_iportz00_12915
																																																	=
																																																	BgL_iportz00_12874;
																																																BgL_lastzd2matchzd2_12916
																																																	=
																																																	BgL_lastzd2matchzd2_12875;
																																																BgL_forwardz00_12917
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_12876);
																																																BgL_bufposz00_12918
																																																	=
																																																	BgL_bufposz00_12877;
																																															BgL_statezd211zd21325z00_12820:
																																																if ((BgL_forwardz00_12917 == BgL_bufposz00_12918))
																																																	{	/* Unsafe/http.scm 700 */
																																																		if (rgc_fill_buffer(BgL_iportz00_12915))
																																																			{	/* Unsafe/http.scm 700 */
																																																				long
																																																					BgL_arg2029z00_12919;
																																																				long
																																																					BgL_arg2030z00_12920;
																																																				BgL_arg2029z00_12919
																																																					=
																																																					RGC_BUFFER_FORWARD
																																																					(BgL_iportz00_12915);
																																																				BgL_arg2030z00_12920
																																																					=
																																																					RGC_BUFFER_BUFPOS
																																																					(BgL_iportz00_12915);
																																																				{
																																																					long
																																																						BgL_bufposz00_13617;
																																																					long
																																																						BgL_forwardz00_13616;
																																																					BgL_forwardz00_13616
																																																						=
																																																						BgL_arg2029z00_12919;
																																																					BgL_bufposz00_13617
																																																						=
																																																						BgL_arg2030z00_12920;
																																																					BgL_bufposz00_12918
																																																						=
																																																						BgL_bufposz00_13617;
																																																					BgL_forwardz00_12917
																																																						=
																																																						BgL_forwardz00_13616;
																																																					goto
																																																						BgL_statezd211zd21325z00_12820;
																																																				}
																																																			}
																																																		else
																																																			{	/* Unsafe/http.scm 700 */
																																																				BgL_matchz00_12822
																																																					=
																																																					BgL_lastzd2matchzd2_12916;
																																																			}
																																																	}
																																																else
																																																	{	/* Unsafe/http.scm 700 */
																																																		int
																																																			BgL_curz00_12921;
																																																		BgL_curz00_12921
																																																			=
																																																			RGC_BUFFER_GET_CHAR
																																																			(BgL_iportz00_12915,
																																																			BgL_forwardz00_12917);
																																																		{	/* Unsafe/http.scm 700 */

																																																			if (((long) (BgL_curz00_12921) == 13L))
																																																				{	/* Unsafe/http.scm 700 */
																																																					BgL_iportz00_12906
																																																						=
																																																						BgL_iportz00_12915;
																																																					BgL_lastzd2matchzd2_12907
																																																						=
																																																						BgL_lastzd2matchzd2_12916;
																																																					BgL_forwardz00_12908
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_12917);
																																																					BgL_bufposz00_12909
																																																						=
																																																						BgL_bufposz00_12918;
																																																				BgL_statezd212zd21326z00_12819:
																																																					if ((BgL_forwardz00_12908 == BgL_bufposz00_12909))
																																																						{	/* Unsafe/http.scm 700 */
																																																							if (rgc_fill_buffer(BgL_iportz00_12906))
																																																								{	/* Unsafe/http.scm 700 */
																																																									long
																																																										BgL_arg2037z00_12910;
																																																									long
																																																										BgL_arg2038z00_12911;
																																																									BgL_arg2037z00_12910
																																																										=
																																																										RGC_BUFFER_FORWARD
																																																										(BgL_iportz00_12906);
																																																									BgL_arg2038z00_12911
																																																										=
																																																										RGC_BUFFER_BUFPOS
																																																										(BgL_iportz00_12906);
																																																									{
																																																										long
																																																											BgL_bufposz00_13629;
																																																										long
																																																											BgL_forwardz00_13628;
																																																										BgL_forwardz00_13628
																																																											=
																																																											BgL_arg2037z00_12910;
																																																										BgL_bufposz00_13629
																																																											=
																																																											BgL_arg2038z00_12911;
																																																										BgL_bufposz00_12909
																																																											=
																																																											BgL_bufposz00_13629;
																																																										BgL_forwardz00_12908
																																																											=
																																																											BgL_forwardz00_13628;
																																																										goto
																																																											BgL_statezd212zd21326z00_12819;
																																																									}
																																																								}
																																																							else
																																																								{	/* Unsafe/http.scm 700 */
																																																									BgL_matchz00_12822
																																																										=
																																																										BgL_lastzd2matchzd2_12907;
																																																								}
																																																						}
																																																					else
																																																						{	/* Unsafe/http.scm 700 */
																																																							int
																																																								BgL_curz00_12912;
																																																							BgL_curz00_12912
																																																								=
																																																								RGC_BUFFER_GET_CHAR
																																																								(BgL_iportz00_12906,
																																																								BgL_forwardz00_12908);
																																																							{	/* Unsafe/http.scm 700 */

																																																								if (((long) (BgL_curz00_12912) == 10L))
																																																									{	/* Unsafe/http.scm 700 */
																																																										long
																																																											BgL_arg2041z00_12913;
																																																										BgL_arg2041z00_12913
																																																											=
																																																											(1L
																																																											+
																																																											BgL_forwardz00_12908);
																																																										{	/* Unsafe/http.scm 700 */
																																																											long
																																																												BgL_newzd2matchzd2_12914;
																																																											RGC_STOP_MATCH
																																																												(BgL_iportz00_12906,
																																																												BgL_arg2041z00_12913);
																																																											BgL_newzd2matchzd2_12914
																																																												=
																																																												0L;
																																																											BgL_matchz00_12822
																																																												=
																																																												BgL_newzd2matchzd2_12914;
																																																									}}
																																																								else
																																																									{
																																																										long
																																																											BgL_bufposz00_13640;
																																																										long
																																																											BgL_forwardz00_13638;
																																																										long
																																																											BgL_lastzd2matchzd2_13637;
																																																										obj_t
																																																											BgL_iportz00_13636;
																																																										BgL_iportz00_13636
																																																											=
																																																											BgL_iportz00_12906;
																																																										BgL_lastzd2matchzd2_13637
																																																											=
																																																											BgL_lastzd2matchzd2_12907;
																																																										BgL_forwardz00_13638
																																																											=
																																																											(1L
																																																											+
																																																											BgL_forwardz00_12908);
																																																										BgL_bufposz00_13640
																																																											=
																																																											BgL_bufposz00_12909;
																																																										BgL_bufposz00_12918
																																																											=
																																																											BgL_bufposz00_13640;
																																																										BgL_forwardz00_12917
																																																											=
																																																											BgL_forwardz00_13638;
																																																										BgL_lastzd2matchzd2_12916
																																																											=
																																																											BgL_lastzd2matchzd2_13637;
																																																										BgL_iportz00_12915
																																																											=
																																																											BgL_iportz00_13636;
																																																										goto
																																																											BgL_statezd211zd21325z00_12820;
																																																									}
																																																							}
																																																						}
																																																				}
																																																			else
																																																				{
																																																					long
																																																						BgL_bufposz00_13646;
																																																					long
																																																						BgL_forwardz00_13644;
																																																					long
																																																						BgL_lastzd2matchzd2_13643;
																																																					obj_t
																																																						BgL_iportz00_13642;
																																																					BgL_iportz00_13642
																																																						=
																																																						BgL_iportz00_12915;
																																																					BgL_lastzd2matchzd2_13643
																																																						=
																																																						BgL_lastzd2matchzd2_12916;
																																																					BgL_forwardz00_13644
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_12917);
																																																					BgL_bufposz00_13646
																																																						=
																																																						BgL_bufposz00_12918;
																																																					BgL_bufposz00_12902
																																																						=
																																																						BgL_bufposz00_13646;
																																																					BgL_forwardz00_12901
																																																						=
																																																						BgL_forwardz00_13644;
																																																					BgL_lastzd2matchzd2_12900
																																																						=
																																																						BgL_lastzd2matchzd2_13643;
																																																					BgL_iportz00_12899
																																																						=
																																																						BgL_iportz00_13642;
																																																					goto
																																																						BgL_statezd25zd21319z00_12818;
																																																				}
																																																		}
																																																	}
																																															}
																																													}
																																												}
																																										}
																																									else
																																										{
																																											long
																																												BgL_forwardz00_13649;
																																											BgL_forwardz00_13649
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_12901);
																																											BgL_forwardz00_12901
																																												=
																																												BgL_forwardz00_13649;
																																											goto
																																												BgL_statezd25zd21319z00_12818;
																																										}
																																								}
																																							}
																																					}
																																			}
																																		}
																																}
																														}
																													}
																											}
																										else
																											{
																												long
																													BgL_bufposz00_13658;
																												long
																													BgL_forwardz00_13656;
																												long
																													BgL_lastzd2matchzd2_13655;
																												obj_t
																													BgL_iportz00_13654;
																												BgL_iportz00_13654 =
																													BgL_iportz00_12851;
																												BgL_lastzd2matchzd2_13655
																													=
																													BgL_lastzd2matchzd2_12852;
																												BgL_forwardz00_13656 =
																													(1L +
																													BgL_forwardz00_12853);
																												BgL_bufposz00_13658 =
																													BgL_bufposz00_12854;
																												BgL_bufposz00_12902 =
																													BgL_bufposz00_13658;
																												BgL_forwardz00_12901 =
																													BgL_forwardz00_13656;
																												BgL_lastzd2matchzd2_12900
																													=
																													BgL_lastzd2matchzd2_13655;
																												BgL_iportz00_12899 =
																													BgL_iportz00_13654;
																												goto
																													BgL_statezd25zd21319z00_12818;
																											}
																									}
																								}
																						}
																				}
																			}
																	}
																}
															else
																{	/* Unsafe/http.scm 700 */
																	BgL_iportz00_12843 = BgL_iportz00_12396;
																	BgL_lastzd2matchzd2_12844 = 1L;
																	BgL_forwardz00_12845 =
																		(1L + BgL_forwardz00_12826);
																	BgL_bufposz00_12846 = BgL_bufposz00_12827;
																BgL_statezd21zd21315z00_12811:
																	{	/* Unsafe/http.scm 700 */
																		long BgL_newzd2matchzd2_12847;

																		RGC_STOP_MATCH(BgL_iportz00_12843,
																			BgL_forwardz00_12845);
																		BgL_newzd2matchzd2_12847 = 1L;
																		if (
																			(BgL_forwardz00_12845 ==
																				BgL_bufposz00_12846))
																			{	/* Unsafe/http.scm 700 */
																				if (rgc_fill_buffer(BgL_iportz00_12843))
																					{	/* Unsafe/http.scm 700 */
																						long BgL_arg2113z00_12848;
																						long BgL_arg2114z00_12849;

																						BgL_arg2113z00_12848 =
																							RGC_BUFFER_FORWARD
																							(BgL_iportz00_12843);
																						BgL_arg2114z00_12849 =
																							RGC_BUFFER_BUFPOS
																							(BgL_iportz00_12843);
																						{
																							long BgL_bufposz00_13669;
																							long BgL_forwardz00_13668;

																							BgL_forwardz00_13668 =
																								BgL_arg2113z00_12848;
																							BgL_bufposz00_13669 =
																								BgL_arg2114z00_12849;
																							BgL_bufposz00_12846 =
																								BgL_bufposz00_13669;
																							BgL_forwardz00_12845 =
																								BgL_forwardz00_13668;
																							goto
																								BgL_statezd21zd21315z00_12811;
																						}
																					}
																				else
																					{	/* Unsafe/http.scm 700 */
																						BgL_matchz00_12822 =
																							BgL_newzd2matchzd2_12847;
																					}
																			}
																		else
																			{	/* Unsafe/http.scm 700 */
																				int BgL_curz00_12850;

																				BgL_curz00_12850 =
																					RGC_BUFFER_GET_CHAR
																					(BgL_iportz00_12843,
																					BgL_forwardz00_12845);
																				{	/* Unsafe/http.scm 700 */

																					if (
																						((long) (BgL_curz00_12850) == 13L))
																						{
																							long BgL_bufposz00_13678;
																							long BgL_forwardz00_13676;
																							long BgL_lastzd2matchzd2_13675;
																							obj_t BgL_iportz00_13674;

																							BgL_iportz00_13674 =
																								BgL_iportz00_12843;
																							BgL_lastzd2matchzd2_13675 =
																								BgL_newzd2matchzd2_12847;
																							BgL_forwardz00_13676 =
																								(1L + BgL_forwardz00_12845);
																							BgL_bufposz00_13678 =
																								BgL_bufposz00_12846;
																							BgL_bufposz00_12877 =
																								BgL_bufposz00_13678;
																							BgL_forwardz00_12876 =
																								BgL_forwardz00_13676;
																							BgL_lastzd2matchzd2_12875 =
																								BgL_lastzd2matchzd2_13675;
																							BgL_iportz00_12874 =
																								BgL_iportz00_13674;
																							goto
																								BgL_statezd210zd21324z00_12815;
																						}
																					else
																						{	/* Unsafe/http.scm 700 */
																							BgL_iportz00_12883 =
																								BgL_iportz00_12843;
																							BgL_lastzd2matchzd2_12884 =
																								BgL_newzd2matchzd2_12847;
																							BgL_forwardz00_12885 =
																								(1L + BgL_forwardz00_12845);
																							BgL_bufposz00_12886 =
																								BgL_bufposz00_12846;
																						BgL_statezd213zd21327z00_12816:
																							if (
																								(BgL_forwardz00_12885 ==
																									BgL_bufposz00_12886))
																								{	/* Unsafe/http.scm 700 */
																									if (rgc_fill_buffer
																										(BgL_iportz00_12883))
																										{	/* Unsafe/http.scm 700 */
																											long BgL_arg2063z00_12887;
																											long BgL_arg2064z00_12888;

																											BgL_arg2063z00_12887 =
																												RGC_BUFFER_FORWARD
																												(BgL_iportz00_12883);
																											BgL_arg2064z00_12888 =
																												RGC_BUFFER_BUFPOS
																												(BgL_iportz00_12883);
																											{
																												long
																													BgL_bufposz00_13686;
																												long
																													BgL_forwardz00_13685;
																												BgL_forwardz00_13685 =
																													BgL_arg2063z00_12887;
																												BgL_bufposz00_13686 =
																													BgL_arg2064z00_12888;
																												BgL_bufposz00_12886 =
																													BgL_bufposz00_13686;
																												BgL_forwardz00_12885 =
																													BgL_forwardz00_13685;
																												goto
																													BgL_statezd213zd21327z00_12816;
																											}
																										}
																									else
																										{	/* Unsafe/http.scm 700 */
																											BgL_matchz00_12822 =
																												BgL_lastzd2matchzd2_12884;
																										}
																								}
																							else
																								{	/* Unsafe/http.scm 700 */
																									int BgL_curz00_12889;

																									BgL_curz00_12889 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_iportz00_12883,
																										BgL_forwardz00_12885);
																									{	/* Unsafe/http.scm 700 */

																										if (
																											((long) (BgL_curz00_12889)
																												== 13L))
																											{
																												long
																													BgL_bufposz00_13695;
																												long
																													BgL_forwardz00_13693;
																												long
																													BgL_lastzd2matchzd2_13692;
																												obj_t
																													BgL_iportz00_13691;
																												BgL_iportz00_13691 =
																													BgL_iportz00_12883;
																												BgL_lastzd2matchzd2_13692
																													=
																													BgL_lastzd2matchzd2_12884;
																												BgL_forwardz00_13693 =
																													(1L +
																													BgL_forwardz00_12885);
																												BgL_bufposz00_13695 =
																													BgL_bufposz00_12886;
																												BgL_bufposz00_12877 =
																													BgL_bufposz00_13695;
																												BgL_forwardz00_12876 =
																													BgL_forwardz00_13693;
																												BgL_lastzd2matchzd2_12875
																													=
																													BgL_lastzd2matchzd2_13692;
																												BgL_iportz00_12874 =
																													BgL_iportz00_13691;
																												goto
																													BgL_statezd210zd21324z00_12815;
																											}
																										else
																											{
																												long
																													BgL_forwardz00_13696;
																												BgL_forwardz00_13696 =
																													(1L +
																													BgL_forwardz00_12885);
																												BgL_forwardz00_12885 =
																													BgL_forwardz00_13696;
																												goto
																													BgL_statezd213zd21327z00_12816;
																											}
																									}
																								}
																						}
																				}
																			}
																	}
																}
														}
													}
											}
										}
										RGC_SET_FILEPOS(BgL_iportz00_12396);
										{

											switch (BgL_matchz00_12822)
												{
												case 1L:

													{	/* Unsafe/http.scm 704 */
														BgL_z62iozd2parsezd2errorz62_bglt
															BgL_arg2207z00_12832;
														{	/* Unsafe/http.scm 704 */
															BgL_z62iozd2parsezd2errorz62_bglt
																BgL_new1331z00_12833;
															{	/* Unsafe/http.scm 707 */
																BgL_z62iozd2parsezd2errorz62_bglt
																	BgL_new1330z00_12834;
																BgL_new1330z00_12834 =
																	((BgL_z62iozd2parsezd2errorz62_bglt)
																	BOBJECT(GC_MALLOC(sizeof(struct
																				BgL_z62iozd2parsezd2errorz62_bgl))));
																{	/* Unsafe/http.scm 707 */
																	long BgL_arg2212z00_12835;

																	BgL_arg2212z00_12835 =
																		BGL_CLASS_NUM
																		(BGl_z62iozd2parsezd2errorz62zz__objectz00);
																	BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
																			BgL_new1330z00_12834),
																		BgL_arg2212z00_12835);
																}
																BgL_new1331z00_12833 = BgL_new1330z00_12834;
															}
															((((BgL_z62exceptionz62_bglt) COBJECT(
																			((BgL_z62exceptionz62_bglt)
																				BgL_new1331z00_12833)))->BgL_fnamez00) =
																((obj_t) BFALSE), BUNSPEC);
															((((BgL_z62exceptionz62_bglt)
																		COBJECT(((BgL_z62exceptionz62_bglt)
																				BgL_new1331z00_12833)))->
																	BgL_locationz00) = ((obj_t) BFALSE), BUNSPEC);
															{
																obj_t BgL_auxz00_13709;

																{	/* Unsafe/http.scm 707 */
																	obj_t BgL_arg2208z00_12836;

																	{	/* Unsafe/http.scm 707 */
																		obj_t BgL_arg2209z00_12837;

																		{	/* Unsafe/http.scm 707 */
																			obj_t BgL_classz00_12838;

																			BgL_classz00_12838 =
																				BGl_z62iozd2parsezd2errorz62zz__objectz00;
																			BgL_arg2209z00_12837 =
																				BGL_CLASS_ALL_FIELDS
																				(BgL_classz00_12838);
																		}
																		BgL_arg2208z00_12836 =
																			VECTOR_REF(BgL_arg2209z00_12837, 2L);
																	}
																	BgL_auxz00_13709 =
																		BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																		(BgL_arg2208z00_12836);
																}
																((((BgL_z62exceptionz62_bglt) COBJECT(
																				((BgL_z62exceptionz62_bglt)
																					BgL_new1331z00_12833)))->
																		BgL_stackz00) =
																	((obj_t) BgL_auxz00_13709), BUNSPEC);
															}
															((((BgL_z62errorz62_bglt) COBJECT(
																			((BgL_z62errorz62_bglt)
																				BgL_new1331z00_12833)))->BgL_procz00) =
																((obj_t) BGl_symbol5653z00zz__httpz00),
																BUNSPEC);
															((((BgL_z62errorz62_bglt)
																		COBJECT(((BgL_z62errorz62_bglt)
																				BgL_new1331z00_12833)))->BgL_msgz00) =
																((obj_t) BGl_string5659z00zz__httpz00),
																BUNSPEC);
															{
																obj_t BgL_auxz00_13719;

																{	/* Unsafe/http.scm 708 */
																	obj_t BgL_arg2210z00_12839;

																	{	/* Unsafe/http.scm 700 */
																		bool_t BgL_test6103z00_13721;

																		{	/* Unsafe/http.scm 700 */
																			long BgL_arg2200z00_12842;

																			BgL_arg2200z00_12842 =
																				RGC_BUFFER_MATCH_LENGTH
																				(BgL_iportz00_12396);
																			BgL_test6103z00_13721 =
																				(BgL_arg2200z00_12842 == 0L);
																		}
																		if (BgL_test6103z00_13721)
																			{	/* Unsafe/http.scm 700 */
																				BgL_arg2210z00_12839 = BEOF;
																			}
																		else
																			{	/* Unsafe/http.scm 700 */
																				BgL_arg2210z00_12839 =
																					BCHAR(RGC_BUFFER_CHARACTER
																					(BgL_iportz00_12396));
																			}
																	}
																	BgL_auxz00_13719 =
																		BGl_httpzd2parsezd2errorzd2msgzd2zz__httpz00
																		(BgL_arg2210z00_12839, BgL_iportz00_12396);
																}
																((((BgL_z62errorz62_bglt) COBJECT(
																				((BgL_z62errorz62_bglt)
																					BgL_new1331z00_12833)))->BgL_objz00) =
																	((obj_t) BgL_auxz00_13719), BUNSPEC);
															}
															BgL_arg2207z00_12832 = BgL_new1331z00_12833;
														}
														BGl_raisez00zz__errorz00(
															((obj_t) BgL_arg2207z00_12832));
													}
													break;
												case 0L:

													if (CBOOL(BgL_opz00_12397))
														{	/* Unsafe/http.scm 702 */
															obj_t BgL_arg2213z00_12840;

															{	/* Unsafe/http.scm 700 */
																long BgL_arg2125z00_12841;

																BgL_arg2125z00_12841 =
																	RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12396);
																BgL_arg2213z00_12840 =
																	rgc_buffer_substring(BgL_iportz00_12396, 0L,
																	BgL_arg2125z00_12841);
															}
															bgl_display_obj(BgL_arg2213z00_12840,
																BgL_opz00_12397);
														}
													else
														{	/* Unsafe/http.scm 702 */
															BFALSE;
														}
													break;
												default:
													BGl_errorz00zz__errorz00(BGl_string5657z00zz__httpz00,
														BGl_string5658z00zz__httpz00,
														BINT(BgL_matchz00_12822));
												}
										}
									}
								}
								return BINT(BgL_sza7za7_12805);
							}
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string5657z00zz__httpz00,
								BGl_string5658z00zz__httpz00, BINT(BgL_matchz00_12777));
						}
				}
			}
		}

	}



/* the-substring~0 */
	obj_t BGl_thezd2substringze70z35zz__httpz00(obj_t BgL_iportz00_12544,
		int BgL_minz00_1938, int BgL_maxz00_1939)
	{
		{	/* Unsafe/http.scm 691 */
			if (((long) (BgL_maxz00_1939) < (long) (BgL_minz00_1938)))
				{	/* Unsafe/http.scm 691 */
					long BgL_arg1908z00_1942;

					BgL_arg1908z00_1942 = RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12544);
					{	/* Unsafe/http.scm 691 */
						long BgL_za72za7_9034;

						BgL_za72za7_9034 = (long) (BgL_maxz00_1939);
						BgL_maxz00_1939 = (int) ((BgL_arg1908z00_1942 + BgL_za72za7_9034));
				}}
			else
				{	/* Unsafe/http.scm 691 */
					BFALSE;
				}
			{	/* Unsafe/http.scm 691 */
				bool_t BgL_test6106z00_13750;

				if (((long) (BgL_minz00_1938) >= 0L))
					{	/* Unsafe/http.scm 691 */
						if (((long) (BgL_maxz00_1939) >= (long) (BgL_minz00_1938)))
							{	/* Unsafe/http.scm 691 */
								long BgL_arg1918z00_1953;

								BgL_arg1918z00_1953 =
									RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12544);
								BgL_test6106z00_13750 =
									((long) (BgL_maxz00_1939) <= BgL_arg1918z00_1953);
							}
						else
							{	/* Unsafe/http.scm 691 */
								BgL_test6106z00_13750 = ((bool_t) 0);
							}
					}
				else
					{	/* Unsafe/http.scm 691 */
						BgL_test6106z00_13750 = ((bool_t) 0);
					}
				if (BgL_test6106z00_13750)
					{	/* Unsafe/http.scm 691 */
						return
							rgc_buffer_substring(BgL_iportz00_12544,
							(long) (BgL_minz00_1938), (long) (BgL_maxz00_1939));
					}
				else
					{	/* Unsafe/http.scm 691 */
						obj_t BgL_arg1914z00_1947;
						obj_t BgL_arg1915z00_1948;

						{	/* Unsafe/http.scm 691 */
							obj_t BgL_arg1916z00_1949;

							{	/* Unsafe/http.scm 691 */
								long BgL_arg1905z00_9044;

								BgL_arg1905z00_9044 =
									RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12544);
								BgL_arg1916z00_1949 =
									rgc_buffer_substring(BgL_iportz00_12544, 0L,
									BgL_arg1905z00_9044);
							}
							{	/* Unsafe/http.scm 691 */
								obj_t BgL_list1917z00_1950;

								BgL_list1917z00_1950 =
									MAKE_YOUNG_PAIR(BgL_arg1916z00_1949, BNIL);
								BgL_arg1914z00_1947 =
									BGl_formatz00zz__r4_output_6_10_3z00
									(BGl_string5660z00zz__httpz00, BgL_list1917z00_1950);
						}}
						BgL_arg1915z00_1948 =
							MAKE_YOUNG_PAIR(BINT(BgL_minz00_1938), BINT(BgL_maxz00_1939));
						return
							BGl_errorz00zz__errorz00(BGl_string5661z00zz__httpz00,
							BgL_arg1914z00_1947, BgL_arg1915z00_1948);
					}
			}
		}

	}



/* &<@anonymous:1591> */
	obj_t BGl_z62zc3z04anonymousza31591ze3ze5zz__httpz00(obj_t BgL_envz00_12398,
		obj_t BgL_iportz00_12399)
	{
		{	/* Unsafe/http.scm 333 */
			{
				obj_t BgL_iportz00_13055;
				long BgL_lastzd2matchzd2_13056;
				long BgL_forwardz00_13057;
				long BgL_bufposz00_13058;
				obj_t BgL_iportz00_13046;
				long BgL_lastzd2matchzd2_13047;
				long BgL_forwardz00_13048;
				long BgL_bufposz00_13049;
				obj_t BgL_iportz00_13036;
				long BgL_lastzd2matchzd2_13037;
				long BgL_forwardz00_13038;
				long BgL_bufposz00_13039;
				obj_t BgL_iportz00_13021;
				long BgL_lastzd2matchzd2_13022;
				long BgL_forwardz00_13023;
				long BgL_bufposz00_13024;
				obj_t BgL_iportz00_13012;
				long BgL_lastzd2matchzd2_13013;
				long BgL_forwardz00_13014;
				long BgL_bufposz00_13015;
				obj_t BgL_iportz00_13005;
				long BgL_lastzd2matchzd2_13006;
				long BgL_forwardz00_13007;
				long BgL_bufposz00_13008;
				obj_t BgL_iportz00_12997;
				long BgL_lastzd2matchzd2_12998;
				long BgL_forwardz00_12999;
				long BgL_bufposz00_13000;
				obj_t BgL_iportz00_12990;
				long BgL_lastzd2matchzd2_12991;
				long BgL_forwardz00_12992;
				long BgL_bufposz00_12993;
				obj_t BgL_iportz00_12976;
				long BgL_lastzd2matchzd2_12977;
				long BgL_forwardz00_12978;
				long BgL_bufposz00_12979;
				int BgL_minz00_12966;
				int BgL_maxz00_12967;

				RGC_START_MATCH(BgL_iportz00_12399);
				{	/* Unsafe/http.scm 333 */
					long BgL_matchz00_12943;

					{	/* Unsafe/http.scm 333 */
						long BgL_arg1819z00_12944;
						long BgL_arg1820z00_12945;

						BgL_arg1819z00_12944 = RGC_BUFFER_FORWARD(BgL_iportz00_12399);
						BgL_arg1820z00_12945 = RGC_BUFFER_BUFPOS(BgL_iportz00_12399);
						BgL_iportz00_13036 = BgL_iportz00_12399;
						BgL_lastzd2matchzd2_13037 = 1L;
						BgL_forwardz00_13038 = BgL_arg1819z00_12944;
						BgL_bufposz00_13039 = BgL_arg1820z00_12945;
					BgL_statezd20zd21082z00_12940:
						if ((BgL_forwardz00_13038 == BgL_bufposz00_13039))
							{	/* Unsafe/http.scm 333 */
								if (rgc_fill_buffer(BgL_iportz00_13036))
									{	/* Unsafe/http.scm 333 */
										long BgL_arg1614z00_13040;
										long BgL_arg1615z00_13041;

										BgL_arg1614z00_13040 =
											RGC_BUFFER_FORWARD(BgL_iportz00_13036);
										BgL_arg1615z00_13041 =
											RGC_BUFFER_BUFPOS(BgL_iportz00_13036);
										{
											long BgL_bufposz00_13782;
											long BgL_forwardz00_13781;

											BgL_forwardz00_13781 = BgL_arg1614z00_13040;
											BgL_bufposz00_13782 = BgL_arg1615z00_13041;
											BgL_bufposz00_13039 = BgL_bufposz00_13782;
											BgL_forwardz00_13038 = BgL_forwardz00_13781;
											goto BgL_statezd20zd21082z00_12940;
										}
									}
								else
									{	/* Unsafe/http.scm 333 */
										BgL_matchz00_12943 = BgL_lastzd2matchzd2_13037;
									}
							}
						else
							{	/* Unsafe/http.scm 333 */
								int BgL_curz00_13042;

								BgL_curz00_13042 =
									RGC_BUFFER_GET_CHAR(BgL_iportz00_13036, BgL_forwardz00_13038);
								{	/* Unsafe/http.scm 333 */

									if (((long) (BgL_curz00_13042) == 73L))
										{	/* Unsafe/http.scm 333 */
											BgL_iportz00_13021 = BgL_iportz00_13036;
											BgL_lastzd2matchzd2_13022 = BgL_lastzd2matchzd2_13037;
											BgL_forwardz00_13023 = (1L + BgL_forwardz00_13038);
											BgL_bufposz00_13024 = BgL_bufposz00_13039;
										BgL_statezd23zd21085z00_12939:
											{	/* Unsafe/http.scm 333 */
												long BgL_newzd2matchzd2_13025;

												RGC_STOP_MATCH(BgL_iportz00_13021,
													BgL_forwardz00_13023);
												BgL_newzd2matchzd2_13025 = 1L;
												if ((BgL_forwardz00_13023 == BgL_bufposz00_13024))
													{	/* Unsafe/http.scm 333 */
														if (rgc_fill_buffer(BgL_iportz00_13021))
															{	/* Unsafe/http.scm 333 */
																long BgL_arg1630z00_13026;
																long BgL_arg1631z00_13027;

																BgL_arg1630z00_13026 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_13021);
																BgL_arg1631z00_13027 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_13021);
																{
																	long BgL_bufposz00_13795;
																	long BgL_forwardz00_13794;

																	BgL_forwardz00_13794 = BgL_arg1630z00_13026;
																	BgL_bufposz00_13795 = BgL_arg1631z00_13027;
																	BgL_bufposz00_13024 = BgL_bufposz00_13795;
																	BgL_forwardz00_13023 = BgL_forwardz00_13794;
																	goto BgL_statezd23zd21085z00_12939;
																}
															}
														else
															{	/* Unsafe/http.scm 333 */
																BgL_matchz00_12943 = BgL_newzd2matchzd2_13025;
															}
													}
												else
													{	/* Unsafe/http.scm 333 */
														int BgL_curz00_13028;

														BgL_curz00_13028 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_13021,
															BgL_forwardz00_13023);
														{	/* Unsafe/http.scm 333 */

															if (((long) (BgL_curz00_13028) == 67L))
																{	/* Unsafe/http.scm 333 */
																	long BgL_arg1633z00_13029;

																	BgL_arg1633z00_13029 =
																		(1L + BgL_forwardz00_13023);
																	{
																		long BgL_forwardz00_13031;
																		long BgL_bufposz00_13032;

																		BgL_forwardz00_13031 = BgL_arg1633z00_13029;
																		BgL_bufposz00_13032 = BgL_bufposz00_13024;
																	BgL_statezd24zd21086z00_13030:
																		if (
																			(BgL_forwardz00_13031 ==
																				BgL_bufposz00_13032))
																			{	/* Unsafe/http.scm 333 */
																				if (rgc_fill_buffer(BgL_iportz00_13021))
																					{	/* Unsafe/http.scm 333 */
																						long BgL_arg1702z00_13033;
																						long BgL_arg1703z00_13034;

																						BgL_arg1702z00_13033 =
																							RGC_BUFFER_FORWARD
																							(BgL_iportz00_13021);
																						BgL_arg1703z00_13034 =
																							RGC_BUFFER_BUFPOS
																							(BgL_iportz00_13021);
																						{
																							long BgL_bufposz00_13808;
																							long BgL_forwardz00_13807;

																							BgL_forwardz00_13807 =
																								BgL_arg1702z00_13033;
																							BgL_bufposz00_13808 =
																								BgL_arg1703z00_13034;
																							BgL_bufposz00_13032 =
																								BgL_bufposz00_13808;
																							BgL_forwardz00_13031 =
																								BgL_forwardz00_13807;
																							goto
																								BgL_statezd24zd21086z00_13030;
																						}
																					}
																				else
																					{	/* Unsafe/http.scm 333 */
																						BgL_matchz00_12943 =
																							BgL_newzd2matchzd2_13025;
																					}
																			}
																		else
																			{	/* Unsafe/http.scm 333 */
																				int BgL_curz00_13035;

																				BgL_curz00_13035 =
																					RGC_BUFFER_GET_CHAR
																					(BgL_iportz00_13021,
																					BgL_forwardz00_13031);
																				{	/* Unsafe/http.scm 333 */

																					if (
																						((long) (BgL_curz00_13035) == 89L))
																						{	/* Unsafe/http.scm 333 */
																							BgL_iportz00_12976 =
																								BgL_iportz00_13021;
																							BgL_lastzd2matchzd2_12977 =
																								BgL_newzd2matchzd2_13025;
																							BgL_forwardz00_12978 =
																								(1L + BgL_forwardz00_13031);
																							BgL_bufposz00_12979 =
																								BgL_bufposz00_13032;
																						BgL_statezd26zd21088z00_12934:
																							if (
																								(BgL_forwardz00_12978 ==
																									BgL_bufposz00_12979))
																								{	/* Unsafe/http.scm 333 */
																									if (rgc_fill_buffer
																										(BgL_iportz00_12976))
																										{	/* Unsafe/http.scm 333 */
																											long BgL_arg1709z00_12980;
																											long BgL_arg1710z00_12981;

																											BgL_arg1709z00_12980 =
																												RGC_BUFFER_FORWARD
																												(BgL_iportz00_12976);
																											BgL_arg1710z00_12981 =
																												RGC_BUFFER_BUFPOS
																												(BgL_iportz00_12976);
																											if ((BgL_arg1709z00_12980
																													==
																													BgL_arg1710z00_12981))
																												{	/* Unsafe/http.scm 333 */
																													if (rgc_fill_buffer
																														(BgL_iportz00_12976))
																														{	/* Unsafe/http.scm 333 */
																															long
																																BgL_arg1709z00_12982;
																															long
																																BgL_arg1710z00_12983;
																															BgL_arg1709z00_12982
																																=
																																RGC_BUFFER_FORWARD
																																(BgL_iportz00_12976);
																															BgL_arg1710z00_12983
																																=
																																RGC_BUFFER_BUFPOS
																																(BgL_iportz00_12976);
																															{
																																long
																																	BgL_bufposz00_13826;
																																long
																																	BgL_forwardz00_13825;
																																BgL_forwardz00_13825
																																	=
																																	BgL_arg1709z00_12982;
																																BgL_bufposz00_13826
																																	=
																																	BgL_arg1710z00_12983;
																																BgL_bufposz00_12979
																																	=
																																	BgL_bufposz00_13826;
																																BgL_forwardz00_12978
																																	=
																																	BgL_forwardz00_13825;
																																goto
																																	BgL_statezd26zd21088z00_12934;
																															}
																														}
																													else
																														{	/* Unsafe/http.scm 333 */
																															BgL_matchz00_12943
																																=
																																BgL_lastzd2matchzd2_12977;
																														}
																												}
																											else
																												{	/* Unsafe/http.scm 333 */
																													int BgL_curz00_12984;

																													BgL_curz00_12984 =
																														RGC_BUFFER_GET_CHAR
																														(BgL_iportz00_12976,
																														BgL_arg1709z00_12980);
																													{	/* Unsafe/http.scm 333 */

																														if (
																															((long)
																																(BgL_curz00_12984)
																																== 32L))
																															{	/* Unsafe/http.scm 333 */
																																long
																																	BgL_arg1712z00_12985;
																																BgL_arg1712z00_12985
																																	=
																																	(1L +
																																	BgL_arg1709z00_12980);
																																{	/* Unsafe/http.scm 333 */
																																	long
																																		BgL_newzd2matchzd2_12986;
																																	RGC_STOP_MATCH
																																		(BgL_iportz00_12976,
																																		BgL_arg1712z00_12985);
																																	BgL_newzd2matchzd2_12986
																																		= 0L;
																																	BgL_matchz00_12943
																																		=
																																		BgL_newzd2matchzd2_12986;
																															}}
																														else
																															{	/* Unsafe/http.scm 333 */
																																BgL_matchz00_12943
																																	=
																																	BgL_lastzd2matchzd2_12977;
																															}
																													}
																												}
																										}
																									else
																										{	/* Unsafe/http.scm 333 */
																											BgL_matchz00_12943 =
																												BgL_lastzd2matchzd2_12977;
																										}
																								}
																							else
																								{	/* Unsafe/http.scm 333 */
																									int BgL_curz00_12987;

																									BgL_curz00_12987 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_iportz00_12976,
																										BgL_forwardz00_12978);
																									{	/* Unsafe/http.scm 333 */

																										if (
																											((long) (BgL_curz00_12987)
																												== 32L))
																											{	/* Unsafe/http.scm 333 */
																												long
																													BgL_arg1712z00_12988;
																												BgL_arg1712z00_12988 =
																													(1L +
																													BgL_forwardz00_12978);
																												{	/* Unsafe/http.scm 333 */
																													long
																														BgL_newzd2matchzd2_12989;
																													RGC_STOP_MATCH
																														(BgL_iportz00_12976,
																														BgL_arg1712z00_12988);
																													BgL_newzd2matchzd2_12989
																														= 0L;
																													BgL_matchz00_12943 =
																														BgL_newzd2matchzd2_12989;
																											}}
																										else
																											{	/* Unsafe/http.scm 333 */
																												BgL_matchz00_12943 =
																													BgL_lastzd2matchzd2_12977;
																											}
																									}
																								}
																						}
																					else
																						{	/* Unsafe/http.scm 333 */
																							BgL_matchz00_12943 =
																								BgL_newzd2matchzd2_13025;
																						}
																				}
																			}
																	}
																}
															else
																{	/* Unsafe/http.scm 333 */
																	BgL_matchz00_12943 = BgL_newzd2matchzd2_13025;
																}
														}
													}
											}
										}
									else
										{	/* Unsafe/http.scm 333 */
											bool_t BgL_test6124z00_13841;

											if (((long) (BgL_curz00_13042) == 72L))
												{	/* Unsafe/http.scm 333 */
													BgL_test6124z00_13841 = ((bool_t) 1);
												}
											else
												{	/* Unsafe/http.scm 333 */
													if (((long) (BgL_curz00_13042) == 80L))
														{	/* Unsafe/http.scm 333 */
															BgL_test6124z00_13841 = ((bool_t) 1);
														}
													else
														{	/* Unsafe/http.scm 333 */
															bool_t BgL_test6127z00_13848;

															if (((long) (BgL_curz00_13042) == 84L))
																{	/* Unsafe/http.scm 333 */
																	BgL_test6127z00_13848 = ((bool_t) 1);
																}
															else
																{	/* Unsafe/http.scm 333 */
																	BgL_test6127z00_13848 =
																		((long) (BgL_curz00_13042) == 83L);
																}
															if (BgL_test6127z00_13848)
																{	/* Unsafe/http.scm 333 */
																	BgL_test6124z00_13841 = ((bool_t) 1);
																}
															else
																{	/* Unsafe/http.scm 333 */
																	if (((long) (BgL_curz00_13042) == 104L))
																		{	/* Unsafe/http.scm 333 */
																			BgL_test6124z00_13841 = ((bool_t) 1);
																		}
																	else
																		{	/* Unsafe/http.scm 333 */
																			if (((long) (BgL_curz00_13042) == 112L))
																				{	/* Unsafe/http.scm 333 */
																					BgL_test6124z00_13841 = ((bool_t) 1);
																				}
																			else
																				{	/* Unsafe/http.scm 333 */
																					bool_t BgL__ortest_1095z00_13043;

																					BgL__ortest_1095z00_13043 =
																						((long) (BgL_curz00_13042) == 116L);
																					if (BgL__ortest_1095z00_13043)
																						{	/* Unsafe/http.scm 333 */
																							BgL_test6124z00_13841 =
																								BgL__ortest_1095z00_13043;
																						}
																					else
																						{	/* Unsafe/http.scm 333 */
																							BgL_test6124z00_13841 =
																								(
																								(long) (BgL_curz00_13042) ==
																								115L);
												}}}}}}
											if (BgL_test6124z00_13841)
												{	/* Unsafe/http.scm 333 */
													BgL_iportz00_13012 = BgL_iportz00_13036;
													BgL_lastzd2matchzd2_13013 = BgL_lastzd2matchzd2_13037;
													BgL_forwardz00_13014 = (1L + BgL_forwardz00_13038);
													BgL_bufposz00_13015 = BgL_bufposz00_13039;
												BgL_statezd22zd21084z00_12938:
													{	/* Unsafe/http.scm 333 */
														long BgL_newzd2matchzd2_13016;

														RGC_STOP_MATCH(BgL_iportz00_13012,
															BgL_forwardz00_13014);
														BgL_newzd2matchzd2_13016 = 1L;
														if ((BgL_forwardz00_13014 == BgL_bufposz00_13015))
															{	/* Unsafe/http.scm 333 */
																if (rgc_fill_buffer(BgL_iportz00_13012))
																	{	/* Unsafe/http.scm 333 */
																		long BgL_arg1639z00_13017;
																		long BgL_arg1641z00_13018;

																		BgL_arg1639z00_13017 =
																			RGC_BUFFER_FORWARD(BgL_iportz00_13012);
																		BgL_arg1641z00_13018 =
																			RGC_BUFFER_BUFPOS(BgL_iportz00_13012);
																		{
																			long BgL_bufposz00_13873;
																			long BgL_forwardz00_13872;

																			BgL_forwardz00_13872 =
																				BgL_arg1639z00_13017;
																			BgL_bufposz00_13873 =
																				BgL_arg1641z00_13018;
																			BgL_bufposz00_13015 = BgL_bufposz00_13873;
																			BgL_forwardz00_13014 =
																				BgL_forwardz00_13872;
																			goto BgL_statezd22zd21084z00_12938;
																		}
																	}
																else
																	{	/* Unsafe/http.scm 333 */
																		BgL_matchz00_12943 =
																			BgL_newzd2matchzd2_13016;
																	}
															}
														else
															{	/* Unsafe/http.scm 333 */
																int BgL_curz00_13019;

																BgL_curz00_13019 =
																	RGC_BUFFER_GET_CHAR(BgL_iportz00_13012,
																	BgL_forwardz00_13014);
																{	/* Unsafe/http.scm 333 */

																	{	/* Unsafe/http.scm 333 */
																		bool_t BgL_test6134z00_13875;

																		if (((long) (BgL_curz00_13019) == 72L))
																			{	/* Unsafe/http.scm 333 */
																				BgL_test6134z00_13875 = ((bool_t) 1);
																			}
																		else
																			{	/* Unsafe/http.scm 333 */
																				if (((long) (BgL_curz00_13019) == 80L))
																					{	/* Unsafe/http.scm 333 */
																						BgL_test6134z00_13875 =
																							((bool_t) 1);
																					}
																				else
																					{	/* Unsafe/http.scm 333 */
																						bool_t BgL_test6137z00_13882;

																						if (
																							((long) (BgL_curz00_13019) ==
																								84L))
																							{	/* Unsafe/http.scm 333 */
																								BgL_test6137z00_13882 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Unsafe/http.scm 333 */
																								BgL_test6137z00_13882 =
																									(
																									(long) (BgL_curz00_13019) ==
																									83L);
																							}
																						if (BgL_test6137z00_13882)
																							{	/* Unsafe/http.scm 333 */
																								BgL_test6134z00_13875 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Unsafe/http.scm 333 */
																								if (
																									((long) (BgL_curz00_13019) ==
																										104L))
																									{	/* Unsafe/http.scm 333 */
																										BgL_test6134z00_13875 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Unsafe/http.scm 333 */
																										if (
																											((long) (BgL_curz00_13019)
																												== 112L))
																											{	/* Unsafe/http.scm 333 */
																												BgL_test6134z00_13875 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Unsafe/http.scm 333 */
																												bool_t
																													BgL__ortest_1096z00_13020;
																												BgL__ortest_1096z00_13020
																													=
																													((long)
																													(BgL_curz00_13019) ==
																													116L);
																												if (BgL__ortest_1096z00_13020)
																													{	/* Unsafe/http.scm 333 */
																														BgL_test6134z00_13875
																															=
																															BgL__ortest_1096z00_13020;
																													}
																												else
																													{	/* Unsafe/http.scm 333 */
																														BgL_test6134z00_13875
																															=
																															((long)
																															(BgL_curz00_13019)
																															== 115L);
																			}}}}}}
																		if (BgL_test6134z00_13875)
																			{	/* Unsafe/http.scm 333 */
																				BgL_iportz00_12997 = BgL_iportz00_13012;
																				BgL_lastzd2matchzd2_12998 =
																					BgL_newzd2matchzd2_13016;
																				BgL_forwardz00_12999 =
																					(1L + BgL_forwardz00_13014);
																				BgL_bufposz00_13000 =
																					BgL_bufposz00_13015;
																			BgL_statezd29zd21091z00_12936:
																				if (
																					(BgL_forwardz00_12999 ==
																						BgL_bufposz00_13000))
																					{	/* Unsafe/http.scm 333 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_12997))
																							{	/* Unsafe/http.scm 333 */
																								long BgL_arg1666z00_13001;
																								long BgL_arg1667z00_13002;

																								BgL_arg1666z00_13001 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_12997);
																								BgL_arg1667z00_13002 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_12997);
																								{
																									long BgL_bufposz00_13906;
																									long BgL_forwardz00_13905;

																									BgL_forwardz00_13905 =
																										BgL_arg1666z00_13001;
																									BgL_bufposz00_13906 =
																										BgL_arg1667z00_13002;
																									BgL_bufposz00_13000 =
																										BgL_bufposz00_13906;
																									BgL_forwardz00_12999 =
																										BgL_forwardz00_13905;
																									goto
																										BgL_statezd29zd21091z00_12936;
																								}
																							}
																						else
																							{	/* Unsafe/http.scm 333 */
																								BgL_matchz00_12943 =
																									BgL_lastzd2matchzd2_12998;
																							}
																					}
																				else
																					{	/* Unsafe/http.scm 333 */
																						int BgL_curz00_13003;

																						BgL_curz00_13003 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_12997,
																							BgL_forwardz00_12999);
																						{	/* Unsafe/http.scm 333 */

																							{	/* Unsafe/http.scm 333 */
																								bool_t BgL_test6144z00_13908;

																								if (
																									((long) (BgL_curz00_13003) ==
																										72L))
																									{	/* Unsafe/http.scm 333 */
																										BgL_test6144z00_13908 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Unsafe/http.scm 333 */
																										if (
																											((long) (BgL_curz00_13003)
																												== 80L))
																											{	/* Unsafe/http.scm 333 */
																												BgL_test6144z00_13908 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Unsafe/http.scm 333 */
																												bool_t
																													BgL_test6147z00_13915;
																												if (((long)
																														(BgL_curz00_13003)
																														== 84L))
																													{	/* Unsafe/http.scm 333 */
																														BgL_test6147z00_13915
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Unsafe/http.scm 333 */
																														BgL_test6147z00_13915
																															=
																															((long)
																															(BgL_curz00_13003)
																															== 83L);
																													}
																												if (BgL_test6147z00_13915)
																													{	/* Unsafe/http.scm 333 */
																														BgL_test6144z00_13908
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Unsafe/http.scm 333 */
																														if (
																															((long)
																																(BgL_curz00_13003)
																																== 104L))
																															{	/* Unsafe/http.scm 333 */
																																BgL_test6144z00_13908
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Unsafe/http.scm 333 */
																																if (
																																	((long)
																																		(BgL_curz00_13003)
																																		== 112L))
																																	{	/* Unsafe/http.scm 333 */
																																		BgL_test6144z00_13908
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Unsafe/http.scm 333 */
																																		bool_t
																																			BgL__ortest_1097z00_13004;
																																		BgL__ortest_1097z00_13004
																																			=
																																			((long)
																																			(BgL_curz00_13003)
																																			== 116L);
																																		if (BgL__ortest_1097z00_13004)
																																			{	/* Unsafe/http.scm 333 */
																																				BgL_test6144z00_13908
																																					=
																																					BgL__ortest_1097z00_13004;
																																			}
																																		else
																																			{	/* Unsafe/http.scm 333 */
																																				BgL_test6144z00_13908
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_13003)
																																					==
																																					115L);
																									}}}}}}
																								if (BgL_test6144z00_13908)
																									{
																										long BgL_forwardz00_13932;

																										BgL_forwardz00_13932 =
																											(1L +
																											BgL_forwardz00_12999);
																										BgL_forwardz00_12999 =
																											BgL_forwardz00_13932;
																										goto
																											BgL_statezd29zd21091z00_12936;
																									}
																								else
																									{	/* Unsafe/http.scm 333 */
																										if (
																											((long) (BgL_curz00_13003)
																												== 47L))
																											{	/* Unsafe/http.scm 333 */
																												BgL_iportz00_13005 =
																													BgL_iportz00_12997;
																												BgL_lastzd2matchzd2_13006
																													=
																													BgL_lastzd2matchzd2_12998;
																												BgL_forwardz00_13007 =
																													(1L +
																													BgL_forwardz00_12999);
																												BgL_bufposz00_13008 =
																													BgL_bufposz00_13000;
																											BgL_statezd28zd21090z00_12937:
																												if (
																													(BgL_forwardz00_13007
																														==
																														BgL_bufposz00_13008))
																													{	/* Unsafe/http.scm 333 */
																														if (rgc_fill_buffer
																															(BgL_iportz00_13005))
																															{	/* Unsafe/http.scm 333 */
																																long
																																	BgL_arg1655z00_13009;
																																long
																																	BgL_arg1658z00_13010;
																																BgL_arg1655z00_13009
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_iportz00_13005);
																																BgL_arg1658z00_13010
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_iportz00_13005);
																																{
																																	long
																																		BgL_bufposz00_13944;
																																	long
																																		BgL_forwardz00_13943;
																																	BgL_forwardz00_13943
																																		=
																																		BgL_arg1655z00_13009;
																																	BgL_bufposz00_13944
																																		=
																																		BgL_arg1658z00_13010;
																																	BgL_bufposz00_13008
																																		=
																																		BgL_bufposz00_13944;
																																	BgL_forwardz00_13007
																																		=
																																		BgL_forwardz00_13943;
																																	goto
																																		BgL_statezd28zd21090z00_12937;
																																}
																															}
																														else
																															{	/* Unsafe/http.scm 333 */
																																BgL_matchz00_12943
																																	=
																																	BgL_lastzd2matchzd2_13006;
																															}
																													}
																												else
																													{	/* Unsafe/http.scm 333 */
																														int
																															BgL_curz00_13011;
																														BgL_curz00_13011 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_iportz00_13005,
																															BgL_forwardz00_13007);
																														{	/* Unsafe/http.scm 333 */

																															{	/* Unsafe/http.scm 333 */
																																bool_t
																																	BgL_test6155z00_13946;
																																if (((long)
																																		(BgL_curz00_13011)
																																		>= 48L))
																																	{	/* Unsafe/http.scm 333 */
																																		BgL_test6155z00_13946
																																			=
																																			((long)
																																			(BgL_curz00_13011)
																																			< 58L);
																																	}
																																else
																																	{	/* Unsafe/http.scm 333 */
																																		BgL_test6155z00_13946
																																			=
																																			((bool_t)
																																			0);
																																	}
																																if (BgL_test6155z00_13946)
																																	{	/* Unsafe/http.scm 333 */
																																		BgL_iportz00_12990
																																			=
																																			BgL_iportz00_13005;
																																		BgL_lastzd2matchzd2_12991
																																			=
																																			BgL_lastzd2matchzd2_13006;
																																		BgL_forwardz00_12992
																																			=
																																			(1L +
																																			BgL_forwardz00_13007);
																																		BgL_bufposz00_12993
																																			=
																																			BgL_bufposz00_13008;
																																	BgL_statezd210zd21092z00_12935:
																																		if (
																																			(BgL_forwardz00_12992
																																				==
																																				BgL_bufposz00_12993))
																																			{	/* Unsafe/http.scm 333 */
																																				if (rgc_fill_buffer(BgL_iportz00_12990))
																																					{	/* Unsafe/http.scm 333 */
																																						long
																																							BgL_arg1687z00_12994;
																																						long
																																							BgL_arg1689z00_12995;
																																						BgL_arg1687z00_12994
																																							=
																																							RGC_BUFFER_FORWARD
																																							(BgL_iportz00_12990);
																																						BgL_arg1689z00_12995
																																							=
																																							RGC_BUFFER_BUFPOS
																																							(BgL_iportz00_12990);
																																						{
																																							long
																																								BgL_bufposz00_13959;
																																							long
																																								BgL_forwardz00_13958;
																																							BgL_forwardz00_13958
																																								=
																																								BgL_arg1687z00_12994;
																																							BgL_bufposz00_13959
																																								=
																																								BgL_arg1689z00_12995;
																																							BgL_bufposz00_12993
																																								=
																																								BgL_bufposz00_13959;
																																							BgL_forwardz00_12992
																																								=
																																								BgL_forwardz00_13958;
																																							goto
																																								BgL_statezd210zd21092z00_12935;
																																						}
																																					}
																																				else
																																					{	/* Unsafe/http.scm 333 */
																																						BgL_matchz00_12943
																																							=
																																							BgL_lastzd2matchzd2_12991;
																																					}
																																			}
																																		else
																																			{	/* Unsafe/http.scm 333 */
																																				int
																																					BgL_curz00_12996;
																																				BgL_curz00_12996
																																					=
																																					RGC_BUFFER_GET_CHAR
																																					(BgL_iportz00_12990,
																																					BgL_forwardz00_12992);
																																				{	/* Unsafe/http.scm 333 */

																																					{	/* Unsafe/http.scm 333 */
																																						bool_t
																																							BgL_test6159z00_13961;
																																						if (
																																							((long) (BgL_curz00_12996) >= 48L))
																																							{	/* Unsafe/http.scm 333 */
																																								BgL_test6159z00_13961
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_12996)
																																									<
																																									58L);
																																							}
																																						else
																																							{	/* Unsafe/http.scm 333 */
																																								BgL_test6159z00_13961
																																									=
																																									(
																																									(bool_t)
																																									0);
																																							}
																																						if (BgL_test6159z00_13961)
																																							{
																																								long
																																									BgL_forwardz00_13967;
																																								BgL_forwardz00_13967
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_12992);
																																								BgL_forwardz00_12992
																																									=
																																									BgL_forwardz00_13967;
																																								goto
																																									BgL_statezd210zd21092z00_12935;
																																							}
																																						else
																																							{	/* Unsafe/http.scm 333 */
																																								if (((long) (BgL_curz00_12996) == 46L))
																																									{	/* Unsafe/http.scm 333 */
																																										BgL_iportz00_13055
																																											=
																																											BgL_iportz00_12990;
																																										BgL_lastzd2matchzd2_13056
																																											=
																																											BgL_lastzd2matchzd2_12991;
																																										BgL_forwardz00_13057
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_12992);
																																										BgL_bufposz00_13058
																																											=
																																											BgL_bufposz00_12993;
																																									BgL_statezd211zd21093z00_12942:
																																										if ((BgL_forwardz00_13057 == BgL_bufposz00_13058))
																																											{	/* Unsafe/http.scm 333 */
																																												if (rgc_fill_buffer(BgL_iportz00_13055))
																																													{	/* Unsafe/http.scm 333 */
																																														long
																																															BgL_arg1595z00_13059;
																																														long
																																															BgL_arg1596z00_13060;
																																														BgL_arg1595z00_13059
																																															=
																																															RGC_BUFFER_FORWARD
																																															(BgL_iportz00_13055);
																																														BgL_arg1596z00_13060
																																															=
																																															RGC_BUFFER_BUFPOS
																																															(BgL_iportz00_13055);
																																														{
																																															long
																																																BgL_bufposz00_13979;
																																															long
																																																BgL_forwardz00_13978;
																																															BgL_forwardz00_13978
																																																=
																																																BgL_arg1595z00_13059;
																																															BgL_bufposz00_13979
																																																=
																																																BgL_arg1596z00_13060;
																																															BgL_bufposz00_13058
																																																=
																																																BgL_bufposz00_13979;
																																															BgL_forwardz00_13057
																																																=
																																																BgL_forwardz00_13978;
																																															goto
																																																BgL_statezd211zd21093z00_12942;
																																														}
																																													}
																																												else
																																													{	/* Unsafe/http.scm 333 */
																																														BgL_matchz00_12943
																																															=
																																															BgL_lastzd2matchzd2_13056;
																																													}
																																											}
																																										else
																																											{	/* Unsafe/http.scm 333 */
																																												int
																																													BgL_curz00_13061;
																																												BgL_curz00_13061
																																													=
																																													RGC_BUFFER_GET_CHAR
																																													(BgL_iportz00_13055,
																																													BgL_forwardz00_13057);
																																												{	/* Unsafe/http.scm 333 */

																																													{	/* Unsafe/http.scm 333 */
																																														bool_t
																																															BgL_test6164z00_13981;
																																														if (((long) (BgL_curz00_13061) >= 48L))
																																															{	/* Unsafe/http.scm 333 */
																																																BgL_test6164z00_13981
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_13061)
																																																	<
																																																	58L);
																																															}
																																														else
																																															{	/* Unsafe/http.scm 333 */
																																																BgL_test6164z00_13981
																																																	=
																																																	(
																																																	(bool_t)
																																																	0);
																																															}
																																														if (BgL_test6164z00_13981)
																																															{	/* Unsafe/http.scm 333 */
																																																BgL_iportz00_13046
																																																	=
																																																	BgL_iportz00_13055;
																																																BgL_lastzd2matchzd2_13047
																																																	=
																																																	BgL_lastzd2matchzd2_13056;
																																																BgL_forwardz00_13048
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_13057);
																																																BgL_bufposz00_13049
																																																	=
																																																	BgL_bufposz00_13058;
																																															BgL_statezd212zd21094z00_12941:
																																																if ((BgL_forwardz00_13048 == BgL_bufposz00_13049))
																																																	{	/* Unsafe/http.scm 333 */
																																																		if (rgc_fill_buffer(BgL_iportz00_13046))
																																																			{	/* Unsafe/http.scm 333 */
																																																				long
																																																					BgL_arg1603z00_13050;
																																																				long
																																																					BgL_arg1604z00_13051;
																																																				BgL_arg1603z00_13050
																																																					=
																																																					RGC_BUFFER_FORWARD
																																																					(BgL_iportz00_13046);
																																																				BgL_arg1604z00_13051
																																																					=
																																																					RGC_BUFFER_BUFPOS
																																																					(BgL_iportz00_13046);
																																																				{
																																																					long
																																																						BgL_bufposz00_13994;
																																																					long
																																																						BgL_forwardz00_13993;
																																																					BgL_forwardz00_13993
																																																						=
																																																						BgL_arg1603z00_13050;
																																																					BgL_bufposz00_13994
																																																						=
																																																						BgL_arg1604z00_13051;
																																																					BgL_bufposz00_13049
																																																						=
																																																						BgL_bufposz00_13994;
																																																					BgL_forwardz00_13048
																																																						=
																																																						BgL_forwardz00_13993;
																																																					goto
																																																						BgL_statezd212zd21094z00_12941;
																																																				}
																																																			}
																																																		else
																																																			{	/* Unsafe/http.scm 333 */
																																																				BgL_matchz00_12943
																																																					=
																																																					BgL_lastzd2matchzd2_13047;
																																																			}
																																																	}
																																																else
																																																	{	/* Unsafe/http.scm 333 */
																																																		int
																																																			BgL_curz00_13052;
																																																		BgL_curz00_13052
																																																			=
																																																			RGC_BUFFER_GET_CHAR
																																																			(BgL_iportz00_13046,
																																																			BgL_forwardz00_13048);
																																																		{	/* Unsafe/http.scm 333 */

																																																			{	/* Unsafe/http.scm 333 */
																																																				bool_t
																																																					BgL_test6168z00_13996;
																																																				if (((long) (BgL_curz00_13052) >= 48L))
																																																					{	/* Unsafe/http.scm 333 */
																																																						BgL_test6168z00_13996
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_13052)
																																																							<
																																																							58L);
																																																					}
																																																				else
																																																					{	/* Unsafe/http.scm 333 */
																																																						BgL_test6168z00_13996
																																																							=
																																																							(
																																																							(bool_t)
																																																							0);
																																																					}
																																																				if (BgL_test6168z00_13996)
																																																					{
																																																						long
																																																							BgL_forwardz00_14002;
																																																						BgL_forwardz00_14002
																																																							=
																																																							(1L
																																																							+
																																																							BgL_forwardz00_13048);
																																																						BgL_forwardz00_13048
																																																							=
																																																							BgL_forwardz00_14002;
																																																						goto
																																																							BgL_statezd212zd21094z00_12941;
																																																					}
																																																				else
																																																					{	/* Unsafe/http.scm 333 */
																																																						if (((long) (BgL_curz00_13052) == 32L))
																																																							{	/* Unsafe/http.scm 333 */
																																																								long
																																																									BgL_arg1610z00_13053;
																																																								BgL_arg1610z00_13053
																																																									=
																																																									(1L
																																																									+
																																																									BgL_forwardz00_13048);
																																																								{	/* Unsafe/http.scm 333 */
																																																									long
																																																										BgL_newzd2matchzd2_13054;
																																																									RGC_STOP_MATCH
																																																										(BgL_iportz00_13046,
																																																										BgL_arg1610z00_13053);
																																																									BgL_newzd2matchzd2_13054
																																																										=
																																																										0L;
																																																									BgL_matchz00_12943
																																																										=
																																																										BgL_newzd2matchzd2_13054;
																																																							}}
																																																						else
																																																							{	/* Unsafe/http.scm 333 */
																																																								BgL_matchz00_12943
																																																									=
																																																									BgL_lastzd2matchzd2_13047;
																																																							}
																																																					}
																																																			}
																																																		}
																																																	}
																																															}
																																														else
																																															{	/* Unsafe/http.scm 333 */
																																																BgL_matchz00_12943
																																																	=
																																																	BgL_lastzd2matchzd2_13056;
																																															}
																																													}
																																												}
																																											}
																																									}
																																								else
																																									{	/* Unsafe/http.scm 333 */
																																										BgL_matchz00_12943
																																											=
																																											BgL_lastzd2matchzd2_12991;
																																									}
																																							}
																																					}
																																				}
																																			}
																																	}
																																else
																																	{	/* Unsafe/http.scm 333 */
																																		BgL_matchz00_12943
																																			=
																																			BgL_lastzd2matchzd2_13006;
																																	}
																															}
																														}
																													}
																											}
																										else
																											{	/* Unsafe/http.scm 333 */
																												BgL_matchz00_12943 =
																													BgL_lastzd2matchzd2_12998;
																											}
																									}
																							}
																						}
																					}
																			}
																		else
																			{	/* Unsafe/http.scm 333 */
																				if (((long) (BgL_curz00_13019) == 47L))
																					{
																						long BgL_bufposz00_14021;
																						long BgL_forwardz00_14019;
																						long BgL_lastzd2matchzd2_14018;
																						obj_t BgL_iportz00_14017;

																						BgL_iportz00_14017 =
																							BgL_iportz00_13012;
																						BgL_lastzd2matchzd2_14018 =
																							BgL_newzd2matchzd2_13016;
																						BgL_forwardz00_14019 =
																							(1L + BgL_forwardz00_13014);
																						BgL_bufposz00_14021 =
																							BgL_bufposz00_13015;
																						BgL_bufposz00_13008 =
																							BgL_bufposz00_14021;
																						BgL_forwardz00_13007 =
																							BgL_forwardz00_14019;
																						BgL_lastzd2matchzd2_13006 =
																							BgL_lastzd2matchzd2_14018;
																						BgL_iportz00_13005 =
																							BgL_iportz00_14017;
																						goto BgL_statezd28zd21090z00_12937;
																					}
																				else
																					{	/* Unsafe/http.scm 333 */
																						BgL_matchz00_12943 =
																							BgL_newzd2matchzd2_13016;
																					}
																			}
																	}
																}
															}
													}
												}
											else
												{	/* Unsafe/http.scm 333 */
													long BgL_arg1626z00_13044;

													BgL_arg1626z00_13044 = (1L + BgL_forwardz00_13038);
													{	/* Unsafe/http.scm 333 */
														long BgL_newzd2matchzd2_13045;

														RGC_STOP_MATCH(BgL_iportz00_13036,
															BgL_arg1626z00_13044);
														BgL_newzd2matchzd2_13045 = 1L;
														BgL_matchz00_12943 = BgL_newzd2matchzd2_13045;
					}}}}}}
					RGC_SET_FILEPOS(BgL_iportz00_12399);
					switch (BgL_matchz00_12943)
						{
						case 1L:

							{	/* Unsafe/http.scm 345 */
								obj_t BgL_cz00_12946;

								{	/* Unsafe/http.scm 333 */
									bool_t BgL_test6172z00_14026;

									{	/* Unsafe/http.scm 333 */
										long BgL_arg1796z00_12965;

										BgL_arg1796z00_12965 =
											RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12399);
										BgL_test6172z00_14026 = (BgL_arg1796z00_12965 == 0L);
									}
									if (BgL_test6172z00_14026)
										{	/* Unsafe/http.scm 333 */
											BgL_cz00_12946 = BEOF;
										}
									else
										{	/* Unsafe/http.scm 333 */
											BgL_cz00_12946 =
												BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_12399));
										}
								}
								{	/* Unsafe/http.scm 347 */
									BgL_z62iozd2parsezd2errorz62_bglt BgL_arg1803z00_12947;

									if (EOF_OBJECTP(BgL_cz00_12946))
										{	/* Unsafe/http.scm 348 */
											BgL_z62iozd2parsezd2errorz62_bglt BgL_new1101z00_12948;

											{	/* Unsafe/http.scm 348 */
												BgL_z62iozd2parsezd2errorz62_bglt BgL_new1100z00_12949;

												BgL_new1100z00_12949 =
													((BgL_z62iozd2parsezd2errorz62_bglt)
													BOBJECT(GC_MALLOC(sizeof(struct
																BgL_z62iozd2parsezd2errorz62_bgl))));
												{	/* Unsafe/http.scm 348 */
													long BgL_arg1808z00_12950;

													BgL_arg1808z00_12950 =
														BGL_CLASS_NUM
														(BGl_z62iozd2parsezd2errorz62zz__objectz00);
													BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
															BgL_new1100z00_12949), BgL_arg1808z00_12950);
												}
												BgL_new1101z00_12948 = BgL_new1100z00_12949;
											}
											((((BgL_z62exceptionz62_bglt) COBJECT(
															((BgL_z62exceptionz62_bglt)
																BgL_new1101z00_12948)))->BgL_fnamez00) =
												((obj_t) BFALSE), BUNSPEC);
											((((BgL_z62exceptionz62_bglt)
														COBJECT(((BgL_z62exceptionz62_bglt)
																BgL_new1101z00_12948)))->BgL_locationz00) =
												((obj_t) BFALSE), BUNSPEC);
											{
												obj_t BgL_auxz00_14041;

												{	/* Unsafe/http.scm 348 */
													obj_t BgL_arg1805z00_12951;

													{	/* Unsafe/http.scm 348 */
														obj_t BgL_arg1807z00_12952;

														{	/* Unsafe/http.scm 348 */
															obj_t BgL_classz00_12953;

															BgL_classz00_12953 =
																BGl_z62iozd2parsezd2errorz62zz__objectz00;
															BgL_arg1807z00_12952 =
																BGL_CLASS_ALL_FIELDS(BgL_classz00_12953);
														}
														BgL_arg1805z00_12951 =
															VECTOR_REF(BgL_arg1807z00_12952, 2L);
													}
													BgL_auxz00_14041 =
														BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
														(BgL_arg1805z00_12951);
												}
												((((BgL_z62exceptionz62_bglt) COBJECT(
																((BgL_z62exceptionz62_bglt)
																	BgL_new1101z00_12948)))->BgL_stackz00) =
													((obj_t) BgL_auxz00_14041), BUNSPEC);
											}
											((((BgL_z62errorz62_bglt) COBJECT(
															((BgL_z62errorz62_bglt) BgL_new1101z00_12948)))->
													BgL_procz00) =
												((obj_t) BGl_string5662z00zz__httpz00), BUNSPEC);
											((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
																BgL_new1101z00_12948)))->BgL_msgz00) =
												((obj_t) BGl_string5663z00zz__httpz00), BUNSPEC);
											((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
																BgL_new1101z00_12948)))->BgL_objz00) =
												((obj_t) BgL_iportz00_12399), BUNSPEC);
											BgL_arg1803z00_12947 = BgL_new1101z00_12948;
										}
									else
										{	/* Unsafe/http.scm 352 */
											BgL_z62iozd2parsezd2errorz62_bglt BgL_new1103z00_12954;

											{	/* Unsafe/http.scm 352 */
												BgL_z62iozd2parsezd2errorz62_bglt BgL_new1102z00_12955;

												BgL_new1102z00_12955 =
													((BgL_z62iozd2parsezd2errorz62_bglt)
													BOBJECT(GC_MALLOC(sizeof(struct
																BgL_z62iozd2parsezd2errorz62_bgl))));
												{	/* Unsafe/http.scm 352 */
													long BgL_arg1813z00_12956;

													BgL_arg1813z00_12956 =
														BGL_CLASS_NUM
														(BGl_z62iozd2parsezd2errorz62zz__objectz00);
													BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
															BgL_new1102z00_12955), BgL_arg1813z00_12956);
												}
												BgL_new1103z00_12954 = BgL_new1102z00_12955;
											}
											((((BgL_z62exceptionz62_bglt) COBJECT(
															((BgL_z62exceptionz62_bglt)
																BgL_new1103z00_12954)))->BgL_fnamez00) =
												((obj_t) BFALSE), BUNSPEC);
											((((BgL_z62exceptionz62_bglt)
														COBJECT(((BgL_z62exceptionz62_bglt)
																BgL_new1103z00_12954)))->BgL_locationz00) =
												((obj_t) BFALSE), BUNSPEC);
											{
												obj_t BgL_auxz00_14061;

												{	/* Unsafe/http.scm 352 */
													obj_t BgL_arg1809z00_12957;

													{	/* Unsafe/http.scm 352 */
														obj_t BgL_arg1811z00_12958;

														{	/* Unsafe/http.scm 352 */
															obj_t BgL_classz00_12959;

															BgL_classz00_12959 =
																BGl_z62iozd2parsezd2errorz62zz__objectz00;
															BgL_arg1811z00_12958 =
																BGL_CLASS_ALL_FIELDS(BgL_classz00_12959);
														}
														BgL_arg1809z00_12957 =
															VECTOR_REF(BgL_arg1811z00_12958, 2L);
													}
													BgL_auxz00_14061 =
														BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
														(BgL_arg1809z00_12957);
												}
												((((BgL_z62exceptionz62_bglt) COBJECT(
																((BgL_z62exceptionz62_bglt)
																	BgL_new1103z00_12954)))->BgL_stackz00) =
													((obj_t) BgL_auxz00_14061), BUNSPEC);
											}
											((((BgL_z62errorz62_bglt) COBJECT(
															((BgL_z62errorz62_bglt) BgL_new1103z00_12954)))->
													BgL_procz00) =
												((obj_t) BGl_string5662z00zz__httpz00), BUNSPEC);
											((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
																BgL_new1103z00_12954)))->BgL_msgz00) =
												((obj_t) BGl_string5664z00zz__httpz00), BUNSPEC);
											((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
																BgL_new1103z00_12954)))->BgL_objz00) =
												((obj_t)
													BGl_httpzd2parsezd2errorzd2msgzd2zz__httpz00
													(BgL_cz00_12946, BgL_iportz00_12399)), BUNSPEC);
											BgL_arg1803z00_12947 = BgL_new1103z00_12954;
										}
									return
										BGl_raisez00zz__errorz00(((obj_t) BgL_arg1803z00_12947));
								}
							}
							break;
						case 0L:

							{	/* Unsafe/http.scm 340 */
								obj_t BgL_httpz00_12960;

								{	/* Unsafe/http.scm 340 */
									long BgL_arg1817z00_12961;

									{	/* Unsafe/http.scm 340 */
										long BgL_arg1818z00_12962;

										BgL_arg1818z00_12962 =
											RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12399);
										BgL_arg1817z00_12961 = (BgL_arg1818z00_12962 - 1L);
									}
									BgL_minz00_12966 = (int) (0L);
									BgL_maxz00_12967 = (int) (BgL_arg1817z00_12961);
									if (((long) (BgL_maxz00_12967) < (long) (BgL_minz00_12966)))
										{	/* Unsafe/http.scm 333 */
											long BgL_arg1723z00_12968;

											BgL_arg1723z00_12968 =
												RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12399);
											{	/* Unsafe/http.scm 333 */
												long BgL_za72za7_12969;

												BgL_za72za7_12969 = (long) (BgL_maxz00_12967);
												BgL_maxz00_12967 =
													(int) ((BgL_arg1723z00_12968 + BgL_za72za7_12969));
										}}
									else
										{	/* Unsafe/http.scm 333 */
											BFALSE;
										}
									{	/* Unsafe/http.scm 333 */
										bool_t BgL_test6175z00_14086;

										if (((long) (BgL_minz00_12966) >= 0L))
											{	/* Unsafe/http.scm 333 */
												if (
													((long) (BgL_maxz00_12967) >=
														(long) (BgL_minz00_12966)))
													{	/* Unsafe/http.scm 333 */
														long BgL_arg1732z00_12970;

														BgL_arg1732z00_12970 =
															RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12399);
														BgL_test6175z00_14086 =
															(
															(long) (BgL_maxz00_12967) <=
															BgL_arg1732z00_12970);
													}
												else
													{	/* Unsafe/http.scm 333 */
														BgL_test6175z00_14086 = ((bool_t) 0);
													}
											}
										else
											{	/* Unsafe/http.scm 333 */
												BgL_test6175z00_14086 = ((bool_t) 0);
											}
										if (BgL_test6175z00_14086)
											{	/* Unsafe/http.scm 333 */
												BgL_httpz00_12960 =
													rgc_buffer_substring(BgL_iportz00_12399,
													(long) (BgL_minz00_12966), (long) (BgL_maxz00_12967));
											}
										else
											{	/* Unsafe/http.scm 333 */
												obj_t BgL_arg1728z00_12971;
												obj_t BgL_arg1729z00_12972;

												{	/* Unsafe/http.scm 333 */
													obj_t BgL_arg1730z00_12973;

													{	/* Unsafe/http.scm 333 */
														long BgL_arg1720z00_12974;

														BgL_arg1720z00_12974 =
															RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12399);
														BgL_arg1730z00_12973 =
															rgc_buffer_substring(BgL_iportz00_12399, 0L,
															BgL_arg1720z00_12974);
													}
													{	/* Unsafe/http.scm 333 */
														obj_t BgL_list1731z00_12975;

														BgL_list1731z00_12975 =
															MAKE_YOUNG_PAIR(BgL_arg1730z00_12973, BNIL);
														BgL_arg1728z00_12971 =
															BGl_formatz00zz__r4_output_6_10_3z00
															(BGl_string5660z00zz__httpz00,
															BgL_list1731z00_12975);
												}}
												BgL_arg1729z00_12972 =
													MAKE_YOUNG_PAIR(BINT(BgL_minz00_12966),
													BINT(BgL_maxz00_12967));
												BgL_httpz00_12960 =
													BGl_errorz00zz__errorz00(BGl_string5661z00zz__httpz00,
													BgL_arg1728z00_12971, BgL_arg1729z00_12972);
								}}}
								{	/* Unsafe/http.scm 341 */
									obj_t BgL_codez00_12963;

									BgL_codez00_12963 =
										BGl_httpzd2readzd2fixnumz00zz__httpz00(BgL_iportz00_12399);
									BGl_httpzd2skipzd2blankz00zz__httpz00(BgL_iportz00_12399);
									{	/* Unsafe/http.scm 343 */
										obj_t BgL_val2_1410z00_12964;

										BgL_val2_1410z00_12964 =
											BGl_httpzd2readzd2linez00zz__httpz00(BgL_iportz00_12399);
										{	/* Unsafe/http.scm 343 */
											int BgL_tmpz00_14113;

											BgL_tmpz00_14113 = (int) (3L);
											BGL_MVALUES_NUMBER_SET(BgL_tmpz00_14113);
										}
										{	/* Unsafe/http.scm 343 */
											int BgL_tmpz00_14116;

											BgL_tmpz00_14116 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_14116, BgL_codez00_12963);
										}
										{	/* Unsafe/http.scm 343 */
											int BgL_tmpz00_14119;

											BgL_tmpz00_14119 = (int) (2L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_14119,
												BgL_val2_1410z00_12964);
										}
										return BgL_httpz00_12960;
									}
								}
							}
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string5657z00zz__httpz00,
								BGl_string5658z00zz__httpz00, BINT(BgL_matchz00_12943));
						}
				}
			}
		}

	}



/* _http */
	obj_t BGl__httpz00zz__httpz00(obj_t BgL_env1471z00_24,
		obj_t BgL_opt1470z00_23)
	{
		{	/* Unsafe/http.scm 106 */
			{	/* Unsafe/http.scm 106 */
				long BgL_l1472z00_2513;

				{	/* Unsafe/http.scm 106 */
					obj_t BgL_vectorz00_9260;

					if (VECTORP(BgL_opt1470z00_23))
						{	/* Unsafe/http.scm 106 */
							BgL_vectorz00_9260 = BgL_opt1470z00_23;
						}
					else
						{
							obj_t BgL_auxz00_14127;

							BgL_auxz00_14127 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string5665z00zz__httpz00,
								BINT(3541L), BGl_string5666z00zz__httpz00,
								BGl_string5667z00zz__httpz00, BgL_opt1470z00_23);
							FAILURE(BgL_auxz00_14127, BFALSE, BFALSE);
						}
					BgL_l1472z00_2513 = VECTOR_LENGTH(BgL_vectorz00_9260);
				}
				{	/* Unsafe/http.scm 106 */

					{	/* Unsafe/http.scm 121 */
						obj_t BgL_argsz00_2517;

						BgL_argsz00_2517 = BNIL;
						{	/* Unsafe/http.scm 106 */
							obj_t BgL_authoriza7ationza7_2518;

							BgL_authoriza7ationza7_2518 = BFALSE;
							{	/* Unsafe/http.scm 106 */
								obj_t BgL_bodyz00_2519;

								BgL_bodyz00_2519 = BFALSE;
								{	/* Unsafe/http.scm 106 */
									obj_t BgL_connectionz00_2520;

									BgL_connectionz00_2520 = BUNSPEC;
									{	/* Unsafe/http.scm 106 */
										obj_t BgL_contentzd2typezd2_2521;

										BgL_contentzd2typezd2_2521 = BFALSE;
										{	/* Unsafe/http.scm 120 */
											obj_t BgL_headerz00_2522;

											BgL_headerz00_2522 = BGl_list5668z00zz__httpz00;
											{	/* Unsafe/http.scm 106 */
												obj_t BgL_hostz00_2523;

												BgL_hostz00_2523 = BGl_string5673z00zz__httpz00;
												{	/* Unsafe/http.scm 106 */
													obj_t BgL_httpzd2versionzd2_2524;

													BgL_httpzd2versionzd2_2524 =
														BGl_string5674z00zz__httpz00;
													{	/* Unsafe/http.scm 106 */
														obj_t BgL_inz00_2525;

														BgL_inz00_2525 = BFALSE;
														{	/* Unsafe/http.scm 106 */
															obj_t BgL_loginz00_2526;

															BgL_loginz00_2526 = BFALSE;
															{	/* Unsafe/http.scm 111 */
																obj_t BgL_methodz00_2527;

																BgL_methodz00_2527 =
																	BGl_symbol5675z00zz__httpz00;
																{	/* Unsafe/http.scm 106 */
																	obj_t BgL_outz00_2528;

																	BgL_outz00_2528 = BFALSE;
																	{	/* Unsafe/http.scm 106 */
																		obj_t BgL_passwordz00_2529;

																		BgL_passwordz00_2529 = BFALSE;
																		{	/* Unsafe/http.scm 106 */
																			obj_t BgL_pathz00_2530;

																			BgL_pathz00_2530 =
																				BGl_string5677z00zz__httpz00;
																			{	/* Unsafe/http.scm 106 */
																				obj_t BgL_portz00_2531;

																				BgL_portz00_2531 = BINT(80L);
																				{	/* Unsafe/http.scm 110 */
																					obj_t BgL_protocolz00_2532;

																					BgL_protocolz00_2532 =
																						BGl_symbol5678z00zz__httpz00;
																					{	/* Unsafe/http.scm 106 */
																						obj_t BgL_proxyz00_2533;

																						BgL_proxyz00_2533 = BFALSE;
																						{	/* Unsafe/http.scm 106 */
																							obj_t BgL_socketz00_2534;

																							BgL_socketz00_2534 = BFALSE;
																							{	/* Unsafe/http.scm 106 */
																								obj_t BgL_timeoutz00_2535;

																								BgL_timeoutz00_2535 = BINT(0L);
																								{	/* Unsafe/http.scm 106 */
																									obj_t BgL_usernamez00_2536;

																									BgL_usernamez00_2536 = BFALSE;
																									{	/* Unsafe/http.scm 106 */

																										{
																											long BgL_iz00_2537;

																											BgL_iz00_2537 = 0L;
																										BgL_check1474z00_2538:
																											if (
																												(BgL_iz00_2537 ==
																													BgL_l1472z00_2513))
																												{	/* Unsafe/http.scm 106 */
																													BNIL;
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													bool_t
																														BgL_test6180z00_14136;
																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_arg2231z00_2544;
																														BgL_arg2231z00_2544
																															=
																															VECTOR_REF((
																																(obj_t)
																																BgL_opt1470z00_23),
																															BgL_iz00_2537);
																														BgL_test6180z00_14136
																															=
																															CBOOL
																															(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																															(BgL_arg2231z00_2544,
																																BGl_list5680z00zz__httpz00));
																													}
																													if (BgL_test6180z00_14136)
																														{
																															long
																																BgL_iz00_14141;
																															BgL_iz00_14141 =
																																(BgL_iz00_2537 +
																																2L);
																															BgL_iz00_2537 =
																																BgL_iz00_14141;
																															goto
																																BgL_check1474z00_2538;
																														}
																													else
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_arg2230z00_2543;
																															BgL_arg2230z00_2543
																																=
																																VECTOR_REF((
																																	(obj_t)
																																	BgL_opt1470z00_23),
																																BgL_iz00_2537);
																															BGl_errorz00zz__errorz00
																																(BGl_symbol5678z00zz__httpz00,
																																BGl_string5721z00zz__httpz00,
																																BgL_arg2230z00_2543);
																														}
																												}
																										}
																										{	/* Unsafe/http.scm 106 */
																											obj_t
																												BgL_index1476z00_2545;
																											{
																												long BgL_iz00_9276;

																												BgL_iz00_9276 = 0L;
																											BgL_search1473z00_9275:
																												if (
																													(BgL_iz00_9276 ==
																														BgL_l1472z00_2513))
																													{	/* Unsafe/http.scm 106 */
																														BgL_index1476z00_2545
																															= BINT((-1L));
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														if (
																															(BgL_iz00_9276 ==
																																(BgL_l1472z00_2513
																																	- 1L)))
																															{	/* Unsafe/http.scm 106 */
																																BgL_index1476z00_2545
																																	=
																																	BGl_errorz00zz__errorz00
																																	(BGl_symbol5678z00zz__httpz00,
																																	BGl_string5722z00zz__httpz00,
																																	BINT
																																	(VECTOR_LENGTH
																																		(BgL_opt1470z00_23)));
																															}
																														else
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_vz00_9286;
																																BgL_vz00_9286 =
																																	VECTOR_REF
																																	(BgL_opt1470z00_23,
																																	BgL_iz00_9276);
																																if (
																																	(BgL_vz00_9286
																																		==
																																		BGl_keyword5681z00zz__httpz00))
																																	{	/* Unsafe/http.scm 106 */
																																		BgL_index1476z00_2545
																																			=
																																			BINT(
																																			(BgL_iz00_9276
																																				+ 1L));
																																	}
																																else
																																	{
																																		long
																																			BgL_iz00_14160;
																																		BgL_iz00_14160
																																			=
																																			(BgL_iz00_9276
																																			+ 2L);
																																		BgL_iz00_9276
																																			=
																																			BgL_iz00_14160;
																																		goto
																																			BgL_search1473z00_9275;
																																	}
																															}
																													}
																											}
																											{	/* Unsafe/http.scm 106 */
																												bool_t
																													BgL_test6184z00_14162;
																												{	/* Unsafe/http.scm 106 */
																													long BgL_n1z00_9290;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14163;
																														if (INTEGERP
																															(BgL_index1476z00_2545))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14163
																																	=
																																	BgL_index1476z00_2545;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14166;
																																BgL_auxz00_14166
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5723z00zz__httpz00,
																																	BgL_index1476z00_2545);
																																FAILURE
																																	(BgL_auxz00_14166,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_n1z00_9290 =
																															(long)
																															CINT
																															(BgL_tmpz00_14163);
																													}
																													BgL_test6184z00_14162
																														=
																														(BgL_n1z00_9290 >=
																														0L);
																												}
																												if (BgL_test6184z00_14162)
																													{
																														long
																															BgL_auxz00_14179;
																														obj_t
																															BgL_auxz00_14172;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_tmpz00_14180;
																															if (INTEGERP
																																(BgL_index1476z00_2545))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_tmpz00_14180
																																		=
																																		BgL_index1476z00_2545;
																																}
																															else
																																{
																																	obj_t
																																		BgL_auxz00_14183;
																																	BgL_auxz00_14183
																																		=
																																		BGl_typezd2errorzd2zz__errorz00
																																		(BGl_string5665z00zz__httpz00,
																																		BINT(3541L),
																																		BGl_string5666z00zz__httpz00,
																																		BGl_string5723z00zz__httpz00,
																																		BgL_index1476z00_2545);
																																	FAILURE
																																		(BgL_auxz00_14183,
																																		BFALSE,
																																		BFALSE);
																																}
																															BgL_auxz00_14179 =
																																(long)
																																CINT
																																(BgL_tmpz00_14180);
																														}
																														if (VECTORP
																															(BgL_opt1470z00_23))
																															{	/* Unsafe/http.scm 106 */
																																BgL_auxz00_14172
																																	=
																																	BgL_opt1470z00_23;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14175;
																																BgL_auxz00_14175
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5667z00zz__httpz00,
																																	BgL_opt1470z00_23);
																																FAILURE
																																	(BgL_auxz00_14175,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_argsz00_2517 =
																															VECTOR_REF
																															(BgL_auxz00_14172,
																															BgL_auxz00_14179);
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														BFALSE;
																													}
																											}
																										}
																										{	/* Unsafe/http.scm 106 */
																											obj_t
																												BgL_index1477z00_2547;
																											{
																												long BgL_iz00_9292;

																												BgL_iz00_9292 = 0L;
																											BgL_search1473z00_9291:
																												if (
																													(BgL_iz00_9292 ==
																														BgL_l1472z00_2513))
																													{	/* Unsafe/http.scm 106 */
																														BgL_index1477z00_2547
																															= BINT((-1L));
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														if (
																															(BgL_iz00_9292 ==
																																(BgL_l1472z00_2513
																																	- 1L)))
																															{	/* Unsafe/http.scm 106 */
																																BgL_index1477z00_2547
																																	=
																																	BGl_errorz00zz__errorz00
																																	(BGl_symbol5678z00zz__httpz00,
																																	BGl_string5722z00zz__httpz00,
																																	BINT
																																	(VECTOR_LENGTH
																																		(BgL_opt1470z00_23)));
																															}
																														else
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_vz00_9302;
																																BgL_vz00_9302 =
																																	VECTOR_REF
																																	(BgL_opt1470z00_23,
																																	BgL_iz00_9292);
																																if (
																																	(BgL_vz00_9302
																																		==
																																		BGl_keyword5683z00zz__httpz00))
																																	{	/* Unsafe/http.scm 106 */
																																		BgL_index1477z00_2547
																																			=
																																			BINT(
																																			(BgL_iz00_9292
																																				+ 1L));
																																	}
																																else
																																	{
																																		long
																																			BgL_iz00_14203;
																																		BgL_iz00_14203
																																			=
																																			(BgL_iz00_9292
																																			+ 2L);
																																		BgL_iz00_9292
																																			=
																																			BgL_iz00_14203;
																																		goto
																																			BgL_search1473z00_9291;
																																	}
																															}
																													}
																											}
																											{	/* Unsafe/http.scm 106 */
																												bool_t
																													BgL_test6191z00_14205;
																												{	/* Unsafe/http.scm 106 */
																													long BgL_n1z00_9306;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14206;
																														if (INTEGERP
																															(BgL_index1477z00_2547))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14206
																																	=
																																	BgL_index1477z00_2547;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14209;
																																BgL_auxz00_14209
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5723z00zz__httpz00,
																																	BgL_index1477z00_2547);
																																FAILURE
																																	(BgL_auxz00_14209,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_n1z00_9306 =
																															(long)
																															CINT
																															(BgL_tmpz00_14206);
																													}
																													BgL_test6191z00_14205
																														=
																														(BgL_n1z00_9306 >=
																														0L);
																												}
																												if (BgL_test6191z00_14205)
																													{
																														long
																															BgL_auxz00_14222;
																														obj_t
																															BgL_auxz00_14215;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_tmpz00_14223;
																															if (INTEGERP
																																(BgL_index1477z00_2547))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_tmpz00_14223
																																		=
																																		BgL_index1477z00_2547;
																																}
																															else
																																{
																																	obj_t
																																		BgL_auxz00_14226;
																																	BgL_auxz00_14226
																																		=
																																		BGl_typezd2errorzd2zz__errorz00
																																		(BGl_string5665z00zz__httpz00,
																																		BINT(3541L),
																																		BGl_string5666z00zz__httpz00,
																																		BGl_string5723z00zz__httpz00,
																																		BgL_index1477z00_2547);
																																	FAILURE
																																		(BgL_auxz00_14226,
																																		BFALSE,
																																		BFALSE);
																																}
																															BgL_auxz00_14222 =
																																(long)
																																CINT
																																(BgL_tmpz00_14223);
																														}
																														if (VECTORP
																															(BgL_opt1470z00_23))
																															{	/* Unsafe/http.scm 106 */
																																BgL_auxz00_14215
																																	=
																																	BgL_opt1470z00_23;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14218;
																																BgL_auxz00_14218
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5667z00zz__httpz00,
																																	BgL_opt1470z00_23);
																																FAILURE
																																	(BgL_auxz00_14218,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_authoriza7ationza7_2518
																															=
																															VECTOR_REF
																															(BgL_auxz00_14215,
																															BgL_auxz00_14222);
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														BFALSE;
																													}
																											}
																										}
																										{	/* Unsafe/http.scm 106 */
																											obj_t
																												BgL_index1478z00_2549;
																											{
																												long BgL_iz00_9308;

																												BgL_iz00_9308 = 0L;
																											BgL_search1473z00_9307:
																												if (
																													(BgL_iz00_9308 ==
																														BgL_l1472z00_2513))
																													{	/* Unsafe/http.scm 106 */
																														BgL_index1478z00_2549
																															= BINT((-1L));
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														if (
																															(BgL_iz00_9308 ==
																																(BgL_l1472z00_2513
																																	- 1L)))
																															{	/* Unsafe/http.scm 106 */
																																BgL_index1478z00_2549
																																	=
																																	BGl_errorz00zz__errorz00
																																	(BGl_symbol5678z00zz__httpz00,
																																	BGl_string5722z00zz__httpz00,
																																	BINT
																																	(VECTOR_LENGTH
																																		(BgL_opt1470z00_23)));
																															}
																														else
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_vz00_9318;
																																BgL_vz00_9318 =
																																	VECTOR_REF
																																	(BgL_opt1470z00_23,
																																	BgL_iz00_9308);
																																if (
																																	(BgL_vz00_9318
																																		==
																																		BGl_keyword5685z00zz__httpz00))
																																	{	/* Unsafe/http.scm 106 */
																																		BgL_index1478z00_2549
																																			=
																																			BINT(
																																			(BgL_iz00_9308
																																				+ 1L));
																																	}
																																else
																																	{
																																		long
																																			BgL_iz00_14246;
																																		BgL_iz00_14246
																																			=
																																			(BgL_iz00_9308
																																			+ 2L);
																																		BgL_iz00_9308
																																			=
																																			BgL_iz00_14246;
																																		goto
																																			BgL_search1473z00_9307;
																																	}
																															}
																													}
																											}
																											{	/* Unsafe/http.scm 106 */
																												bool_t
																													BgL_test6198z00_14248;
																												{	/* Unsafe/http.scm 106 */
																													long BgL_n1z00_9322;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14249;
																														if (INTEGERP
																															(BgL_index1478z00_2549))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14249
																																	=
																																	BgL_index1478z00_2549;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14252;
																																BgL_auxz00_14252
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5723z00zz__httpz00,
																																	BgL_index1478z00_2549);
																																FAILURE
																																	(BgL_auxz00_14252,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_n1z00_9322 =
																															(long)
																															CINT
																															(BgL_tmpz00_14249);
																													}
																													BgL_test6198z00_14248
																														=
																														(BgL_n1z00_9322 >=
																														0L);
																												}
																												if (BgL_test6198z00_14248)
																													{
																														long
																															BgL_auxz00_14265;
																														obj_t
																															BgL_auxz00_14258;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_tmpz00_14266;
																															if (INTEGERP
																																(BgL_index1478z00_2549))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_tmpz00_14266
																																		=
																																		BgL_index1478z00_2549;
																																}
																															else
																																{
																																	obj_t
																																		BgL_auxz00_14269;
																																	BgL_auxz00_14269
																																		=
																																		BGl_typezd2errorzd2zz__errorz00
																																		(BGl_string5665z00zz__httpz00,
																																		BINT(3541L),
																																		BGl_string5666z00zz__httpz00,
																																		BGl_string5723z00zz__httpz00,
																																		BgL_index1478z00_2549);
																																	FAILURE
																																		(BgL_auxz00_14269,
																																		BFALSE,
																																		BFALSE);
																																}
																															BgL_auxz00_14265 =
																																(long)
																																CINT
																																(BgL_tmpz00_14266);
																														}
																														if (VECTORP
																															(BgL_opt1470z00_23))
																															{	/* Unsafe/http.scm 106 */
																																BgL_auxz00_14258
																																	=
																																	BgL_opt1470z00_23;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14261;
																																BgL_auxz00_14261
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5667z00zz__httpz00,
																																	BgL_opt1470z00_23);
																																FAILURE
																																	(BgL_auxz00_14261,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_bodyz00_2519 =
																															VECTOR_REF
																															(BgL_auxz00_14258,
																															BgL_auxz00_14265);
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														BFALSE;
																													}
																											}
																										}
																										{	/* Unsafe/http.scm 106 */
																											obj_t
																												BgL_index1479z00_2551;
																											{
																												long BgL_iz00_9324;

																												BgL_iz00_9324 = 0L;
																											BgL_search1473z00_9323:
																												if (
																													(BgL_iz00_9324 ==
																														BgL_l1472z00_2513))
																													{	/* Unsafe/http.scm 106 */
																														BgL_index1479z00_2551
																															= BINT((-1L));
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														if (
																															(BgL_iz00_9324 ==
																																(BgL_l1472z00_2513
																																	- 1L)))
																															{	/* Unsafe/http.scm 106 */
																																BgL_index1479z00_2551
																																	=
																																	BGl_errorz00zz__errorz00
																																	(BGl_symbol5678z00zz__httpz00,
																																	BGl_string5722z00zz__httpz00,
																																	BINT
																																	(VECTOR_LENGTH
																																		(BgL_opt1470z00_23)));
																															}
																														else
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_vz00_9334;
																																BgL_vz00_9334 =
																																	VECTOR_REF
																																	(BgL_opt1470z00_23,
																																	BgL_iz00_9324);
																																if (
																																	(BgL_vz00_9334
																																		==
																																		BGl_keyword5687z00zz__httpz00))
																																	{	/* Unsafe/http.scm 106 */
																																		BgL_index1479z00_2551
																																			=
																																			BINT(
																																			(BgL_iz00_9324
																																				+ 1L));
																																	}
																																else
																																	{
																																		long
																																			BgL_iz00_14289;
																																		BgL_iz00_14289
																																			=
																																			(BgL_iz00_9324
																																			+ 2L);
																																		BgL_iz00_9324
																																			=
																																			BgL_iz00_14289;
																																		goto
																																			BgL_search1473z00_9323;
																																	}
																															}
																													}
																											}
																											{	/* Unsafe/http.scm 106 */
																												bool_t
																													BgL_test6205z00_14291;
																												{	/* Unsafe/http.scm 106 */
																													long BgL_n1z00_9338;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14292;
																														if (INTEGERP
																															(BgL_index1479z00_2551))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14292
																																	=
																																	BgL_index1479z00_2551;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14295;
																																BgL_auxz00_14295
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5723z00zz__httpz00,
																																	BgL_index1479z00_2551);
																																FAILURE
																																	(BgL_auxz00_14295,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_n1z00_9338 =
																															(long)
																															CINT
																															(BgL_tmpz00_14292);
																													}
																													BgL_test6205z00_14291
																														=
																														(BgL_n1z00_9338 >=
																														0L);
																												}
																												if (BgL_test6205z00_14291)
																													{
																														long
																															BgL_auxz00_14308;
																														obj_t
																															BgL_auxz00_14301;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_tmpz00_14309;
																															if (INTEGERP
																																(BgL_index1479z00_2551))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_tmpz00_14309
																																		=
																																		BgL_index1479z00_2551;
																																}
																															else
																																{
																																	obj_t
																																		BgL_auxz00_14312;
																																	BgL_auxz00_14312
																																		=
																																		BGl_typezd2errorzd2zz__errorz00
																																		(BGl_string5665z00zz__httpz00,
																																		BINT(3541L),
																																		BGl_string5666z00zz__httpz00,
																																		BGl_string5723z00zz__httpz00,
																																		BgL_index1479z00_2551);
																																	FAILURE
																																		(BgL_auxz00_14312,
																																		BFALSE,
																																		BFALSE);
																																}
																															BgL_auxz00_14308 =
																																(long)
																																CINT
																																(BgL_tmpz00_14309);
																														}
																														if (VECTORP
																															(BgL_opt1470z00_23))
																															{	/* Unsafe/http.scm 106 */
																																BgL_auxz00_14301
																																	=
																																	BgL_opt1470z00_23;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14304;
																																BgL_auxz00_14304
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5667z00zz__httpz00,
																																	BgL_opt1470z00_23);
																																FAILURE
																																	(BgL_auxz00_14304,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_connectionz00_2520
																															=
																															VECTOR_REF
																															(BgL_auxz00_14301,
																															BgL_auxz00_14308);
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														BFALSE;
																													}
																											}
																										}
																										{	/* Unsafe/http.scm 106 */
																											obj_t
																												BgL_index1480z00_2553;
																											{
																												long BgL_iz00_9340;

																												BgL_iz00_9340 = 0L;
																											BgL_search1473z00_9339:
																												if (
																													(BgL_iz00_9340 ==
																														BgL_l1472z00_2513))
																													{	/* Unsafe/http.scm 106 */
																														BgL_index1480z00_2553
																															= BINT((-1L));
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														if (
																															(BgL_iz00_9340 ==
																																(BgL_l1472z00_2513
																																	- 1L)))
																															{	/* Unsafe/http.scm 106 */
																																BgL_index1480z00_2553
																																	=
																																	BGl_errorz00zz__errorz00
																																	(BGl_symbol5678z00zz__httpz00,
																																	BGl_string5722z00zz__httpz00,
																																	BINT
																																	(VECTOR_LENGTH
																																		(BgL_opt1470z00_23)));
																															}
																														else
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_vz00_9350;
																																BgL_vz00_9350 =
																																	VECTOR_REF
																																	(BgL_opt1470z00_23,
																																	BgL_iz00_9340);
																																if (
																																	(BgL_vz00_9350
																																		==
																																		BGl_keyword5689z00zz__httpz00))
																																	{	/* Unsafe/http.scm 106 */
																																		BgL_index1480z00_2553
																																			=
																																			BINT(
																																			(BgL_iz00_9340
																																				+ 1L));
																																	}
																																else
																																	{
																																		long
																																			BgL_iz00_14332;
																																		BgL_iz00_14332
																																			=
																																			(BgL_iz00_9340
																																			+ 2L);
																																		BgL_iz00_9340
																																			=
																																			BgL_iz00_14332;
																																		goto
																																			BgL_search1473z00_9339;
																																	}
																															}
																													}
																											}
																											{	/* Unsafe/http.scm 106 */
																												bool_t
																													BgL_test6212z00_14334;
																												{	/* Unsafe/http.scm 106 */
																													long BgL_n1z00_9354;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14335;
																														if (INTEGERP
																															(BgL_index1480z00_2553))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14335
																																	=
																																	BgL_index1480z00_2553;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14338;
																																BgL_auxz00_14338
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5723z00zz__httpz00,
																																	BgL_index1480z00_2553);
																																FAILURE
																																	(BgL_auxz00_14338,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_n1z00_9354 =
																															(long)
																															CINT
																															(BgL_tmpz00_14335);
																													}
																													BgL_test6212z00_14334
																														=
																														(BgL_n1z00_9354 >=
																														0L);
																												}
																												if (BgL_test6212z00_14334)
																													{
																														long
																															BgL_auxz00_14351;
																														obj_t
																															BgL_auxz00_14344;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_tmpz00_14352;
																															if (INTEGERP
																																(BgL_index1480z00_2553))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_tmpz00_14352
																																		=
																																		BgL_index1480z00_2553;
																																}
																															else
																																{
																																	obj_t
																																		BgL_auxz00_14355;
																																	BgL_auxz00_14355
																																		=
																																		BGl_typezd2errorzd2zz__errorz00
																																		(BGl_string5665z00zz__httpz00,
																																		BINT(3541L),
																																		BGl_string5666z00zz__httpz00,
																																		BGl_string5723z00zz__httpz00,
																																		BgL_index1480z00_2553);
																																	FAILURE
																																		(BgL_auxz00_14355,
																																		BFALSE,
																																		BFALSE);
																																}
																															BgL_auxz00_14351 =
																																(long)
																																CINT
																																(BgL_tmpz00_14352);
																														}
																														if (VECTORP
																															(BgL_opt1470z00_23))
																															{	/* Unsafe/http.scm 106 */
																																BgL_auxz00_14344
																																	=
																																	BgL_opt1470z00_23;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14347;
																																BgL_auxz00_14347
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5667z00zz__httpz00,
																																	BgL_opt1470z00_23);
																																FAILURE
																																	(BgL_auxz00_14347,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_contentzd2typezd2_2521
																															=
																															VECTOR_REF
																															(BgL_auxz00_14344,
																															BgL_auxz00_14351);
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														BFALSE;
																													}
																											}
																										}
																										{	/* Unsafe/http.scm 106 */
																											obj_t
																												BgL_index1481z00_2555;
																											{
																												long BgL_iz00_9356;

																												BgL_iz00_9356 = 0L;
																											BgL_search1473z00_9355:
																												if (
																													(BgL_iz00_9356 ==
																														BgL_l1472z00_2513))
																													{	/* Unsafe/http.scm 106 */
																														BgL_index1481z00_2555
																															= BINT((-1L));
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														if (
																															(BgL_iz00_9356 ==
																																(BgL_l1472z00_2513
																																	- 1L)))
																															{	/* Unsafe/http.scm 106 */
																																BgL_index1481z00_2555
																																	=
																																	BGl_errorz00zz__errorz00
																																	(BGl_symbol5678z00zz__httpz00,
																																	BGl_string5722z00zz__httpz00,
																																	BINT
																																	(VECTOR_LENGTH
																																		(BgL_opt1470z00_23)));
																															}
																														else
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_vz00_9366;
																																BgL_vz00_9366 =
																																	VECTOR_REF
																																	(BgL_opt1470z00_23,
																																	BgL_iz00_9356);
																																if (
																																	(BgL_vz00_9366
																																		==
																																		BGl_keyword5691z00zz__httpz00))
																																	{	/* Unsafe/http.scm 106 */
																																		BgL_index1481z00_2555
																																			=
																																			BINT(
																																			(BgL_iz00_9356
																																				+ 1L));
																																	}
																																else
																																	{
																																		long
																																			BgL_iz00_14375;
																																		BgL_iz00_14375
																																			=
																																			(BgL_iz00_9356
																																			+ 2L);
																																		BgL_iz00_9356
																																			=
																																			BgL_iz00_14375;
																																		goto
																																			BgL_search1473z00_9355;
																																	}
																															}
																													}
																											}
																											{	/* Unsafe/http.scm 106 */
																												bool_t
																													BgL_test6219z00_14377;
																												{	/* Unsafe/http.scm 106 */
																													long BgL_n1z00_9370;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14378;
																														if (INTEGERP
																															(BgL_index1481z00_2555))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14378
																																	=
																																	BgL_index1481z00_2555;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14381;
																																BgL_auxz00_14381
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5723z00zz__httpz00,
																																	BgL_index1481z00_2555);
																																FAILURE
																																	(BgL_auxz00_14381,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_n1z00_9370 =
																															(long)
																															CINT
																															(BgL_tmpz00_14378);
																													}
																													BgL_test6219z00_14377
																														=
																														(BgL_n1z00_9370 >=
																														0L);
																												}
																												if (BgL_test6219z00_14377)
																													{
																														long
																															BgL_auxz00_14394;
																														obj_t
																															BgL_auxz00_14387;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_tmpz00_14395;
																															if (INTEGERP
																																(BgL_index1481z00_2555))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_tmpz00_14395
																																		=
																																		BgL_index1481z00_2555;
																																}
																															else
																																{
																																	obj_t
																																		BgL_auxz00_14398;
																																	BgL_auxz00_14398
																																		=
																																		BGl_typezd2errorzd2zz__errorz00
																																		(BGl_string5665z00zz__httpz00,
																																		BINT(3541L),
																																		BGl_string5666z00zz__httpz00,
																																		BGl_string5723z00zz__httpz00,
																																		BgL_index1481z00_2555);
																																	FAILURE
																																		(BgL_auxz00_14398,
																																		BFALSE,
																																		BFALSE);
																																}
																															BgL_auxz00_14394 =
																																(long)
																																CINT
																																(BgL_tmpz00_14395);
																														}
																														if (VECTORP
																															(BgL_opt1470z00_23))
																															{	/* Unsafe/http.scm 106 */
																																BgL_auxz00_14387
																																	=
																																	BgL_opt1470z00_23;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14390;
																																BgL_auxz00_14390
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5667z00zz__httpz00,
																																	BgL_opt1470z00_23);
																																FAILURE
																																	(BgL_auxz00_14390,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_headerz00_2522 =
																															VECTOR_REF
																															(BgL_auxz00_14387,
																															BgL_auxz00_14394);
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														BFALSE;
																													}
																											}
																										}
																										{	/* Unsafe/http.scm 106 */
																											obj_t
																												BgL_index1482z00_2557;
																											{
																												long BgL_iz00_9372;

																												BgL_iz00_9372 = 0L;
																											BgL_search1473z00_9371:
																												if (
																													(BgL_iz00_9372 ==
																														BgL_l1472z00_2513))
																													{	/* Unsafe/http.scm 106 */
																														BgL_index1482z00_2557
																															= BINT((-1L));
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														if (
																															(BgL_iz00_9372 ==
																																(BgL_l1472z00_2513
																																	- 1L)))
																															{	/* Unsafe/http.scm 106 */
																																BgL_index1482z00_2557
																																	=
																																	BGl_errorz00zz__errorz00
																																	(BGl_symbol5678z00zz__httpz00,
																																	BGl_string5722z00zz__httpz00,
																																	BINT
																																	(VECTOR_LENGTH
																																		(BgL_opt1470z00_23)));
																															}
																														else
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_vz00_9382;
																																BgL_vz00_9382 =
																																	VECTOR_REF
																																	(BgL_opt1470z00_23,
																																	BgL_iz00_9372);
																																if (
																																	(BgL_vz00_9382
																																		==
																																		BGl_keyword5693z00zz__httpz00))
																																	{	/* Unsafe/http.scm 106 */
																																		BgL_index1482z00_2557
																																			=
																																			BINT(
																																			(BgL_iz00_9372
																																				+ 1L));
																																	}
																																else
																																	{
																																		long
																																			BgL_iz00_14418;
																																		BgL_iz00_14418
																																			=
																																			(BgL_iz00_9372
																																			+ 2L);
																																		BgL_iz00_9372
																																			=
																																			BgL_iz00_14418;
																																		goto
																																			BgL_search1473z00_9371;
																																	}
																															}
																													}
																											}
																											{	/* Unsafe/http.scm 106 */
																												bool_t
																													BgL_test6226z00_14420;
																												{	/* Unsafe/http.scm 106 */
																													long BgL_n1z00_9386;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14421;
																														if (INTEGERP
																															(BgL_index1482z00_2557))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14421
																																	=
																																	BgL_index1482z00_2557;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14424;
																																BgL_auxz00_14424
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5723z00zz__httpz00,
																																	BgL_index1482z00_2557);
																																FAILURE
																																	(BgL_auxz00_14424,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_n1z00_9386 =
																															(long)
																															CINT
																															(BgL_tmpz00_14421);
																													}
																													BgL_test6226z00_14420
																														=
																														(BgL_n1z00_9386 >=
																														0L);
																												}
																												if (BgL_test6226z00_14420)
																													{
																														long
																															BgL_auxz00_14437;
																														obj_t
																															BgL_auxz00_14430;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_tmpz00_14438;
																															if (INTEGERP
																																(BgL_index1482z00_2557))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_tmpz00_14438
																																		=
																																		BgL_index1482z00_2557;
																																}
																															else
																																{
																																	obj_t
																																		BgL_auxz00_14441;
																																	BgL_auxz00_14441
																																		=
																																		BGl_typezd2errorzd2zz__errorz00
																																		(BGl_string5665z00zz__httpz00,
																																		BINT(3541L),
																																		BGl_string5666z00zz__httpz00,
																																		BGl_string5723z00zz__httpz00,
																																		BgL_index1482z00_2557);
																																	FAILURE
																																		(BgL_auxz00_14441,
																																		BFALSE,
																																		BFALSE);
																																}
																															BgL_auxz00_14437 =
																																(long)
																																CINT
																																(BgL_tmpz00_14438);
																														}
																														if (VECTORP
																															(BgL_opt1470z00_23))
																															{	/* Unsafe/http.scm 106 */
																																BgL_auxz00_14430
																																	=
																																	BgL_opt1470z00_23;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14433;
																																BgL_auxz00_14433
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5667z00zz__httpz00,
																																	BgL_opt1470z00_23);
																																FAILURE
																																	(BgL_auxz00_14433,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_hostz00_2523 =
																															VECTOR_REF
																															(BgL_auxz00_14430,
																															BgL_auxz00_14437);
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														BFALSE;
																													}
																											}
																										}
																										{	/* Unsafe/http.scm 106 */
																											obj_t
																												BgL_index1483z00_2559;
																											{
																												long BgL_iz00_9388;

																												BgL_iz00_9388 = 0L;
																											BgL_search1473z00_9387:
																												if (
																													(BgL_iz00_9388 ==
																														BgL_l1472z00_2513))
																													{	/* Unsafe/http.scm 106 */
																														BgL_index1483z00_2559
																															= BINT((-1L));
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														if (
																															(BgL_iz00_9388 ==
																																(BgL_l1472z00_2513
																																	- 1L)))
																															{	/* Unsafe/http.scm 106 */
																																BgL_index1483z00_2559
																																	=
																																	BGl_errorz00zz__errorz00
																																	(BGl_symbol5678z00zz__httpz00,
																																	BGl_string5722z00zz__httpz00,
																																	BINT
																																	(VECTOR_LENGTH
																																		(BgL_opt1470z00_23)));
																															}
																														else
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_vz00_9398;
																																BgL_vz00_9398 =
																																	VECTOR_REF
																																	(BgL_opt1470z00_23,
																																	BgL_iz00_9388);
																																if (
																																	(BgL_vz00_9398
																																		==
																																		BGl_keyword5695z00zz__httpz00))
																																	{	/* Unsafe/http.scm 106 */
																																		BgL_index1483z00_2559
																																			=
																																			BINT(
																																			(BgL_iz00_9388
																																				+ 1L));
																																	}
																																else
																																	{
																																		long
																																			BgL_iz00_14461;
																																		BgL_iz00_14461
																																			=
																																			(BgL_iz00_9388
																																			+ 2L);
																																		BgL_iz00_9388
																																			=
																																			BgL_iz00_14461;
																																		goto
																																			BgL_search1473z00_9387;
																																	}
																															}
																													}
																											}
																											{	/* Unsafe/http.scm 106 */
																												bool_t
																													BgL_test6233z00_14463;
																												{	/* Unsafe/http.scm 106 */
																													long BgL_n1z00_9402;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14464;
																														if (INTEGERP
																															(BgL_index1483z00_2559))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14464
																																	=
																																	BgL_index1483z00_2559;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14467;
																																BgL_auxz00_14467
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5723z00zz__httpz00,
																																	BgL_index1483z00_2559);
																																FAILURE
																																	(BgL_auxz00_14467,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_n1z00_9402 =
																															(long)
																															CINT
																															(BgL_tmpz00_14464);
																													}
																													BgL_test6233z00_14463
																														=
																														(BgL_n1z00_9402 >=
																														0L);
																												}
																												if (BgL_test6233z00_14463)
																													{
																														long
																															BgL_auxz00_14480;
																														obj_t
																															BgL_auxz00_14473;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_tmpz00_14481;
																															if (INTEGERP
																																(BgL_index1483z00_2559))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_tmpz00_14481
																																		=
																																		BgL_index1483z00_2559;
																																}
																															else
																																{
																																	obj_t
																																		BgL_auxz00_14484;
																																	BgL_auxz00_14484
																																		=
																																		BGl_typezd2errorzd2zz__errorz00
																																		(BGl_string5665z00zz__httpz00,
																																		BINT(3541L),
																																		BGl_string5666z00zz__httpz00,
																																		BGl_string5723z00zz__httpz00,
																																		BgL_index1483z00_2559);
																																	FAILURE
																																		(BgL_auxz00_14484,
																																		BFALSE,
																																		BFALSE);
																																}
																															BgL_auxz00_14480 =
																																(long)
																																CINT
																																(BgL_tmpz00_14481);
																														}
																														if (VECTORP
																															(BgL_opt1470z00_23))
																															{	/* Unsafe/http.scm 106 */
																																BgL_auxz00_14473
																																	=
																																	BgL_opt1470z00_23;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14476;
																																BgL_auxz00_14476
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5667z00zz__httpz00,
																																	BgL_opt1470z00_23);
																																FAILURE
																																	(BgL_auxz00_14476,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_httpzd2versionzd2_2524
																															=
																															VECTOR_REF
																															(BgL_auxz00_14473,
																															BgL_auxz00_14480);
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														BFALSE;
																													}
																											}
																										}
																										{	/* Unsafe/http.scm 106 */
																											obj_t
																												BgL_index1484z00_2561;
																											{
																												long BgL_iz00_9404;

																												BgL_iz00_9404 = 0L;
																											BgL_search1473z00_9403:
																												if (
																													(BgL_iz00_9404 ==
																														BgL_l1472z00_2513))
																													{	/* Unsafe/http.scm 106 */
																														BgL_index1484z00_2561
																															= BINT((-1L));
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														if (
																															(BgL_iz00_9404 ==
																																(BgL_l1472z00_2513
																																	- 1L)))
																															{	/* Unsafe/http.scm 106 */
																																BgL_index1484z00_2561
																																	=
																																	BGl_errorz00zz__errorz00
																																	(BGl_symbol5678z00zz__httpz00,
																																	BGl_string5722z00zz__httpz00,
																																	BINT
																																	(VECTOR_LENGTH
																																		(BgL_opt1470z00_23)));
																															}
																														else
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_vz00_9414;
																																BgL_vz00_9414 =
																																	VECTOR_REF
																																	(BgL_opt1470z00_23,
																																	BgL_iz00_9404);
																																if (
																																	(BgL_vz00_9414
																																		==
																																		BGl_keyword5697z00zz__httpz00))
																																	{	/* Unsafe/http.scm 106 */
																																		BgL_index1484z00_2561
																																			=
																																			BINT(
																																			(BgL_iz00_9404
																																				+ 1L));
																																	}
																																else
																																	{
																																		long
																																			BgL_iz00_14504;
																																		BgL_iz00_14504
																																			=
																																			(BgL_iz00_9404
																																			+ 2L);
																																		BgL_iz00_9404
																																			=
																																			BgL_iz00_14504;
																																		goto
																																			BgL_search1473z00_9403;
																																	}
																															}
																													}
																											}
																											{	/* Unsafe/http.scm 106 */
																												bool_t
																													BgL_test6240z00_14506;
																												{	/* Unsafe/http.scm 106 */
																													long BgL_n1z00_9418;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14507;
																														if (INTEGERP
																															(BgL_index1484z00_2561))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14507
																																	=
																																	BgL_index1484z00_2561;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14510;
																																BgL_auxz00_14510
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5723z00zz__httpz00,
																																	BgL_index1484z00_2561);
																																FAILURE
																																	(BgL_auxz00_14510,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_n1z00_9418 =
																															(long)
																															CINT
																															(BgL_tmpz00_14507);
																													}
																													BgL_test6240z00_14506
																														=
																														(BgL_n1z00_9418 >=
																														0L);
																												}
																												if (BgL_test6240z00_14506)
																													{
																														long
																															BgL_auxz00_14523;
																														obj_t
																															BgL_auxz00_14516;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_tmpz00_14524;
																															if (INTEGERP
																																(BgL_index1484z00_2561))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_tmpz00_14524
																																		=
																																		BgL_index1484z00_2561;
																																}
																															else
																																{
																																	obj_t
																																		BgL_auxz00_14527;
																																	BgL_auxz00_14527
																																		=
																																		BGl_typezd2errorzd2zz__errorz00
																																		(BGl_string5665z00zz__httpz00,
																																		BINT(3541L),
																																		BGl_string5666z00zz__httpz00,
																																		BGl_string5723z00zz__httpz00,
																																		BgL_index1484z00_2561);
																																	FAILURE
																																		(BgL_auxz00_14527,
																																		BFALSE,
																																		BFALSE);
																																}
																															BgL_auxz00_14523 =
																																(long)
																																CINT
																																(BgL_tmpz00_14524);
																														}
																														if (VECTORP
																															(BgL_opt1470z00_23))
																															{	/* Unsafe/http.scm 106 */
																																BgL_auxz00_14516
																																	=
																																	BgL_opt1470z00_23;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14519;
																																BgL_auxz00_14519
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5667z00zz__httpz00,
																																	BgL_opt1470z00_23);
																																FAILURE
																																	(BgL_auxz00_14519,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_inz00_2525 =
																															VECTOR_REF
																															(BgL_auxz00_14516,
																															BgL_auxz00_14523);
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														BFALSE;
																													}
																											}
																										}
																										{	/* Unsafe/http.scm 106 */
																											obj_t
																												BgL_index1485z00_2563;
																											{
																												long BgL_iz00_9420;

																												BgL_iz00_9420 = 0L;
																											BgL_search1473z00_9419:
																												if (
																													(BgL_iz00_9420 ==
																														BgL_l1472z00_2513))
																													{	/* Unsafe/http.scm 106 */
																														BgL_index1485z00_2563
																															= BINT((-1L));
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														if (
																															(BgL_iz00_9420 ==
																																(BgL_l1472z00_2513
																																	- 1L)))
																															{	/* Unsafe/http.scm 106 */
																																BgL_index1485z00_2563
																																	=
																																	BGl_errorz00zz__errorz00
																																	(BGl_symbol5678z00zz__httpz00,
																																	BGl_string5722z00zz__httpz00,
																																	BINT
																																	(VECTOR_LENGTH
																																		(BgL_opt1470z00_23)));
																															}
																														else
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_vz00_9430;
																																BgL_vz00_9430 =
																																	VECTOR_REF
																																	(BgL_opt1470z00_23,
																																	BgL_iz00_9420);
																																if (
																																	(BgL_vz00_9430
																																		==
																																		BGl_keyword5699z00zz__httpz00))
																																	{	/* Unsafe/http.scm 106 */
																																		BgL_index1485z00_2563
																																			=
																																			BINT(
																																			(BgL_iz00_9420
																																				+ 1L));
																																	}
																																else
																																	{
																																		long
																																			BgL_iz00_14547;
																																		BgL_iz00_14547
																																			=
																																			(BgL_iz00_9420
																																			+ 2L);
																																		BgL_iz00_9420
																																			=
																																			BgL_iz00_14547;
																																		goto
																																			BgL_search1473z00_9419;
																																	}
																															}
																													}
																											}
																											{	/* Unsafe/http.scm 106 */
																												bool_t
																													BgL_test6247z00_14549;
																												{	/* Unsafe/http.scm 106 */
																													long BgL_n1z00_9434;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14550;
																														if (INTEGERP
																															(BgL_index1485z00_2563))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14550
																																	=
																																	BgL_index1485z00_2563;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14553;
																																BgL_auxz00_14553
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5723z00zz__httpz00,
																																	BgL_index1485z00_2563);
																																FAILURE
																																	(BgL_auxz00_14553,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_n1z00_9434 =
																															(long)
																															CINT
																															(BgL_tmpz00_14550);
																													}
																													BgL_test6247z00_14549
																														=
																														(BgL_n1z00_9434 >=
																														0L);
																												}
																												if (BgL_test6247z00_14549)
																													{
																														long
																															BgL_auxz00_14566;
																														obj_t
																															BgL_auxz00_14559;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_tmpz00_14567;
																															if (INTEGERP
																																(BgL_index1485z00_2563))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_tmpz00_14567
																																		=
																																		BgL_index1485z00_2563;
																																}
																															else
																																{
																																	obj_t
																																		BgL_auxz00_14570;
																																	BgL_auxz00_14570
																																		=
																																		BGl_typezd2errorzd2zz__errorz00
																																		(BGl_string5665z00zz__httpz00,
																																		BINT(3541L),
																																		BGl_string5666z00zz__httpz00,
																																		BGl_string5723z00zz__httpz00,
																																		BgL_index1485z00_2563);
																																	FAILURE
																																		(BgL_auxz00_14570,
																																		BFALSE,
																																		BFALSE);
																																}
																															BgL_auxz00_14566 =
																																(long)
																																CINT
																																(BgL_tmpz00_14567);
																														}
																														if (VECTORP
																															(BgL_opt1470z00_23))
																															{	/* Unsafe/http.scm 106 */
																																BgL_auxz00_14559
																																	=
																																	BgL_opt1470z00_23;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14562;
																																BgL_auxz00_14562
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5667z00zz__httpz00,
																																	BgL_opt1470z00_23);
																																FAILURE
																																	(BgL_auxz00_14562,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_loginz00_2526 =
																															VECTOR_REF
																															(BgL_auxz00_14559,
																															BgL_auxz00_14566);
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														BFALSE;
																													}
																											}
																										}
																										{	/* Unsafe/http.scm 106 */
																											obj_t
																												BgL_index1486z00_2565;
																											{
																												long BgL_iz00_9436;

																												BgL_iz00_9436 = 0L;
																											BgL_search1473z00_9435:
																												if (
																													(BgL_iz00_9436 ==
																														BgL_l1472z00_2513))
																													{	/* Unsafe/http.scm 106 */
																														BgL_index1486z00_2565
																															= BINT((-1L));
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														if (
																															(BgL_iz00_9436 ==
																																(BgL_l1472z00_2513
																																	- 1L)))
																															{	/* Unsafe/http.scm 106 */
																																BgL_index1486z00_2565
																																	=
																																	BGl_errorz00zz__errorz00
																																	(BGl_symbol5678z00zz__httpz00,
																																	BGl_string5722z00zz__httpz00,
																																	BINT
																																	(VECTOR_LENGTH
																																		(BgL_opt1470z00_23)));
																															}
																														else
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_vz00_9446;
																																BgL_vz00_9446 =
																																	VECTOR_REF
																																	(BgL_opt1470z00_23,
																																	BgL_iz00_9436);
																																if (
																																	(BgL_vz00_9446
																																		==
																																		BGl_keyword5701z00zz__httpz00))
																																	{	/* Unsafe/http.scm 106 */
																																		BgL_index1486z00_2565
																																			=
																																			BINT(
																																			(BgL_iz00_9436
																																				+ 1L));
																																	}
																																else
																																	{
																																		long
																																			BgL_iz00_14590;
																																		BgL_iz00_14590
																																			=
																																			(BgL_iz00_9436
																																			+ 2L);
																																		BgL_iz00_9436
																																			=
																																			BgL_iz00_14590;
																																		goto
																																			BgL_search1473z00_9435;
																																	}
																															}
																													}
																											}
																											{	/* Unsafe/http.scm 106 */
																												bool_t
																													BgL_test6254z00_14592;
																												{	/* Unsafe/http.scm 106 */
																													long BgL_n1z00_9450;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14593;
																														if (INTEGERP
																															(BgL_index1486z00_2565))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14593
																																	=
																																	BgL_index1486z00_2565;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14596;
																																BgL_auxz00_14596
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5723z00zz__httpz00,
																																	BgL_index1486z00_2565);
																																FAILURE
																																	(BgL_auxz00_14596,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_n1z00_9450 =
																															(long)
																															CINT
																															(BgL_tmpz00_14593);
																													}
																													BgL_test6254z00_14592
																														=
																														(BgL_n1z00_9450 >=
																														0L);
																												}
																												if (BgL_test6254z00_14592)
																													{
																														long
																															BgL_auxz00_14609;
																														obj_t
																															BgL_auxz00_14602;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_tmpz00_14610;
																															if (INTEGERP
																																(BgL_index1486z00_2565))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_tmpz00_14610
																																		=
																																		BgL_index1486z00_2565;
																																}
																															else
																																{
																																	obj_t
																																		BgL_auxz00_14613;
																																	BgL_auxz00_14613
																																		=
																																		BGl_typezd2errorzd2zz__errorz00
																																		(BGl_string5665z00zz__httpz00,
																																		BINT(3541L),
																																		BGl_string5666z00zz__httpz00,
																																		BGl_string5723z00zz__httpz00,
																																		BgL_index1486z00_2565);
																																	FAILURE
																																		(BgL_auxz00_14613,
																																		BFALSE,
																																		BFALSE);
																																}
																															BgL_auxz00_14609 =
																																(long)
																																CINT
																																(BgL_tmpz00_14610);
																														}
																														if (VECTORP
																															(BgL_opt1470z00_23))
																															{	/* Unsafe/http.scm 106 */
																																BgL_auxz00_14602
																																	=
																																	BgL_opt1470z00_23;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14605;
																																BgL_auxz00_14605
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5667z00zz__httpz00,
																																	BgL_opt1470z00_23);
																																FAILURE
																																	(BgL_auxz00_14605,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_methodz00_2527 =
																															VECTOR_REF
																															(BgL_auxz00_14602,
																															BgL_auxz00_14609);
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														BFALSE;
																													}
																											}
																										}
																										{	/* Unsafe/http.scm 106 */
																											obj_t
																												BgL_index1487z00_2567;
																											{
																												long BgL_iz00_9452;

																												BgL_iz00_9452 = 0L;
																											BgL_search1473z00_9451:
																												if (
																													(BgL_iz00_9452 ==
																														BgL_l1472z00_2513))
																													{	/* Unsafe/http.scm 106 */
																														BgL_index1487z00_2567
																															= BINT((-1L));
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														if (
																															(BgL_iz00_9452 ==
																																(BgL_l1472z00_2513
																																	- 1L)))
																															{	/* Unsafe/http.scm 106 */
																																BgL_index1487z00_2567
																																	=
																																	BGl_errorz00zz__errorz00
																																	(BGl_symbol5678z00zz__httpz00,
																																	BGl_string5722z00zz__httpz00,
																																	BINT
																																	(VECTOR_LENGTH
																																		(BgL_opt1470z00_23)));
																															}
																														else
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_vz00_9462;
																																BgL_vz00_9462 =
																																	VECTOR_REF
																																	(BgL_opt1470z00_23,
																																	BgL_iz00_9452);
																																if (
																																	(BgL_vz00_9462
																																		==
																																		BGl_keyword5703z00zz__httpz00))
																																	{	/* Unsafe/http.scm 106 */
																																		BgL_index1487z00_2567
																																			=
																																			BINT(
																																			(BgL_iz00_9452
																																				+ 1L));
																																	}
																																else
																																	{
																																		long
																																			BgL_iz00_14633;
																																		BgL_iz00_14633
																																			=
																																			(BgL_iz00_9452
																																			+ 2L);
																																		BgL_iz00_9452
																																			=
																																			BgL_iz00_14633;
																																		goto
																																			BgL_search1473z00_9451;
																																	}
																															}
																													}
																											}
																											{	/* Unsafe/http.scm 106 */
																												bool_t
																													BgL_test6261z00_14635;
																												{	/* Unsafe/http.scm 106 */
																													long BgL_n1z00_9466;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14636;
																														if (INTEGERP
																															(BgL_index1487z00_2567))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14636
																																	=
																																	BgL_index1487z00_2567;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14639;
																																BgL_auxz00_14639
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5723z00zz__httpz00,
																																	BgL_index1487z00_2567);
																																FAILURE
																																	(BgL_auxz00_14639,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_n1z00_9466 =
																															(long)
																															CINT
																															(BgL_tmpz00_14636);
																													}
																													BgL_test6261z00_14635
																														=
																														(BgL_n1z00_9466 >=
																														0L);
																												}
																												if (BgL_test6261z00_14635)
																													{
																														long
																															BgL_auxz00_14652;
																														obj_t
																															BgL_auxz00_14645;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_tmpz00_14653;
																															if (INTEGERP
																																(BgL_index1487z00_2567))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_tmpz00_14653
																																		=
																																		BgL_index1487z00_2567;
																																}
																															else
																																{
																																	obj_t
																																		BgL_auxz00_14656;
																																	BgL_auxz00_14656
																																		=
																																		BGl_typezd2errorzd2zz__errorz00
																																		(BGl_string5665z00zz__httpz00,
																																		BINT(3541L),
																																		BGl_string5666z00zz__httpz00,
																																		BGl_string5723z00zz__httpz00,
																																		BgL_index1487z00_2567);
																																	FAILURE
																																		(BgL_auxz00_14656,
																																		BFALSE,
																																		BFALSE);
																																}
																															BgL_auxz00_14652 =
																																(long)
																																CINT
																																(BgL_tmpz00_14653);
																														}
																														if (VECTORP
																															(BgL_opt1470z00_23))
																															{	/* Unsafe/http.scm 106 */
																																BgL_auxz00_14645
																																	=
																																	BgL_opt1470z00_23;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14648;
																																BgL_auxz00_14648
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5667z00zz__httpz00,
																																	BgL_opt1470z00_23);
																																FAILURE
																																	(BgL_auxz00_14648,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_outz00_2528 =
																															VECTOR_REF
																															(BgL_auxz00_14645,
																															BgL_auxz00_14652);
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														BFALSE;
																													}
																											}
																										}
																										{	/* Unsafe/http.scm 106 */
																											obj_t
																												BgL_index1488z00_2569;
																											{
																												long BgL_iz00_9468;

																												BgL_iz00_9468 = 0L;
																											BgL_search1473z00_9467:
																												if (
																													(BgL_iz00_9468 ==
																														BgL_l1472z00_2513))
																													{	/* Unsafe/http.scm 106 */
																														BgL_index1488z00_2569
																															= BINT((-1L));
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														if (
																															(BgL_iz00_9468 ==
																																(BgL_l1472z00_2513
																																	- 1L)))
																															{	/* Unsafe/http.scm 106 */
																																BgL_index1488z00_2569
																																	=
																																	BGl_errorz00zz__errorz00
																																	(BGl_symbol5678z00zz__httpz00,
																																	BGl_string5722z00zz__httpz00,
																																	BINT
																																	(VECTOR_LENGTH
																																		(BgL_opt1470z00_23)));
																															}
																														else
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_vz00_9478;
																																BgL_vz00_9478 =
																																	VECTOR_REF
																																	(BgL_opt1470z00_23,
																																	BgL_iz00_9468);
																																if (
																																	(BgL_vz00_9478
																																		==
																																		BGl_keyword5705z00zz__httpz00))
																																	{	/* Unsafe/http.scm 106 */
																																		BgL_index1488z00_2569
																																			=
																																			BINT(
																																			(BgL_iz00_9468
																																				+ 1L));
																																	}
																																else
																																	{
																																		long
																																			BgL_iz00_14676;
																																		BgL_iz00_14676
																																			=
																																			(BgL_iz00_9468
																																			+ 2L);
																																		BgL_iz00_9468
																																			=
																																			BgL_iz00_14676;
																																		goto
																																			BgL_search1473z00_9467;
																																	}
																															}
																													}
																											}
																											{	/* Unsafe/http.scm 106 */
																												bool_t
																													BgL_test6268z00_14678;
																												{	/* Unsafe/http.scm 106 */
																													long BgL_n1z00_9482;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14679;
																														if (INTEGERP
																															(BgL_index1488z00_2569))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14679
																																	=
																																	BgL_index1488z00_2569;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14682;
																																BgL_auxz00_14682
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5723z00zz__httpz00,
																																	BgL_index1488z00_2569);
																																FAILURE
																																	(BgL_auxz00_14682,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_n1z00_9482 =
																															(long)
																															CINT
																															(BgL_tmpz00_14679);
																													}
																													BgL_test6268z00_14678
																														=
																														(BgL_n1z00_9482 >=
																														0L);
																												}
																												if (BgL_test6268z00_14678)
																													{
																														long
																															BgL_auxz00_14695;
																														obj_t
																															BgL_auxz00_14688;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_tmpz00_14696;
																															if (INTEGERP
																																(BgL_index1488z00_2569))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_tmpz00_14696
																																		=
																																		BgL_index1488z00_2569;
																																}
																															else
																																{
																																	obj_t
																																		BgL_auxz00_14699;
																																	BgL_auxz00_14699
																																		=
																																		BGl_typezd2errorzd2zz__errorz00
																																		(BGl_string5665z00zz__httpz00,
																																		BINT(3541L),
																																		BGl_string5666z00zz__httpz00,
																																		BGl_string5723z00zz__httpz00,
																																		BgL_index1488z00_2569);
																																	FAILURE
																																		(BgL_auxz00_14699,
																																		BFALSE,
																																		BFALSE);
																																}
																															BgL_auxz00_14695 =
																																(long)
																																CINT
																																(BgL_tmpz00_14696);
																														}
																														if (VECTORP
																															(BgL_opt1470z00_23))
																															{	/* Unsafe/http.scm 106 */
																																BgL_auxz00_14688
																																	=
																																	BgL_opt1470z00_23;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14691;
																																BgL_auxz00_14691
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5667z00zz__httpz00,
																																	BgL_opt1470z00_23);
																																FAILURE
																																	(BgL_auxz00_14691,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_passwordz00_2529
																															=
																															VECTOR_REF
																															(BgL_auxz00_14688,
																															BgL_auxz00_14695);
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														BFALSE;
																													}
																											}
																										}
																										{	/* Unsafe/http.scm 106 */
																											obj_t
																												BgL_index1489z00_2571;
																											{
																												long BgL_iz00_9484;

																												BgL_iz00_9484 = 0L;
																											BgL_search1473z00_9483:
																												if (
																													(BgL_iz00_9484 ==
																														BgL_l1472z00_2513))
																													{	/* Unsafe/http.scm 106 */
																														BgL_index1489z00_2571
																															= BINT((-1L));
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														if (
																															(BgL_iz00_9484 ==
																																(BgL_l1472z00_2513
																																	- 1L)))
																															{	/* Unsafe/http.scm 106 */
																																BgL_index1489z00_2571
																																	=
																																	BGl_errorz00zz__errorz00
																																	(BGl_symbol5678z00zz__httpz00,
																																	BGl_string5722z00zz__httpz00,
																																	BINT
																																	(VECTOR_LENGTH
																																		(BgL_opt1470z00_23)));
																															}
																														else
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_vz00_9494;
																																BgL_vz00_9494 =
																																	VECTOR_REF
																																	(BgL_opt1470z00_23,
																																	BgL_iz00_9484);
																																if (
																																	(BgL_vz00_9494
																																		==
																																		BGl_keyword5707z00zz__httpz00))
																																	{	/* Unsafe/http.scm 106 */
																																		BgL_index1489z00_2571
																																			=
																																			BINT(
																																			(BgL_iz00_9484
																																				+ 1L));
																																	}
																																else
																																	{
																																		long
																																			BgL_iz00_14719;
																																		BgL_iz00_14719
																																			=
																																			(BgL_iz00_9484
																																			+ 2L);
																																		BgL_iz00_9484
																																			=
																																			BgL_iz00_14719;
																																		goto
																																			BgL_search1473z00_9483;
																																	}
																															}
																													}
																											}
																											{	/* Unsafe/http.scm 106 */
																												bool_t
																													BgL_test6275z00_14721;
																												{	/* Unsafe/http.scm 106 */
																													long BgL_n1z00_9498;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14722;
																														if (INTEGERP
																															(BgL_index1489z00_2571))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14722
																																	=
																																	BgL_index1489z00_2571;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14725;
																																BgL_auxz00_14725
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5723z00zz__httpz00,
																																	BgL_index1489z00_2571);
																																FAILURE
																																	(BgL_auxz00_14725,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_n1z00_9498 =
																															(long)
																															CINT
																															(BgL_tmpz00_14722);
																													}
																													BgL_test6275z00_14721
																														=
																														(BgL_n1z00_9498 >=
																														0L);
																												}
																												if (BgL_test6275z00_14721)
																													{
																														long
																															BgL_auxz00_14738;
																														obj_t
																															BgL_auxz00_14731;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_tmpz00_14739;
																															if (INTEGERP
																																(BgL_index1489z00_2571))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_tmpz00_14739
																																		=
																																		BgL_index1489z00_2571;
																																}
																															else
																																{
																																	obj_t
																																		BgL_auxz00_14742;
																																	BgL_auxz00_14742
																																		=
																																		BGl_typezd2errorzd2zz__errorz00
																																		(BGl_string5665z00zz__httpz00,
																																		BINT(3541L),
																																		BGl_string5666z00zz__httpz00,
																																		BGl_string5723z00zz__httpz00,
																																		BgL_index1489z00_2571);
																																	FAILURE
																																		(BgL_auxz00_14742,
																																		BFALSE,
																																		BFALSE);
																																}
																															BgL_auxz00_14738 =
																																(long)
																																CINT
																																(BgL_tmpz00_14739);
																														}
																														if (VECTORP
																															(BgL_opt1470z00_23))
																															{	/* Unsafe/http.scm 106 */
																																BgL_auxz00_14731
																																	=
																																	BgL_opt1470z00_23;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14734;
																																BgL_auxz00_14734
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5667z00zz__httpz00,
																																	BgL_opt1470z00_23);
																																FAILURE
																																	(BgL_auxz00_14734,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_pathz00_2530 =
																															VECTOR_REF
																															(BgL_auxz00_14731,
																															BgL_auxz00_14738);
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														BFALSE;
																													}
																											}
																										}
																										{	/* Unsafe/http.scm 106 */
																											obj_t
																												BgL_index1490z00_2573;
																											{
																												long BgL_iz00_9500;

																												BgL_iz00_9500 = 0L;
																											BgL_search1473z00_9499:
																												if (
																													(BgL_iz00_9500 ==
																														BgL_l1472z00_2513))
																													{	/* Unsafe/http.scm 106 */
																														BgL_index1490z00_2573
																															= BINT((-1L));
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														if (
																															(BgL_iz00_9500 ==
																																(BgL_l1472z00_2513
																																	- 1L)))
																															{	/* Unsafe/http.scm 106 */
																																BgL_index1490z00_2573
																																	=
																																	BGl_errorz00zz__errorz00
																																	(BGl_symbol5678z00zz__httpz00,
																																	BGl_string5722z00zz__httpz00,
																																	BINT
																																	(VECTOR_LENGTH
																																		(BgL_opt1470z00_23)));
																															}
																														else
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_vz00_9510;
																																BgL_vz00_9510 =
																																	VECTOR_REF
																																	(BgL_opt1470z00_23,
																																	BgL_iz00_9500);
																																if (
																																	(BgL_vz00_9510
																																		==
																																		BGl_keyword5709z00zz__httpz00))
																																	{	/* Unsafe/http.scm 106 */
																																		BgL_index1490z00_2573
																																			=
																																			BINT(
																																			(BgL_iz00_9500
																																				+ 1L));
																																	}
																																else
																																	{
																																		long
																																			BgL_iz00_14762;
																																		BgL_iz00_14762
																																			=
																																			(BgL_iz00_9500
																																			+ 2L);
																																		BgL_iz00_9500
																																			=
																																			BgL_iz00_14762;
																																		goto
																																			BgL_search1473z00_9499;
																																	}
																															}
																													}
																											}
																											{	/* Unsafe/http.scm 106 */
																												bool_t
																													BgL_test6282z00_14764;
																												{	/* Unsafe/http.scm 106 */
																													long BgL_n1z00_9514;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14765;
																														if (INTEGERP
																															(BgL_index1490z00_2573))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14765
																																	=
																																	BgL_index1490z00_2573;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14768;
																																BgL_auxz00_14768
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5723z00zz__httpz00,
																																	BgL_index1490z00_2573);
																																FAILURE
																																	(BgL_auxz00_14768,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_n1z00_9514 =
																															(long)
																															CINT
																															(BgL_tmpz00_14765);
																													}
																													BgL_test6282z00_14764
																														=
																														(BgL_n1z00_9514 >=
																														0L);
																												}
																												if (BgL_test6282z00_14764)
																													{
																														long
																															BgL_auxz00_14781;
																														obj_t
																															BgL_auxz00_14774;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_tmpz00_14782;
																															if (INTEGERP
																																(BgL_index1490z00_2573))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_tmpz00_14782
																																		=
																																		BgL_index1490z00_2573;
																																}
																															else
																																{
																																	obj_t
																																		BgL_auxz00_14785;
																																	BgL_auxz00_14785
																																		=
																																		BGl_typezd2errorzd2zz__errorz00
																																		(BGl_string5665z00zz__httpz00,
																																		BINT(3541L),
																																		BGl_string5666z00zz__httpz00,
																																		BGl_string5723z00zz__httpz00,
																																		BgL_index1490z00_2573);
																																	FAILURE
																																		(BgL_auxz00_14785,
																																		BFALSE,
																																		BFALSE);
																																}
																															BgL_auxz00_14781 =
																																(long)
																																CINT
																																(BgL_tmpz00_14782);
																														}
																														if (VECTORP
																															(BgL_opt1470z00_23))
																															{	/* Unsafe/http.scm 106 */
																																BgL_auxz00_14774
																																	=
																																	BgL_opt1470z00_23;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14777;
																																BgL_auxz00_14777
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5667z00zz__httpz00,
																																	BgL_opt1470z00_23);
																																FAILURE
																																	(BgL_auxz00_14777,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_portz00_2531 =
																															VECTOR_REF
																															(BgL_auxz00_14774,
																															BgL_auxz00_14781);
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														BFALSE;
																													}
																											}
																										}
																										{	/* Unsafe/http.scm 106 */
																											obj_t
																												BgL_index1491z00_2575;
																											{
																												long BgL_iz00_9516;

																												BgL_iz00_9516 = 0L;
																											BgL_search1473z00_9515:
																												if (
																													(BgL_iz00_9516 ==
																														BgL_l1472z00_2513))
																													{	/* Unsafe/http.scm 106 */
																														BgL_index1491z00_2575
																															= BINT((-1L));
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														if (
																															(BgL_iz00_9516 ==
																																(BgL_l1472z00_2513
																																	- 1L)))
																															{	/* Unsafe/http.scm 106 */
																																BgL_index1491z00_2575
																																	=
																																	BGl_errorz00zz__errorz00
																																	(BGl_symbol5678z00zz__httpz00,
																																	BGl_string5722z00zz__httpz00,
																																	BINT
																																	(VECTOR_LENGTH
																																		(BgL_opt1470z00_23)));
																															}
																														else
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_vz00_9526;
																																BgL_vz00_9526 =
																																	VECTOR_REF
																																	(BgL_opt1470z00_23,
																																	BgL_iz00_9516);
																																if (
																																	(BgL_vz00_9526
																																		==
																																		BGl_keyword5711z00zz__httpz00))
																																	{	/* Unsafe/http.scm 106 */
																																		BgL_index1491z00_2575
																																			=
																																			BINT(
																																			(BgL_iz00_9516
																																				+ 1L));
																																	}
																																else
																																	{
																																		long
																																			BgL_iz00_14805;
																																		BgL_iz00_14805
																																			=
																																			(BgL_iz00_9516
																																			+ 2L);
																																		BgL_iz00_9516
																																			=
																																			BgL_iz00_14805;
																																		goto
																																			BgL_search1473z00_9515;
																																	}
																															}
																													}
																											}
																											{	/* Unsafe/http.scm 106 */
																												bool_t
																													BgL_test6289z00_14807;
																												{	/* Unsafe/http.scm 106 */
																													long BgL_n1z00_9530;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14808;
																														if (INTEGERP
																															(BgL_index1491z00_2575))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14808
																																	=
																																	BgL_index1491z00_2575;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14811;
																																BgL_auxz00_14811
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5723z00zz__httpz00,
																																	BgL_index1491z00_2575);
																																FAILURE
																																	(BgL_auxz00_14811,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_n1z00_9530 =
																															(long)
																															CINT
																															(BgL_tmpz00_14808);
																													}
																													BgL_test6289z00_14807
																														=
																														(BgL_n1z00_9530 >=
																														0L);
																												}
																												if (BgL_test6289z00_14807)
																													{
																														long
																															BgL_auxz00_14824;
																														obj_t
																															BgL_auxz00_14817;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_tmpz00_14825;
																															if (INTEGERP
																																(BgL_index1491z00_2575))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_tmpz00_14825
																																		=
																																		BgL_index1491z00_2575;
																																}
																															else
																																{
																																	obj_t
																																		BgL_auxz00_14828;
																																	BgL_auxz00_14828
																																		=
																																		BGl_typezd2errorzd2zz__errorz00
																																		(BGl_string5665z00zz__httpz00,
																																		BINT(3541L),
																																		BGl_string5666z00zz__httpz00,
																																		BGl_string5723z00zz__httpz00,
																																		BgL_index1491z00_2575);
																																	FAILURE
																																		(BgL_auxz00_14828,
																																		BFALSE,
																																		BFALSE);
																																}
																															BgL_auxz00_14824 =
																																(long)
																																CINT
																																(BgL_tmpz00_14825);
																														}
																														if (VECTORP
																															(BgL_opt1470z00_23))
																															{	/* Unsafe/http.scm 106 */
																																BgL_auxz00_14817
																																	=
																																	BgL_opt1470z00_23;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14820;
																																BgL_auxz00_14820
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5667z00zz__httpz00,
																																	BgL_opt1470z00_23);
																																FAILURE
																																	(BgL_auxz00_14820,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_protocolz00_2532
																															=
																															VECTOR_REF
																															(BgL_auxz00_14817,
																															BgL_auxz00_14824);
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														BFALSE;
																													}
																											}
																										}
																										{	/* Unsafe/http.scm 106 */
																											obj_t
																												BgL_index1492z00_2577;
																											{
																												long BgL_iz00_9532;

																												BgL_iz00_9532 = 0L;
																											BgL_search1473z00_9531:
																												if (
																													(BgL_iz00_9532 ==
																														BgL_l1472z00_2513))
																													{	/* Unsafe/http.scm 106 */
																														BgL_index1492z00_2577
																															= BINT((-1L));
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														if (
																															(BgL_iz00_9532 ==
																																(BgL_l1472z00_2513
																																	- 1L)))
																															{	/* Unsafe/http.scm 106 */
																																BgL_index1492z00_2577
																																	=
																																	BGl_errorz00zz__errorz00
																																	(BGl_symbol5678z00zz__httpz00,
																																	BGl_string5722z00zz__httpz00,
																																	BINT
																																	(VECTOR_LENGTH
																																		(BgL_opt1470z00_23)));
																															}
																														else
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_vz00_9542;
																																BgL_vz00_9542 =
																																	VECTOR_REF
																																	(BgL_opt1470z00_23,
																																	BgL_iz00_9532);
																																if (
																																	(BgL_vz00_9542
																																		==
																																		BGl_keyword5713z00zz__httpz00))
																																	{	/* Unsafe/http.scm 106 */
																																		BgL_index1492z00_2577
																																			=
																																			BINT(
																																			(BgL_iz00_9532
																																				+ 1L));
																																	}
																																else
																																	{
																																		long
																																			BgL_iz00_14848;
																																		BgL_iz00_14848
																																			=
																																			(BgL_iz00_9532
																																			+ 2L);
																																		BgL_iz00_9532
																																			=
																																			BgL_iz00_14848;
																																		goto
																																			BgL_search1473z00_9531;
																																	}
																															}
																													}
																											}
																											{	/* Unsafe/http.scm 106 */
																												bool_t
																													BgL_test6296z00_14850;
																												{	/* Unsafe/http.scm 106 */
																													long BgL_n1z00_9546;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14851;
																														if (INTEGERP
																															(BgL_index1492z00_2577))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14851
																																	=
																																	BgL_index1492z00_2577;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14854;
																																BgL_auxz00_14854
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5723z00zz__httpz00,
																																	BgL_index1492z00_2577);
																																FAILURE
																																	(BgL_auxz00_14854,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_n1z00_9546 =
																															(long)
																															CINT
																															(BgL_tmpz00_14851);
																													}
																													BgL_test6296z00_14850
																														=
																														(BgL_n1z00_9546 >=
																														0L);
																												}
																												if (BgL_test6296z00_14850)
																													{
																														long
																															BgL_auxz00_14867;
																														obj_t
																															BgL_auxz00_14860;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_tmpz00_14868;
																															if (INTEGERP
																																(BgL_index1492z00_2577))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_tmpz00_14868
																																		=
																																		BgL_index1492z00_2577;
																																}
																															else
																																{
																																	obj_t
																																		BgL_auxz00_14871;
																																	BgL_auxz00_14871
																																		=
																																		BGl_typezd2errorzd2zz__errorz00
																																		(BGl_string5665z00zz__httpz00,
																																		BINT(3541L),
																																		BGl_string5666z00zz__httpz00,
																																		BGl_string5723z00zz__httpz00,
																																		BgL_index1492z00_2577);
																																	FAILURE
																																		(BgL_auxz00_14871,
																																		BFALSE,
																																		BFALSE);
																																}
																															BgL_auxz00_14867 =
																																(long)
																																CINT
																																(BgL_tmpz00_14868);
																														}
																														if (VECTORP
																															(BgL_opt1470z00_23))
																															{	/* Unsafe/http.scm 106 */
																																BgL_auxz00_14860
																																	=
																																	BgL_opt1470z00_23;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14863;
																																BgL_auxz00_14863
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5667z00zz__httpz00,
																																	BgL_opt1470z00_23);
																																FAILURE
																																	(BgL_auxz00_14863,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_proxyz00_2533 =
																															VECTOR_REF
																															(BgL_auxz00_14860,
																															BgL_auxz00_14867);
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														BFALSE;
																													}
																											}
																										}
																										{	/* Unsafe/http.scm 106 */
																											obj_t
																												BgL_index1493z00_2579;
																											{
																												long BgL_iz00_9548;

																												BgL_iz00_9548 = 0L;
																											BgL_search1473z00_9547:
																												if (
																													(BgL_iz00_9548 ==
																														BgL_l1472z00_2513))
																													{	/* Unsafe/http.scm 106 */
																														BgL_index1493z00_2579
																															= BINT((-1L));
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														if (
																															(BgL_iz00_9548 ==
																																(BgL_l1472z00_2513
																																	- 1L)))
																															{	/* Unsafe/http.scm 106 */
																																BgL_index1493z00_2579
																																	=
																																	BGl_errorz00zz__errorz00
																																	(BGl_symbol5678z00zz__httpz00,
																																	BGl_string5722z00zz__httpz00,
																																	BINT
																																	(VECTOR_LENGTH
																																		(BgL_opt1470z00_23)));
																															}
																														else
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_vz00_9558;
																																BgL_vz00_9558 =
																																	VECTOR_REF
																																	(BgL_opt1470z00_23,
																																	BgL_iz00_9548);
																																if (
																																	(BgL_vz00_9558
																																		==
																																		BGl_keyword5715z00zz__httpz00))
																																	{	/* Unsafe/http.scm 106 */
																																		BgL_index1493z00_2579
																																			=
																																			BINT(
																																			(BgL_iz00_9548
																																				+ 1L));
																																	}
																																else
																																	{
																																		long
																																			BgL_iz00_14891;
																																		BgL_iz00_14891
																																			=
																																			(BgL_iz00_9548
																																			+ 2L);
																																		BgL_iz00_9548
																																			=
																																			BgL_iz00_14891;
																																		goto
																																			BgL_search1473z00_9547;
																																	}
																															}
																													}
																											}
																											{	/* Unsafe/http.scm 106 */
																												bool_t
																													BgL_test6303z00_14893;
																												{	/* Unsafe/http.scm 106 */
																													long BgL_n1z00_9562;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14894;
																														if (INTEGERP
																															(BgL_index1493z00_2579))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14894
																																	=
																																	BgL_index1493z00_2579;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14897;
																																BgL_auxz00_14897
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5723z00zz__httpz00,
																																	BgL_index1493z00_2579);
																																FAILURE
																																	(BgL_auxz00_14897,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_n1z00_9562 =
																															(long)
																															CINT
																															(BgL_tmpz00_14894);
																													}
																													BgL_test6303z00_14893
																														=
																														(BgL_n1z00_9562 >=
																														0L);
																												}
																												if (BgL_test6303z00_14893)
																													{
																														long
																															BgL_auxz00_14910;
																														obj_t
																															BgL_auxz00_14903;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_tmpz00_14911;
																															if (INTEGERP
																																(BgL_index1493z00_2579))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_tmpz00_14911
																																		=
																																		BgL_index1493z00_2579;
																																}
																															else
																																{
																																	obj_t
																																		BgL_auxz00_14914;
																																	BgL_auxz00_14914
																																		=
																																		BGl_typezd2errorzd2zz__errorz00
																																		(BGl_string5665z00zz__httpz00,
																																		BINT(3541L),
																																		BGl_string5666z00zz__httpz00,
																																		BGl_string5723z00zz__httpz00,
																																		BgL_index1493z00_2579);
																																	FAILURE
																																		(BgL_auxz00_14914,
																																		BFALSE,
																																		BFALSE);
																																}
																															BgL_auxz00_14910 =
																																(long)
																																CINT
																																(BgL_tmpz00_14911);
																														}
																														if (VECTORP
																															(BgL_opt1470z00_23))
																															{	/* Unsafe/http.scm 106 */
																																BgL_auxz00_14903
																																	=
																																	BgL_opt1470z00_23;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14906;
																																BgL_auxz00_14906
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5667z00zz__httpz00,
																																	BgL_opt1470z00_23);
																																FAILURE
																																	(BgL_auxz00_14906,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_socketz00_2534 =
																															VECTOR_REF
																															(BgL_auxz00_14903,
																															BgL_auxz00_14910);
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														BFALSE;
																													}
																											}
																										}
																										{	/* Unsafe/http.scm 106 */
																											obj_t
																												BgL_index1494z00_2581;
																											{
																												long BgL_iz00_9564;

																												BgL_iz00_9564 = 0L;
																											BgL_search1473z00_9563:
																												if (
																													(BgL_iz00_9564 ==
																														BgL_l1472z00_2513))
																													{	/* Unsafe/http.scm 106 */
																														BgL_index1494z00_2581
																															= BINT((-1L));
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														if (
																															(BgL_iz00_9564 ==
																																(BgL_l1472z00_2513
																																	- 1L)))
																															{	/* Unsafe/http.scm 106 */
																																BgL_index1494z00_2581
																																	=
																																	BGl_errorz00zz__errorz00
																																	(BGl_symbol5678z00zz__httpz00,
																																	BGl_string5722z00zz__httpz00,
																																	BINT
																																	(VECTOR_LENGTH
																																		(BgL_opt1470z00_23)));
																															}
																														else
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_vz00_9574;
																																BgL_vz00_9574 =
																																	VECTOR_REF
																																	(BgL_opt1470z00_23,
																																	BgL_iz00_9564);
																																if (
																																	(BgL_vz00_9574
																																		==
																																		BGl_keyword5717z00zz__httpz00))
																																	{	/* Unsafe/http.scm 106 */
																																		BgL_index1494z00_2581
																																			=
																																			BINT(
																																			(BgL_iz00_9564
																																				+ 1L));
																																	}
																																else
																																	{
																																		long
																																			BgL_iz00_14934;
																																		BgL_iz00_14934
																																			=
																																			(BgL_iz00_9564
																																			+ 2L);
																																		BgL_iz00_9564
																																			=
																																			BgL_iz00_14934;
																																		goto
																																			BgL_search1473z00_9563;
																																	}
																															}
																													}
																											}
																											{	/* Unsafe/http.scm 106 */
																												bool_t
																													BgL_test6310z00_14936;
																												{	/* Unsafe/http.scm 106 */
																													long BgL_n1z00_9578;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14937;
																														if (INTEGERP
																															(BgL_index1494z00_2581))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14937
																																	=
																																	BgL_index1494z00_2581;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14940;
																																BgL_auxz00_14940
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5723z00zz__httpz00,
																																	BgL_index1494z00_2581);
																																FAILURE
																																	(BgL_auxz00_14940,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_n1z00_9578 =
																															(long)
																															CINT
																															(BgL_tmpz00_14937);
																													}
																													BgL_test6310z00_14936
																														=
																														(BgL_n1z00_9578 >=
																														0L);
																												}
																												if (BgL_test6310z00_14936)
																													{
																														long
																															BgL_auxz00_14953;
																														obj_t
																															BgL_auxz00_14946;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_tmpz00_14954;
																															if (INTEGERP
																																(BgL_index1494z00_2581))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_tmpz00_14954
																																		=
																																		BgL_index1494z00_2581;
																																}
																															else
																																{
																																	obj_t
																																		BgL_auxz00_14957;
																																	BgL_auxz00_14957
																																		=
																																		BGl_typezd2errorzd2zz__errorz00
																																		(BGl_string5665z00zz__httpz00,
																																		BINT(3541L),
																																		BGl_string5666z00zz__httpz00,
																																		BGl_string5723z00zz__httpz00,
																																		BgL_index1494z00_2581);
																																	FAILURE
																																		(BgL_auxz00_14957,
																																		BFALSE,
																																		BFALSE);
																																}
																															BgL_auxz00_14953 =
																																(long)
																																CINT
																																(BgL_tmpz00_14954);
																														}
																														if (VECTORP
																															(BgL_opt1470z00_23))
																															{	/* Unsafe/http.scm 106 */
																																BgL_auxz00_14946
																																	=
																																	BgL_opt1470z00_23;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14949;
																																BgL_auxz00_14949
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5667z00zz__httpz00,
																																	BgL_opt1470z00_23);
																																FAILURE
																																	(BgL_auxz00_14949,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_timeoutz00_2535
																															=
																															VECTOR_REF
																															(BgL_auxz00_14946,
																															BgL_auxz00_14953);
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														BFALSE;
																													}
																											}
																										}
																										{	/* Unsafe/http.scm 106 */
																											obj_t
																												BgL_index1495z00_2583;
																											{
																												long BgL_iz00_9580;

																												BgL_iz00_9580 = 0L;
																											BgL_search1473z00_9579:
																												if (
																													(BgL_iz00_9580 ==
																														BgL_l1472z00_2513))
																													{	/* Unsafe/http.scm 106 */
																														BgL_index1495z00_2583
																															= BINT((-1L));
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														if (
																															(BgL_iz00_9580 ==
																																(BgL_l1472z00_2513
																																	- 1L)))
																															{	/* Unsafe/http.scm 106 */
																																BgL_index1495z00_2583
																																	=
																																	BGl_errorz00zz__errorz00
																																	(BGl_symbol5678z00zz__httpz00,
																																	BGl_string5722z00zz__httpz00,
																																	BINT
																																	(VECTOR_LENGTH
																																		(BgL_opt1470z00_23)));
																															}
																														else
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_vz00_9590;
																																BgL_vz00_9590 =
																																	VECTOR_REF
																																	(BgL_opt1470z00_23,
																																	BgL_iz00_9580);
																																if (
																																	(BgL_vz00_9590
																																		==
																																		BGl_keyword5719z00zz__httpz00))
																																	{	/* Unsafe/http.scm 106 */
																																		BgL_index1495z00_2583
																																			=
																																			BINT(
																																			(BgL_iz00_9580
																																				+ 1L));
																																	}
																																else
																																	{
																																		long
																																			BgL_iz00_14977;
																																		BgL_iz00_14977
																																			=
																																			(BgL_iz00_9580
																																			+ 2L);
																																		BgL_iz00_9580
																																			=
																																			BgL_iz00_14977;
																																		goto
																																			BgL_search1473z00_9579;
																																	}
																															}
																													}
																											}
																											{	/* Unsafe/http.scm 106 */
																												bool_t
																													BgL_test6317z00_14979;
																												{	/* Unsafe/http.scm 106 */
																													long BgL_n1z00_9594;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14980;
																														if (INTEGERP
																															(BgL_index1495z00_2583))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14980
																																	=
																																	BgL_index1495z00_2583;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14983;
																																BgL_auxz00_14983
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5723z00zz__httpz00,
																																	BgL_index1495z00_2583);
																																FAILURE
																																	(BgL_auxz00_14983,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_n1z00_9594 =
																															(long)
																															CINT
																															(BgL_tmpz00_14980);
																													}
																													BgL_test6317z00_14979
																														=
																														(BgL_n1z00_9594 >=
																														0L);
																												}
																												if (BgL_test6317z00_14979)
																													{
																														long
																															BgL_auxz00_14996;
																														obj_t
																															BgL_auxz00_14989;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_tmpz00_14997;
																															if (INTEGERP
																																(BgL_index1495z00_2583))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_tmpz00_14997
																																		=
																																		BgL_index1495z00_2583;
																																}
																															else
																																{
																																	obj_t
																																		BgL_auxz00_15000;
																																	BgL_auxz00_15000
																																		=
																																		BGl_typezd2errorzd2zz__errorz00
																																		(BGl_string5665z00zz__httpz00,
																																		BINT(3541L),
																																		BGl_string5666z00zz__httpz00,
																																		BGl_string5723z00zz__httpz00,
																																		BgL_index1495z00_2583);
																																	FAILURE
																																		(BgL_auxz00_15000,
																																		BFALSE,
																																		BFALSE);
																																}
																															BgL_auxz00_14996 =
																																(long)
																																CINT
																																(BgL_tmpz00_14997);
																														}
																														if (VECTORP
																															(BgL_opt1470z00_23))
																															{	/* Unsafe/http.scm 106 */
																																BgL_auxz00_14989
																																	=
																																	BgL_opt1470z00_23;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14992;
																																BgL_auxz00_14992
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5665z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5666z00zz__httpz00,
																																	BGl_string5667z00zz__httpz00,
																																	BgL_opt1470z00_23);
																																FAILURE
																																	(BgL_auxz00_14992,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_usernamez00_2536
																															=
																															VECTOR_REF
																															(BgL_auxz00_14989,
																															BgL_auxz00_14996);
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														BFALSE;
																													}
																											}
																										}
																										{	/* Unsafe/http.scm 106 */
																											obj_t BgL_argsz00_2585;

																											BgL_argsz00_2585 =
																												BgL_argsz00_2517;
																											{	/* Unsafe/http.scm 106 */
																												obj_t
																													BgL_authoriza7ationza7_2586;
																												BgL_authoriza7ationza7_2586
																													=
																													BgL_authoriza7ationza7_2518;
																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_bodyz00_2587;
																													BgL_bodyz00_2587 =
																														BgL_bodyz00_2519;
																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_connectionz00_2588;
																														BgL_connectionz00_2588
																															=
																															BgL_connectionz00_2520;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_contentzd2typezd2_2589;
																															BgL_contentzd2typezd2_2589
																																=
																																BgL_contentzd2typezd2_2521;
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_headerz00_2590;
																																BgL_headerz00_2590
																																	=
																																	BgL_headerz00_2522;
																																{	/* Unsafe/http.scm 106 */
																																	obj_t
																																		BgL_hostz00_2591;
																																	BgL_hostz00_2591
																																		=
																																		BgL_hostz00_2523;
																																	{	/* Unsafe/http.scm 106 */
																																		obj_t
																																			BgL_httpzd2versionzd2_2592;
																																		BgL_httpzd2versionzd2_2592
																																			=
																																			BgL_httpzd2versionzd2_2524;
																																		{	/* Unsafe/http.scm 106 */
																																			obj_t
																																				BgL_inz00_2593;
																																			BgL_inz00_2593
																																				=
																																				BgL_inz00_2525;
																																			{	/* Unsafe/http.scm 106 */
																																				obj_t
																																					BgL_loginz00_2594;
																																				BgL_loginz00_2594
																																					=
																																					BgL_loginz00_2526;
																																				{	/* Unsafe/http.scm 106 */
																																					obj_t
																																						BgL_methodz00_2595;
																																					BgL_methodz00_2595
																																						=
																																						BgL_methodz00_2527;
																																					{	/* Unsafe/http.scm 106 */
																																						obj_t
																																							BgL_outz00_2596;
																																						BgL_outz00_2596
																																							=
																																							BgL_outz00_2528;
																																						{	/* Unsafe/http.scm 106 */
																																							obj_t
																																								BgL_passwordz00_2597;
																																							BgL_passwordz00_2597
																																								=
																																								BgL_passwordz00_2529;
																																							{	/* Unsafe/http.scm 106 */
																																								obj_t
																																									BgL_pathz00_2598;
																																								BgL_pathz00_2598
																																									=
																																									BgL_pathz00_2530;
																																								{	/* Unsafe/http.scm 106 */
																																									obj_t
																																										BgL_portz00_2599;
																																									BgL_portz00_2599
																																										=
																																										BgL_portz00_2531;
																																									{	/* Unsafe/http.scm 106 */
																																										obj_t
																																											BgL_protocolz00_2600;
																																										BgL_protocolz00_2600
																																											=
																																											BgL_protocolz00_2532;
																																										{	/* Unsafe/http.scm 106 */
																																											obj_t
																																												BgL_proxyz00_2601;
																																											BgL_proxyz00_2601
																																												=
																																												BgL_proxyz00_2533;
																																											{	/* Unsafe/http.scm 106 */
																																												obj_t
																																													BgL_socketz00_2602;
																																												BgL_socketz00_2602
																																													=
																																													BgL_socketz00_2534;
																																												{	/* Unsafe/http.scm 106 */
																																													obj_t
																																														BgL_timeoutz00_2603;
																																													BgL_timeoutz00_2603
																																														=
																																														BgL_timeoutz00_2535;
																																													return
																																														BGl_httpz00zz__httpz00
																																														(BgL_argsz00_2585,
																																														BgL_authoriza7ationza7_2586,
																																														BgL_bodyz00_2587,
																																														BgL_connectionz00_2588,
																																														BgL_contentzd2typezd2_2589,
																																														BgL_headerz00_2590,
																																														BgL_hostz00_2591,
																																														BgL_httpzd2versionzd2_2592,
																																														BgL_inz00_2593,
																																														BgL_loginz00_2594,
																																														BgL_methodz00_2595,
																																														BgL_outz00_2596,
																																														BgL_passwordz00_2597,
																																														BgL_pathz00_2598,
																																														BgL_portz00_2599,
																																														BgL_protocolz00_2600,
																																														BgL_proxyz00_2601,
																																														BgL_socketz00_2602,
																																														BgL_timeoutz00_2603,
																																														BgL_usernamez00_2536);
																																												}
																																											}
																																										}
																																									}
																																								}
																																							}
																																						}
																																					}
																																				}
																																			}
																																		}
																																	}
																																}
																															}
																														}
																													}
																												}
																											}
																										}
																									}
																								}
																							}
																						}
																					}
																				}
																			}
																		}
																	}
																}
															}
														}
													}
												}
											}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* http */
	BGL_EXPORTED_DEF obj_t BGl_httpz00zz__httpz00(obj_t BgL_argsz00_3,
		obj_t BgL_authoriza7ationza7_4, obj_t BgL_bodyz00_5,
		obj_t BgL_connectionz00_6, obj_t BgL_contentzd2typezd2_7,
		obj_t BgL_headerz00_8, obj_t BgL_hostz00_9, obj_t BgL_httpzd2versionzd2_10,
		obj_t BgL_inz00_11, obj_t BgL_loginz00_12, obj_t BgL_methodz00_13,
		obj_t BgL_outz00_14, obj_t BgL_passwordz00_15, obj_t BgL_pathz00_16,
		obj_t BgL_portz00_17, obj_t BgL_protocolz00_18, obj_t BgL_proxyz00_19,
		obj_t BgL_socketz00_20, obj_t BgL_timeoutz00_21, obj_t BgL_usernamez00_22)
	{
		{	/* Unsafe/http.scm 106 */
			if (CBOOL(BgL_socketz00_20))
				{	/* Unsafe/http.scm 125 */
					BgL_inz00_11 = SOCKET_INPUT(BgL_socketz00_20);
					BgL_outz00_14 = SOCKET_OUTPUT(BgL_socketz00_20);
				}
			else
				{	/* Unsafe/http.scm 128 */
					bool_t BgL_test6322z00_15011;

					if (CBOOL(BgL_inz00_11))
						{	/* Unsafe/http.scm 128 */
							BgL_test6322z00_15011 = ((bool_t) 0);
						}
					else
						{	/* Unsafe/http.scm 128 */
							if (CBOOL(BgL_outz00_14))
								{	/* Unsafe/http.scm 128 */
									BgL_test6322z00_15011 = ((bool_t) 0);
								}
							else
								{	/* Unsafe/http.scm 128 */
									BgL_test6322z00_15011 = ((bool_t) 1);
								}
						}
					if (BgL_test6322z00_15011)
						{	/* Unsafe/http.scm 128 */
							{	/* Unsafe/http.scm 129 */
								bool_t BgL_test6325z00_15016;

								if (CBOOL(BgL_hostz00_9))
									{	/* Unsafe/http.scm 129 */
										BgL_test6325z00_15016 = CBOOL(BgL_portz00_17);
									}
								else
									{	/* Unsafe/http.scm 129 */
										BgL_test6325z00_15016 = ((bool_t) 0);
									}
								if (BgL_test6325z00_15016)
									{	/* Unsafe/http.scm 129 */
										BFALSE;
									}
								else
									{	/* Unsafe/http.scm 129 */
										BGl_errorz00zz__errorz00(BGl_string5679z00zz__httpz00,
											BGl_string5724z00zz__httpz00, BgL_hostz00_9);
									}
							}
							BgL_socketz00_20 =
								BGl_makezd2httpzd2socketz00zz__httpz00(BgL_hostz00_9,
								BgL_portz00_17, BgL_proxyz00_19, BgL_timeoutz00_21);
							BgL_inz00_11 = SOCKET_INPUT(BgL_socketz00_20);
							BgL_outz00_14 = SOCKET_OUTPUT(BgL_socketz00_20);
						}
					else
						{	/* Unsafe/http.scm 128 */
							if (CBOOL(BgL_inz00_11))
								{	/* Unsafe/http.scm 134 */
									if (CBOOL(BgL_outz00_14))
										{	/* Unsafe/http.scm 136 */
											BFALSE;
										}
									else
										{	/* Unsafe/http.scm 136 */
											BGl_errorz00zz__errorz00(BGl_string5679z00zz__httpz00,
												BGl_string5725z00zz__httpz00, BgL_outz00_14);
										}
								}
							else
								{	/* Unsafe/http.scm 134 */
									BGl_errorz00zz__errorz00(BGl_string5679z00zz__httpz00,
										BGl_string5726z00zz__httpz00, BgL_inz00_11);
								}
						}
				}
			if (STRINGP(BgL_proxyz00_19))
				{	/* Unsafe/http.scm 140 */
					obj_t BgL_outz00_9599;

					BgL_outz00_9599 = BgL_outz00_14;
					{	/* Unsafe/http.scm 302 */
						obj_t BgL_arg2379z00_9600;

						{	/* Unsafe/http.scm 302 */
							obj_t BgL_arg2380z00_9601;

							BgL_arg2380z00_9601 =
								SYMBOL_TO_STRING(((obj_t) BgL_methodz00_13));
							BgL_arg2379z00_9600 =
								BGl_stringzd2upcasezd2zz__r4_strings_6_7z00
								(BgL_arg2380z00_9601);
						}
						bgl_display_obj(BgL_arg2379z00_9600, BgL_outz00_9599);
					}
					{	/* Unsafe/http.scm 303 */
						obj_t BgL_tmpz00_15036;

						BgL_tmpz00_15036 = ((obj_t) BgL_outz00_9599);
						bgl_display_string(BGl_string5727z00zz__httpz00, BgL_tmpz00_15036);
					}
					bgl_display_obj(BgL_hostz00_9, BgL_outz00_9599);
					{	/* Unsafe/http.scm 303 */
						obj_t BgL_tmpz00_15040;

						BgL_tmpz00_15040 = ((obj_t) BgL_outz00_9599);
						bgl_display_string(BGl_string5728z00zz__httpz00, BgL_tmpz00_15040);
					}
					bgl_display_obj(BgL_portz00_17, BgL_outz00_9599);
					bgl_display_obj(BgL_pathz00_16, BgL_outz00_9599);
					{	/* Unsafe/http.scm 303 */
						obj_t BgL_tmpz00_15045;

						BgL_tmpz00_15045 = ((obj_t) BgL_outz00_9599);
						bgl_display_string(BGl_string5729z00zz__httpz00, BgL_tmpz00_15045);
					}
					bgl_display_obj(BgL_httpzd2versionzd2_10, BgL_outz00_9599);
					{	/* Unsafe/http.scm 303 */
						obj_t BgL_tmpz00_15049;

						BgL_tmpz00_15049 = ((obj_t) BgL_outz00_9599);
						bgl_display_string(BGl_string5730z00zz__httpz00, BgL_tmpz00_15049);
					}
				}
			else
				{	/* Unsafe/http.scm 141 */
					obj_t BgL_outz00_9611;

					BgL_outz00_9611 = BgL_outz00_14;
					{	/* Unsafe/http.scm 309 */
						obj_t BgL_arg2381z00_9612;

						{	/* Unsafe/http.scm 309 */
							obj_t BgL_arg2382z00_9613;

							BgL_arg2382z00_9613 =
								SYMBOL_TO_STRING(((obj_t) BgL_methodz00_13));
							BgL_arg2381z00_9612 =
								BGl_stringzd2upcasezd2zz__r4_strings_6_7z00
								(BgL_arg2382z00_9613);
						}
						bgl_display_obj(BgL_arg2381z00_9612, BgL_outz00_9611);
					}
					{	/* Unsafe/http.scm 310 */
						obj_t BgL_tmpz00_15056;

						BgL_tmpz00_15056 = ((obj_t) BgL_outz00_9611);
						bgl_display_string(BGl_string5729z00zz__httpz00, BgL_tmpz00_15056);
					}
					bgl_display_obj(BgL_pathz00_16, BgL_outz00_9611);
					{	/* Unsafe/http.scm 310 */
						obj_t BgL_tmpz00_15060;

						BgL_tmpz00_15060 = ((obj_t) BgL_outz00_9611);
						bgl_display_string(BGl_string5729z00zz__httpz00, BgL_tmpz00_15060);
					}
					bgl_display_obj(BgL_httpzd2versionzd2_10, BgL_outz00_9611);
					{	/* Unsafe/http.scm 310 */
						obj_t BgL_tmpz00_15064;

						BgL_tmpz00_15064 = ((obj_t) BgL_outz00_9611);
						bgl_display_string(BGl_string5730z00zz__httpz00, BgL_tmpz00_15064);
					}
				}
			{	/* Unsafe/http.scm 143 */
				bool_t BgL_test6330z00_15067;

				{	/* Unsafe/http.scm 143 */
					bool_t BgL_test6331z00_15068;

					if (((long) CINT(BgL_portz00_17) == 80L))
						{	/* Unsafe/http.scm 143 */
							BgL_test6331z00_15068 =
								(BgL_protocolz00_18 == BGl_symbol5678z00zz__httpz00);
						}
					else
						{	/* Unsafe/http.scm 143 */
							BgL_test6331z00_15068 = ((bool_t) 0);
						}
					if (BgL_test6331z00_15068)
						{	/* Unsafe/http.scm 143 */
							BgL_test6330z00_15067 = ((bool_t) 1);
						}
					else
						{	/* Unsafe/http.scm 143 */
							if (((long) CINT(BgL_portz00_17) == 443L))
								{	/* Unsafe/http.scm 144 */
									BgL_test6330z00_15067 =
										(BgL_protocolz00_18 == BGl_symbol5731z00zz__httpz00);
								}
							else
								{	/* Unsafe/http.scm 144 */
									BgL_test6330z00_15067 = ((bool_t) 0);
								}
						}
				}
				if (BgL_test6330z00_15067)
					{	/* Unsafe/http.scm 143 */
						bgl_display_string(BGl_string5733z00zz__httpz00, BgL_outz00_14);
						bgl_display_obj(BgL_hostz00_9, BgL_outz00_14);
						bgl_display_string(BGl_string5730z00zz__httpz00, BgL_outz00_14);
					}
				else
					{	/* Unsafe/http.scm 143 */
						bgl_display_string(BGl_string5733z00zz__httpz00, BgL_outz00_14);
						bgl_display_obj(BgL_hostz00_9, BgL_outz00_14);
						bgl_display_string(BGl_string5728z00zz__httpz00, BgL_outz00_14);
						bgl_display_obj(BgL_portz00_17, BgL_outz00_14);
						bgl_display_string(BGl_string5730z00zz__httpz00, BgL_outz00_14);
					}
			}
			{
				obj_t BgL_l1398z00_2624;

				BgL_l1398z00_2624 = BgL_headerz00_8;
			BgL_zc3z04anonymousza32264ze3z87_2625:
				if (PAIRP(BgL_l1398z00_2624))
					{	/* Unsafe/http.scm 148 */
						{	/* Unsafe/http.scm 149 */
							obj_t BgL_hz00_2627;

							BgL_hz00_2627 = CAR(BgL_l1398z00_2624);
							{	/* Unsafe/http.scm 149 */
								obj_t BgL_arg2266z00_2628;

								{	/* Unsafe/http.scm 149 */
									obj_t BgL_arg2267z00_2629;

									BgL_arg2267z00_2629 = CAR(((obj_t) BgL_hz00_2627));
									{	/* Unsafe/http.scm 149 */
										obj_t BgL_arg5339z00_9636;

										BgL_arg5339z00_9636 =
											KEYWORD_TO_STRING(((obj_t) BgL_arg2267z00_2629));
										BgL_arg2266z00_2628 =
											BGl_stringzd2copyzd2zz__r4_strings_6_7z00
											(BgL_arg5339z00_9636);
									}
								}
								bgl_display_obj(BgL_arg2266z00_2628, BgL_outz00_14);
							}
							bgl_display_string(BGl_string5734z00zz__httpz00, BgL_outz00_14);
							{	/* Unsafe/http.scm 150 */
								obj_t BgL_arg2268z00_2630;

								{	/* Unsafe/http.scm 150 */
									bool_t BgL_test6335z00_15095;

									{	/* Unsafe/http.scm 150 */
										obj_t BgL_tmpz00_15096;

										BgL_tmpz00_15096 = CDR(((obj_t) BgL_hz00_2627));
										BgL_test6335z00_15095 = PAIRP(BgL_tmpz00_15096);
									}
									if (BgL_test6335z00_15095)
										{	/* Unsafe/http.scm 150 */
											obj_t BgL_pairz00_9643;

											BgL_pairz00_9643 = CDR(((obj_t) BgL_hz00_2627));
											BgL_arg2268z00_2630 = CAR(BgL_pairz00_9643);
										}
									else
										{	/* Unsafe/http.scm 150 */
											BgL_arg2268z00_2630 = CDR(((obj_t) BgL_hz00_2627));
										}
								}
								bgl_display_obj(BgL_arg2268z00_2630, BgL_outz00_14);
							}
							bgl_display_string(BGl_string5730z00zz__httpz00, BgL_outz00_14);
						}
						{
							obj_t BgL_l1398z00_15107;

							BgL_l1398z00_15107 = CDR(BgL_l1398z00_2624);
							BgL_l1398z00_2624 = BgL_l1398z00_15107;
							goto BgL_zc3z04anonymousza32264ze3z87_2625;
						}
					}
				else
					{	/* Unsafe/http.scm 148 */
						((bool_t) 1);
					}
			}
			if (STRINGP(BgL_loginz00_12))
				{	/* Unsafe/http.scm 156 */
					obj_t BgL_outz00_9648;

					BgL_outz00_9648 = BgL_outz00_14;
					{	/* Unsafe/http.scm 316 */
						obj_t BgL_uinfoz00_9649;

						BgL_uinfoz00_9649 =
							BGl_base64zd2encodezd2zz__base64z00(BgL_loginz00_12, BINT((-1L)));
						{	/* Unsafe/http.scm 317 */
							obj_t BgL_tmpz00_15113;

							BgL_tmpz00_15113 = ((obj_t) BgL_outz00_9648);
							bgl_display_string(BGl_string5735z00zz__httpz00,
								BgL_tmpz00_15113);
						}
						bgl_display_obj(BgL_uinfoz00_9649, BgL_outz00_9648);
						{	/* Unsafe/http.scm 317 */
							obj_t BgL_tmpz00_15117;

							BgL_tmpz00_15117 = ((obj_t) BgL_outz00_9648);
							bgl_display_string(BGl_string5730z00zz__httpz00,
								BgL_tmpz00_15117);
						}
					}
				}
			else
				{	/* Unsafe/http.scm 155 */
					if (STRINGP(BgL_authoriza7ationza7_4))
						{	/* Unsafe/http.scm 157 */
							bgl_display_string(BGl_string5736z00zz__httpz00, BgL_outz00_14);
							bgl_display_obj(BgL_authoriza7ationza7_4, BgL_outz00_14);
							bgl_display_string(BGl_string5730z00zz__httpz00, BgL_outz00_14);
						}
					else
						{	/* Unsafe/http.scm 159 */
							bool_t BgL_test6338z00_15125;

							if (STRINGP(BgL_usernamez00_22))
								{	/* Unsafe/http.scm 159 */
									BgL_test6338z00_15125 = STRINGP(BgL_passwordz00_15);
								}
							else
								{	/* Unsafe/http.scm 159 */
									BgL_test6338z00_15125 = ((bool_t) 0);
								}
							if (BgL_test6338z00_15125)
								{	/* Unsafe/http.scm 160 */
									obj_t BgL_arg2277z00_2640;

									BgL_arg2277z00_2640 =
										string_append_3(BgL_usernamez00_22,
										BGl_string5728z00zz__httpz00, BgL_passwordz00_15);
									{	/* Unsafe/http.scm 160 */
										obj_t BgL_outz00_9658;

										BgL_outz00_9658 = BgL_outz00_14;
										{	/* Unsafe/http.scm 316 */
											obj_t BgL_uinfoz00_9659;

											BgL_uinfoz00_9659 =
												BGl_base64zd2encodezd2zz__base64z00(BgL_arg2277z00_2640,
												BINT((-1L)));
											{	/* Unsafe/http.scm 317 */
												obj_t BgL_tmpz00_15132;

												BgL_tmpz00_15132 = ((obj_t) BgL_outz00_9658);
												bgl_display_string(BGl_string5735z00zz__httpz00,
													BgL_tmpz00_15132);
											}
											bgl_display_obj(BgL_uinfoz00_9659, BgL_outz00_9658);
											{	/* Unsafe/http.scm 317 */
												obj_t BgL_tmpz00_15136;

												BgL_tmpz00_15136 = ((obj_t) BgL_outz00_9658);
												bgl_display_string(BGl_string5730z00zz__httpz00,
													BgL_tmpz00_15136);
											}
										}
									}
								}
							else
								{	/* Unsafe/http.scm 159 */
									BFALSE;
								}
						}
				}
			if (STRINGP(BgL_connectionz00_6))
				{	/* Unsafe/http.scm 162 */
					bgl_display_string(BGl_string5737z00zz__httpz00, BgL_outz00_14);
					bgl_display_obj(BgL_connectionz00_6, BgL_outz00_14);
					bgl_display_string(BGl_string5730z00zz__httpz00, BgL_outz00_14);
				}
			else
				{	/* Unsafe/http.scm 162 */
					BFALSE;
				}
			{	/* Unsafe/http.scm 165 */
				bool_t BgL_test6341z00_15144;

				{	/* Unsafe/http.scm 165 */
					bool_t BgL_test6342z00_15145;

					if ((BgL_methodz00_13 == BGl_symbol5738z00zz__httpz00))
						{	/* Unsafe/http.scm 165 */
							BgL_test6342z00_15145 = ((bool_t) 1);
						}
					else
						{	/* Unsafe/http.scm 165 */
							BgL_test6342z00_15145 =
								(BgL_methodz00_13 == BGl_symbol5740z00zz__httpz00);
						}
					if (BgL_test6342z00_15145)
						{	/* Unsafe/http.scm 166 */
							bool_t BgL__ortest_1080z00_2688;

							BgL__ortest_1080z00_2688 =
								(BgL_contentzd2typezd2_7 == BGl_symbol5742z00zz__httpz00);
							if (BgL__ortest_1080z00_2688)
								{	/* Unsafe/http.scm 166 */
									BgL_test6341z00_15144 = BgL__ortest_1080z00_2688;
								}
							else
								{	/* Unsafe/http.scm 166 */
									BgL_test6341z00_15144 = PAIRP(BgL_argsz00_3);
								}
						}
					else
						{	/* Unsafe/http.scm 165 */
							BgL_test6341z00_15144 = ((bool_t) 0);
						}
				}
				if (BgL_test6341z00_15144)
					{	/* Unsafe/http.scm 165 */
						if ((BgL_contentzd2typezd2_7 == BGl_symbol5742z00zz__httpz00))
							{	/* Unsafe/http.scm 171 */
								obj_t BgL_boundaryz00_2646;

								BgL_boundaryz00_2646 =
									BGl_generatezd2httpzd2boundaryz00zz__httpz00();
								{	/* Unsafe/http.scm 171 */
									obj_t BgL_contentz00_2647;

									BgL_contentz00_2647 =
										BGl_makezd2httpzd2postzd2bodyzd2zz__httpz00
										(BgL_boundaryz00_2646, BgL_argsz00_3);
									{	/* Unsafe/http.scm 172 */
										obj_t BgL_contentzd2lengthzd2_2648;

										{	/* Unsafe/http.scm 173 */
											obj_t BgL_runner2296z00_2674;

											if (NULLP(BgL_contentz00_2647))
												{	/* Unsafe/http.scm 173 */
													BgL_runner2296z00_2674 = BNIL;
												}
											else
												{	/* Unsafe/http.scm 173 */
													obj_t BgL_head1402z00_2660;

													{	/* Unsafe/http.scm 173 */
														long BgL_arg2294z00_2672;

														{	/* Unsafe/http.scm 173 */
															obj_t BgL_stringz00_9669;

															BgL_stringz00_9669 =
																CAR(((obj_t) BgL_contentz00_2647));
															BgL_arg2294z00_2672 =
																STRING_LENGTH(BgL_stringz00_9669);
														}
														BgL_head1402z00_2660 =
															MAKE_YOUNG_PAIR(BINT(BgL_arg2294z00_2672), BNIL);
													}
													{	/* Unsafe/http.scm 173 */
														obj_t BgL_g1405z00_2661;

														BgL_g1405z00_2661 =
															CDR(((obj_t) BgL_contentz00_2647));
														{
															obj_t BgL_l1400z00_9690;
															obj_t BgL_tail1403z00_9691;

															BgL_l1400z00_9690 = BgL_g1405z00_2661;
															BgL_tail1403z00_9691 = BgL_head1402z00_2660;
														BgL_zc3z04anonymousza32287ze3z87_9689:
															if (NULLP(BgL_l1400z00_9690))
																{	/* Unsafe/http.scm 173 */
																	BgL_runner2296z00_2674 = BgL_head1402z00_2660;
																}
															else
																{	/* Unsafe/http.scm 173 */
																	obj_t BgL_newtail1404z00_9698;

																	{	/* Unsafe/http.scm 173 */
																		long BgL_arg2290z00_9699;

																		{	/* Unsafe/http.scm 173 */
																			obj_t BgL_stringz00_9703;

																			BgL_stringz00_9703 =
																				CAR(((obj_t) BgL_l1400z00_9690));
																			BgL_arg2290z00_9699 =
																				STRING_LENGTH(BgL_stringz00_9703);
																		}
																		BgL_newtail1404z00_9698 =
																			MAKE_YOUNG_PAIR(BINT(BgL_arg2290z00_9699),
																			BNIL);
																	}
																	SET_CDR(BgL_tail1403z00_9691,
																		BgL_newtail1404z00_9698);
																	{	/* Unsafe/http.scm 173 */
																		obj_t BgL_arg2289z00_9701;

																		BgL_arg2289z00_9701 =
																			CDR(((obj_t) BgL_l1400z00_9690));
																		{
																			obj_t BgL_tail1403z00_15176;
																			obj_t BgL_l1400z00_15175;

																			BgL_l1400z00_15175 = BgL_arg2289z00_9701;
																			BgL_tail1403z00_15176 =
																				BgL_newtail1404z00_9698;
																			BgL_tail1403z00_9691 =
																				BgL_tail1403z00_15176;
																			BgL_l1400z00_9690 = BgL_l1400z00_15175;
																			goto
																				BgL_zc3z04anonymousza32287ze3z87_9689;
																		}
																	}
																}
														}
													}
												}
											BgL_contentzd2lengthzd2_2648 =
												BGl_zb2zb2zz__r4_numbers_6_5z00(BgL_runner2296z00_2674);
										}
										{	/* Unsafe/http.scm 173 */

											bgl_display_string(BGl_string5744z00zz__httpz00,
												BgL_outz00_14);
											bgl_display_obj(BgL_contentzd2lengthzd2_2648,
												BgL_outz00_14);
											bgl_display_string(BGl_string5730z00zz__httpz00,
												BgL_outz00_14);
											bgl_display_string(BGl_string5745z00zz__httpz00,
												BgL_outz00_14);
											{	/* Unsafe/http.scm 176 */
												obj_t BgL_arg2281z00_2649;

												BgL_arg2281z00_2649 =
													c_substring(BgL_boundaryz00_2646, 2L,
													STRING_LENGTH(BgL_boundaryz00_2646));
												bgl_display_obj(BgL_arg2281z00_2649, BgL_outz00_14);
											}
											bgl_display_string(BGl_string5730z00zz__httpz00,
												BgL_outz00_14);
											bgl_display_string(BGl_string5730z00zz__httpz00,
												BgL_outz00_14);
											{
												obj_t BgL_l1406z00_9734;

												{	/* Unsafe/http.scm 178 */
													bool_t BgL_tmpz00_15187;

													BgL_l1406z00_9734 = BgL_contentz00_2647;
												BgL_zc3z04anonymousza32283ze3z87_9733:
													if (PAIRP(BgL_l1406z00_9734))
														{	/* Unsafe/http.scm 178 */
															{	/* Unsafe/http.scm 178 */
																obj_t BgL_oz00_9739;

																BgL_oz00_9739 = CAR(BgL_l1406z00_9734);
																{	/* Unsafe/http.scm 178 */
																	obj_t BgL_portz00_9743;

																	BgL_portz00_9743 = BgL_outz00_14;
																	{	/* Unsafe/http.scm 178 */
																		obj_t BgL_tmpz00_15191;

																		BgL_tmpz00_15191 = ((obj_t) BgL_oz00_9739);
																		bgl_display_string(BgL_tmpz00_15191,
																			BgL_portz00_9743);
																	}
																}
															}
															{
																obj_t BgL_l1406z00_15194;

																BgL_l1406z00_15194 = CDR(BgL_l1406z00_9734);
																BgL_l1406z00_9734 = BgL_l1406z00_15194;
																goto BgL_zc3z04anonymousza32283ze3z87_9733;
															}
														}
													else
														{	/* Unsafe/http.scm 178 */
															BgL_tmpz00_15187 = ((bool_t) 1);
														}
													BBOOL(BgL_tmpz00_15187);
												}
											}
										}
									}
								}
							}
						else
							{	/* Unsafe/http.scm 180 */
								obj_t BgL_contentz00_2675;
								obj_t BgL_ctz00_2676;

								BgL_contentz00_2675 =
									BGl_xzd2wwwzd2formzd2urlencodezd2zz__urlz00(BgL_argsz00_3);
								if (CBOOL(BgL_contentzd2typezd2_7))
									{	/* Unsafe/http.scm 181 */
										BgL_ctz00_2676 = BgL_contentzd2typezd2_7;
									}
								else
									{	/* Unsafe/http.scm 181 */
										BgL_ctz00_2676 = BGl_string5746z00zz__httpz00;
									}
								bgl_display_string(BGl_string5747z00zz__httpz00, BgL_outz00_14);
								bgl_display_obj(BgL_ctz00_2676, BgL_outz00_14);
								bgl_display_string(BGl_string5730z00zz__httpz00, BgL_outz00_14);
								bgl_display_string(BGl_string5744z00zz__httpz00, BgL_outz00_14);
								{	/* Unsafe/http.scm 183 */
									long BgL_arg2297z00_2677;

									BgL_arg2297z00_2677 = STRING_LENGTH(BgL_contentz00_2675);
									bgl_display_obj(BINT(BgL_arg2297z00_2677), BgL_outz00_14);
								}
								bgl_display_string(BGl_string5730z00zz__httpz00, BgL_outz00_14);
								bgl_display_string(BGl_string5730z00zz__httpz00, BgL_outz00_14);
								bgl_display_obj(BgL_contentz00_2675, BgL_outz00_14);
								bgl_display_string(BGl_string5730z00zz__httpz00, BgL_outz00_14);
					}}
				else
					{	/* Unsafe/http.scm 165 */
						if (STRINGP(BgL_bodyz00_5))
							{	/* Unsafe/http.scm 187 */
								bgl_display_string(BGl_string5744z00zz__httpz00, BgL_outz00_14);
								{	/* Unsafe/http.scm 189 */
									long BgL_arg2299z00_2680;

									BgL_arg2299z00_2680 = STRING_LENGTH(BgL_bodyz00_5);
									bgl_display_obj(BINT(BgL_arg2299z00_2680), BgL_outz00_14);
								}
								bgl_display_string(BGl_string5730z00zz__httpz00, BgL_outz00_14);
								bgl_display_string(BGl_string5730z00zz__httpz00, BgL_outz00_14);
								bgl_display_obj(BgL_bodyz00_5, BgL_outz00_14);
							}
						else
							{	/* Unsafe/http.scm 187 */
								if (INPUT_PORTP(BgL_bodyz00_5))
									{	/* Unsafe/http.scm 192 */
										bgl_display_string(BGl_string5730z00zz__httpz00,
											BgL_outz00_14);
										{	/* Unsafe/http.scm 195 */
											obj_t BgL_g2302z00_2683;

											BgL_g2302z00_2683 = BgL_outz00_14;
											{	/* Ieee/input.scm 85 */

												BINT(BGl_sendzd2charszd2zz__r4_input_6_10_2z00
													(BgL_bodyz00_5, BgL_g2302z00_2683, BINT((-1L)),
														BINT((-1L))));
											}
										}
									}
								else
									{	/* Unsafe/http.scm 192 */
										if (PROCEDUREP(BgL_bodyz00_5))
											{	/* Unsafe/http.scm 196 */
												bgl_display_string(BGl_string5730z00zz__httpz00,
													BgL_outz00_14);
												BGL_PROCEDURE_CALL1(BgL_bodyz00_5, BgL_outz00_14);
											}
										else
											{	/* Unsafe/http.scm 196 */
												bgl_display_string(BGl_string5730z00zz__httpz00,
													BgL_outz00_14);
											}
									}
							}
					}
			}
			bgl_flush_output_port(BgL_outz00_14);
			return BgL_socketz00_20;
		}

	}



/* make-http-socket */
	obj_t BGl_makezd2httpzd2socketz00zz__httpz00(obj_t BgL_hostz00_25,
		obj_t BgL_portz00_26, obj_t BgL_proxyz00_27, obj_t BgL_timeoutz00_28)
	{
		{	/* Unsafe/http.scm 208 */
			if (STRINGP(BgL_proxyz00_27))
				{	/* Unsafe/http.scm 210 */
					obj_t BgL_iz00_2690;

					{	/* Ieee/string.scm 223 */

						BgL_iz00_2690 =
							BGl_stringzd2indexzd2zz__r4_strings_6_7z00(BgL_proxyz00_27,
							BCHAR(((unsigned char) ':')), BINT(0L));
					}
					if (CBOOL(BgL_iz00_2690))
						{	/* Unsafe/http.scm 211 */
							BgL_hostz00_25 =
								c_substring(BgL_proxyz00_27, 0L, (long) CINT(BgL_iz00_2690));
							{	/* Unsafe/http.scm 215 */
								obj_t BgL_arg2306z00_2691;

								BgL_arg2306z00_2691 =
									c_substring(BgL_proxyz00_27,
									((long) CINT(BgL_iz00_2690) + 1L),
									STRING_LENGTH(BgL_proxyz00_27));
								{	/* Unsafe/http.scm 214 */
									long BgL_tmpz00_15249;

									{	/* Unsafe/http.scm 214 */
										char *BgL_tmpz00_15250;

										BgL_tmpz00_15250 = BSTRING_TO_STRING(BgL_arg2306z00_2691);
										BgL_tmpz00_15249 = BGL_STRTOL(BgL_tmpz00_15250, 0L, 10L);
									}
									BgL_portz00_26 = BINT(BgL_tmpz00_15249);
						}}}
					else
						{	/* Unsafe/http.scm 211 */
							BgL_hostz00_25 = BgL_proxyz00_27;
							BgL_portz00_26 = BINT(80L);
						}
				}
			else
				{	/* Unsafe/http.scm 209 */
					BFALSE;
				}
			if (STRINGP(BgL_hostz00_25))
				{	/* Unsafe/http.scm 220 */
					if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_portz00_26))
						{	/* Unsafe/http.scm 225 */
							obj_t BgL_sz00_2699;

							{	/* Unsafe/http.scm 225 */
								obj_t BgL_domainz00_2700;

								BgL_domainz00_2700 = BGl_symbol5748z00zz__httpz00;
								BgL_sz00_2699 =
									BGl_makezd2clientzd2socketz00zz__socketz00(BgL_hostz00_25,
									CINT(BgL_portz00_26), BgL_domainz00_2700, BTRUE, BTRUE,
									BgL_timeoutz00_28);
							}
							return BgL_sz00_2699;
						}
					else
						{	/* Unsafe/http.scm 222 */
							return
								BGl_bigloozd2typezd2errorz00zz__errorz00
								(BGl_symbol5678z00zz__httpz00, BGl_string5750z00zz__httpz00,
								BgL_portz00_26);
						}
				}
			else
				{	/* Unsafe/http.scm 220 */
					return
						BGl_bigloozd2typezd2errorz00zz__errorz00
						(BGl_symbol5678z00zz__httpz00, BGl_string5751z00zz__httpz00,
						BgL_hostz00_25);
				}
		}

	}



/* make-http-post-body */
	obj_t BGl_makezd2httpzd2postzd2bodyzd2zz__httpz00(obj_t BgL_boundaryz00_31,
		obj_t BgL_argsz00_32)
	{
		{	/* Unsafe/http.scm 258 */
			if (NULLP(BgL_argsz00_32))
				{	/* Unsafe/http.scm 265 */
					return BGl_list5752z00zz__httpz00;
				}
			else
				{	/* Unsafe/http.scm 265 */
					BGL_TAIL return
						BGl_loopze70ze7zz__httpz00(BgL_boundaryz00_31, BgL_argsz00_32);
				}
		}

	}



/* loop~0 */
	obj_t BGl_loopze70ze7zz__httpz00(obj_t BgL_boundaryz00_12543,
		obj_t BgL_argsz00_2728)
	{
		{	/* Unsafe/http.scm 267 */
			if (NULLP(BgL_argsz00_2728))
				{	/* Unsafe/http.scm 269 */
					obj_t BgL_list2335z00_2731;

					{	/* Unsafe/http.scm 269 */
						obj_t BgL_arg2337z00_2732;

						{	/* Unsafe/http.scm 269 */
							obj_t BgL_arg2338z00_2733;

							BgL_arg2338z00_2733 =
								MAKE_YOUNG_PAIR(BGl_string5730z00zz__httpz00, BNIL);
							BgL_arg2337z00_2732 =
								MAKE_YOUNG_PAIR(BGl_string5753z00zz__httpz00,
								BgL_arg2338z00_2733);
						}
						BgL_list2335z00_2731 =
							MAKE_YOUNG_PAIR(BgL_boundaryz00_12543, BgL_arg2337z00_2732);
					}
					return BgL_list2335z00_2731;
				}
			else
				{	/* Unsafe/http.scm 270 */
					obj_t BgL_az00_2734;

					BgL_az00_2734 = CAR(((obj_t) BgL_argsz00_2728));
					{	/* Unsafe/http.scm 270 */
						obj_t BgL_bodyz00_2735;

						{	/* Unsafe/http.scm 271 */
							obj_t BgL_arg2364z00_2756;
							obj_t BgL_arg2365z00_2757;

							{	/* Unsafe/http.scm 271 */
								obj_t BgL_arg2366z00_2758;

								{	/* Unsafe/http.scm 271 */
									obj_t BgL_pairz00_9788;

									BgL_pairz00_9788 = CDR(((obj_t) BgL_az00_2734));
									BgL_arg2366z00_2758 = CAR(BgL_pairz00_9788);
								}
								if (STRINGP(BgL_arg2366z00_2758))
									{	/* Unsafe/http.scm 261 */
										BgL_arg2364z00_2756 = BgL_arg2366z00_2758;
									}
								else
									{	/* Unsafe/http.scm 263 */
										obj_t BgL_zc3z04anonymousza32373ze3z87_12400;

										BgL_zc3z04anonymousza32373ze3z87_12400 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32373ze3ze5zz__httpz00,
											(int) (1L), (int) (1L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32373ze3z87_12400,
											(int) (0L), BgL_arg2366z00_2758);
										BgL_arg2364z00_2756 =
											BGl_callzd2withzd2outputzd2stringzd2zz__r4_ports_6_10_1z00
											(BgL_zc3z04anonymousza32373ze3z87_12400);
							}}
							{	/* Unsafe/http.scm 272 */
								obj_t BgL_arg2367z00_2759;

								{	/* Unsafe/http.scm 272 */
									obj_t BgL_arg2368z00_2760;

									BgL_arg2368z00_2760 = CDR(((obj_t) BgL_argsz00_2728));
									BgL_arg2367z00_2759 =
										BGl_loopze70ze7zz__httpz00(BgL_boundaryz00_12543,
										BgL_arg2368z00_2760);
								}
								BgL_arg2365z00_2757 =
									MAKE_YOUNG_PAIR(BGl_string5730z00zz__httpz00,
									BgL_arg2367z00_2759);
							}
							BgL_bodyz00_2735 =
								MAKE_YOUNG_PAIR(BgL_arg2364z00_2756, BgL_arg2365z00_2757);
						}
						{	/* Unsafe/http.scm 271 */
							obj_t BgL_hdz00_2736;

							{	/* Unsafe/http.scm 273 */
								bool_t BgL_test6360z00_15289;

								{	/* Unsafe/http.scm 273 */
									obj_t BgL_tmpz00_15290;

									{	/* Unsafe/http.scm 273 */
										obj_t BgL_pairz00_9796;

										BgL_pairz00_9796 = CDR(((obj_t) BgL_az00_2734));
										BgL_tmpz00_15290 = CDR(BgL_pairz00_9796);
									}
									BgL_test6360z00_15289 = PAIRP(BgL_tmpz00_15290);
								}
								if (BgL_test6360z00_15289)
									{	/* Unsafe/http.scm 274 */
										obj_t BgL_arg2360z00_2753;
										obj_t BgL_arg2362z00_2754;

										{	/* Unsafe/http.scm 274 */
											obj_t BgL_pairz00_9802;

											{	/* Unsafe/http.scm 274 */
												obj_t BgL_pairz00_9801;

												BgL_pairz00_9801 = CDR(((obj_t) BgL_az00_2734));
												BgL_pairz00_9802 = CDR(BgL_pairz00_9801);
											}
											BgL_arg2360z00_2753 = CAR(BgL_pairz00_9802);
										}
										BgL_arg2362z00_2754 =
											MAKE_YOUNG_PAIR(BGl_string5754z00zz__httpz00,
											BgL_bodyz00_2735);
										BgL_hdz00_2736 =
											MAKE_YOUNG_PAIR(BgL_arg2360z00_2753, BgL_arg2362z00_2754);
									}
								else
									{	/* Unsafe/http.scm 273 */
										BgL_hdz00_2736 =
											MAKE_YOUNG_PAIR(BGl_string5730z00zz__httpz00,
											BgL_bodyz00_2735);
									}
							}
							{	/* Unsafe/http.scm 273 */
								obj_t BgL_dispz00_2737;

								{	/* Unsafe/http.scm 276 */
									bool_t BgL_test6361z00_15302;

									{	/* Unsafe/http.scm 276 */
										obj_t BgL_tmpz00_15303;

										BgL_tmpz00_15303 = CAR(((obj_t) BgL_az00_2734));
										BgL_test6361z00_15302 = PAIRP(BgL_tmpz00_15303);
									}
									if (BgL_test6361z00_15302)
										{	/* Unsafe/http.scm 278 */
											obj_t BgL_arg2343z00_2741;

											{	/* Unsafe/http.scm 278 */
												obj_t BgL_arg2345z00_2742;
												obj_t BgL_arg2346z00_2743;

												{	/* Unsafe/http.scm 278 */
													obj_t BgL_pairz00_9807;

													BgL_pairz00_9807 = CAR(((obj_t) BgL_az00_2734));
													BgL_arg2345z00_2742 = CAR(BgL_pairz00_9807);
												}
												{	/* Unsafe/http.scm 278 */
													obj_t BgL_arg2347z00_2744;

													{	/* Unsafe/http.scm 278 */
														obj_t BgL_arg2349z00_2745;
														obj_t BgL_arg2350z00_2746;

														{	/* Unsafe/http.scm 278 */
															obj_t BgL_pairz00_9813;

															{	/* Unsafe/http.scm 278 */
																obj_t BgL_pairz00_9812;

																BgL_pairz00_9812 = CAR(((obj_t) BgL_az00_2734));
																BgL_pairz00_9813 = CDR(BgL_pairz00_9812);
															}
															BgL_arg2349z00_2745 = CAR(BgL_pairz00_9813);
														}
														BgL_arg2350z00_2746 =
															MAKE_YOUNG_PAIR(BGl_string5730z00zz__httpz00,
															BgL_hdz00_2736);
														BgL_arg2347z00_2744 =
															MAKE_YOUNG_PAIR(BgL_arg2349z00_2745,
															BgL_arg2350z00_2746);
													}
													BgL_arg2346z00_2743 =
														MAKE_YOUNG_PAIR(BGl_string5755z00zz__httpz00,
														BgL_arg2347z00_2744);
												}
												BgL_arg2343z00_2741 =
													MAKE_YOUNG_PAIR(BgL_arg2345z00_2742,
													BgL_arg2346z00_2743);
											}
											BgL_dispz00_2737 =
												MAKE_YOUNG_PAIR(BGl_string5756z00zz__httpz00,
												BgL_arg2343z00_2741);
										}
									else
										{	/* Unsafe/http.scm 281 */
											obj_t BgL_arg2351z00_2747;

											{	/* Unsafe/http.scm 281 */
												obj_t BgL_arg2353z00_2748;
												obj_t BgL_arg2354z00_2749;

												BgL_arg2353z00_2748 = CAR(((obj_t) BgL_az00_2734));
												BgL_arg2354z00_2749 =
													MAKE_YOUNG_PAIR(BGl_string5757z00zz__httpz00,
													BgL_hdz00_2736);
												BgL_arg2351z00_2747 =
													MAKE_YOUNG_PAIR(BgL_arg2353z00_2748,
													BgL_arg2354z00_2749);
											}
											BgL_dispz00_2737 =
												MAKE_YOUNG_PAIR(BGl_string5756z00zz__httpz00,
												BgL_arg2351z00_2747);
										}
								}
								{	/* Unsafe/http.scm 276 */

									{	/* Unsafe/http.scm 283 */
										obj_t BgL_arg2339z00_2738;

										BgL_arg2339z00_2738 =
											MAKE_YOUNG_PAIR(BGl_string5730z00zz__httpz00,
											BgL_dispz00_2737);
										return MAKE_YOUNG_PAIR(BgL_boundaryz00_12543,
											BgL_arg2339z00_2738);
									}
								}
							}
						}
					}
				}
		}

	}



/* &<@anonymous:2373> */
	obj_t BGl_z62zc3z04anonymousza32373ze3ze5zz__httpz00(obj_t BgL_envz00_12401,
		obj_t BgL_pz00_12403)
	{
		{	/* Unsafe/http.scm 263 */
			return
				bgl_display_obj(PROCEDURE_REF(BgL_envz00_12401,
					(int) (0L)), BgL_pz00_12403);
		}

	}



/* generate-http-boundary */
	obj_t BGl_generatezd2httpzd2boundaryz00zz__httpz00(void)
	{
		{	/* Unsafe/http.scm 288 */
			{	/* Unsafe/http.scm 289 */
				obj_t BgL_sz00_2770;

				BgL_sz00_2770 = make_string(22L, ((unsigned char) '-'));
				{
					long BgL_iz00_9825;

					BgL_iz00_9825 = 2L;
				BgL_loopz00_9824:
					if ((BgL_iz00_9825 < 22L))
						{	/* Unsafe/http.scm 293 */
							long BgL_numz00_9828;

							{	/* Unsafe/http.scm 293 */
								int BgL_arg5353z00_9830;

								BgL_arg5353z00_9830 = rand();
								BgL_numz00_9828 =
									BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(
									(long) (BgL_arg5353z00_9830), 16L);
							}
							{	/* Unsafe/http.scm 294 */
								unsigned char BgL_tmpz00_15335;

								BgL_tmpz00_15335 =
									STRING_REF(BGl_string5758z00zz__httpz00, BgL_numz00_9828);
								STRING_SET(BgL_sz00_2770, BgL_iz00_9825, BgL_tmpz00_15335);
							}
							{
								long BgL_iz00_15338;

								BgL_iz00_15338 = (BgL_iz00_9825 + 1L);
								BgL_iz00_9825 = BgL_iz00_15338;
								goto BgL_loopz00_9824;
							}
						}
					else
						{	/* Unsafe/http.scm 292 */
							((bool_t) 0);
						}
				}
				return BgL_sz00_2770;
			}
		}

	}



/* http-parse-error-msg */
	obj_t BGl_httpzd2parsezd2errorzd2msgzd2zz__httpz00(obj_t BgL_cz00_47,
		obj_t BgL_portz00_48)
	{
		{	/* Unsafe/http.scm 322 */
			if (CHARP(BgL_cz00_47))
				{	/* Unsafe/http.scm 324 */
					obj_t BgL_linez00_2786;

					BgL_linez00_2786 =
						BGl_httpzd2readzd2linez00zz__httpz00(BgL_portz00_48);
					{	/* Unsafe/http.scm 326 */
						obj_t BgL_arg2384z00_2787;

						{	/* Unsafe/http.scm 326 */
							obj_t BgL_arg2385z00_2788;
							obj_t BgL_arg2387z00_2789;

							{	/* Unsafe/http.scm 326 */
								obj_t BgL_list2392z00_2794;

								BgL_list2392z00_2794 = MAKE_YOUNG_PAIR(BgL_cz00_47, BNIL);
								BgL_arg2385z00_2788 =
									BGl_listzd2ze3stringz31zz__r4_strings_6_7z00
									(BgL_list2392z00_2794);
							}
							if (STRINGP(BgL_linez00_2786))
								{	/* Unsafe/http.scm 326 */
									BgL_arg2387z00_2789 = BgL_linez00_2786;
								}
							else
								{	/* Unsafe/http.scm 326 */
									BgL_arg2387z00_2789 = BGl_string5759z00zz__httpz00;
								}
							{	/* Unsafe/http.scm 326 */
								obj_t BgL_list2388z00_2790;

								{	/* Unsafe/http.scm 326 */
									obj_t BgL_arg2389z00_2791;

									{	/* Unsafe/http.scm 326 */
										obj_t BgL_arg2390z00_2792;

										{	/* Unsafe/http.scm 326 */
											obj_t BgL_arg2391z00_2793;

											BgL_arg2391z00_2793 =
												MAKE_YOUNG_PAIR(BgL_arg2387z00_2789, BNIL);
											BgL_arg2390z00_2792 =
												MAKE_YOUNG_PAIR(BGl_string5760z00zz__httpz00,
												BgL_arg2391z00_2793);
										}
										BgL_arg2389z00_2791 =
											MAKE_YOUNG_PAIR(BgL_arg2385z00_2788, BgL_arg2390z00_2792);
									}
									BgL_list2388z00_2790 =
										MAKE_YOUNG_PAIR(BGl_string5761z00zz__httpz00,
										BgL_arg2389z00_2791);
								}
								BgL_arg2384z00_2787 =
									BGl_stringzd2appendzd2zz__r4_strings_6_7z00
									(BgL_list2388z00_2790);
							}
						}
						return string_for_read(BgL_arg2384z00_2787);
					}
				}
			else
				{	/* Unsafe/http.scm 323 */
					return BgL_cz00_47;
				}
		}

	}



/* http-parse-status-line */
	BGL_EXPORTED_DEF obj_t BGl_httpzd2parsezd2statuszd2linezd2zz__httpz00(obj_t
		BgL_ipz00_49)
	{
		{	/* Unsafe/http.scm 364 */
			return
				BGl_z62zc3z04anonymousza31591ze3ze5zz__httpz00
				(BGl_statuszd2linezd2grammarz00zz__httpz00, BgL_ipz00_49);
		}

	}



/* &http-parse-status-line */
	obj_t BGl_z62httpzd2parsezd2statuszd2linezb0zz__httpz00(obj_t
		BgL_envz00_12404, obj_t BgL_ipz00_12405)
	{
		{	/* Unsafe/http.scm 364 */
			{	/* Unsafe/http.scm 365 */
				obj_t BgL_auxz00_15357;

				if (INPUT_PORTP(BgL_ipz00_12405))
					{	/* Unsafe/http.scm 365 */
						BgL_auxz00_15357 = BgL_ipz00_12405;
					}
				else
					{
						obj_t BgL_auxz00_15360;

						BgL_auxz00_15360 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5665z00zz__httpz00,
							BINT(13486L), BGl_string5762z00zz__httpz00,
							BGl_string5763z00zz__httpz00, BgL_ipz00_12405);
						FAILURE(BgL_auxz00_15360, BFALSE, BFALSE);
					}
				return BGl_httpzd2parsezd2statuszd2linezd2zz__httpz00(BgL_auxz00_15357);
			}
		}

	}



/* http-read-line */
	BGL_EXPORTED_DEF obj_t BGl_httpzd2readzd2linez00zz__httpz00(obj_t BgL_pz00_50)
	{
		{	/* Unsafe/http.scm 370 */
			{
				obj_t BgL_iportz00_2888;
				long BgL_lastzd2matchzd2_2889;
				long BgL_forwardz00_2890;
				long BgL_bufposz00_2891;
				obj_t BgL_iportz00_2853;
				long BgL_lastzd2matchzd2_2854;
				long BgL_forwardz00_2855;
				long BgL_bufposz00_2856;
				obj_t BgL_iportz00_2831;
				long BgL_lastzd2matchzd2_2832;
				long BgL_forwardz00_2833;
				long BgL_bufposz00_2834;

				RGC_START_MATCH(BgL_pz00_50);
				{	/* Unsafe/http.scm 371 */
					long BgL_matchz00_3023;

					{	/* Unsafe/http.scm 371 */
						long BgL_arg2547z00_3030;
						long BgL_arg2548z00_3031;

						BgL_arg2547z00_3030 = RGC_BUFFER_FORWARD(BgL_pz00_50);
						BgL_arg2548z00_3031 = RGC_BUFFER_BUFPOS(BgL_pz00_50);
						{
							long BgL_forwardz00_9947;
							long BgL_bufposz00_9948;

							BgL_forwardz00_9947 = BgL_arg2547z00_3030;
							BgL_bufposz00_9948 = BgL_arg2548z00_3031;
						BgL_statezd20zd21104z00_9946:
							if ((BgL_forwardz00_9947 == BgL_bufposz00_9948))
								{	/* Unsafe/http.scm 371 */
									if (rgc_fill_buffer(BgL_pz00_50))
										{	/* Unsafe/http.scm 371 */
											long BgL_arg2421z00_9954;
											long BgL_arg2424z00_9955;

											BgL_arg2421z00_9954 = RGC_BUFFER_FORWARD(BgL_pz00_50);
											BgL_arg2424z00_9955 = RGC_BUFFER_BUFPOS(BgL_pz00_50);
											{
												long BgL_bufposz00_15375;
												long BgL_forwardz00_15374;

												BgL_forwardz00_15374 = BgL_arg2421z00_9954;
												BgL_bufposz00_15375 = BgL_arg2424z00_9955;
												BgL_bufposz00_9948 = BgL_bufposz00_15375;
												BgL_forwardz00_9947 = BgL_forwardz00_15374;
												goto BgL_statezd20zd21104z00_9946;
											}
										}
									else
										{	/* Unsafe/http.scm 371 */
											BgL_matchz00_3023 = 1L;
										}
								}
							else
								{	/* Unsafe/http.scm 371 */
									int BgL_curz00_9958;

									BgL_curz00_9958 =
										RGC_BUFFER_GET_CHAR(BgL_pz00_50, BgL_forwardz00_9947);
									{	/* Unsafe/http.scm 371 */

										if (((long) (BgL_curz00_9958) == 10L))
											{	/* Unsafe/http.scm 371 */
												long BgL_arg2427z00_9963;

												BgL_arg2427z00_9963 = (1L + BgL_forwardz00_9947);
												{	/* Unsafe/http.scm 371 */
													long BgL_newzd2matchzd2_9965;

													RGC_STOP_MATCH(BgL_pz00_50, BgL_arg2427z00_9963);
													BgL_newzd2matchzd2_9965 = 1L;
													BgL_matchz00_3023 = BgL_newzd2matchzd2_9965;
											}}
										else
											{	/* Unsafe/http.scm 371 */
												BgL_iportz00_2853 = BgL_pz00_50;
												BgL_lastzd2matchzd2_2854 = 1L;
												BgL_forwardz00_2855 = (1L + BgL_forwardz00_9947);
												BgL_bufposz00_2856 = BgL_bufposz00_9948;
											BgL_zc3z04anonymousza32406ze3z87_2857:
												{	/* Unsafe/http.scm 371 */
													long BgL_newzd2matchzd2_2858;

													RGC_STOP_MATCH(BgL_iportz00_2853,
														BgL_forwardz00_2855);
													BgL_newzd2matchzd2_2858 = 0L;
													if ((BgL_forwardz00_2855 == BgL_bufposz00_2856))
														{	/* Unsafe/http.scm 371 */
															if (rgc_fill_buffer(BgL_iportz00_2853))
																{	/* Unsafe/http.scm 371 */
																	long BgL_arg2409z00_2861;
																	long BgL_arg2412z00_2862;

																	BgL_arg2409z00_2861 =
																		RGC_BUFFER_FORWARD(BgL_iportz00_2853);
																	BgL_arg2412z00_2862 =
																		RGC_BUFFER_BUFPOS(BgL_iportz00_2853);
																	{
																		long BgL_bufposz00_15390;
																		long BgL_forwardz00_15389;

																		BgL_forwardz00_15389 = BgL_arg2409z00_2861;
																		BgL_bufposz00_15390 = BgL_arg2412z00_2862;
																		BgL_bufposz00_2856 = BgL_bufposz00_15390;
																		BgL_forwardz00_2855 = BgL_forwardz00_15389;
																		goto BgL_zc3z04anonymousza32406ze3z87_2857;
																	}
																}
															else
																{	/* Unsafe/http.scm 371 */
																	BgL_matchz00_3023 = BgL_newzd2matchzd2_2858;
																}
														}
													else
														{	/* Unsafe/http.scm 371 */
															int BgL_curz00_2863;

															BgL_curz00_2863 =
																RGC_BUFFER_GET_CHAR(BgL_iportz00_2853,
																BgL_forwardz00_2855);
															{	/* Unsafe/http.scm 371 */

																if (((long) (BgL_curz00_2863) == 13L))
																	{	/* Unsafe/http.scm 371 */
																		BgL_iportz00_2831 = BgL_iportz00_2853;
																		BgL_lastzd2matchzd2_2832 =
																			BgL_newzd2matchzd2_2858;
																		BgL_forwardz00_2833 =
																			(1L + BgL_forwardz00_2855);
																		BgL_bufposz00_2834 = BgL_bufposz00_2856;
																	BgL_zc3z04anonymousza32394ze3z87_2835:
																		{	/* Unsafe/http.scm 371 */
																			long BgL_newzd2matchzd2_2836;

																			RGC_STOP_MATCH(BgL_iportz00_2831,
																				BgL_forwardz00_2833);
																			BgL_newzd2matchzd2_2836 = 0L;
																			if (
																				(BgL_forwardz00_2833 ==
																					BgL_bufposz00_2834))
																				{	/* Unsafe/http.scm 371 */
																					if (rgc_fill_buffer
																						(BgL_iportz00_2831))
																						{	/* Unsafe/http.scm 371 */
																							long BgL_arg2397z00_2839;
																							long BgL_arg2398z00_2840;

																							BgL_arg2397z00_2839 =
																								RGC_BUFFER_FORWARD
																								(BgL_iportz00_2831);
																							BgL_arg2398z00_2840 =
																								RGC_BUFFER_BUFPOS
																								(BgL_iportz00_2831);
																							{
																								long BgL_bufposz00_15403;
																								long BgL_forwardz00_15402;

																								BgL_forwardz00_15402 =
																									BgL_arg2397z00_2839;
																								BgL_bufposz00_15403 =
																									BgL_arg2398z00_2840;
																								BgL_bufposz00_2834 =
																									BgL_bufposz00_15403;
																								BgL_forwardz00_2833 =
																									BgL_forwardz00_15402;
																								goto
																									BgL_zc3z04anonymousza32394ze3z87_2835;
																							}
																						}
																					else
																						{	/* Unsafe/http.scm 371 */
																							BgL_matchz00_3023 =
																								BgL_newzd2matchzd2_2836;
																						}
																				}
																			else
																				{	/* Unsafe/http.scm 371 */
																					int BgL_curz00_2841;

																					BgL_curz00_2841 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_iportz00_2831,
																						BgL_forwardz00_2833);
																					{	/* Unsafe/http.scm 371 */

																						if (
																							((long) (BgL_curz00_2841) == 13L))
																							{
																								long BgL_forwardz00_15409;
																								long BgL_lastzd2matchzd2_15408;

																								BgL_lastzd2matchzd2_15408 =
																									BgL_newzd2matchzd2_2836;
																								BgL_forwardz00_15409 =
																									(1L + BgL_forwardz00_2833);
																								BgL_forwardz00_2833 =
																									BgL_forwardz00_15409;
																								BgL_lastzd2matchzd2_2832 =
																									BgL_lastzd2matchzd2_15408;
																								goto
																									BgL_zc3z04anonymousza32394ze3z87_2835;
																							}
																						else
																							{	/* Unsafe/http.scm 371 */
																								if (
																									((long) (BgL_curz00_2841) ==
																										10L))
																									{	/* Unsafe/http.scm 371 */
																										long BgL_arg2402z00_2845;

																										BgL_arg2402z00_2845 =
																											(1L +
																											BgL_forwardz00_2833);
																										{	/* Unsafe/http.scm 371 */
																											long
																												BgL_newzd2matchzd2_9878;
																											RGC_STOP_MATCH
																												(BgL_iportz00_2831,
																												BgL_arg2402z00_2845);
																											BgL_newzd2matchzd2_9878 =
																												0L;
																											BgL_matchz00_3023 =
																												BgL_newzd2matchzd2_9878;
																									}}
																								else
																									{	/* Unsafe/http.scm 371 */
																										BgL_iportz00_2888 =
																											BgL_iportz00_2831;
																										BgL_lastzd2matchzd2_2889 =
																											BgL_newzd2matchzd2_2836;
																										BgL_forwardz00_2890 =
																											(1L +
																											BgL_forwardz00_2833);
																										BgL_bufposz00_2891 =
																											BgL_bufposz00_2834;
																									BgL_zc3z04anonymousza32431ze3z87_2892:
																										{	/* Unsafe/http.scm 371 */
																											long
																												BgL_newzd2matchzd2_2893;
																											RGC_STOP_MATCH
																												(BgL_iportz00_2888,
																												BgL_forwardz00_2890);
																											BgL_newzd2matchzd2_2893 =
																												0L;
																											if ((BgL_forwardz00_2890
																													==
																													BgL_bufposz00_2891))
																												{	/* Unsafe/http.scm 371 */
																													if (rgc_fill_buffer
																														(BgL_iportz00_2888))
																														{	/* Unsafe/http.scm 371 */
																															long
																																BgL_arg2436z00_2896;
																															long
																																BgL_arg2437z00_2897;
																															BgL_arg2436z00_2896
																																=
																																RGC_BUFFER_FORWARD
																																(BgL_iportz00_2888);
																															BgL_arg2437z00_2897
																																=
																																RGC_BUFFER_BUFPOS
																																(BgL_iportz00_2888);
																															{
																																long
																																	BgL_bufposz00_15424;
																																long
																																	BgL_forwardz00_15423;
																																BgL_forwardz00_15423
																																	=
																																	BgL_arg2436z00_2896;
																																BgL_bufposz00_15424
																																	=
																																	BgL_arg2437z00_2897;
																																BgL_bufposz00_2891
																																	=
																																	BgL_bufposz00_15424;
																																BgL_forwardz00_2890
																																	=
																																	BgL_forwardz00_15423;
																																goto
																																	BgL_zc3z04anonymousza32431ze3z87_2892;
																															}
																														}
																													else
																														{	/* Unsafe/http.scm 371 */
																															BgL_matchz00_3023
																																=
																																BgL_newzd2matchzd2_2893;
																														}
																												}
																											else
																												{	/* Unsafe/http.scm 371 */
																													int BgL_curz00_2898;

																													BgL_curz00_2898 =
																														RGC_BUFFER_GET_CHAR
																														(BgL_iportz00_2888,
																														BgL_forwardz00_2890);
																													{	/* Unsafe/http.scm 371 */

																														if (
																															((long)
																																(BgL_curz00_2898)
																																== 13L))
																															{
																																long
																																	BgL_bufposz00_15433;
																																long
																																	BgL_forwardz00_15431;
																																long
																																	BgL_lastzd2matchzd2_15430;
																																obj_t
																																	BgL_iportz00_15429;
																																BgL_iportz00_15429
																																	=
																																	BgL_iportz00_2888;
																																BgL_lastzd2matchzd2_15430
																																	=
																																	BgL_newzd2matchzd2_2893;
																																BgL_forwardz00_15431
																																	=
																																	(1L +
																																	BgL_forwardz00_2890);
																																BgL_bufposz00_15433
																																	=
																																	BgL_bufposz00_2891;
																																BgL_bufposz00_2834
																																	=
																																	BgL_bufposz00_15433;
																																BgL_forwardz00_2833
																																	=
																																	BgL_forwardz00_15431;
																																BgL_lastzd2matchzd2_2832
																																	=
																																	BgL_lastzd2matchzd2_15430;
																																BgL_iportz00_2831
																																	=
																																	BgL_iportz00_15429;
																																goto
																																	BgL_zc3z04anonymousza32394ze3z87_2835;
																															}
																														else
																															{	/* Unsafe/http.scm 371 */
																																if (
																																	((long)
																																		(BgL_curz00_2898)
																																		== 10L))
																																	{	/* Unsafe/http.scm 371 */
																																		long
																																			BgL_arg2442z00_2902;
																																		BgL_arg2442z00_2902
																																			=
																																			(1L +
																																			BgL_forwardz00_2890);
																																		{	/* Unsafe/http.scm 371 */
																																			long
																																				BgL_newzd2matchzd2_9931;
																																			RGC_STOP_MATCH
																																				(BgL_iportz00_2888,
																																				BgL_arg2442z00_2902);
																																			BgL_newzd2matchzd2_9931
																																				= 0L;
																																			BgL_matchz00_3023
																																				=
																																				BgL_newzd2matchzd2_9931;
																																	}}
																																else
																																	{
																																		long
																																			BgL_forwardz00_15440;
																																		long
																																			BgL_lastzd2matchzd2_15439;
																																		BgL_lastzd2matchzd2_15439
																																			=
																																			BgL_newzd2matchzd2_2893;
																																		BgL_forwardz00_15440
																																			=
																																			(1L +
																																			BgL_forwardz00_2890);
																																		BgL_forwardz00_2890
																																			=
																																			BgL_forwardz00_15440;
																																		BgL_lastzd2matchzd2_2889
																																			=
																																			BgL_lastzd2matchzd2_15439;
																																		goto
																																			BgL_zc3z04anonymousza32431ze3z87_2892;
																																	}
																															}
																													}
																												}
																										}
																									}
																							}
																					}
																				}
																		}
																	}
																else
																	{	/* Unsafe/http.scm 371 */
																		if (((long) (BgL_curz00_2863) == 10L))
																			{	/* Unsafe/http.scm 371 */
																				long BgL_arg2416z00_2867;

																				BgL_arg2416z00_2867 =
																					(1L + BgL_forwardz00_2855);
																				{	/* Unsafe/http.scm 371 */
																					long BgL_newzd2matchzd2_9898;

																					RGC_STOP_MATCH(BgL_iportz00_2853,
																						BgL_arg2416z00_2867);
																					BgL_newzd2matchzd2_9898 = 0L;
																					BgL_matchz00_3023 =
																						BgL_newzd2matchzd2_9898;
																			}}
																		else
																			{
																				long BgL_bufposz00_15453;
																				long BgL_forwardz00_15451;
																				long BgL_lastzd2matchzd2_15450;
																				obj_t BgL_iportz00_15449;

																				BgL_iportz00_15449 = BgL_iportz00_2853;
																				BgL_lastzd2matchzd2_15450 =
																					BgL_newzd2matchzd2_2858;
																				BgL_forwardz00_15451 =
																					(1L + BgL_forwardz00_2855);
																				BgL_bufposz00_15453 =
																					BgL_bufposz00_2856;
																				BgL_bufposz00_2891 =
																					BgL_bufposz00_15453;
																				BgL_forwardz00_2890 =
																					BgL_forwardz00_15451;
																				BgL_lastzd2matchzd2_2889 =
																					BgL_lastzd2matchzd2_15450;
																				BgL_iportz00_2888 = BgL_iportz00_15449;
																				goto
																					BgL_zc3z04anonymousza32431ze3z87_2892;
																			}
																	}
															}
														}
												}
											}
									}
								}
						}
					}
					RGC_SET_FILEPOS(BgL_pz00_50);
					{

						switch (BgL_matchz00_3023)
							{
							case 1L:

								{	/* Unsafe/http.scm 375 */
									obj_t BgL_cz00_3028;

									{	/* Unsafe/http.scm 371 */
										bool_t BgL_test6381z00_15456;

										{	/* Unsafe/http.scm 371 */
											long BgL_arg2539z00_3013;

											BgL_arg2539z00_3013 =
												RGC_BUFFER_MATCH_LENGTH(BgL_pz00_50);
											BgL_test6381z00_15456 = (BgL_arg2539z00_3013 == 0L);
										}
										if (BgL_test6381z00_15456)
											{	/* Unsafe/http.scm 371 */
												BgL_cz00_3028 = BEOF;
											}
										else
											{	/* Unsafe/http.scm 371 */
												BgL_cz00_3028 =
													BCHAR(RGC_BUFFER_CHARACTER(BgL_pz00_50));
											}
									}
									if (EOF_OBJECTP(BgL_cz00_3028))
										{	/* Unsafe/http.scm 376 */
											return BgL_cz00_3028;
										}
									else
										{	/* Unsafe/http.scm 371 */
											long BgL_arg2453z00_9971;

											BgL_arg2453z00_9971 =
												RGC_BUFFER_MATCH_LENGTH(BgL_pz00_50);
											return
												rgc_buffer_substring(BgL_pz00_50, 0L,
												BgL_arg2453z00_9971);
										}
								}
								break;
							case 0L:

								{	/* Unsafe/http.scm 371 */
									long BgL_arg2453z00_9975;

									BgL_arg2453z00_9975 = RGC_BUFFER_MATCH_LENGTH(BgL_pz00_50);
									return
										rgc_buffer_substring(BgL_pz00_50, 0L, BgL_arg2453z00_9975);
								}
								break;
							default:
								return
									BGl_errorz00zz__errorz00(BGl_string5657z00zz__httpz00,
									BGl_string5658z00zz__httpz00, BINT(BgL_matchz00_3023));
							}
					}
				}
			}
		}

	}



/* &http-read-line */
	obj_t BGl_z62httpzd2readzd2linez62zz__httpz00(obj_t BgL_envz00_12406,
		obj_t BgL_pz00_12407)
	{
		{	/* Unsafe/http.scm 370 */
			{	/* Unsafe/http.scm 371 */
				obj_t BgL_auxz00_15470;

				if (INPUT_PORTP(BgL_pz00_12407))
					{	/* Unsafe/http.scm 371 */
						BgL_auxz00_15470 = BgL_pz00_12407;
					}
				else
					{
						obj_t BgL_auxz00_15473;

						BgL_auxz00_15473 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5665z00zz__httpz00,
							BINT(13773L), BGl_string5764z00zz__httpz00,
							BGl_string5763z00zz__httpz00, BgL_pz00_12407);
						FAILURE(BgL_auxz00_15473, BFALSE, BFALSE);
					}
				return BGl_httpzd2readzd2linez00zz__httpz00(BgL_auxz00_15470);
			}
		}

	}



/* http-skip-blank */
	obj_t BGl_httpzd2skipzd2blankz00zz__httpz00(obj_t BgL_pz00_51)
	{
		{	/* Unsafe/http.scm 384 */
			{
				obj_t BgL_iportz00_3134;
				long BgL_lastzd2matchzd2_3135;
				long BgL_forwardz00_3136;
				long BgL_bufposz00_3137;
				obj_t BgL_iportz00_3119;
				long BgL_lastzd2matchzd2_3120;
				long BgL_forwardz00_3121;
				long BgL_bufposz00_3122;
				obj_t BgL_iportz00_3098;
				long BgL_lastzd2matchzd2_3099;
				long BgL_forwardz00_3100;
				long BgL_bufposz00_3101;

				RGC_START_MATCH(BgL_pz00_51);
				{	/* Unsafe/http.scm 385 */
					long BgL_matchz00_3268;

					{	/* Unsafe/http.scm 385 */
						long BgL_arg2686z00_3281;
						long BgL_arg2687z00_3282;

						BgL_arg2686z00_3281 = RGC_BUFFER_FORWARD(BgL_pz00_51);
						BgL_arg2687z00_3282 = RGC_BUFFER_BUFPOS(BgL_pz00_51);
						BgL_iportz00_3098 = BgL_pz00_51;
						BgL_lastzd2matchzd2_3099 = 1L;
						BgL_forwardz00_3100 = BgL_arg2686z00_3281;
						BgL_bufposz00_3101 = BgL_arg2687z00_3282;
					BgL_zc3z04anonymousza32549ze3z87_3102:
						if ((BgL_forwardz00_3100 == BgL_bufposz00_3101))
							{	/* Unsafe/http.scm 385 */
								if (rgc_fill_buffer(BgL_iportz00_3098))
									{	/* Unsafe/http.scm 385 */
										long BgL_arg2552z00_3105;
										long BgL_arg2555z00_3106;

										BgL_arg2552z00_3105 = RGC_BUFFER_FORWARD(BgL_iportz00_3098);
										BgL_arg2555z00_3106 = RGC_BUFFER_BUFPOS(BgL_iportz00_3098);
										{
											long BgL_bufposz00_15488;
											long BgL_forwardz00_15487;

											BgL_forwardz00_15487 = BgL_arg2552z00_3105;
											BgL_bufposz00_15488 = BgL_arg2555z00_3106;
											BgL_bufposz00_3101 = BgL_bufposz00_15488;
											BgL_forwardz00_3100 = BgL_forwardz00_15487;
											goto BgL_zc3z04anonymousza32549ze3z87_3102;
										}
									}
								else
									{	/* Unsafe/http.scm 385 */
										BgL_matchz00_3268 = BgL_lastzd2matchzd2_3099;
									}
							}
						else
							{	/* Unsafe/http.scm 385 */
								int BgL_curz00_3107;

								BgL_curz00_3107 =
									RGC_BUFFER_GET_CHAR(BgL_iportz00_3098, BgL_forwardz00_3100);
								{	/* Unsafe/http.scm 385 */

									{	/* Unsafe/http.scm 385 */
										bool_t BgL_test6386z00_15490;

										if (((long) (BgL_curz00_3107) == 9L))
											{	/* Unsafe/http.scm 385 */
												BgL_test6386z00_15490 = ((bool_t) 1);
											}
										else
											{	/* Unsafe/http.scm 385 */
												BgL_test6386z00_15490 =
													((long) (BgL_curz00_3107) == 32L);
											}
										if (BgL_test6386z00_15490)
											{	/* Unsafe/http.scm 385 */
												BgL_iportz00_3119 = BgL_iportz00_3098;
												BgL_lastzd2matchzd2_3120 = BgL_lastzd2matchzd2_3099;
												BgL_forwardz00_3121 = (1L + BgL_forwardz00_3100);
												BgL_bufposz00_3122 = BgL_bufposz00_3101;
											BgL_zc3z04anonymousza32562ze3z87_3123:
												{	/* Unsafe/http.scm 385 */
													long BgL_newzd2matchzd2_3124;

													RGC_STOP_MATCH(BgL_iportz00_3119,
														BgL_forwardz00_3121);
													BgL_newzd2matchzd2_3124 = 0L;
													if ((BgL_forwardz00_3121 == BgL_bufposz00_3122))
														{	/* Unsafe/http.scm 385 */
															if (rgc_fill_buffer(BgL_iportz00_3119))
																{	/* Unsafe/http.scm 385 */
																	long BgL_arg2565z00_3127;
																	long BgL_arg2566z00_3128;

																	BgL_arg2565z00_3127 =
																		RGC_BUFFER_FORWARD(BgL_iportz00_3119);
																	BgL_arg2566z00_3128 =
																		RGC_BUFFER_BUFPOS(BgL_iportz00_3119);
																	{
																		long BgL_bufposz00_15504;
																		long BgL_forwardz00_15503;

																		BgL_forwardz00_15503 = BgL_arg2565z00_3127;
																		BgL_bufposz00_15504 = BgL_arg2566z00_3128;
																		BgL_bufposz00_3122 = BgL_bufposz00_15504;
																		BgL_forwardz00_3121 = BgL_forwardz00_15503;
																		goto BgL_zc3z04anonymousza32562ze3z87_3123;
																	}
																}
															else
																{	/* Unsafe/http.scm 385 */
																	BgL_matchz00_3268 = BgL_newzd2matchzd2_3124;
																}
														}
													else
														{	/* Unsafe/http.scm 385 */
															int BgL_curz00_3129;

															BgL_curz00_3129 =
																RGC_BUFFER_GET_CHAR(BgL_iportz00_3119,
																BgL_forwardz00_3121);
															{	/* Unsafe/http.scm 385 */

																{	/* Unsafe/http.scm 385 */
																	bool_t BgL_test6390z00_15506;

																	if (((long) (BgL_curz00_3129) == 9L))
																		{	/* Unsafe/http.scm 385 */
																			BgL_test6390z00_15506 = ((bool_t) 1);
																		}
																	else
																		{	/* Unsafe/http.scm 385 */
																			BgL_test6390z00_15506 =
																				((long) (BgL_curz00_3129) == 32L);
																		}
																	if (BgL_test6390z00_15506)
																		{	/* Unsafe/http.scm 385 */
																			BgL_iportz00_3134 = BgL_iportz00_3119;
																			BgL_lastzd2matchzd2_3135 =
																				BgL_newzd2matchzd2_3124;
																			BgL_forwardz00_3136 =
																				(1L + BgL_forwardz00_3121);
																			BgL_bufposz00_3137 = BgL_bufposz00_3122;
																		BgL_zc3z04anonymousza32570ze3z87_3138:
																			{	/* Unsafe/http.scm 385 */
																				long BgL_newzd2matchzd2_3139;

																				RGC_STOP_MATCH(BgL_iportz00_3134,
																					BgL_forwardz00_3136);
																				BgL_newzd2matchzd2_3139 = 0L;
																				if (
																					(BgL_forwardz00_3136 ==
																						BgL_bufposz00_3137))
																					{	/* Unsafe/http.scm 385 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_3134))
																							{	/* Unsafe/http.scm 385 */
																								long BgL_arg2574z00_3142;
																								long BgL_arg2575z00_3143;

																								BgL_arg2574z00_3142 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_3134);
																								BgL_arg2575z00_3143 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_3134);
																								{
																									long BgL_bufposz00_15520;
																									long BgL_forwardz00_15519;

																									BgL_forwardz00_15519 =
																										BgL_arg2574z00_3142;
																									BgL_bufposz00_15520 =
																										BgL_arg2575z00_3143;
																									BgL_bufposz00_3137 =
																										BgL_bufposz00_15520;
																									BgL_forwardz00_3136 =
																										BgL_forwardz00_15519;
																									goto
																										BgL_zc3z04anonymousza32570ze3z87_3138;
																								}
																							}
																						else
																							{	/* Unsafe/http.scm 385 */
																								BgL_matchz00_3268 =
																									BgL_newzd2matchzd2_3139;
																							}
																					}
																				else
																					{	/* Unsafe/http.scm 385 */
																						int BgL_curz00_3144;

																						BgL_curz00_3144 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_3134,
																							BgL_forwardz00_3136);
																						{	/* Unsafe/http.scm 385 */

																							{	/* Unsafe/http.scm 385 */
																								bool_t BgL_test6394z00_15522;

																								if (
																									((long) (BgL_curz00_3144) ==
																										9L))
																									{	/* Unsafe/http.scm 385 */
																										BgL_test6394z00_15522 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Unsafe/http.scm 385 */
																										BgL_test6394z00_15522 =
																											(
																											(long) (BgL_curz00_3144)
																											== 32L);
																									}
																								if (BgL_test6394z00_15522)
																									{
																										long BgL_forwardz00_15529;
																										long
																											BgL_lastzd2matchzd2_15528;
																										BgL_lastzd2matchzd2_15528 =
																											BgL_newzd2matchzd2_3139;
																										BgL_forwardz00_15529 =
																											(1L +
																											BgL_forwardz00_3136);
																										BgL_forwardz00_3136 =
																											BgL_forwardz00_15529;
																										BgL_lastzd2matchzd2_3135 =
																											BgL_lastzd2matchzd2_15528;
																										goto
																											BgL_zc3z04anonymousza32570ze3z87_3138;
																									}
																								else
																									{	/* Unsafe/http.scm 385 */
																										BgL_matchz00_3268 =
																											BgL_newzd2matchzd2_3139;
																									}
																							}
																						}
																					}
																			}
																		}
																	else
																		{	/* Unsafe/http.scm 385 */
																			BgL_matchz00_3268 =
																				BgL_newzd2matchzd2_3124;
																		}
																}
															}
														}
												}
											}
										else
											{	/* Unsafe/http.scm 385 */
												long BgL_arg2560z00_3111;

												BgL_arg2560z00_3111 = (1L + BgL_forwardz00_3100);
												{	/* Unsafe/http.scm 385 */
													long BgL_newzd2matchzd2_9990;

													RGC_STOP_MATCH(BgL_iportz00_3098,
														BgL_arg2560z00_3111);
													BgL_newzd2matchzd2_9990 = 1L;
													BgL_matchz00_3268 = BgL_newzd2matchzd2_9990;
					}}}}}}
					RGC_SET_FILEPOS(BgL_pz00_51);
					{

						switch (BgL_matchz00_3268)
							{
							case 1L:

								{	/* Unsafe/http.scm 389 */
									BgL_z62iozd2parsezd2errorz62_bglt BgL_arg2678z00_3273;

									{	/* Unsafe/http.scm 389 */
										BgL_z62iozd2parsezd2errorz62_bglt BgL_new1121z00_3274;

										{	/* Unsafe/http.scm 390 */
											BgL_z62iozd2parsezd2errorz62_bglt BgL_new1120z00_3279;

											BgL_new1120z00_3279 =
												((BgL_z62iozd2parsezd2errorz62_bglt)
												BOBJECT(GC_MALLOC(sizeof(struct
															BgL_z62iozd2parsezd2errorz62_bgl))));
											{	/* Unsafe/http.scm 390 */
												long BgL_arg2684z00_3280;

												BgL_arg2684z00_3280 =
													BGL_CLASS_NUM
													(BGl_z62iozd2parsezd2errorz62zz__objectz00);
												BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
														BgL_new1120z00_3279), BgL_arg2684z00_3280);
											}
											BgL_new1121z00_3274 = BgL_new1120z00_3279;
										}
										((((BgL_z62exceptionz62_bglt) COBJECT(
														((BgL_z62exceptionz62_bglt) BgL_new1121z00_3274)))->
												BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
										((((BgL_z62exceptionz62_bglt)
													COBJECT(((BgL_z62exceptionz62_bglt)
															BgL_new1121z00_3274)))->BgL_locationz00) =
											((obj_t) BFALSE), BUNSPEC);
										{
											obj_t BgL_auxz00_15544;

											{	/* Unsafe/http.scm 390 */
												obj_t BgL_arg2680z00_3275;

												{	/* Unsafe/http.scm 390 */
													obj_t BgL_arg2681z00_3276;

													{	/* Unsafe/http.scm 390 */
														obj_t BgL_classz00_10030;

														BgL_classz00_10030 =
															BGl_z62iozd2parsezd2errorz62zz__objectz00;
														BgL_arg2681z00_3276 =
															BGL_CLASS_ALL_FIELDS(BgL_classz00_10030);
													}
													BgL_arg2680z00_3275 =
														VECTOR_REF(BgL_arg2681z00_3276, 2L);
												}
												BgL_auxz00_15544 =
													BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
													(BgL_arg2680z00_3275);
											}
											((((BgL_z62exceptionz62_bglt) COBJECT(
															((BgL_z62exceptionz62_bglt)
																BgL_new1121z00_3274)))->BgL_stackz00) =
												((obj_t) BgL_auxz00_15544), BUNSPEC);
										}
										((((BgL_z62errorz62_bglt) COBJECT(
														((BgL_z62errorz62_bglt) BgL_new1121z00_3274)))->
												BgL_procz00) =
											((obj_t) BGl_string5679z00zz__httpz00), BUNSPEC);
										((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
															BgL_new1121z00_3274)))->BgL_msgz00) =
											((obj_t) BGl_string5765z00zz__httpz00), BUNSPEC);
										{
											obj_t BgL_auxz00_15554;

											{	/* Unsafe/http.scm 390 */
												obj_t BgL_arg2682z00_3277;

												{	/* Unsafe/http.scm 385 */
													bool_t BgL_test6396z00_15556;

													{	/* Unsafe/http.scm 385 */
														long BgL_arg2671z00_3258;

														BgL_arg2671z00_3258 =
															RGC_BUFFER_MATCH_LENGTH(BgL_pz00_51);
														BgL_test6396z00_15556 = (BgL_arg2671z00_3258 == 0L);
													}
													if (BgL_test6396z00_15556)
														{	/* Unsafe/http.scm 385 */
															BgL_arg2682z00_3277 = BEOF;
														}
													else
														{	/* Unsafe/http.scm 385 */
															BgL_arg2682z00_3277 =
																BCHAR(RGC_BUFFER_CHARACTER(BgL_pz00_51));
														}
												}
												BgL_auxz00_15554 =
													BGl_httpzd2parsezd2errorzd2msgzd2zz__httpz00
													(BgL_arg2682z00_3277, BgL_pz00_51);
											}
											((((BgL_z62errorz62_bglt) COBJECT(
															((BgL_z62errorz62_bglt) BgL_new1121z00_3274)))->
													BgL_objz00) = ((obj_t) BgL_auxz00_15554), BUNSPEC);
										}
										BgL_arg2678z00_3273 = BgL_new1121z00_3274;
									}
									return
										BGl_raisez00zz__errorz00(((obj_t) BgL_arg2678z00_3273));
								}
								break;
							case 0L:

								return BUNSPEC;
								break;
							default:
								return
									BGl_errorz00zz__errorz00(BGl_string5657z00zz__httpz00,
									BGl_string5658z00zz__httpz00, BINT(BgL_matchz00_3268));
							}
					}
				}
			}
		}

	}



/* http-read-fixnum */
	obj_t BGl_httpzd2readzd2fixnumz00zz__httpz00(obj_t BgL_pz00_53)
	{
		{	/* Unsafe/http.scm 410 */
			{
				obj_t BgL_iportz00_3688;
				long BgL_lastzd2matchzd2_3689;
				long BgL_forwardz00_3690;
				long BgL_bufposz00_3691;
				obj_t BgL_iportz00_3673;
				long BgL_lastzd2matchzd2_3674;
				long BgL_forwardz00_3675;
				long BgL_bufposz00_3676;
				obj_t BgL_iportz00_3658;
				long BgL_lastzd2matchzd2_3659;
				long BgL_forwardz00_3660;
				long BgL_bufposz00_3661;
				obj_t BgL_iportz00_3643;
				long BgL_lastzd2matchzd2_3644;
				long BgL_forwardz00_3645;
				long BgL_bufposz00_3646;
				obj_t BgL_iportz00_3618;
				long BgL_lastzd2matchzd2_3619;
				long BgL_forwardz00_3620;
				long BgL_bufposz00_3621;

			BgL_zc3z04anonymousza33053ze3z87_3821:
				RGC_START_MATCH(BgL_pz00_53);
				{	/* Unsafe/http.scm 411 */
					long BgL_matchz00_3822;

					{	/* Unsafe/http.scm 411 */
						long BgL_arg3068z00_3835;
						long BgL_arg3069z00_3836;

						BgL_arg3068z00_3835 = RGC_BUFFER_FORWARD(BgL_pz00_53);
						BgL_arg3069z00_3836 = RGC_BUFFER_BUFPOS(BgL_pz00_53);
						BgL_iportz00_3618 = BgL_pz00_53;
						BgL_lastzd2matchzd2_3619 = 2L;
						BgL_forwardz00_3620 = BgL_arg3068z00_3835;
						BgL_bufposz00_3621 = BgL_arg3069z00_3836;
					BgL_zc3z04anonymousza32869ze3z87_3622:
						if ((BgL_forwardz00_3620 == BgL_bufposz00_3621))
							{	/* Unsafe/http.scm 411 */
								if (rgc_fill_buffer(BgL_iportz00_3618))
									{	/* Unsafe/http.scm 411 */
										long BgL_arg2872z00_3625;
										long BgL_arg2873z00_3626;

										BgL_arg2872z00_3625 = RGC_BUFFER_FORWARD(BgL_iportz00_3618);
										BgL_arg2873z00_3626 = RGC_BUFFER_BUFPOS(BgL_iportz00_3618);
										{
											long BgL_bufposz00_15578;
											long BgL_forwardz00_15577;

											BgL_forwardz00_15577 = BgL_arg2872z00_3625;
											BgL_bufposz00_15578 = BgL_arg2873z00_3626;
											BgL_bufposz00_3621 = BgL_bufposz00_15578;
											BgL_forwardz00_3620 = BgL_forwardz00_15577;
											goto BgL_zc3z04anonymousza32869ze3z87_3622;
										}
									}
								else
									{	/* Unsafe/http.scm 411 */
										BgL_matchz00_3822 = BgL_lastzd2matchzd2_3619;
									}
							}
						else
							{	/* Unsafe/http.scm 411 */
								int BgL_curz00_3627;

								BgL_curz00_3627 =
									RGC_BUFFER_GET_CHAR(BgL_iportz00_3618, BgL_forwardz00_3620);
								{	/* Unsafe/http.scm 411 */

									{	/* Unsafe/http.scm 411 */
										bool_t BgL_test6399z00_15580;

										if (((long) (BgL_curz00_3627) >= 48L))
											{	/* Unsafe/http.scm 411 */
												BgL_test6399z00_15580 =
													((long) (BgL_curz00_3627) < 58L);
											}
										else
											{	/* Unsafe/http.scm 411 */
												BgL_test6399z00_15580 = ((bool_t) 0);
											}
										if (BgL_test6399z00_15580)
											{	/* Unsafe/http.scm 411 */
												BgL_iportz00_3658 = BgL_iportz00_3618;
												BgL_lastzd2matchzd2_3659 = BgL_lastzd2matchzd2_3619;
												BgL_forwardz00_3660 = (1L + BgL_forwardz00_3620);
												BgL_bufposz00_3661 = BgL_bufposz00_3621;
											BgL_zc3z04anonymousza32910ze3z87_3662:
												{	/* Unsafe/http.scm 411 */
													long BgL_newzd2matchzd2_3663;

													RGC_STOP_MATCH(BgL_iportz00_3658,
														BgL_forwardz00_3660);
													BgL_newzd2matchzd2_3663 = 0L;
													if ((BgL_forwardz00_3660 == BgL_bufposz00_3661))
														{	/* Unsafe/http.scm 411 */
															if (rgc_fill_buffer(BgL_iportz00_3658))
																{	/* Unsafe/http.scm 411 */
																	long BgL_arg2913z00_3666;
																	long BgL_arg2915z00_3667;

																	BgL_arg2913z00_3666 =
																		RGC_BUFFER_FORWARD(BgL_iportz00_3658);
																	BgL_arg2915z00_3667 =
																		RGC_BUFFER_BUFPOS(BgL_iportz00_3658);
																	{
																		long BgL_bufposz00_15594;
																		long BgL_forwardz00_15593;

																		BgL_forwardz00_15593 = BgL_arg2913z00_3666;
																		BgL_bufposz00_15594 = BgL_arg2915z00_3667;
																		BgL_bufposz00_3661 = BgL_bufposz00_15594;
																		BgL_forwardz00_3660 = BgL_forwardz00_15593;
																		goto BgL_zc3z04anonymousza32910ze3z87_3662;
																	}
																}
															else
																{	/* Unsafe/http.scm 411 */
																	BgL_matchz00_3822 = BgL_newzd2matchzd2_3663;
																}
														}
													else
														{	/* Unsafe/http.scm 411 */
															int BgL_curz00_3668;

															BgL_curz00_3668 =
																RGC_BUFFER_GET_CHAR(BgL_iportz00_3658,
																BgL_forwardz00_3660);
															{	/* Unsafe/http.scm 411 */

																{	/* Unsafe/http.scm 411 */
																	bool_t BgL_test6403z00_15596;

																	if (((long) (BgL_curz00_3668) >= 48L))
																		{	/* Unsafe/http.scm 411 */
																			BgL_test6403z00_15596 =
																				((long) (BgL_curz00_3668) < 58L);
																		}
																	else
																		{	/* Unsafe/http.scm 411 */
																			BgL_test6403z00_15596 = ((bool_t) 0);
																		}
																	if (BgL_test6403z00_15596)
																		{	/* Unsafe/http.scm 411 */
																			BgL_iportz00_3673 = BgL_iportz00_3658;
																			BgL_lastzd2matchzd2_3674 =
																				BgL_newzd2matchzd2_3663;
																			BgL_forwardz00_3675 =
																				(1L + BgL_forwardz00_3660);
																			BgL_bufposz00_3676 = BgL_bufposz00_3661;
																		BgL_zc3z04anonymousza32919ze3z87_3677:
																			{	/* Unsafe/http.scm 411 */
																				long BgL_newzd2matchzd2_3678;

																				RGC_STOP_MATCH(BgL_iportz00_3673,
																					BgL_forwardz00_3675);
																				BgL_newzd2matchzd2_3678 = 0L;
																				if (
																					(BgL_forwardz00_3675 ==
																						BgL_bufposz00_3676))
																					{	/* Unsafe/http.scm 411 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_3673))
																							{	/* Unsafe/http.scm 411 */
																								long BgL_arg2922z00_3681;
																								long BgL_arg2923z00_3682;

																								BgL_arg2922z00_3681 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_3673);
																								BgL_arg2923z00_3682 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_3673);
																								{
																									long BgL_bufposz00_15610;
																									long BgL_forwardz00_15609;

																									BgL_forwardz00_15609 =
																										BgL_arg2922z00_3681;
																									BgL_bufposz00_15610 =
																										BgL_arg2923z00_3682;
																									BgL_bufposz00_3676 =
																										BgL_bufposz00_15610;
																									BgL_forwardz00_3675 =
																										BgL_forwardz00_15609;
																									goto
																										BgL_zc3z04anonymousza32919ze3z87_3677;
																								}
																							}
																						else
																							{	/* Unsafe/http.scm 411 */
																								BgL_matchz00_3822 =
																									BgL_newzd2matchzd2_3678;
																							}
																					}
																				else
																					{	/* Unsafe/http.scm 411 */
																						int BgL_curz00_3683;

																						BgL_curz00_3683 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_3673,
																							BgL_forwardz00_3675);
																						{	/* Unsafe/http.scm 411 */

																							{	/* Unsafe/http.scm 411 */
																								bool_t BgL_test6407z00_15612;

																								if (
																									((long) (BgL_curz00_3683) >=
																										48L))
																									{	/* Unsafe/http.scm 411 */
																										BgL_test6407z00_15612 =
																											(
																											(long) (BgL_curz00_3683) <
																											58L);
																									}
																								else
																									{	/* Unsafe/http.scm 411 */
																										BgL_test6407z00_15612 =
																											((bool_t) 0);
																									}
																								if (BgL_test6407z00_15612)
																									{
																										long BgL_forwardz00_15619;
																										long
																											BgL_lastzd2matchzd2_15618;
																										BgL_lastzd2matchzd2_15618 =
																											BgL_newzd2matchzd2_3678;
																										BgL_forwardz00_15619 =
																											(1L +
																											BgL_forwardz00_3675);
																										BgL_forwardz00_3675 =
																											BgL_forwardz00_15619;
																										BgL_lastzd2matchzd2_3674 =
																											BgL_lastzd2matchzd2_15618;
																										goto
																											BgL_zc3z04anonymousza32919ze3z87_3677;
																									}
																								else
																									{	/* Unsafe/http.scm 411 */
																										BgL_matchz00_3822 =
																											BgL_newzd2matchzd2_3678;
																									}
																							}
																						}
																					}
																			}
																		}
																	else
																		{	/* Unsafe/http.scm 411 */
																			BgL_matchz00_3822 =
																				BgL_newzd2matchzd2_3663;
																		}
																}
															}
														}
												}
											}
										else
											{	/* Unsafe/http.scm 411 */
												bool_t BgL_test6409z00_15623;

												if (((long) (BgL_curz00_3627) == 9L))
													{	/* Unsafe/http.scm 411 */
														BgL_test6409z00_15623 = ((bool_t) 1);
													}
												else
													{	/* Unsafe/http.scm 411 */
														BgL_test6409z00_15623 =
															((long) (BgL_curz00_3627) == 32L);
													}
												if (BgL_test6409z00_15623)
													{	/* Unsafe/http.scm 411 */
														BgL_iportz00_3643 = BgL_iportz00_3618;
														BgL_lastzd2matchzd2_3644 = BgL_lastzd2matchzd2_3619;
														BgL_forwardz00_3645 = (1L + BgL_forwardz00_3620);
														BgL_bufposz00_3646 = BgL_bufposz00_3621;
													BgL_zc3z04anonymousza32883ze3z87_3647:
														{	/* Unsafe/http.scm 411 */
															long BgL_newzd2matchzd2_3648;

															RGC_STOP_MATCH(BgL_iportz00_3643,
																BgL_forwardz00_3645);
															BgL_newzd2matchzd2_3648 = 1L;
															if ((BgL_forwardz00_3645 == BgL_bufposz00_3646))
																{	/* Unsafe/http.scm 411 */
																	if (rgc_fill_buffer(BgL_iportz00_3643))
																		{	/* Unsafe/http.scm 411 */
																			long BgL_arg2897z00_3651;
																			long BgL_arg2898z00_3652;

																			BgL_arg2897z00_3651 =
																				RGC_BUFFER_FORWARD(BgL_iportz00_3643);
																			BgL_arg2898z00_3652 =
																				RGC_BUFFER_BUFPOS(BgL_iportz00_3643);
																			{
																				long BgL_bufposz00_15637;
																				long BgL_forwardz00_15636;

																				BgL_forwardz00_15636 =
																					BgL_arg2897z00_3651;
																				BgL_bufposz00_15637 =
																					BgL_arg2898z00_3652;
																				BgL_bufposz00_3646 =
																					BgL_bufposz00_15637;
																				BgL_forwardz00_3645 =
																					BgL_forwardz00_15636;
																				goto
																					BgL_zc3z04anonymousza32883ze3z87_3647;
																			}
																		}
																	else
																		{	/* Unsafe/http.scm 411 */
																			BgL_matchz00_3822 =
																				BgL_newzd2matchzd2_3648;
																		}
																}
															else
																{	/* Unsafe/http.scm 411 */
																	int BgL_curz00_3653;

																	BgL_curz00_3653 =
																		RGC_BUFFER_GET_CHAR(BgL_iportz00_3643,
																		BgL_forwardz00_3645);
																	{	/* Unsafe/http.scm 411 */

																		{	/* Unsafe/http.scm 411 */
																			bool_t BgL_test6413z00_15639;

																			if (((long) (BgL_curz00_3653) == 9L))
																				{	/* Unsafe/http.scm 411 */
																					BgL_test6413z00_15639 = ((bool_t) 1);
																				}
																			else
																				{	/* Unsafe/http.scm 411 */
																					BgL_test6413z00_15639 =
																						((long) (BgL_curz00_3653) == 32L);
																				}
																			if (BgL_test6413z00_15639)
																				{	/* Unsafe/http.scm 411 */
																					BgL_iportz00_3688 = BgL_iportz00_3643;
																					BgL_lastzd2matchzd2_3689 =
																						BgL_newzd2matchzd2_3648;
																					BgL_forwardz00_3690 =
																						(1L + BgL_forwardz00_3645);
																					BgL_bufposz00_3691 =
																						BgL_bufposz00_3646;
																				BgL_zc3z04anonymousza32927ze3z87_3692:
																					{	/* Unsafe/http.scm 411 */
																						long BgL_newzd2matchzd2_3693;

																						RGC_STOP_MATCH(BgL_iportz00_3688,
																							BgL_forwardz00_3690);
																						BgL_newzd2matchzd2_3693 = 1L;
																						if (
																							(BgL_forwardz00_3690 ==
																								BgL_bufposz00_3691))
																							{	/* Unsafe/http.scm 411 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_3688))
																									{	/* Unsafe/http.scm 411 */
																										long BgL_arg2930z00_3696;
																										long BgL_arg2931z00_3697;

																										BgL_arg2930z00_3696 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_3688);
																										BgL_arg2931z00_3697 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_3688);
																										{
																											long BgL_bufposz00_15653;
																											long BgL_forwardz00_15652;

																											BgL_forwardz00_15652 =
																												BgL_arg2930z00_3696;
																											BgL_bufposz00_15653 =
																												BgL_arg2931z00_3697;
																											BgL_bufposz00_3691 =
																												BgL_bufposz00_15653;
																											BgL_forwardz00_3690 =
																												BgL_forwardz00_15652;
																											goto
																												BgL_zc3z04anonymousza32927ze3z87_3692;
																										}
																									}
																								else
																									{	/* Unsafe/http.scm 411 */
																										BgL_matchz00_3822 =
																											BgL_newzd2matchzd2_3693;
																									}
																							}
																						else
																							{	/* Unsafe/http.scm 411 */
																								int BgL_curz00_3698;

																								BgL_curz00_3698 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_3688,
																									BgL_forwardz00_3690);
																								{	/* Unsafe/http.scm 411 */

																									{	/* Unsafe/http.scm 411 */
																										bool_t
																											BgL_test6417z00_15655;
																										if (((long)
																												(BgL_curz00_3698) ==
																												9L))
																											{	/* Unsafe/http.scm 411 */
																												BgL_test6417z00_15655 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Unsafe/http.scm 411 */
																												BgL_test6417z00_15655 =
																													(
																													(long)
																													(BgL_curz00_3698) ==
																													32L);
																											}
																										if (BgL_test6417z00_15655)
																											{
																												long
																													BgL_forwardz00_15662;
																												long
																													BgL_lastzd2matchzd2_15661;
																												BgL_lastzd2matchzd2_15661
																													=
																													BgL_newzd2matchzd2_3693;
																												BgL_forwardz00_15662 =
																													(1L +
																													BgL_forwardz00_3690);
																												BgL_forwardz00_3690 =
																													BgL_forwardz00_15662;
																												BgL_lastzd2matchzd2_3689
																													=
																													BgL_lastzd2matchzd2_15661;
																												goto
																													BgL_zc3z04anonymousza32927ze3z87_3692;
																											}
																										else
																											{	/* Unsafe/http.scm 411 */
																												BgL_matchz00_3822 =
																													BgL_newzd2matchzd2_3693;
																											}
																									}
																								}
																							}
																					}
																				}
																			else
																				{	/* Unsafe/http.scm 411 */
																					BgL_matchz00_3822 =
																						BgL_newzd2matchzd2_3648;
																				}
																		}
																	}
																}
														}
													}
												else
													{	/* Unsafe/http.scm 411 */
														long BgL_arg2881z00_3634;

														BgL_arg2881z00_3634 = (1L + BgL_forwardz00_3620);
														{	/* Unsafe/http.scm 411 */
															long BgL_newzd2matchzd2_10047;

															RGC_STOP_MATCH(BgL_iportz00_3618,
																BgL_arg2881z00_3634);
															BgL_newzd2matchzd2_10047 = 2L;
															BgL_matchz00_3822 = BgL_newzd2matchzd2_10047;
					}}}}}}}
					RGC_SET_FILEPOS(BgL_pz00_53);
					{

						switch (BgL_matchz00_3822)
							{
							case 2L:

								{	/* Unsafe/http.scm 416 */
									BgL_z62iozd2parsezd2errorz62_bglt BgL_arg3057z00_3827;

									{	/* Unsafe/http.scm 416 */
										BgL_z62iozd2parsezd2errorz62_bglt BgL_new1141z00_3828;

										{	/* Unsafe/http.scm 417 */
											BgL_z62iozd2parsezd2errorz62_bglt BgL_new1140z00_3833;

											BgL_new1140z00_3833 =
												((BgL_z62iozd2parsezd2errorz62_bglt)
												BOBJECT(GC_MALLOC(sizeof(struct
															BgL_z62iozd2parsezd2errorz62_bgl))));
											{	/* Unsafe/http.scm 417 */
												long BgL_arg3067z00_3834;

												BgL_arg3067z00_3834 =
													BGL_CLASS_NUM
													(BGl_z62iozd2parsezd2errorz62zz__objectz00);
												BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
														BgL_new1140z00_3833), BgL_arg3067z00_3834);
											}
											BgL_new1141z00_3828 = BgL_new1140z00_3833;
										}
										((((BgL_z62exceptionz62_bglt) COBJECT(
														((BgL_z62exceptionz62_bglt) BgL_new1141z00_3828)))->
												BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
										((((BgL_z62exceptionz62_bglt)
													COBJECT(((BgL_z62exceptionz62_bglt)
															BgL_new1141z00_3828)))->BgL_locationz00) =
											((obj_t) BFALSE), BUNSPEC);
										{
											obj_t BgL_auxz00_15677;

											{	/* Unsafe/http.scm 417 */
												obj_t BgL_arg3061z00_3829;

												{	/* Unsafe/http.scm 417 */
													obj_t BgL_arg3063z00_3830;

													{	/* Unsafe/http.scm 417 */
														obj_t BgL_classz00_10112;

														BgL_classz00_10112 =
															BGl_z62iozd2parsezd2errorz62zz__objectz00;
														BgL_arg3063z00_3830 =
															BGL_CLASS_ALL_FIELDS(BgL_classz00_10112);
													}
													BgL_arg3061z00_3829 =
														VECTOR_REF(BgL_arg3063z00_3830, 2L);
												}
												BgL_auxz00_15677 =
													BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
													(BgL_arg3061z00_3829);
											}
											((((BgL_z62exceptionz62_bglt) COBJECT(
															((BgL_z62exceptionz62_bglt)
																BgL_new1141z00_3828)))->BgL_stackz00) =
												((obj_t) BgL_auxz00_15677), BUNSPEC);
										}
										((((BgL_z62errorz62_bglt) COBJECT(
														((BgL_z62errorz62_bglt) BgL_new1141z00_3828)))->
												BgL_procz00) =
											((obj_t) BGl_string5679z00zz__httpz00), BUNSPEC);
										((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
															BgL_new1141z00_3828)))->BgL_msgz00) =
											((obj_t) BGl_string5766z00zz__httpz00), BUNSPEC);
										{
											obj_t BgL_auxz00_15687;

											{	/* Unsafe/http.scm 417 */
												obj_t BgL_arg3065z00_3831;

												{	/* Unsafe/http.scm 411 */
													bool_t BgL_test6419z00_15689;

													{	/* Unsafe/http.scm 411 */
														long BgL_arg3047z00_3812;

														BgL_arg3047z00_3812 =
															RGC_BUFFER_MATCH_LENGTH(BgL_pz00_53);
														BgL_test6419z00_15689 = (BgL_arg3047z00_3812 == 0L);
													}
													if (BgL_test6419z00_15689)
														{	/* Unsafe/http.scm 411 */
															BgL_arg3065z00_3831 = BEOF;
														}
													else
														{	/* Unsafe/http.scm 411 */
															BgL_arg3065z00_3831 =
																BCHAR(RGC_BUFFER_CHARACTER(BgL_pz00_53));
														}
												}
												BgL_auxz00_15687 =
													BGl_httpzd2parsezd2errorzd2msgzd2zz__httpz00
													(BgL_arg3065z00_3831, BgL_pz00_53);
											}
											((((BgL_z62errorz62_bglt) COBJECT(
															((BgL_z62errorz62_bglt) BgL_new1141z00_3828)))->
													BgL_objz00) = ((obj_t) BgL_auxz00_15687), BUNSPEC);
										}
										BgL_arg3057z00_3827 = BgL_new1141z00_3828;
									}
									return
										BGl_raisez00zz__errorz00(((obj_t) BgL_arg3057z00_3827));
								}
								break;
							case 1L:

								goto BgL_zc3z04anonymousza33053ze3z87_3821;
								break;
							case 0L:

								return BINT(rgc_buffer_fixnum(BgL_pz00_53));
								break;
							default:
								return
									BGl_errorz00zz__errorz00(BGl_string5657z00zz__httpz00,
									BGl_string5658z00zz__httpz00, BINT(BgL_matchz00_3822));
							}
					}
				}
			}
		}

	}



/* http-parse-header */
	BGL_EXPORTED_DEF obj_t BGl_httpzd2parsezd2headerz00zz__httpz00(obj_t
		BgL_pz00_54, obj_t BgL_poz00_55)
	{
		{	/* Unsafe/http.scm 425 */
			{
				obj_t BgL_iportz00_6612;

				{
					obj_t BgL_iportz00_6043;

					{
						obj_t BgL_iportz00_5743;

						{
							obj_t BgL_iportz00_5338;

							{
								obj_t BgL_iportz00_4495;

								{
									obj_t BgL_iportz00_3882;
									obj_t BgL_poz00_3883;
									obj_t BgL_headerz00_3884;
									obj_t BgL_hostnamez00_3885;
									obj_t BgL_portz00_3886;
									obj_t BgL_contentzd2lengthzd2_3887;
									obj_t BgL_transferzd2encodingzd2_3888;
									obj_t BgL_authoriza7ationza7_3889;
									obj_t BgL_proxyzd2authoriza7ationz75_3890;
									obj_t BgL_connectionz00_3891;

									BgL_iportz00_3882 = BgL_pz00_54;
									BgL_poz00_3883 = BgL_poz00_55;
									BgL_headerz00_3884 = BNIL;
									BgL_hostnamez00_3885 = BFALSE;
									BgL_portz00_3886 = BFALSE;
									BgL_contentzd2lengthzd2_3887 = BGl_elong5786z00zz__httpz00;
									BgL_transferzd2encodingzd2_3888 = BFALSE;
									BgL_authoriza7ationza7_3889 = BFALSE;
									BgL_proxyzd2authoriza7ationz75_3890 = BFALSE;
									BgL_connectionz00_3891 = BFALSE;
									{
										obj_t BgL_iportz00_3949;
										long BgL_lastzd2matchzd2_3950;
										long BgL_forwardz00_3951;
										long BgL_bufposz00_3952;
										obj_t BgL_iportz00_3978;
										long BgL_lastzd2matchzd2_3979;
										long BgL_forwardz00_3980;
										long BgL_bufposz00_3981;
										obj_t BgL_iportz00_3999;
										long BgL_lastzd2matchzd2_4000;
										long BgL_forwardz00_4001;
										long BgL_bufposz00_4002;
										obj_t BgL_iportz00_4025;
										long BgL_lastzd2matchzd2_4026;
										long BgL_forwardz00_4027;
										long BgL_bufposz00_4028;
										obj_t BgL_iportz00_4046;
										long BgL_lastzd2matchzd2_4047;
										long BgL_forwardz00_4048;
										long BgL_bufposz00_4049;
										obj_t BgL_iportz00_4072;
										long BgL_lastzd2matchzd2_4073;
										long BgL_forwardz00_4074;
										long BgL_bufposz00_4075;
										obj_t BgL_iportz00_4105;
										long BgL_lastzd2matchzd2_4106;
										long BgL_forwardz00_4107;
										long BgL_bufposz00_4108;
										obj_t BgL_iportz00_4130;
										long BgL_lastzd2matchzd2_4131;
										long BgL_forwardz00_4132;
										long BgL_bufposz00_4133;
										obj_t BgL_iportz00_4149;
										long BgL_lastzd2matchzd2_4150;
										long BgL_forwardz00_4151;
										long BgL_bufposz00_4152;
										obj_t BgL_iportz00_4179;
										long BgL_lastzd2matchzd2_4180;
										long BgL_forwardz00_4181;
										long BgL_bufposz00_4182;
										obj_t BgL_iportz00_4209;
										long BgL_lastzd2matchzd2_4210;
										long BgL_forwardz00_4211;
										long BgL_bufposz00_4212;

									BgL_zc3z04anonymousza33400ze3z87_4358:
										RGC_START_MATCH(BgL_iportz00_3882);
										{	/* Unsafe/http.scm 506 */
											long BgL_matchz00_4359;

											{	/* Unsafe/http.scm 506 */
												long BgL_arg3464z00_4447;
												long BgL_arg3465z00_4448;

												BgL_arg3464z00_4447 =
													RGC_BUFFER_FORWARD(BgL_iportz00_3882);
												BgL_arg3465z00_4448 =
													RGC_BUFFER_BUFPOS(BgL_iportz00_3882);
												BgL_iportz00_3978 = BgL_iportz00_3882;
												BgL_lastzd2matchzd2_3979 = 2L;
												BgL_forwardz00_3980 = BgL_arg3464z00_4447;
												BgL_bufposz00_3981 = BgL_arg3465z00_4448;
											BgL_zc3z04anonymousza33103ze3z87_3982:
												if ((BgL_forwardz00_3980 == BgL_bufposz00_3981))
													{	/* Unsafe/http.scm 506 */
														if (rgc_fill_buffer(BgL_iportz00_3978))
															{	/* Unsafe/http.scm 506 */
																long BgL_arg3106z00_3985;
																long BgL_arg3107z00_3986;

																BgL_arg3106z00_3985 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_3978);
																BgL_arg3107z00_3986 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_3978);
																{
																	long BgL_bufposz00_15713;
																	long BgL_forwardz00_15712;

																	BgL_forwardz00_15712 = BgL_arg3106z00_3985;
																	BgL_bufposz00_15713 = BgL_arg3107z00_3986;
																	BgL_bufposz00_3981 = BgL_bufposz00_15713;
																	BgL_forwardz00_3980 = BgL_forwardz00_15712;
																	goto BgL_zc3z04anonymousza33103ze3z87_3982;
																}
															}
														else
															{	/* Unsafe/http.scm 506 */
																BgL_matchz00_4359 = BgL_lastzd2matchzd2_3979;
															}
													}
												else
													{	/* Unsafe/http.scm 506 */
														int BgL_curz00_3987;

														BgL_curz00_3987 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_3978,
															BgL_forwardz00_3980);
														{	/* Unsafe/http.scm 506 */

															if (((long) (BgL_curz00_3987) == 58L))
																{	/* Unsafe/http.scm 506 */
																	long BgL_arg3110z00_3989;

																	BgL_arg3110z00_3989 =
																		(1L + BgL_forwardz00_3980);
																	{	/* Unsafe/http.scm 506 */
																		long BgL_newzd2matchzd2_11286;

																		RGC_STOP_MATCH(BgL_iportz00_3978,
																			BgL_arg3110z00_3989);
																		BgL_newzd2matchzd2_11286 = 2L;
																		BgL_matchz00_4359 =
																			BgL_newzd2matchzd2_11286;
																}}
															else
																{	/* Unsafe/http.scm 506 */
																	if (((long) (BgL_curz00_3987) == 32L))
																		{	/* Unsafe/http.scm 506 */
																			BgL_iportz00_4179 = BgL_iportz00_3978;
																			BgL_lastzd2matchzd2_4180 =
																				BgL_lastzd2matchzd2_3979;
																			BgL_forwardz00_4181 =
																				(1L + BgL_forwardz00_3980);
																			BgL_bufposz00_4182 = BgL_bufposz00_3981;
																		BgL_zc3z04anonymousza33258ze3z87_4183:
																			{	/* Unsafe/http.scm 506 */
																				long BgL_newzd2matchzd2_4184;

																				RGC_STOP_MATCH(BgL_iportz00_4179,
																					BgL_forwardz00_4181);
																				BgL_newzd2matchzd2_4184 = 2L;
																				if (
																					(BgL_forwardz00_4181 ==
																						BgL_bufposz00_4182))
																					{	/* Unsafe/http.scm 506 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_4179))
																							{	/* Unsafe/http.scm 506 */
																								long BgL_arg3261z00_4187;
																								long BgL_arg3262z00_4188;

																								BgL_arg3261z00_4187 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_4179);
																								BgL_arg3262z00_4188 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_4179);
																								{
																									long BgL_bufposz00_15731;
																									long BgL_forwardz00_15730;

																									BgL_forwardz00_15730 =
																										BgL_arg3261z00_4187;
																									BgL_bufposz00_15731 =
																										BgL_arg3262z00_4188;
																									BgL_bufposz00_4182 =
																										BgL_bufposz00_15731;
																									BgL_forwardz00_4181 =
																										BgL_forwardz00_15730;
																									goto
																										BgL_zc3z04anonymousza33258ze3z87_4183;
																								}
																							}
																						else
																							{	/* Unsafe/http.scm 506 */
																								BgL_matchz00_4359 =
																									BgL_newzd2matchzd2_4184;
																							}
																					}
																				else
																					{	/* Unsafe/http.scm 506 */
																						int BgL_curz00_4189;

																						BgL_curz00_4189 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_4179,
																							BgL_forwardz00_4181);
																						{	/* Unsafe/http.scm 506 */

																							if (
																								((long) (BgL_curz00_4189) ==
																									13L))
																								{	/* Unsafe/http.scm 506 */
																									BgL_iportz00_4072 =
																										BgL_iportz00_4179;
																									BgL_lastzd2matchzd2_4073 =
																										BgL_newzd2matchzd2_4184;
																									BgL_forwardz00_4074 =
																										(1L + BgL_forwardz00_4181);
																									BgL_bufposz00_4075 =
																										BgL_bufposz00_4182;
																								BgL_zc3z04anonymousza33180ze3z87_4076:
																									if (
																										(BgL_forwardz00_4074 ==
																											BgL_bufposz00_4075))
																										{	/* Unsafe/http.scm 506 */
																											if (rgc_fill_buffer
																												(BgL_iportz00_4072))
																												{	/* Unsafe/http.scm 506 */
																													long
																														BgL_arg3183z00_4079;
																													long
																														BgL_arg3184z00_4080;
																													BgL_arg3183z00_4079 =
																														RGC_BUFFER_FORWARD
																														(BgL_iportz00_4072);
																													BgL_arg3184z00_4080 =
																														RGC_BUFFER_BUFPOS
																														(BgL_iportz00_4072);
																													{
																														long
																															BgL_bufposz00_15743;
																														long
																															BgL_forwardz00_15742;
																														BgL_forwardz00_15742
																															=
																															BgL_arg3183z00_4079;
																														BgL_bufposz00_15743
																															=
																															BgL_arg3184z00_4080;
																														BgL_bufposz00_4075 =
																															BgL_bufposz00_15743;
																														BgL_forwardz00_4074
																															=
																															BgL_forwardz00_15742;
																														goto
																															BgL_zc3z04anonymousza33180ze3z87_4076;
																													}
																												}
																											else
																												{	/* Unsafe/http.scm 506 */
																													BgL_matchz00_4359 =
																														BgL_lastzd2matchzd2_4073;
																												}
																										}
																									else
																										{	/* Unsafe/http.scm 506 */
																											int BgL_curz00_4081;

																											BgL_curz00_4081 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_iportz00_4072,
																												BgL_forwardz00_4074);
																											{	/* Unsafe/http.scm 506 */

																												if (
																													((long)
																														(BgL_curz00_4081) ==
																														58L))
																													{	/* Unsafe/http.scm 506 */
																														long
																															BgL_arg3194z00_4083;
																														BgL_arg3194z00_4083
																															=
																															(1L +
																															BgL_forwardz00_4074);
																														{	/* Unsafe/http.scm 506 */
																															long
																																BgL_newzd2matchzd2_11438;
																															RGC_STOP_MATCH
																																(BgL_iportz00_4072,
																																BgL_arg3194z00_4083);
																															BgL_newzd2matchzd2_11438
																																= 0L;
																															BgL_matchz00_4359
																																=
																																BgL_newzd2matchzd2_11438;
																													}}
																												else
																													{	/* Unsafe/http.scm 506 */
																														if (
																															((long)
																																(BgL_curz00_4081)
																																== 32L))
																															{	/* Unsafe/http.scm 506 */
																																long
																																	BgL_arg3197z00_4085;
																																BgL_arg3197z00_4085
																																	=
																																	(1L +
																																	BgL_forwardz00_4074);
																																{
																																	long
																																		BgL_forwardz00_11444;
																																	long
																																		BgL_bufposz00_11445;
																																	BgL_forwardz00_11444
																																		=
																																		BgL_arg3197z00_4085;
																																	BgL_bufposz00_11445
																																		=
																																		BgL_bufposz00_4075;
																																BgL_statezd213zd21265z00_11443:
																																	if (
																																		(BgL_forwardz00_11444
																																			==
																																			BgL_bufposz00_11445))
																																		{	/* Unsafe/http.scm 506 */
																																			if (rgc_fill_buffer(BgL_iportz00_4072))
																																				{	/* Unsafe/http.scm 506 */
																																					long
																																						BgL_arg3074z00_11448;
																																					long
																																						BgL_arg3075z00_11449;
																																					BgL_arg3074z00_11448
																																						=
																																						RGC_BUFFER_FORWARD
																																						(BgL_iportz00_4072);
																																					BgL_arg3075z00_11449
																																						=
																																						RGC_BUFFER_BUFPOS
																																						(BgL_iportz00_4072);
																																					{
																																						long
																																							BgL_bufposz00_15761;
																																						long
																																							BgL_forwardz00_15760;
																																						BgL_forwardz00_15760
																																							=
																																							BgL_arg3074z00_11448;
																																						BgL_bufposz00_15761
																																							=
																																							BgL_arg3075z00_11449;
																																						BgL_bufposz00_11445
																																							=
																																							BgL_bufposz00_15761;
																																						BgL_forwardz00_11444
																																							=
																																							BgL_forwardz00_15760;
																																						goto
																																							BgL_statezd213zd21265z00_11443;
																																					}
																																				}
																																			else
																																				{	/* Unsafe/http.scm 506 */
																																					BgL_matchz00_4359
																																						=
																																						BgL_lastzd2matchzd2_4073;
																																				}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 506 */
																																			int
																																				BgL_curz00_11450;
																																			BgL_curz00_11450
																																				=
																																				RGC_BUFFER_GET_CHAR
																																				(BgL_iportz00_4072,
																																				BgL_forwardz00_11444);
																																			{	/* Unsafe/http.scm 506 */

																																				if (
																																					((long) (BgL_curz00_11450) == 58L))
																																					{	/* Unsafe/http.scm 506 */
																																						BgL_matchz00_4359
																																							=
																																							BgL_lastzd2matchzd2_4073;
																																					}
																																				else
																																					{	/* Unsafe/http.scm 506 */
																																						BgL_iportz00_4209
																																							=
																																							BgL_iportz00_4072;
																																						BgL_lastzd2matchzd2_4210
																																							=
																																							BgL_lastzd2matchzd2_4073;
																																						BgL_forwardz00_4211
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_11444);
																																						BgL_bufposz00_4212
																																							=
																																							BgL_bufposz00_11445;
																																					BgL_zc3z04anonymousza33287ze3z87_4213:
																																						if (
																																							(BgL_forwardz00_4211
																																								==
																																								BgL_bufposz00_4212))
																																							{	/* Unsafe/http.scm 506 */
																																								if (rgc_fill_buffer(BgL_iportz00_4209))
																																									{	/* Unsafe/http.scm 506 */
																																										long
																																											BgL_arg3290z00_4216;
																																										long
																																											BgL_arg3291z00_4217;
																																										BgL_arg3290z00_4216
																																											=
																																											RGC_BUFFER_FORWARD
																																											(BgL_iportz00_4209);
																																										BgL_arg3291z00_4217
																																											=
																																											RGC_BUFFER_BUFPOS
																																											(BgL_iportz00_4209);
																																										{
																																											long
																																												BgL_bufposz00_15773;
																																											long
																																												BgL_forwardz00_15772;
																																											BgL_forwardz00_15772
																																												=
																																												BgL_arg3290z00_4216;
																																											BgL_bufposz00_15773
																																												=
																																												BgL_arg3291z00_4217;
																																											BgL_bufposz00_4212
																																												=
																																												BgL_bufposz00_15773;
																																											BgL_forwardz00_4211
																																												=
																																												BgL_forwardz00_15772;
																																											goto
																																												BgL_zc3z04anonymousza33287ze3z87_4213;
																																										}
																																									}
																																								else
																																									{	/* Unsafe/http.scm 506 */
																																										BgL_matchz00_4359
																																											=
																																											BgL_lastzd2matchzd2_4210;
																																									}
																																							}
																																						else
																																							{	/* Unsafe/http.scm 506 */
																																								int
																																									BgL_curz00_4218;
																																								BgL_curz00_4218
																																									=
																																									RGC_BUFFER_GET_CHAR
																																									(BgL_iportz00_4209,
																																									BgL_forwardz00_4211);
																																								{	/* Unsafe/http.scm 506 */

																																									if (((long) (BgL_curz00_4218) == 58L))
																																										{	/* Unsafe/http.scm 506 */
																																											long
																																												BgL_arg3294z00_4220;
																																											BgL_arg3294z00_4220
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_4211);
																																											{	/* Unsafe/http.scm 506 */
																																												long
																																													BgL_newzd2matchzd2_11645;
																																												RGC_STOP_MATCH
																																													(BgL_iportz00_4209,
																																													BgL_arg3294z00_4220);
																																												BgL_newzd2matchzd2_11645
																																													=
																																													0L;
																																												BgL_matchz00_4359
																																													=
																																													BgL_newzd2matchzd2_11645;
																																										}}
																																									else
																																										{	/* Unsafe/http.scm 506 */
																																											if (((long) (BgL_curz00_4218) == 32L))
																																												{	/* Unsafe/http.scm 506 */
																																													long
																																														BgL_arg3297z00_4222;
																																													BgL_arg3297z00_4222
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_4211);
																																													{
																																														long
																																															BgL_forwardz00_11651;
																																														long
																																															BgL_bufposz00_11652;
																																														BgL_forwardz00_11651
																																															=
																																															BgL_arg3297z00_4222;
																																														BgL_bufposz00_11652
																																															=
																																															BgL_bufposz00_4212;
																																													BgL_statezd213zd21265z00_11650:
																																														if ((BgL_forwardz00_11651 == BgL_bufposz00_11652))
																																															{	/* Unsafe/http.scm 506 */
																																																if (rgc_fill_buffer(BgL_iportz00_4209))
																																																	{	/* Unsafe/http.scm 506 */
																																																		long
																																																			BgL_arg3074z00_11655;
																																																		long
																																																			BgL_arg3075z00_11656;
																																																		BgL_arg3074z00_11655
																																																			=
																																																			RGC_BUFFER_FORWARD
																																																			(BgL_iportz00_4209);
																																																		BgL_arg3075z00_11656
																																																			=
																																																			RGC_BUFFER_BUFPOS
																																																			(BgL_iportz00_4209);
																																																		{
																																																			long
																																																				BgL_bufposz00_15791;
																																																			long
																																																				BgL_forwardz00_15790;
																																																			BgL_forwardz00_15790
																																																				=
																																																				BgL_arg3074z00_11655;
																																																			BgL_bufposz00_15791
																																																				=
																																																				BgL_arg3075z00_11656;
																																																			BgL_bufposz00_11652
																																																				=
																																																				BgL_bufposz00_15791;
																																																			BgL_forwardz00_11651
																																																				=
																																																				BgL_forwardz00_15790;
																																																			goto
																																																				BgL_statezd213zd21265z00_11650;
																																																		}
																																																	}
																																																else
																																																	{	/* Unsafe/http.scm 506 */
																																																		BgL_matchz00_4359
																																																			=
																																																			BgL_lastzd2matchzd2_4210;
																																																	}
																																															}
																																														else
																																															{	/* Unsafe/http.scm 506 */
																																																int
																																																	BgL_curz00_11657;
																																																BgL_curz00_11657
																																																	=
																																																	RGC_BUFFER_GET_CHAR
																																																	(BgL_iportz00_4209,
																																																	BgL_forwardz00_11651);
																																																{	/* Unsafe/http.scm 506 */

																																																	if (((long) (BgL_curz00_11657) == 58L))
																																																		{	/* Unsafe/http.scm 506 */
																																																			BgL_matchz00_4359
																																																				=
																																																				BgL_lastzd2matchzd2_4210;
																																																		}
																																																	else
																																																		{
																																																			long
																																																				BgL_bufposz00_15798;
																																																			long
																																																				BgL_forwardz00_15796;
																																																			BgL_forwardz00_15796
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_11651);
																																																			BgL_bufposz00_15798
																																																				=
																																																				BgL_bufposz00_11652;
																																																			BgL_bufposz00_4212
																																																				=
																																																				BgL_bufposz00_15798;
																																																			BgL_forwardz00_4211
																																																				=
																																																				BgL_forwardz00_15796;
																																																			goto
																																																				BgL_zc3z04anonymousza33287ze3z87_4213;
																																																		}
																																																}
																																															}
																																													}
																																												}
																																											else
																																												{	/* Unsafe/http.scm 506 */
																																													bool_t
																																														BgL_test6441z00_15799;
																																													{	/* Unsafe/http.scm 506 */
																																														bool_t
																																															BgL_test6442z00_15800;
																																														if (((long) (BgL_curz00_4218) == 10L))
																																															{	/* Unsafe/http.scm 506 */
																																																BgL_test6442z00_15800
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Unsafe/http.scm 506 */
																																																BgL_test6442z00_15800
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_4218)
																																																	==
																																																	9L);
																																															}
																																														if (BgL_test6442z00_15800)
																																															{	/* Unsafe/http.scm 506 */
																																																BgL_test6441z00_15799
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Unsafe/http.scm 506 */
																																																if (((long) (BgL_curz00_4218) == 13L))
																																																	{	/* Unsafe/http.scm 506 */
																																																		BgL_test6441z00_15799
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Unsafe/http.scm 506 */
																																																		if (((long) (BgL_curz00_4218) == 32L))
																																																			{	/* Unsafe/http.scm 506 */
																																																				BgL_test6441z00_15799
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Unsafe/http.scm 506 */
																																																				BgL_test6441z00_15799
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_4218)
																																																					==
																																																					58L);
																																													}}}}
																																													if (BgL_test6441z00_15799)
																																														{	/* Unsafe/http.scm 506 */
																																															BgL_matchz00_4359
																																																=
																																																BgL_lastzd2matchzd2_4210;
																																														}
																																													else
																																														{
																																															long
																																																BgL_forwardz00_15814;
																																															BgL_forwardz00_15814
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_4211);
																																															BgL_forwardz00_4211
																																																=
																																																BgL_forwardz00_15814;
																																															goto
																																																BgL_zc3z04anonymousza33287ze3z87_4213;
																																														}
																																												}
																																										}
																																								}
																																							}
																																					}
																																			}
																																		}
																																}
																															}
																														else
																															{	/* Unsafe/http.scm 506 */
																																if (
																																	((long)
																																		(BgL_curz00_4081)
																																		== 10L))
																																	{	/* Unsafe/http.scm 506 */
																																		long
																																			BgL_arg3203z00_4087;
																																		BgL_arg3203z00_4087
																																			=
																																			(1L +
																																			BgL_forwardz00_4074);
																																		{	/* Unsafe/http.scm 506 */
																																			long
																																				BgL_newzd2matchzd2_11464;
																																			RGC_STOP_MATCH
																																				(BgL_iportz00_4072,
																																				BgL_arg3203z00_4087);
																																			BgL_newzd2matchzd2_11464
																																				= 1L;
																																			BgL_matchz00_4359
																																				=
																																				BgL_newzd2matchzd2_11464;
																																	}}
																																else
																																	{	/* Unsafe/http.scm 506 */
																																		bool_t
																																			BgL_test6447z00_15822;
																																		{	/* Unsafe/http.scm 506 */
																																			bool_t
																																				BgL_test6448z00_15823;
																																			if ((
																																					(long)
																																					(BgL_curz00_4081)
																																					==
																																					10L))
																																				{	/* Unsafe/http.scm 506 */
																																					BgL_test6448z00_15823
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Unsafe/http.scm 506 */
																																					BgL_test6448z00_15823
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_4081)
																																						==
																																						9L);
																																				}
																																			if (BgL_test6448z00_15823)
																																				{	/* Unsafe/http.scm 506 */
																																					BgL_test6447z00_15822
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Unsafe/http.scm 506 */
																																					if (
																																						((long) (BgL_curz00_4081) == 13L))
																																						{	/* Unsafe/http.scm 506 */
																																							BgL_test6447z00_15822
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Unsafe/http.scm 506 */
																																							if (((long) (BgL_curz00_4081) == 32L))
																																								{	/* Unsafe/http.scm 506 */
																																									BgL_test6447z00_15822
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Unsafe/http.scm 506 */
																																									BgL_test6447z00_15822
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_4081)
																																										==
																																										58L);
																																		}}}}
																																		if (BgL_test6447z00_15822)
																																			{	/* Unsafe/http.scm 506 */
																																				BgL_matchz00_4359
																																					=
																																					BgL_lastzd2matchzd2_4073;
																																			}
																																		else
																																			{
																																				long
																																					BgL_bufposz00_15841;
																																				long
																																					BgL_forwardz00_15839;
																																				long
																																					BgL_lastzd2matchzd2_15838;
																																				obj_t
																																					BgL_iportz00_15837;
																																				BgL_iportz00_15837
																																					=
																																					BgL_iportz00_4072;
																																				BgL_lastzd2matchzd2_15838
																																					=
																																					BgL_lastzd2matchzd2_4073;
																																				BgL_forwardz00_15839
																																					=
																																					(1L +
																																					BgL_forwardz00_4074);
																																				BgL_bufposz00_15841
																																					=
																																					BgL_bufposz00_4075;
																																				BgL_bufposz00_4212
																																					=
																																					BgL_bufposz00_15841;
																																				BgL_forwardz00_4211
																																					=
																																					BgL_forwardz00_15839;
																																				BgL_lastzd2matchzd2_4210
																																					=
																																					BgL_lastzd2matchzd2_15838;
																																				BgL_iportz00_4209
																																					=
																																					BgL_iportz00_15837;
																																				goto
																																					BgL_zc3z04anonymousza33287ze3z87_4213;
																																			}
																																	}
																															}
																													}
																											}
																										}
																								}
																							else
																								{	/* Unsafe/http.scm 506 */
																									if (
																										((long) (BgL_curz00_4189) ==
																											10L))
																										{	/* Unsafe/http.scm 506 */
																											BgL_iportz00_4046 =
																												BgL_iportz00_4179;
																											BgL_lastzd2matchzd2_4047 =
																												BgL_newzd2matchzd2_4184;
																											BgL_forwardz00_4048 =
																												(1L +
																												BgL_forwardz00_4181);
																											BgL_bufposz00_4049 =
																												BgL_bufposz00_4182;
																										BgL_zc3z04anonymousza33165ze3z87_4050:
																											{	/* Unsafe/http.scm 506 */
																												long
																													BgL_newzd2matchzd2_4051;
																												RGC_STOP_MATCH
																													(BgL_iportz00_4046,
																													BgL_forwardz00_4048);
																												BgL_newzd2matchzd2_4051
																													= 1L;
																												if ((BgL_forwardz00_4048
																														==
																														BgL_bufposz00_4049))
																													{	/* Unsafe/http.scm 506 */
																														if (rgc_fill_buffer
																															(BgL_iportz00_4046))
																															{	/* Unsafe/http.scm 506 */
																																long
																																	BgL_arg3168z00_4054;
																																long
																																	BgL_arg3169z00_4055;
																																BgL_arg3168z00_4054
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_iportz00_4046);
																																BgL_arg3169z00_4055
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_iportz00_4046);
																																{
																																	long
																																		BgL_bufposz00_15854;
																																	long
																																		BgL_forwardz00_15853;
																																	BgL_forwardz00_15853
																																		=
																																		BgL_arg3168z00_4054;
																																	BgL_bufposz00_15854
																																		=
																																		BgL_arg3169z00_4055;
																																	BgL_bufposz00_4049
																																		=
																																		BgL_bufposz00_15854;
																																	BgL_forwardz00_4048
																																		=
																																		BgL_forwardz00_15853;
																																	goto
																																		BgL_zc3z04anonymousza33165ze3z87_4050;
																																}
																															}
																														else
																															{	/* Unsafe/http.scm 506 */
																																BgL_matchz00_4359
																																	=
																																	BgL_newzd2matchzd2_4051;
																															}
																													}
																												else
																													{	/* Unsafe/http.scm 506 */
																														int BgL_curz00_4056;

																														BgL_curz00_4056 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_iportz00_4046,
																															BgL_forwardz00_4048);
																														{	/* Unsafe/http.scm 506 */

																															if (
																																((long)
																																	(BgL_curz00_4056)
																																	== 58L))
																																{	/* Unsafe/http.scm 506 */
																																	long
																																		BgL_arg3171z00_4058;
																																	BgL_arg3171z00_4058
																																		=
																																		(1L +
																																		BgL_forwardz00_4048);
																																	{	/* Unsafe/http.scm 506 */
																																		long
																																			BgL_newzd2matchzd2_11399;
																																		RGC_STOP_MATCH
																																			(BgL_iportz00_4046,
																																			BgL_arg3171z00_4058);
																																		BgL_newzd2matchzd2_11399
																																			= 0L;
																																		BgL_matchz00_4359
																																			=
																																			BgL_newzd2matchzd2_11399;
																																}}
																															else
																																{	/* Unsafe/http.scm 506 */
																																	if (
																																		((long)
																																			(BgL_curz00_4056)
																																			== 32L))
																																		{	/* Unsafe/http.scm 506 */
																																			long
																																				BgL_arg3173z00_4060;
																																			BgL_arg3173z00_4060
																																				=
																																				(1L +
																																				BgL_forwardz00_4048);
																																			{
																																				long
																																					BgL_forwardz00_11405;
																																				long
																																					BgL_bufposz00_11406;
																																				BgL_forwardz00_11405
																																					=
																																					BgL_arg3173z00_4060;
																																				BgL_bufposz00_11406
																																					=
																																					BgL_bufposz00_4049;
																																			BgL_statezd213zd21265z00_11404:
																																				if (
																																					(BgL_forwardz00_11405
																																						==
																																						BgL_bufposz00_11406))
																																					{	/* Unsafe/http.scm 506 */
																																						if (rgc_fill_buffer(BgL_iportz00_4046))
																																							{	/* Unsafe/http.scm 506 */
																																								long
																																									BgL_arg3074z00_11409;
																																								long
																																									BgL_arg3075z00_11410;
																																								BgL_arg3074z00_11409
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_iportz00_4046);
																																								BgL_arg3075z00_11410
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_iportz00_4046);
																																								{
																																									long
																																										BgL_bufposz00_15872;
																																									long
																																										BgL_forwardz00_15871;
																																									BgL_forwardz00_15871
																																										=
																																										BgL_arg3074z00_11409;
																																									BgL_bufposz00_15872
																																										=
																																										BgL_arg3075z00_11410;
																																									BgL_bufposz00_11406
																																										=
																																										BgL_bufposz00_15872;
																																									BgL_forwardz00_11405
																																										=
																																										BgL_forwardz00_15871;
																																									goto
																																										BgL_statezd213zd21265z00_11404;
																																								}
																																							}
																																						else
																																							{	/* Unsafe/http.scm 506 */
																																								BgL_matchz00_4359
																																									=
																																									BgL_newzd2matchzd2_4051;
																																							}
																																					}
																																				else
																																					{	/* Unsafe/http.scm 506 */
																																						int
																																							BgL_curz00_11411;
																																						BgL_curz00_11411
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_iportz00_4046,
																																							BgL_forwardz00_11405);
																																						{	/* Unsafe/http.scm 506 */

																																							if (((long) (BgL_curz00_11411) == 58L))
																																								{	/* Unsafe/http.scm 506 */
																																									BgL_matchz00_4359
																																										=
																																										BgL_newzd2matchzd2_4051;
																																								}
																																							else
																																								{
																																									long
																																										BgL_bufposz00_15881;
																																									long
																																										BgL_forwardz00_15879;
																																									long
																																										BgL_lastzd2matchzd2_15878;
																																									obj_t
																																										BgL_iportz00_15877;
																																									BgL_iportz00_15877
																																										=
																																										BgL_iportz00_4046;
																																									BgL_lastzd2matchzd2_15878
																																										=
																																										BgL_newzd2matchzd2_4051;
																																									BgL_forwardz00_15879
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_11405);
																																									BgL_bufposz00_15881
																																										=
																																										BgL_bufposz00_11406;
																																									BgL_bufposz00_4212
																																										=
																																										BgL_bufposz00_15881;
																																									BgL_forwardz00_4211
																																										=
																																										BgL_forwardz00_15879;
																																									BgL_lastzd2matchzd2_4210
																																										=
																																										BgL_lastzd2matchzd2_15878;
																																									BgL_iportz00_4209
																																										=
																																										BgL_iportz00_15877;
																																									goto
																																										BgL_zc3z04anonymousza33287ze3z87_4213;
																																								}
																																						}
																																					}
																																			}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 506 */
																																			bool_t
																																				BgL_test6460z00_15882;
																																			{	/* Unsafe/http.scm 506 */
																																				bool_t
																																					BgL_test6461z00_15883;
																																				if ((
																																						(long)
																																						(BgL_curz00_4056)
																																						==
																																						10L))
																																					{	/* Unsafe/http.scm 506 */
																																						BgL_test6461z00_15883
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Unsafe/http.scm 506 */
																																						BgL_test6461z00_15883
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_4056)
																																							==
																																							9L);
																																					}
																																				if (BgL_test6461z00_15883)
																																					{	/* Unsafe/http.scm 506 */
																																						BgL_test6460z00_15882
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Unsafe/http.scm 506 */
																																						if (
																																							((long) (BgL_curz00_4056) == 13L))
																																							{	/* Unsafe/http.scm 506 */
																																								BgL_test6460z00_15882
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Unsafe/http.scm 506 */
																																								if (((long) (BgL_curz00_4056) == 32L))
																																									{	/* Unsafe/http.scm 506 */
																																										BgL_test6460z00_15882
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Unsafe/http.scm 506 */
																																										BgL_test6460z00_15882
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_4056)
																																											==
																																											58L);
																																			}}}}
																																			if (BgL_test6460z00_15882)
																																				{	/* Unsafe/http.scm 506 */
																																					BgL_matchz00_4359
																																						=
																																						BgL_newzd2matchzd2_4051;
																																				}
																																			else
																																				{
																																					long
																																						BgL_bufposz00_15901;
																																					long
																																						BgL_forwardz00_15899;
																																					long
																																						BgL_lastzd2matchzd2_15898;
																																					obj_t
																																						BgL_iportz00_15897;
																																					BgL_iportz00_15897
																																						=
																																						BgL_iportz00_4046;
																																					BgL_lastzd2matchzd2_15898
																																						=
																																						BgL_newzd2matchzd2_4051;
																																					BgL_forwardz00_15899
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_4048);
																																					BgL_bufposz00_15901
																																						=
																																						BgL_bufposz00_4049;
																																					BgL_bufposz00_4212
																																						=
																																						BgL_bufposz00_15901;
																																					BgL_forwardz00_4211
																																						=
																																						BgL_forwardz00_15899;
																																					BgL_lastzd2matchzd2_4210
																																						=
																																						BgL_lastzd2matchzd2_15898;
																																					BgL_iportz00_4209
																																						=
																																						BgL_iportz00_15897;
																																					goto
																																						BgL_zc3z04anonymousza33287ze3z87_4213;
																																				}
																																		}
																																}
																														}
																													}
																											}
																										}
																									else
																										{	/* Unsafe/http.scm 506 */
																											bool_t
																												BgL_test6465z00_15903;
																											if (((long)
																													(BgL_curz00_4189) ==
																													9L))
																												{	/* Unsafe/http.scm 506 */
																													BgL_test6465z00_15903
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Unsafe/http.scm 506 */
																													BgL_test6465z00_15903
																														=
																														((long)
																														(BgL_curz00_4189) ==
																														32L);
																												}
																											if (BgL_test6465z00_15903)
																												{	/* Unsafe/http.scm 506 */
																													BgL_iportz00_4025 =
																														BgL_iportz00_4179;
																													BgL_lastzd2matchzd2_4026
																														=
																														BgL_newzd2matchzd2_4184;
																													BgL_forwardz00_4027 =
																														(1L +
																														BgL_forwardz00_4181);
																													BgL_bufposz00_4028 =
																														BgL_bufposz00_4182;
																												BgL_zc3z04anonymousza33142ze3z87_4029:
																													if (
																														(BgL_forwardz00_4027
																															==
																															BgL_bufposz00_4028))
																														{	/* Unsafe/http.scm 506 */
																															if (rgc_fill_buffer(BgL_iportz00_4025))
																																{	/* Unsafe/http.scm 506 */
																																	long
																																		BgL_arg3146z00_4032;
																																	long
																																		BgL_arg3150z00_4033;
																																	BgL_arg3146z00_4032
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_iportz00_4025);
																																	BgL_arg3150z00_4033
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_iportz00_4025);
																																	{
																																		long
																																			BgL_bufposz00_15916;
																																		long
																																			BgL_forwardz00_15915;
																																		BgL_forwardz00_15915
																																			=
																																			BgL_arg3146z00_4032;
																																		BgL_bufposz00_15916
																																			=
																																			BgL_arg3150z00_4033;
																																		BgL_bufposz00_4028
																																			=
																																			BgL_bufposz00_15916;
																																		BgL_forwardz00_4027
																																			=
																																			BgL_forwardz00_15915;
																																		goto
																																			BgL_zc3z04anonymousza33142ze3z87_4029;
																																	}
																																}
																															else
																																{	/* Unsafe/http.scm 506 */
																																	BgL_matchz00_4359
																																		=
																																		BgL_lastzd2matchzd2_4026;
																																}
																														}
																													else
																														{	/* Unsafe/http.scm 506 */
																															int
																																BgL_curz00_4034;
																															BgL_curz00_4034 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_iportz00_4025,
																																BgL_forwardz00_4027);
																															{	/* Unsafe/http.scm 506 */

																																if (
																																	((long)
																																		(BgL_curz00_4034)
																																		== 58L))
																																	{	/* Unsafe/http.scm 506 */
																																		long
																																			BgL_arg3154z00_4036;
																																		BgL_arg3154z00_4036
																																			=
																																			(1L +
																																			BgL_forwardz00_4027);
																																		{	/* Unsafe/http.scm 506 */
																																			long
																																				BgL_newzd2matchzd2_11351;
																																			RGC_STOP_MATCH
																																				(BgL_iportz00_4025,
																																				BgL_arg3154z00_4036);
																																			BgL_newzd2matchzd2_11351
																																				= 0L;
																																			BgL_matchz00_4359
																																				=
																																				BgL_newzd2matchzd2_11351;
																																	}}
																																else
																																	{	/* Unsafe/http.scm 506 */
																																		if (
																																			((long)
																																				(BgL_curz00_4034)
																																				== 32L))
																																			{	/* Unsafe/http.scm 506 */
																																				BgL_iportz00_3949
																																					=
																																					BgL_iportz00_4025;
																																				BgL_lastzd2matchzd2_3950
																																					=
																																					BgL_lastzd2matchzd2_4026;
																																				BgL_forwardz00_3951
																																					=
																																					(1L +
																																					BgL_forwardz00_4027);
																																				BgL_bufposz00_3952
																																					=
																																					BgL_bufposz00_4028;
																																			BgL_zc3z04anonymousza33078ze3z87_3953:
																																				if (
																																					(BgL_forwardz00_3951
																																						==
																																						BgL_bufposz00_3952))
																																					{	/* Unsafe/http.scm 506 */
																																						if (rgc_fill_buffer(BgL_iportz00_3949))
																																							{	/* Unsafe/http.scm 506 */
																																								long
																																									BgL_arg3081z00_3956;
																																								long
																																									BgL_arg3083z00_3957;
																																								BgL_arg3081z00_3956
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_iportz00_3949);
																																								BgL_arg3083z00_3957
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_iportz00_3949);
																																								{
																																									long
																																										BgL_bufposz00_15933;
																																									long
																																										BgL_forwardz00_15932;
																																									BgL_forwardz00_15932
																																										=
																																										BgL_arg3081z00_3956;
																																									BgL_bufposz00_15933
																																										=
																																										BgL_arg3083z00_3957;
																																									BgL_bufposz00_3952
																																										=
																																										BgL_bufposz00_15933;
																																									BgL_forwardz00_3951
																																										=
																																										BgL_forwardz00_15932;
																																									goto
																																										BgL_zc3z04anonymousza33078ze3z87_3953;
																																								}
																																							}
																																						else
																																							{	/* Unsafe/http.scm 506 */
																																								BgL_matchz00_4359
																																									=
																																									BgL_lastzd2matchzd2_3950;
																																							}
																																					}
																																				else
																																					{	/* Unsafe/http.scm 506 */
																																						int
																																							BgL_curz00_3958;
																																						BgL_curz00_3958
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_iportz00_3949,
																																							BgL_forwardz00_3951);
																																						{	/* Unsafe/http.scm 506 */

																																							if (((long) (BgL_curz00_3958) == 13L))
																																								{
																																									long
																																										BgL_bufposz00_15942;
																																									long
																																										BgL_forwardz00_15940;
																																									long
																																										BgL_lastzd2matchzd2_15939;
																																									obj_t
																																										BgL_iportz00_15938;
																																									BgL_iportz00_15938
																																										=
																																										BgL_iportz00_3949;
																																									BgL_lastzd2matchzd2_15939
																																										=
																																										BgL_lastzd2matchzd2_3950;
																																									BgL_forwardz00_15940
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_3951);
																																									BgL_bufposz00_15942
																																										=
																																										BgL_bufposz00_3952;
																																									BgL_bufposz00_4075
																																										=
																																										BgL_bufposz00_15942;
																																									BgL_forwardz00_4074
																																										=
																																										BgL_forwardz00_15940;
																																									BgL_lastzd2matchzd2_4073
																																										=
																																										BgL_lastzd2matchzd2_15939;
																																									BgL_iportz00_4072
																																										=
																																										BgL_iportz00_15938;
																																									goto
																																										BgL_zc3z04anonymousza33180ze3z87_4076;
																																								}
																																							else
																																								{	/* Unsafe/http.scm 506 */
																																									if (((long) (BgL_curz00_3958) == 10L))
																																										{
																																											long
																																												BgL_bufposz00_15950;
																																											long
																																												BgL_forwardz00_15948;
																																											long
																																												BgL_lastzd2matchzd2_15947;
																																											obj_t
																																												BgL_iportz00_15946;
																																											BgL_iportz00_15946
																																												=
																																												BgL_iportz00_3949;
																																											BgL_lastzd2matchzd2_15947
																																												=
																																												BgL_lastzd2matchzd2_3950;
																																											BgL_forwardz00_15948
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_3951);
																																											BgL_bufposz00_15950
																																												=
																																												BgL_bufposz00_3952;
																																											BgL_bufposz00_4049
																																												=
																																												BgL_bufposz00_15950;
																																											BgL_forwardz00_4048
																																												=
																																												BgL_forwardz00_15948;
																																											BgL_lastzd2matchzd2_4047
																																												=
																																												BgL_lastzd2matchzd2_15947;
																																											BgL_iportz00_4046
																																												=
																																												BgL_iportz00_15946;
																																											goto
																																												BgL_zc3z04anonymousza33165ze3z87_4050;
																																										}
																																									else
																																										{	/* Unsafe/http.scm 506 */
																																											bool_t
																																												BgL_test6475z00_15951;
																																											if (((long) (BgL_curz00_3958) == 9L))
																																												{	/* Unsafe/http.scm 506 */
																																													BgL_test6475z00_15951
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Unsafe/http.scm 506 */
																																													BgL_test6475z00_15951
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_3958)
																																														==
																																														32L);
																																												}
																																											if (BgL_test6475z00_15951)
																																												{
																																													long
																																														BgL_bufposz00_15961;
																																													long
																																														BgL_forwardz00_15959;
																																													long
																																														BgL_lastzd2matchzd2_15958;
																																													obj_t
																																														BgL_iportz00_15957;
																																													BgL_iportz00_15957
																																														=
																																														BgL_iportz00_3949;
																																													BgL_lastzd2matchzd2_15958
																																														=
																																														BgL_lastzd2matchzd2_3950;
																																													BgL_forwardz00_15959
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_3951);
																																													BgL_bufposz00_15961
																																														=
																																														BgL_bufposz00_3952;
																																													BgL_bufposz00_4028
																																														=
																																														BgL_bufposz00_15961;
																																													BgL_forwardz00_4027
																																														=
																																														BgL_forwardz00_15959;
																																													BgL_lastzd2matchzd2_4026
																																														=
																																														BgL_lastzd2matchzd2_15958;
																																													BgL_iportz00_4025
																																														=
																																														BgL_iportz00_15957;
																																													goto
																																														BgL_zc3z04anonymousza33142ze3z87_4029;
																																												}
																																											else
																																												{	/* Unsafe/http.scm 506 */
																																													bool_t
																																														BgL_test6477z00_15962;
																																													{	/* Unsafe/http.scm 506 */
																																														bool_t
																																															BgL_test6478z00_15963;
																																														if (((long) (BgL_curz00_3958) == 10L))
																																															{	/* Unsafe/http.scm 506 */
																																																BgL_test6478z00_15963
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Unsafe/http.scm 506 */
																																																BgL_test6478z00_15963
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_3958)
																																																	==
																																																	9L);
																																															}
																																														if (BgL_test6478z00_15963)
																																															{	/* Unsafe/http.scm 506 */
																																																BgL_test6477z00_15962
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Unsafe/http.scm 506 */
																																																if (((long) (BgL_curz00_3958) == 13L))
																																																	{	/* Unsafe/http.scm 506 */
																																																		BgL_test6477z00_15962
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Unsafe/http.scm 506 */
																																																		if (((long) (BgL_curz00_3958) == 32L))
																																																			{	/* Unsafe/http.scm 506 */
																																																				BgL_test6477z00_15962
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Unsafe/http.scm 506 */
																																																				BgL_test6477z00_15962
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_3958)
																																																					==
																																																					58L);
																																													}}}}
																																													if (BgL_test6477z00_15962)
																																														{	/* Unsafe/http.scm 506 */
																																															BgL_matchz00_4359
																																																=
																																																BgL_lastzd2matchzd2_3950;
																																														}
																																													else
																																														{
																																															long
																																																BgL_bufposz00_15981;
																																															long
																																																BgL_forwardz00_15979;
																																															long
																																																BgL_lastzd2matchzd2_15978;
																																															obj_t
																																																BgL_iportz00_15977;
																																															BgL_iportz00_15977
																																																=
																																																BgL_iportz00_3949;
																																															BgL_lastzd2matchzd2_15978
																																																=
																																																BgL_lastzd2matchzd2_3950;
																																															BgL_forwardz00_15979
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_3951);
																																															BgL_bufposz00_15981
																																																=
																																																BgL_bufposz00_3952;
																																															BgL_bufposz00_4212
																																																=
																																																BgL_bufposz00_15981;
																																															BgL_forwardz00_4211
																																																=
																																																BgL_forwardz00_15979;
																																															BgL_lastzd2matchzd2_4210
																																																=
																																																BgL_lastzd2matchzd2_15978;
																																															BgL_iportz00_4209
																																																=
																																																BgL_iportz00_15977;
																																															goto
																																																BgL_zc3z04anonymousza33287ze3z87_4213;
																																														}
																																												}
																																										}
																																								}
																																						}
																																					}
																																			}
																																		else
																																			{	/* Unsafe/http.scm 506 */
																																				if (
																																					((long) (BgL_curz00_4034) == 13L))
																																					{	/* Unsafe/http.scm 506 */
																																						long
																																							BgL_arg3159z00_4040;
																																						BgL_arg3159z00_4040
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_4027);
																																						{
																																							long
																																								BgL_forwardz00_11359;
																																							long
																																								BgL_bufposz00_11360;
																																							BgL_forwardz00_11359
																																								=
																																								BgL_arg3159z00_4040;
																																							BgL_bufposz00_11360
																																								=
																																								BgL_bufposz00_4028;
																																						BgL_statezd216zd21268z00_11358:
																																							if ((BgL_forwardz00_11359 == BgL_bufposz00_11360))
																																								{	/* Unsafe/http.scm 506 */
																																									if (rgc_fill_buffer(BgL_iportz00_4025))
																																										{	/* Unsafe/http.scm 506 */
																																											long
																																												BgL_arg3252z00_11363;
																																											long
																																												BgL_arg3253z00_11364;
																																											BgL_arg3252z00_11363
																																												=
																																												RGC_BUFFER_FORWARD
																																												(BgL_iportz00_4025);
																																											BgL_arg3253z00_11364
																																												=
																																												RGC_BUFFER_BUFPOS
																																												(BgL_iportz00_4025);
																																											{
																																												long
																																													BgL_bufposz00_15994;
																																												long
																																													BgL_forwardz00_15993;
																																												BgL_forwardz00_15993
																																													=
																																													BgL_arg3252z00_11363;
																																												BgL_bufposz00_15994
																																													=
																																													BgL_arg3253z00_11364;
																																												BgL_bufposz00_11360
																																													=
																																													BgL_bufposz00_15994;
																																												BgL_forwardz00_11359
																																													=
																																													BgL_forwardz00_15993;
																																												goto
																																													BgL_statezd216zd21268z00_11358;
																																											}
																																										}
																																									else
																																										{	/* Unsafe/http.scm 506 */
																																											BgL_matchz00_4359
																																												=
																																												BgL_lastzd2matchzd2_4026;
																																										}
																																								}
																																							else
																																								{	/* Unsafe/http.scm 506 */
																																									int
																																										BgL_curz00_11365;
																																									BgL_curz00_11365
																																										=
																																										RGC_BUFFER_GET_CHAR
																																										(BgL_iportz00_4025,
																																										BgL_forwardz00_11359);
																																									{	/* Unsafe/http.scm 506 */

																																										if (((long) (BgL_curz00_11365) == 10L))
																																											{	/* Unsafe/http.scm 506 */
																																												long
																																													BgL_arg3257z00_11367;
																																												BgL_arg3257z00_11367
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_11359);
																																												{	/* Unsafe/http.scm 506 */
																																													long
																																														BgL_newzd2matchzd2_11377;
																																													RGC_STOP_MATCH
																																														(BgL_iportz00_4025,
																																														BgL_arg3257z00_11367);
																																													BgL_newzd2matchzd2_11377
																																														=
																																														1L;
																																													BgL_matchz00_4359
																																														=
																																														BgL_newzd2matchzd2_11377;
																																											}}
																																										else
																																											{	/* Unsafe/http.scm 506 */
																																												BgL_matchz00_4359
																																													=
																																													BgL_lastzd2matchzd2_4026;
																																											}
																																									}
																																								}
																																						}
																																					}
																																				else
																																					{	/* Unsafe/http.scm 506 */
																																						if (
																																							((long) (BgL_curz00_4034) == 10L))
																																							{	/* Unsafe/http.scm 506 */
																																								long
																																									BgL_arg3161z00_4042;
																																								BgL_arg3161z00_4042
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_4027);
																																								{	/* Unsafe/http.scm 506 */
																																									long
																																										BgL_newzd2matchzd2_11382;
																																									RGC_STOP_MATCH
																																										(BgL_iportz00_4025,
																																										BgL_arg3161z00_4042);
																																									BgL_newzd2matchzd2_11382
																																										=
																																										1L;
																																									BgL_matchz00_4359
																																										=
																																										BgL_newzd2matchzd2_11382;
																																							}}
																																						else
																																							{	/* Unsafe/http.scm 506 */
																																								if (((long) (BgL_curz00_4034) == 9L))
																																									{	/* Unsafe/http.scm 506 */
																																										BgL_iportz00_4149
																																											=
																																											BgL_iportz00_4025;
																																										BgL_lastzd2matchzd2_4150
																																											=
																																											BgL_lastzd2matchzd2_4026;
																																										BgL_forwardz00_4151
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_4027);
																																										BgL_bufposz00_4152
																																											=
																																											BgL_bufposz00_4028;
																																									BgL_zc3z04anonymousza33235ze3z87_4153:
																																										if ((BgL_forwardz00_4151 == BgL_bufposz00_4152))
																																											{	/* Unsafe/http.scm 506 */
																																												if (rgc_fill_buffer(BgL_iportz00_4149))
																																													{	/* Unsafe/http.scm 506 */
																																														long
																																															BgL_arg3238z00_4156;
																																														long
																																															BgL_arg3239z00_4157;
																																														BgL_arg3238z00_4156
																																															=
																																															RGC_BUFFER_FORWARD
																																															(BgL_iportz00_4149);
																																														BgL_arg3239z00_4157
																																															=
																																															RGC_BUFFER_BUFPOS
																																															(BgL_iportz00_4149);
																																														{
																																															long
																																																BgL_bufposz00_16016;
																																															long
																																																BgL_forwardz00_16015;
																																															BgL_forwardz00_16015
																																																=
																																																BgL_arg3238z00_4156;
																																															BgL_bufposz00_16016
																																																=
																																																BgL_arg3239z00_4157;
																																															BgL_bufposz00_4152
																																																=
																																																BgL_bufposz00_16016;
																																															BgL_forwardz00_4151
																																																=
																																																BgL_forwardz00_16015;
																																															goto
																																																BgL_zc3z04anonymousza33235ze3z87_4153;
																																														}
																																													}
																																												else
																																													{	/* Unsafe/http.scm 506 */
																																														BgL_matchz00_4359
																																															=
																																															BgL_lastzd2matchzd2_4150;
																																													}
																																											}
																																										else
																																											{	/* Unsafe/http.scm 506 */
																																												int
																																													BgL_curz00_4158;
																																												BgL_curz00_4158
																																													=
																																													RGC_BUFFER_GET_CHAR
																																													(BgL_iportz00_4149,
																																													BgL_forwardz00_4151);
																																												{	/* Unsafe/http.scm 506 */

																																													if (((long) (BgL_curz00_4158) == 13L))
																																														{	/* Unsafe/http.scm 506 */
																																															long
																																																BgL_arg3241z00_4160;
																																															BgL_arg3241z00_4160
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_4151);
																																															{
																																																long
																																																	BgL_forwardz00_11547;
																																																long
																																																	BgL_bufposz00_11548;
																																																BgL_forwardz00_11547
																																																	=
																																																	BgL_arg3241z00_4160;
																																																BgL_bufposz00_11548
																																																	=
																																																	BgL_bufposz00_4152;
																																															BgL_statezd216zd21268z00_11546:
																																																if ((BgL_forwardz00_11547 == BgL_bufposz00_11548))
																																																	{	/* Unsafe/http.scm 506 */
																																																		if (rgc_fill_buffer(BgL_iportz00_4149))
																																																			{	/* Unsafe/http.scm 506 */
																																																				long
																																																					BgL_arg3252z00_11551;
																																																				long
																																																					BgL_arg3253z00_11552;
																																																				BgL_arg3252z00_11551
																																																					=
																																																					RGC_BUFFER_FORWARD
																																																					(BgL_iportz00_4149);
																																																				BgL_arg3253z00_11552
																																																					=
																																																					RGC_BUFFER_BUFPOS
																																																					(BgL_iportz00_4149);
																																																				{
																																																					long
																																																						BgL_bufposz00_16029;
																																																					long
																																																						BgL_forwardz00_16028;
																																																					BgL_forwardz00_16028
																																																						=
																																																						BgL_arg3252z00_11551;
																																																					BgL_bufposz00_16029
																																																						=
																																																						BgL_arg3253z00_11552;
																																																					BgL_bufposz00_11548
																																																						=
																																																						BgL_bufposz00_16029;
																																																					BgL_forwardz00_11547
																																																						=
																																																						BgL_forwardz00_16028;
																																																					goto
																																																						BgL_statezd216zd21268z00_11546;
																																																				}
																																																			}
																																																		else
																																																			{	/* Unsafe/http.scm 506 */
																																																				BgL_matchz00_4359
																																																					=
																																																					BgL_lastzd2matchzd2_4150;
																																																			}
																																																	}
																																																else
																																																	{	/* Unsafe/http.scm 506 */
																																																		int
																																																			BgL_curz00_11553;
																																																		BgL_curz00_11553
																																																			=
																																																			RGC_BUFFER_GET_CHAR
																																																			(BgL_iportz00_4149,
																																																			BgL_forwardz00_11547);
																																																		{	/* Unsafe/http.scm 506 */

																																																			if (((long) (BgL_curz00_11553) == 10L))
																																																				{	/* Unsafe/http.scm 506 */
																																																					long
																																																						BgL_arg3257z00_11555;
																																																					BgL_arg3257z00_11555
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_11547);
																																																					{	/* Unsafe/http.scm 506 */
																																																						long
																																																							BgL_newzd2matchzd2_11565;
																																																						RGC_STOP_MATCH
																																																							(BgL_iportz00_4149,
																																																							BgL_arg3257z00_11555);
																																																						BgL_newzd2matchzd2_11565
																																																							=
																																																							1L;
																																																						BgL_matchz00_4359
																																																							=
																																																							BgL_newzd2matchzd2_11565;
																																																				}}
																																																			else
																																																				{	/* Unsafe/http.scm 506 */
																																																					BgL_matchz00_4359
																																																						=
																																																						BgL_lastzd2matchzd2_4150;
																																																				}
																																																		}
																																																	}
																																															}
																																														}
																																													else
																																														{	/* Unsafe/http.scm 506 */
																																															if (((long) (BgL_curz00_4158) == 10L))
																																																{	/* Unsafe/http.scm 506 */
																																																	long
																																																		BgL_arg3245z00_4162;
																																																	BgL_arg3245z00_4162
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_4151);
																																																	{	/* Unsafe/http.scm 506 */
																																																		long
																																																			BgL_newzd2matchzd2_11570;
																																																		RGC_STOP_MATCH
																																																			(BgL_iportz00_4149,
																																																			BgL_arg3245z00_4162);
																																																		BgL_newzd2matchzd2_11570
																																																			=
																																																			1L;
																																																		BgL_matchz00_4359
																																																			=
																																																			BgL_newzd2matchzd2_11570;
																																																}}
																																															else
																																																{	/* Unsafe/http.scm 506 */
																																																	bool_t
																																																		BgL_test6495z00_16041;
																																																	if (((long) (BgL_curz00_4158) == 9L))
																																																		{	/* Unsafe/http.scm 506 */
																																																			BgL_test6495z00_16041
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Unsafe/http.scm 506 */
																																																			BgL_test6495z00_16041
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_4158)
																																																				==
																																																				32L);
																																																		}
																																																	if (BgL_test6495z00_16041)
																																																		{
																																																			long
																																																				BgL_forwardz00_16047;
																																																			BgL_forwardz00_16047
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_4151);
																																																			BgL_forwardz00_4151
																																																				=
																																																				BgL_forwardz00_16047;
																																																			goto
																																																				BgL_zc3z04anonymousza33235ze3z87_4153;
																																																		}
																																																	else
																																																		{	/* Unsafe/http.scm 506 */
																																																			BgL_matchz00_4359
																																																				=
																																																				BgL_lastzd2matchzd2_4150;
																																																		}
																																																}
																																														}
																																												}
																																											}
																																									}
																																								else
																																									{
																																										long
																																											BgL_bufposz00_16054;
																																										long
																																											BgL_forwardz00_16052;
																																										long
																																											BgL_lastzd2matchzd2_16051;
																																										obj_t
																																											BgL_iportz00_16050;
																																										BgL_iportz00_16050
																																											=
																																											BgL_iportz00_4025;
																																										BgL_lastzd2matchzd2_16051
																																											=
																																											BgL_lastzd2matchzd2_4026;
																																										BgL_forwardz00_16052
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_4027);
																																										BgL_bufposz00_16054
																																											=
																																											BgL_bufposz00_4028;
																																										BgL_bufposz00_4212
																																											=
																																											BgL_bufposz00_16054;
																																										BgL_forwardz00_4211
																																											=
																																											BgL_forwardz00_16052;
																																										BgL_lastzd2matchzd2_4210
																																											=
																																											BgL_lastzd2matchzd2_16051;
																																										BgL_iportz00_4209
																																											=
																																											BgL_iportz00_16050;
																																										goto
																																											BgL_zc3z04anonymousza33287ze3z87_4213;
																																									}
																																							}
																																					}
																																			}
																																	}
																															}
																														}
																												}
																											else
																												{	/* Unsafe/http.scm 506 */
																													bool_t
																														BgL_test6497z00_16056;
																													{	/* Unsafe/http.scm 506 */
																														bool_t
																															BgL_test6498z00_16057;
																														if (((long)
																																(BgL_curz00_4189)
																																== 10L))
																															{	/* Unsafe/http.scm 506 */
																																BgL_test6498z00_16057
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Unsafe/http.scm 506 */
																																BgL_test6498z00_16057
																																	=
																																	((long)
																																	(BgL_curz00_4189)
																																	== 9L);
																															}
																														if (BgL_test6498z00_16057)
																															{	/* Unsafe/http.scm 506 */
																																BgL_test6497z00_16056
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Unsafe/http.scm 506 */
																																if (
																																	((long)
																																		(BgL_curz00_4189)
																																		== 13L))
																																	{	/* Unsafe/http.scm 506 */
																																		BgL_test6497z00_16056
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Unsafe/http.scm 506 */
																																		if (
																																			((long)
																																				(BgL_curz00_4189)
																																				== 32L))
																																			{	/* Unsafe/http.scm 506 */
																																				BgL_test6497z00_16056
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Unsafe/http.scm 506 */
																																				BgL_test6497z00_16056
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_4189)
																																					==
																																					58L);
																													}}}}
																													if (BgL_test6497z00_16056)
																														{	/* Unsafe/http.scm 506 */
																															BgL_matchz00_4359
																																=
																																BgL_newzd2matchzd2_4184;
																														}
																													else
																														{
																															long
																																BgL_bufposz00_16075;
																															long
																																BgL_forwardz00_16073;
																															long
																																BgL_lastzd2matchzd2_16072;
																															obj_t
																																BgL_iportz00_16071;
																															BgL_iportz00_16071
																																=
																																BgL_iportz00_4179;
																															BgL_lastzd2matchzd2_16072
																																=
																																BgL_newzd2matchzd2_4184;
																															BgL_forwardz00_16073
																																=
																																(1L +
																																BgL_forwardz00_4181);
																															BgL_bufposz00_16075
																																=
																																BgL_bufposz00_4182;
																															BgL_bufposz00_4212
																																=
																																BgL_bufposz00_16075;
																															BgL_forwardz00_4211
																																=
																																BgL_forwardz00_16073;
																															BgL_lastzd2matchzd2_4210
																																=
																																BgL_lastzd2matchzd2_16072;
																															BgL_iportz00_4209
																																=
																																BgL_iportz00_16071;
																															goto
																																BgL_zc3z04anonymousza33287ze3z87_4213;
																														}
																												}
																										}
																								}
																						}
																					}
																			}
																		}
																	else
																		{	/* Unsafe/http.scm 506 */
																			if (((long) (BgL_curz00_3987) == 13L))
																				{	/* Unsafe/http.scm 506 */
																					BgL_iportz00_4130 = BgL_iportz00_3978;
																					BgL_lastzd2matchzd2_4131 =
																						BgL_lastzd2matchzd2_3979;
																					BgL_forwardz00_4132 =
																						(1L + BgL_forwardz00_3980);
																					BgL_bufposz00_4133 =
																						BgL_bufposz00_3981;
																				BgL_zc3z04anonymousza33225ze3z87_4134:
																					{	/* Unsafe/http.scm 506 */
																						long BgL_newzd2matchzd2_4135;

																						RGC_STOP_MATCH(BgL_iportz00_4130,
																							BgL_forwardz00_4132);
																						BgL_newzd2matchzd2_4135 = 2L;
																						if (
																							(BgL_forwardz00_4132 ==
																								BgL_bufposz00_4133))
																							{	/* Unsafe/http.scm 506 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_4130))
																									{	/* Unsafe/http.scm 506 */
																										long BgL_arg3228z00_4138;
																										long BgL_arg3229z00_4139;

																										BgL_arg3228z00_4138 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_4130);
																										BgL_arg3229z00_4139 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_4130);
																										{
																											long BgL_bufposz00_16088;
																											long BgL_forwardz00_16087;

																											BgL_forwardz00_16087 =
																												BgL_arg3228z00_4138;
																											BgL_bufposz00_16088 =
																												BgL_arg3229z00_4139;
																											BgL_bufposz00_4133 =
																												BgL_bufposz00_16088;
																											BgL_forwardz00_4132 =
																												BgL_forwardz00_16087;
																											goto
																												BgL_zc3z04anonymousza33225ze3z87_4134;
																										}
																									}
																								else
																									{	/* Unsafe/http.scm 506 */
																										BgL_matchz00_4359 =
																											BgL_newzd2matchzd2_4135;
																									}
																							}
																						else
																							{	/* Unsafe/http.scm 506 */
																								int BgL_curz00_4140;

																								BgL_curz00_4140 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_4130,
																									BgL_forwardz00_4132);
																								{	/* Unsafe/http.scm 506 */

																									if (
																										((long) (BgL_curz00_4140) ==
																											10L))
																										{	/* Unsafe/http.scm 506 */
																											long BgL_arg3233z00_4142;

																											BgL_arg3233z00_4142 =
																												(1L +
																												BgL_forwardz00_4132);
																											{	/* Unsafe/http.scm 506 */
																												long
																													BgL_newzd2matchzd2_11531;
																												RGC_STOP_MATCH
																													(BgL_iportz00_4130,
																													BgL_arg3233z00_4142);
																												BgL_newzd2matchzd2_11531
																													= 1L;
																												BgL_matchz00_4359 =
																													BgL_newzd2matchzd2_11531;
																										}}
																									else
																										{	/* Unsafe/http.scm 506 */
																											BgL_matchz00_4359 =
																												BgL_newzd2matchzd2_4135;
																										}
																								}
																							}
																					}
																				}
																			else
																				{	/* Unsafe/http.scm 506 */
																					if (((long) (BgL_curz00_3987) == 10L))
																						{	/* Unsafe/http.scm 506 */
																							long BgL_arg3121z00_3995;

																							BgL_arg3121z00_3995 =
																								(1L + BgL_forwardz00_3980);
																							{	/* Unsafe/http.scm 506 */
																								long BgL_newzd2matchzd2_11295;

																								RGC_STOP_MATCH
																									(BgL_iportz00_3978,
																									BgL_arg3121z00_3995);
																								BgL_newzd2matchzd2_11295 = 1L;
																								BgL_matchz00_4359 =
																									BgL_newzd2matchzd2_11295;
																						}}
																					else
																						{	/* Unsafe/http.scm 506 */
																							if (
																								((long) (BgL_curz00_3987) ==
																									9L))
																								{	/* Unsafe/http.scm 506 */
																									BgL_iportz00_4105 =
																										BgL_iportz00_3978;
																									BgL_lastzd2matchzd2_4106 =
																										BgL_lastzd2matchzd2_3979;
																									BgL_forwardz00_4107 =
																										(1L + BgL_forwardz00_3980);
																									BgL_bufposz00_4108 =
																										BgL_bufposz00_3981;
																								BgL_zc3z04anonymousza33211ze3z87_4109:
																									{	/* Unsafe/http.scm 506 */
																										long
																											BgL_newzd2matchzd2_4110;
																										RGC_STOP_MATCH
																											(BgL_iportz00_4105,
																											BgL_forwardz00_4107);
																										BgL_newzd2matchzd2_4110 =
																											2L;
																										if ((BgL_forwardz00_4107 ==
																												BgL_bufposz00_4108))
																											{	/* Unsafe/http.scm 506 */
																												if (rgc_fill_buffer
																													(BgL_iportz00_4105))
																													{	/* Unsafe/http.scm 506 */
																														long
																															BgL_arg3215z00_4113;
																														long
																															BgL_arg3216z00_4114;
																														BgL_arg3215z00_4113
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_iportz00_4105);
																														BgL_arg3216z00_4114
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_iportz00_4105);
																														{
																															long
																																BgL_bufposz00_16112;
																															long
																																BgL_forwardz00_16111;
																															BgL_forwardz00_16111
																																=
																																BgL_arg3215z00_4113;
																															BgL_bufposz00_16112
																																=
																																BgL_arg3216z00_4114;
																															BgL_bufposz00_4108
																																=
																																BgL_bufposz00_16112;
																															BgL_forwardz00_4107
																																=
																																BgL_forwardz00_16111;
																															goto
																																BgL_zc3z04anonymousza33211ze3z87_4109;
																														}
																													}
																												else
																													{	/* Unsafe/http.scm 506 */
																														BgL_matchz00_4359 =
																															BgL_newzd2matchzd2_4110;
																													}
																											}
																										else
																											{	/* Unsafe/http.scm 506 */
																												int BgL_curz00_4115;

																												BgL_curz00_4115 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_iportz00_4105,
																													BgL_forwardz00_4107);
																												{	/* Unsafe/http.scm 506 */

																													if (
																														((long)
																															(BgL_curz00_4115)
																															== 13L))
																														{	/* Unsafe/http.scm 506 */
																															long
																																BgL_arg3218z00_4117;
																															BgL_arg3218z00_4117
																																=
																																(1L +
																																BgL_forwardz00_4107);
																															{
																																long
																																	BgL_forwardz00_11488;
																																long
																																	BgL_bufposz00_11489;
																																BgL_forwardz00_11488
																																	=
																																	BgL_arg3218z00_4117;
																																BgL_bufposz00_11489
																																	=
																																	BgL_bufposz00_4108;
																															BgL_statezd216zd21268z00_11487:
																																if (
																																	(BgL_forwardz00_11488
																																		==
																																		BgL_bufposz00_11489))
																																	{	/* Unsafe/http.scm 506 */
																																		if (rgc_fill_buffer(BgL_iportz00_4105))
																																			{	/* Unsafe/http.scm 506 */
																																				long
																																					BgL_arg3252z00_11492;
																																				long
																																					BgL_arg3253z00_11493;
																																				BgL_arg3252z00_11492
																																					=
																																					RGC_BUFFER_FORWARD
																																					(BgL_iportz00_4105);
																																				BgL_arg3253z00_11493
																																					=
																																					RGC_BUFFER_BUFPOS
																																					(BgL_iportz00_4105);
																																				{
																																					long
																																						BgL_bufposz00_16125;
																																					long
																																						BgL_forwardz00_16124;
																																					BgL_forwardz00_16124
																																						=
																																						BgL_arg3252z00_11492;
																																					BgL_bufposz00_16125
																																						=
																																						BgL_arg3253z00_11493;
																																					BgL_bufposz00_11489
																																						=
																																						BgL_bufposz00_16125;
																																					BgL_forwardz00_11488
																																						=
																																						BgL_forwardz00_16124;
																																					goto
																																						BgL_statezd216zd21268z00_11487;
																																				}
																																			}
																																		else
																																			{	/* Unsafe/http.scm 506 */
																																				BgL_matchz00_4359
																																					=
																																					BgL_newzd2matchzd2_4110;
																																			}
																																	}
																																else
																																	{	/* Unsafe/http.scm 506 */
																																		int
																																			BgL_curz00_11494;
																																		BgL_curz00_11494
																																			=
																																			RGC_BUFFER_GET_CHAR
																																			(BgL_iportz00_4105,
																																			BgL_forwardz00_11488);
																																		{	/* Unsafe/http.scm 506 */

																																			if (
																																				((long)
																																					(BgL_curz00_11494)
																																					==
																																					10L))
																																				{	/* Unsafe/http.scm 506 */
																																					long
																																						BgL_arg3257z00_11496;
																																					BgL_arg3257z00_11496
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_11488);
																																					{	/* Unsafe/http.scm 506 */
																																						long
																																							BgL_newzd2matchzd2_11506;
																																						RGC_STOP_MATCH
																																							(BgL_iportz00_4105,
																																							BgL_arg3257z00_11496);
																																						BgL_newzd2matchzd2_11506
																																							=
																																							1L;
																																						BgL_matchz00_4359
																																							=
																																							BgL_newzd2matchzd2_11506;
																																				}}
																																			else
																																				{	/* Unsafe/http.scm 506 */
																																					BgL_matchz00_4359
																																						=
																																						BgL_newzd2matchzd2_4110;
																																				}
																																		}
																																	}
																															}
																														}
																													else
																														{	/* Unsafe/http.scm 506 */
																															if (
																																((long)
																																	(BgL_curz00_4115)
																																	== 10L))
																																{	/* Unsafe/http.scm 506 */
																																	long
																																		BgL_arg3220z00_4119;
																																	BgL_arg3220z00_4119
																																		=
																																		(1L +
																																		BgL_forwardz00_4107);
																																	{	/* Unsafe/http.scm 506 */
																																		long
																																			BgL_newzd2matchzd2_11511;
																																		RGC_STOP_MATCH
																																			(BgL_iportz00_4105,
																																			BgL_arg3220z00_4119);
																																		BgL_newzd2matchzd2_11511
																																			= 1L;
																																		BgL_matchz00_4359
																																			=
																																			BgL_newzd2matchzd2_11511;
																																}}
																															else
																																{	/* Unsafe/http.scm 506 */
																																	bool_t
																																		BgL_test6515z00_16137;
																																	if (((long)
																																			(BgL_curz00_4115)
																																			== 9L))
																																		{	/* Unsafe/http.scm 506 */
																																			BgL_test6515z00_16137
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Unsafe/http.scm 506 */
																																			BgL_test6515z00_16137
																																				=
																																				((long)
																																				(BgL_curz00_4115)
																																				== 32L);
																																		}
																																	if (BgL_test6515z00_16137)
																																		{
																																			long
																																				BgL_bufposz00_16147;
																																			long
																																				BgL_forwardz00_16145;
																																			long
																																				BgL_lastzd2matchzd2_16144;
																																			obj_t
																																				BgL_iportz00_16143;
																																			BgL_iportz00_16143
																																				=
																																				BgL_iportz00_4105;
																																			BgL_lastzd2matchzd2_16144
																																				=
																																				BgL_newzd2matchzd2_4110;
																																			BgL_forwardz00_16145
																																				=
																																				(1L +
																																				BgL_forwardz00_4107);
																																			BgL_bufposz00_16147
																																				=
																																				BgL_bufposz00_4108;
																																			BgL_bufposz00_4152
																																				=
																																				BgL_bufposz00_16147;
																																			BgL_forwardz00_4151
																																				=
																																				BgL_forwardz00_16145;
																																			BgL_lastzd2matchzd2_4150
																																				=
																																				BgL_lastzd2matchzd2_16144;
																																			BgL_iportz00_4149
																																				=
																																				BgL_iportz00_16143;
																																			goto
																																				BgL_zc3z04anonymousza33235ze3z87_4153;
																																		}
																																	else
																																		{	/* Unsafe/http.scm 506 */
																																			BgL_matchz00_4359
																																				=
																																				BgL_newzd2matchzd2_4110;
																																		}
																																}
																														}
																												}
																											}
																									}
																								}
																							else
																								{	/* Unsafe/http.scm 506 */
																									BgL_iportz00_3999 =
																										BgL_iportz00_3978;
																									BgL_lastzd2matchzd2_4000 =
																										BgL_lastzd2matchzd2_3979;
																									BgL_forwardz00_4001 =
																										(1L + BgL_forwardz00_3980);
																									BgL_bufposz00_4002 =
																										BgL_bufposz00_3981;
																								BgL_zc3z04anonymousza33127ze3z87_4003:
																									{	/* Unsafe/http.scm 506 */
																										long
																											BgL_newzd2matchzd2_4004;
																										RGC_STOP_MATCH
																											(BgL_iportz00_3999,
																											BgL_forwardz00_4001);
																										BgL_newzd2matchzd2_4004 =
																											2L;
																										if ((BgL_forwardz00_4001 ==
																												BgL_bufposz00_4002))
																											{	/* Unsafe/http.scm 506 */
																												if (rgc_fill_buffer
																													(BgL_iportz00_3999))
																													{	/* Unsafe/http.scm 506 */
																														long
																															BgL_arg3130z00_4007;
																														long
																															BgL_arg3131z00_4008;
																														BgL_arg3130z00_4007
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_iportz00_3999);
																														BgL_arg3131z00_4008
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_iportz00_3999);
																														{
																															long
																																BgL_bufposz00_16157;
																															long
																																BgL_forwardz00_16156;
																															BgL_forwardz00_16156
																																=
																																BgL_arg3130z00_4007;
																															BgL_bufposz00_16157
																																=
																																BgL_arg3131z00_4008;
																															BgL_bufposz00_4002
																																=
																																BgL_bufposz00_16157;
																															BgL_forwardz00_4001
																																=
																																BgL_forwardz00_16156;
																															goto
																																BgL_zc3z04anonymousza33127ze3z87_4003;
																														}
																													}
																												else
																													{	/* Unsafe/http.scm 506 */
																														BgL_matchz00_4359 =
																															BgL_newzd2matchzd2_4004;
																													}
																											}
																										else
																											{	/* Unsafe/http.scm 506 */
																												int BgL_curz00_4009;

																												BgL_curz00_4009 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_iportz00_3999,
																													BgL_forwardz00_4001);
																												{	/* Unsafe/http.scm 506 */

																													if (
																														((long)
																															(BgL_curz00_4009)
																															== 58L))
																														{	/* Unsafe/http.scm 506 */
																															long
																																BgL_arg3133z00_4011;
																															BgL_arg3133z00_4011
																																=
																																(1L +
																																BgL_forwardz00_4001);
																															{	/* Unsafe/http.scm 506 */
																																long
																																	BgL_newzd2matchzd2_11312;
																																RGC_STOP_MATCH
																																	(BgL_iportz00_3999,
																																	BgL_arg3133z00_4011);
																																BgL_newzd2matchzd2_11312
																																	= 0L;
																																BgL_matchz00_4359
																																	=
																																	BgL_newzd2matchzd2_11312;
																														}}
																													else
																														{	/* Unsafe/http.scm 506 */
																															if (
																																((long)
																																	(BgL_curz00_4009)
																																	== 32L))
																																{	/* Unsafe/http.scm 506 */
																																	long
																																		BgL_arg3135z00_4013;
																																	BgL_arg3135z00_4013
																																		=
																																		(1L +
																																		BgL_forwardz00_4001);
																																	{
																																		long
																																			BgL_forwardz00_11318;
																																		long
																																			BgL_bufposz00_11319;
																																		BgL_forwardz00_11318
																																			=
																																			BgL_arg3135z00_4013;
																																		BgL_bufposz00_11319
																																			=
																																			BgL_bufposz00_4002;
																																	BgL_statezd213zd21265z00_11317:
																																		if (
																																			(BgL_forwardz00_11318
																																				==
																																				BgL_bufposz00_11319))
																																			{	/* Unsafe/http.scm 506 */
																																				if (rgc_fill_buffer(BgL_iportz00_3999))
																																					{	/* Unsafe/http.scm 506 */
																																						long
																																							BgL_arg3074z00_11322;
																																						long
																																							BgL_arg3075z00_11323;
																																						BgL_arg3074z00_11322
																																							=
																																							RGC_BUFFER_FORWARD
																																							(BgL_iportz00_3999);
																																						BgL_arg3075z00_11323
																																							=
																																							RGC_BUFFER_BUFPOS
																																							(BgL_iportz00_3999);
																																						{
																																							long
																																								BgL_bufposz00_16175;
																																							long
																																								BgL_forwardz00_16174;
																																							BgL_forwardz00_16174
																																								=
																																								BgL_arg3074z00_11322;
																																							BgL_bufposz00_16175
																																								=
																																								BgL_arg3075z00_11323;
																																							BgL_bufposz00_11319
																																								=
																																								BgL_bufposz00_16175;
																																							BgL_forwardz00_11318
																																								=
																																								BgL_forwardz00_16174;
																																							goto
																																								BgL_statezd213zd21265z00_11317;
																																						}
																																					}
																																				else
																																					{	/* Unsafe/http.scm 506 */
																																						BgL_matchz00_4359
																																							=
																																							BgL_newzd2matchzd2_4004;
																																					}
																																			}
																																		else
																																			{	/* Unsafe/http.scm 506 */
																																				int
																																					BgL_curz00_11324;
																																				BgL_curz00_11324
																																					=
																																					RGC_BUFFER_GET_CHAR
																																					(BgL_iportz00_3999,
																																					BgL_forwardz00_11318);
																																				{	/* Unsafe/http.scm 506 */

																																					if (
																																						((long) (BgL_curz00_11324) == 58L))
																																						{	/* Unsafe/http.scm 506 */
																																							BgL_matchz00_4359
																																								=
																																								BgL_newzd2matchzd2_4004;
																																						}
																																					else
																																						{
																																							long
																																								BgL_bufposz00_16184;
																																							long
																																								BgL_forwardz00_16182;
																																							long
																																								BgL_lastzd2matchzd2_16181;
																																							obj_t
																																								BgL_iportz00_16180;
																																							BgL_iportz00_16180
																																								=
																																								BgL_iportz00_3999;
																																							BgL_lastzd2matchzd2_16181
																																								=
																																								BgL_newzd2matchzd2_4004;
																																							BgL_forwardz00_16182
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_11318);
																																							BgL_bufposz00_16184
																																								=
																																								BgL_bufposz00_11319;
																																							BgL_bufposz00_4212
																																								=
																																								BgL_bufposz00_16184;
																																							BgL_forwardz00_4211
																																								=
																																								BgL_forwardz00_16182;
																																							BgL_lastzd2matchzd2_4210
																																								=
																																								BgL_lastzd2matchzd2_16181;
																																							BgL_iportz00_4209
																																								=
																																								BgL_iportz00_16180;
																																							goto
																																								BgL_zc3z04anonymousza33287ze3z87_4213;
																																						}
																																				}
																																			}
																																	}
																																}
																															else
																																{	/* Unsafe/http.scm 506 */
																																	bool_t
																																		BgL_test6524z00_16185;
																																	{	/* Unsafe/http.scm 506 */
																																		bool_t
																																			BgL_test6525z00_16186;
																																		if (((long)
																																				(BgL_curz00_4009)
																																				== 10L))
																																			{	/* Unsafe/http.scm 506 */
																																				BgL_test6525z00_16186
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Unsafe/http.scm 506 */
																																				BgL_test6525z00_16186
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_4009)
																																					==
																																					9L);
																																			}
																																		if (BgL_test6525z00_16186)
																																			{	/* Unsafe/http.scm 506 */
																																				BgL_test6524z00_16185
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Unsafe/http.scm 506 */
																																				if (
																																					((long) (BgL_curz00_4009) == 13L))
																																					{	/* Unsafe/http.scm 506 */
																																						BgL_test6524z00_16185
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Unsafe/http.scm 506 */
																																						if (
																																							((long) (BgL_curz00_4009) == 32L))
																																							{	/* Unsafe/http.scm 506 */
																																								BgL_test6524z00_16185
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Unsafe/http.scm 506 */
																																								BgL_test6524z00_16185
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_4009)
																																									==
																																									58L);
																																	}}}}
																																	if (BgL_test6524z00_16185)
																																		{	/* Unsafe/http.scm 506 */
																																			BgL_matchz00_4359
																																				=
																																				BgL_newzd2matchzd2_4004;
																																		}
																																	else
																																		{
																																			long
																																				BgL_bufposz00_16204;
																																			long
																																				BgL_forwardz00_16202;
																																			long
																																				BgL_lastzd2matchzd2_16201;
																																			obj_t
																																				BgL_iportz00_16200;
																																			BgL_iportz00_16200
																																				=
																																				BgL_iportz00_3999;
																																			BgL_lastzd2matchzd2_16201
																																				=
																																				BgL_newzd2matchzd2_4004;
																																			BgL_forwardz00_16202
																																				=
																																				(1L +
																																				BgL_forwardz00_4001);
																																			BgL_bufposz00_16204
																																				=
																																				BgL_bufposz00_4002;
																																			BgL_bufposz00_4212
																																				=
																																				BgL_bufposz00_16204;
																																			BgL_forwardz00_4211
																																				=
																																				BgL_forwardz00_16202;
																																			BgL_lastzd2matchzd2_4210
																																				=
																																				BgL_lastzd2matchzd2_16201;
																																			BgL_iportz00_4209
																																				=
																																				BgL_iportz00_16200;
																																			goto
																																				BgL_zc3z04anonymousza33287ze3z87_4213;
																																		}
																																}
																														}
																												}
																											}
																									}
																								}
																						}
																				}
																		}
																}
														}
													}
											}
											RGC_SET_FILEPOS(BgL_iportz00_3882);
											switch (BgL_matchz00_4359)
												{
												case 2L:

													{	/* Unsafe/http.scm 585 */
														obj_t BgL_cz00_4362;

														BgL_cz00_4362 =
															BGl_thezd2failureze70z35zz__httpz00
															(BgL_iportz00_3882);
														if (EOF_OBJECTP(BgL_cz00_4362))
															{	/* Unsafe/http.scm 589 */
																obj_t BgL_val0_1423z00_4364;
																obj_t BgL_val1_1424z00_4365;
																obj_t BgL_val2_1425z00_4366;
																obj_t BgL_val3_1426z00_4367;
																obj_t BgL_val4_1427z00_4368;
																obj_t BgL_val5_1428z00_4369;
																obj_t BgL_val6_1429z00_4370;
																obj_t BgL_val7_1430z00_4371;

																BgL_val0_1423z00_4364 =
																	bgl_reverse_bang(BgL_headerz00_3884);
																BgL_val1_1424z00_4365 = BgL_hostnamez00_3885;
																BgL_val2_1425z00_4366 = BgL_portz00_3886;
																BgL_val3_1426z00_4367 =
																	BgL_contentzd2lengthzd2_3887;
																BgL_val4_1427z00_4368 =
																	BgL_transferzd2encodingzd2_3888;
																BgL_val5_1428z00_4369 =
																	BgL_authoriza7ationza7_3889;
																BgL_val6_1429z00_4370 =
																	BgL_proxyzd2authoriza7ationz75_3890;
																BgL_val7_1430z00_4371 = BgL_connectionz00_3891;
																{	/* Unsafe/http.scm 589 */
																	int BgL_tmpz00_16211;

																	BgL_tmpz00_16211 = (int) (8L);
																	BGL_MVALUES_NUMBER_SET(BgL_tmpz00_16211);
																}
																{	/* Unsafe/http.scm 589 */
																	int BgL_tmpz00_16214;

																	BgL_tmpz00_16214 = (int) (1L);
																	BGL_MVALUES_VAL_SET(BgL_tmpz00_16214,
																		BgL_val1_1424z00_4365);
																}
																{	/* Unsafe/http.scm 589 */
																	int BgL_tmpz00_16217;

																	BgL_tmpz00_16217 = (int) (2L);
																	BGL_MVALUES_VAL_SET(BgL_tmpz00_16217,
																		BgL_val2_1425z00_4366);
																}
																{	/* Unsafe/http.scm 589 */
																	int BgL_tmpz00_16220;

																	BgL_tmpz00_16220 = (int) (3L);
																	BGL_MVALUES_VAL_SET(BgL_tmpz00_16220,
																		BgL_val3_1426z00_4367);
																}
																{	/* Unsafe/http.scm 589 */
																	int BgL_tmpz00_16223;

																	BgL_tmpz00_16223 = (int) (4L);
																	BGL_MVALUES_VAL_SET(BgL_tmpz00_16223,
																		BgL_val4_1427z00_4368);
																}
																{	/* Unsafe/http.scm 589 */
																	int BgL_tmpz00_16226;

																	BgL_tmpz00_16226 = (int) (5L);
																	BGL_MVALUES_VAL_SET(BgL_tmpz00_16226,
																		BgL_val5_1428z00_4369);
																}
																{	/* Unsafe/http.scm 589 */
																	int BgL_tmpz00_16229;

																	BgL_tmpz00_16229 = (int) (6L);
																	BGL_MVALUES_VAL_SET(BgL_tmpz00_16229,
																		BgL_val6_1429z00_4370);
																}
																{	/* Unsafe/http.scm 589 */
																	int BgL_tmpz00_16232;

																	BgL_tmpz00_16232 = (int) (7L);
																	BGL_MVALUES_VAL_SET(BgL_tmpz00_16232,
																		BgL_val7_1430z00_4371);
																}
																return BgL_val0_1423z00_4364;
															}
														else
															{	/* Unsafe/http.scm 597 */
																BgL_z62iozd2parsezd2errorz62_bglt
																	BgL_arg3403z00_4372;
																{	/* Unsafe/http.scm 597 */
																	BgL_z62iozd2parsezd2errorz62_bglt
																		BgL_new1273z00_4373;
																	{	/* Unsafe/http.scm 597 */
																		BgL_z62iozd2parsezd2errorz62_bglt
																			BgL_new1272z00_4389;
																		BgL_new1272z00_4389 =
																			((BgL_z62iozd2parsezd2errorz62_bglt)
																			BOBJECT(GC_MALLOC(sizeof(struct
																						BgL_z62iozd2parsezd2errorz62_bgl))));
																		{	/* Unsafe/http.scm 597 */
																			long BgL_arg3423z00_4390;

																			BgL_arg3423z00_4390 =
																				BGL_CLASS_NUM
																				(BGl_z62iozd2parsezd2errorz62zz__objectz00);
																			BGL_OBJECT_CLASS_NUM_SET((
																					(BgL_objectz00_bglt)
																					BgL_new1272z00_4389),
																				BgL_arg3423z00_4390);
																		}
																		BgL_new1273z00_4373 = BgL_new1272z00_4389;
																	}
																	((((BgL_z62exceptionz62_bglt) COBJECT(
																					((BgL_z62exceptionz62_bglt)
																						BgL_new1273z00_4373)))->
																			BgL_fnamez00) =
																		((obj_t) BFALSE), BUNSPEC);
																	((((BgL_z62exceptionz62_bglt)
																				COBJECT(((BgL_z62exceptionz62_bglt)
																						BgL_new1273z00_4373)))->
																			BgL_locationz00) =
																		((obj_t) BFALSE), BUNSPEC);
																	{
																		obj_t BgL_auxz00_16243;

																		{	/* Unsafe/http.scm 597 */
																			obj_t BgL_arg3405z00_4374;

																			{	/* Unsafe/http.scm 597 */
																				obj_t BgL_arg3407z00_4375;

																				{	/* Unsafe/http.scm 597 */
																					obj_t BgL_classz00_11689;

																					BgL_classz00_11689 =
																						BGl_z62iozd2parsezd2errorz62zz__objectz00;
																					BgL_arg3407z00_4375 =
																						BGL_CLASS_ALL_FIELDS
																						(BgL_classz00_11689);
																				}
																				BgL_arg3405z00_4374 =
																					VECTOR_REF(BgL_arg3407z00_4375, 2L);
																			}
																			BgL_auxz00_16243 =
																				BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																				(BgL_arg3405z00_4374);
																		}
																		((((BgL_z62exceptionz62_bglt) COBJECT(
																						((BgL_z62exceptionz62_bglt)
																							BgL_new1273z00_4373)))->
																				BgL_stackz00) =
																			((obj_t) BgL_auxz00_16243), BUNSPEC);
																	}
																	((((BgL_z62errorz62_bglt) COBJECT(
																					((BgL_z62errorz62_bglt)
																						BgL_new1273z00_4373)))->
																			BgL_procz00) =
																		((obj_t) BGl_string5770z00zz__httpz00),
																		BUNSPEC);
																	{
																		obj_t BgL_auxz00_16251;

																		{	/* Unsafe/http.scm 605 */
																			obj_t BgL_arg3408z00_4376;

																			{	/* Unsafe/http.scm 605 */
																				obj_t BgL_arg3410z00_4378;

																				BgL_arg3410z00_4378 =
																					BGl_thezd2failureze70z35zz__httpz00
																					(BgL_iportz00_3882);
																				BgL_arg3408z00_4376 =
																					BGl_httpzd2parsezd2errorzd2msgzd2zz__httpz00
																					(BgL_arg3410z00_4378,
																					BgL_iportz00_3882);
																			}
																			{	/* Unsafe/http.scm 603 */
																				obj_t BgL_list3409z00_4377;

																				BgL_list3409z00_4377 =
																					MAKE_YOUNG_PAIR(BgL_arg3408z00_4376,
																					BNIL);
																				BgL_auxz00_16251 =
																					BGl_formatz00zz__r4_output_6_10_3z00
																					(BGl_string5771z00zz__httpz00,
																					BgL_list3409z00_4377);
																		}}
																		((((BgL_z62errorz62_bglt) COBJECT(
																						((BgL_z62errorz62_bglt)
																							BgL_new1273z00_4373)))->
																				BgL_msgz00) =
																			((obj_t) BgL_auxz00_16251), BUNSPEC);
																	}
																	{
																		obj_t BgL_auxz00_16258;

																		{	/* Unsafe/http.scm 598 */
																			obj_t BgL_arg3412z00_4380;

																			BgL_arg3412z00_4380 =
																				bgl_reverse_bang(BgL_headerz00_3884);
																			{	/* Unsafe/http.scm 598 */
																				obj_t BgL_list3413z00_4381;

																				{	/* Unsafe/http.scm 598 */
																					obj_t BgL_arg3415z00_4382;

																					{	/* Unsafe/http.scm 598 */
																						obj_t BgL_arg3416z00_4383;

																						{	/* Unsafe/http.scm 598 */
																							obj_t BgL_arg3417z00_4384;

																							{	/* Unsafe/http.scm 598 */
																								obj_t BgL_arg3418z00_4385;

																								{	/* Unsafe/http.scm 598 */
																									obj_t BgL_arg3419z00_4386;

																									{	/* Unsafe/http.scm 598 */
																										obj_t BgL_arg3420z00_4387;

																										{	/* Unsafe/http.scm 598 */
																											obj_t BgL_arg3422z00_4388;

																											BgL_arg3422z00_4388 =
																												MAKE_YOUNG_PAIR
																												(BgL_connectionz00_3891,
																												BNIL);
																											BgL_arg3420z00_4387 =
																												MAKE_YOUNG_PAIR
																												(BgL_proxyzd2authoriza7ationz75_3890,
																												BgL_arg3422z00_4388);
																										}
																										BgL_arg3419z00_4386 =
																											MAKE_YOUNG_PAIR
																											(BgL_authoriza7ationza7_3889,
																											BgL_arg3420z00_4387);
																									}
																									BgL_arg3418z00_4385 =
																										MAKE_YOUNG_PAIR
																										(BgL_transferzd2encodingzd2_3888,
																										BgL_arg3419z00_4386);
																								}
																								BgL_arg3417z00_4384 =
																									MAKE_YOUNG_PAIR
																									(BgL_contentzd2lengthzd2_3887,
																									BgL_arg3418z00_4385);
																							}
																							BgL_arg3416z00_4383 =
																								MAKE_YOUNG_PAIR
																								(BgL_portz00_3886,
																								BgL_arg3417z00_4384);
																						}
																						BgL_arg3415z00_4382 =
																							MAKE_YOUNG_PAIR
																							(BgL_hostnamez00_3885,
																							BgL_arg3416z00_4383);
																					}
																					BgL_list3413z00_4381 =
																						MAKE_YOUNG_PAIR(BgL_arg3412z00_4380,
																						BgL_arg3415z00_4382);
																				}
																				BgL_auxz00_16258 = BgL_list3413z00_4381;
																		}}
																		((((BgL_z62errorz62_bglt) COBJECT(
																						((BgL_z62errorz62_bglt)
																							BgL_new1273z00_4373)))->
																				BgL_objz00) =
																			((obj_t) BgL_auxz00_16258), BUNSPEC);
																	}
																	BgL_arg3403z00_4372 = BgL_new1273z00_4373;
																}
																return
																	BGl_raisez00zz__errorz00(
																	((obj_t) BgL_arg3403z00_4372));
															}
													}
													break;
												case 1L:

													{	/* Unsafe/http.scm 576 */
														obj_t BgL_val0_1431z00_4391;
														obj_t BgL_val1_1432z00_4392;
														obj_t BgL_val2_1433z00_4393;
														obj_t BgL_val3_1434z00_4394;
														obj_t BgL_val4_1435z00_4395;
														obj_t BgL_val5_1436z00_4396;
														obj_t BgL_val6_1437z00_4397;
														obj_t BgL_val7_1438z00_4398;

														BgL_val0_1431z00_4391 =
															bgl_reverse_bang(BgL_headerz00_3884);
														BgL_val1_1432z00_4392 = BgL_hostnamez00_3885;
														BgL_val2_1433z00_4393 = BgL_portz00_3886;
														BgL_val3_1434z00_4394 =
															BgL_contentzd2lengthzd2_3887;
														BgL_val4_1435z00_4395 =
															BgL_transferzd2encodingzd2_3888;
														BgL_val5_1436z00_4396 = BgL_authoriza7ationza7_3889;
														BgL_val6_1437z00_4397 =
															BgL_proxyzd2authoriza7ationz75_3890;
														BgL_val7_1438z00_4398 = BgL_connectionz00_3891;
														{	/* Unsafe/http.scm 576 */
															int BgL_tmpz00_16273;

															BgL_tmpz00_16273 = (int) (8L);
															BGL_MVALUES_NUMBER_SET(BgL_tmpz00_16273);
														}
														{	/* Unsafe/http.scm 576 */
															int BgL_tmpz00_16276;

															BgL_tmpz00_16276 = (int) (1L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_16276,
																BgL_val1_1432z00_4392);
														}
														{	/* Unsafe/http.scm 576 */
															int BgL_tmpz00_16279;

															BgL_tmpz00_16279 = (int) (2L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_16279,
																BgL_val2_1433z00_4393);
														}
														{	/* Unsafe/http.scm 576 */
															int BgL_tmpz00_16282;

															BgL_tmpz00_16282 = (int) (3L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_16282,
																BgL_val3_1434z00_4394);
														}
														{	/* Unsafe/http.scm 576 */
															int BgL_tmpz00_16285;

															BgL_tmpz00_16285 = (int) (4L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_16285,
																BgL_val4_1435z00_4395);
														}
														{	/* Unsafe/http.scm 576 */
															int BgL_tmpz00_16288;

															BgL_tmpz00_16288 = (int) (5L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_16288,
																BgL_val5_1436z00_4396);
														}
														{	/* Unsafe/http.scm 576 */
															int BgL_tmpz00_16291;

															BgL_tmpz00_16291 = (int) (6L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_16291,
																BgL_val6_1437z00_4397);
														}
														{	/* Unsafe/http.scm 576 */
															int BgL_tmpz00_16294;

															BgL_tmpz00_16294 = (int) (7L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_16294,
																BgL_val7_1438z00_4398);
														}
														return BgL_val0_1431z00_4391;
													}
													break;
												case 0L:

													{	/* Unsafe/http.scm 511 */
														obj_t BgL_kz00_4399;

														BgL_kz00_4399 =
															rgc_buffer_downcase_keyword(BgL_iportz00_3882);
														{	/* Unsafe/http.scm 511 */

															if (
																(BgL_kz00_4399 ==
																	BGl_keyword5693z00zz__httpz00))
																{	/* Unsafe/http.scm 514 */
																	obj_t BgL_hz00_4402;

																	BgL_iportz00_6612 = BgL_iportz00_3882;
																	{
																		obj_t BgL_iportz00_6648;
																		long BgL_lastzd2matchzd2_6649;
																		long BgL_forwardz00_6650;
																		long BgL_bufposz00_6651;
																		obj_t BgL_iportz00_6669;
																		long BgL_lastzd2matchzd2_6670;
																		long BgL_forwardz00_6671;
																		long BgL_bufposz00_6672;
																		obj_t BgL_iportz00_6699;
																		long BgL_lastzd2matchzd2_6700;
																		long BgL_forwardz00_6701;
																		long BgL_bufposz00_6702;
																		obj_t BgL_iportz00_6714;
																		long BgL_lastzd2matchzd2_6715;
																		long BgL_forwardz00_6716;
																		long BgL_bufposz00_6717;
																		obj_t BgL_iportz00_6735;
																		long BgL_lastzd2matchzd2_6736;
																		long BgL_forwardz00_6737;
																		long BgL_bufposz00_6738;
																		int BgL_minz00_6771;
																		int BgL_maxz00_6772;

																	BgL_zc3z04anonymousza34653ze3z87_6877:
																		RGC_START_MATCH(BgL_iportz00_6612);
																		{	/* Unsafe/http.scm 445 */
																			long BgL_matchz00_6878;

																			{	/* Unsafe/http.scm 445 */
																				long BgL_arg4655z00_6888;
																				long BgL_arg4656z00_6889;

																				BgL_arg4655z00_6888 =
																					RGC_BUFFER_FORWARD(BgL_iportz00_6612);
																				BgL_arg4656z00_6889 =
																					RGC_BUFFER_BUFPOS(BgL_iportz00_6612);
																				BgL_iportz00_6648 = BgL_iportz00_6612;
																				BgL_lastzd2matchzd2_6649 = 3L;
																				BgL_forwardz00_6650 =
																					BgL_arg4655z00_6888;
																				BgL_bufposz00_6651 =
																					BgL_arg4656z00_6889;
																			BgL_zc3z04anonymousza34510ze3z87_6652:
																				if (
																					(BgL_forwardz00_6650 ==
																						BgL_bufposz00_6651))
																					{	/* Unsafe/http.scm 445 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_6648))
																							{	/* Unsafe/http.scm 445 */
																								long BgL_arg4513z00_6655;
																								long BgL_arg4514z00_6656;

																								BgL_arg4513z00_6655 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_6648);
																								BgL_arg4514z00_6656 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_6648);
																								{
																									long BgL_bufposz00_16310;
																									long BgL_forwardz00_16309;

																									BgL_forwardz00_16309 =
																										BgL_arg4513z00_6655;
																									BgL_bufposz00_16310 =
																										BgL_arg4514z00_6656;
																									BgL_bufposz00_6651 =
																										BgL_bufposz00_16310;
																									BgL_forwardz00_6650 =
																										BgL_forwardz00_16309;
																									goto
																										BgL_zc3z04anonymousza34510ze3z87_6652;
																								}
																							}
																						else
																							{	/* Unsafe/http.scm 445 */
																								BgL_matchz00_6878 =
																									BgL_lastzd2matchzd2_6649;
																							}
																					}
																				else
																					{	/* Unsafe/http.scm 445 */
																						int BgL_curz00_6657;

																						BgL_curz00_6657 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_6648,
																							BgL_forwardz00_6650);
																						{	/* Unsafe/http.scm 445 */

																							{	/* Unsafe/http.scm 445 */
																								bool_t BgL_test6533z00_16312;

																								if (
																									((long) (BgL_curz00_6657) ==
																										10L))
																									{	/* Unsafe/http.scm 445 */
																										BgL_test6533z00_16312 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Unsafe/http.scm 445 */
																										if (
																											((long) (BgL_curz00_6657)
																												== 13L))
																											{	/* Unsafe/http.scm 445 */
																												BgL_test6533z00_16312 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Unsafe/http.scm 445 */
																												BgL_test6533z00_16312 =
																													(
																													(long)
																													(BgL_curz00_6657) ==
																													58L);
																									}}
																								if (BgL_test6533z00_16312)
																									{	/* Unsafe/http.scm 445 */
																										long BgL_arg4518z00_6661;

																										BgL_arg4518z00_6661 =
																											(1L +
																											BgL_forwardz00_6650);
																										{	/* Unsafe/http.scm 445 */
																											long
																												BgL_newzd2matchzd2_10267;
																											RGC_STOP_MATCH
																												(BgL_iportz00_6648,
																												BgL_arg4518z00_6661);
																											BgL_newzd2matchzd2_10267 =
																												3L;
																											BgL_matchz00_6878 =
																												BgL_newzd2matchzd2_10267;
																									}}
																								else
																									{	/* Unsafe/http.scm 445 */
																										bool_t
																											BgL_test6536z00_16323;
																										if (((long)
																												(BgL_curz00_6657) ==
																												9L))
																											{	/* Unsafe/http.scm 445 */
																												BgL_test6536z00_16323 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Unsafe/http.scm 445 */
																												BgL_test6536z00_16323 =
																													(
																													(long)
																													(BgL_curz00_6657) ==
																													32L);
																											}
																										if (BgL_test6536z00_16323)
																											{	/* Unsafe/http.scm 445 */
																												BgL_iportz00_6699 =
																													BgL_iportz00_6648;
																												BgL_lastzd2matchzd2_6700
																													=
																													BgL_lastzd2matchzd2_6649;
																												BgL_forwardz00_6701 =
																													(1L +
																													BgL_forwardz00_6650);
																												BgL_bufposz00_6702 =
																													BgL_bufposz00_6651;
																											BgL_zc3z04anonymousza34537ze3z87_6703:
																												{	/* Unsafe/http.scm 445 */
																													long
																														BgL_newzd2matchzd2_6704;
																													RGC_STOP_MATCH
																														(BgL_iportz00_6699,
																														BgL_forwardz00_6701);
																													BgL_newzd2matchzd2_6704
																														= 2L;
																													if (
																														(BgL_forwardz00_6701
																															==
																															BgL_bufposz00_6702))
																														{	/* Unsafe/http.scm 445 */
																															if (rgc_fill_buffer(BgL_iportz00_6699))
																																{	/* Unsafe/http.scm 445 */
																																	long
																																		BgL_arg4540z00_6707;
																																	long
																																		BgL_arg4541z00_6708;
																																	BgL_arg4540z00_6707
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_iportz00_6699);
																																	BgL_arg4541z00_6708
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_iportz00_6699);
																																	{
																																		long
																																			BgL_bufposz00_16337;
																																		long
																																			BgL_forwardz00_16336;
																																		BgL_forwardz00_16336
																																			=
																																			BgL_arg4540z00_6707;
																																		BgL_bufposz00_16337
																																			=
																																			BgL_arg4541z00_6708;
																																		BgL_bufposz00_6702
																																			=
																																			BgL_bufposz00_16337;
																																		BgL_forwardz00_6701
																																			=
																																			BgL_forwardz00_16336;
																																		goto
																																			BgL_zc3z04anonymousza34537ze3z87_6703;
																																	}
																																}
																															else
																																{	/* Unsafe/http.scm 445 */
																																	BgL_matchz00_6878
																																		=
																																		BgL_newzd2matchzd2_6704;
																																}
																														}
																													else
																														{	/* Unsafe/http.scm 445 */
																															int
																																BgL_curz00_6709;
																															BgL_curz00_6709 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_iportz00_6699,
																																BgL_forwardz00_6701);
																															{	/* Unsafe/http.scm 445 */

																																{	/* Unsafe/http.scm 445 */
																																	bool_t
																																		BgL_test6540z00_16339;
																																	if (((long)
																																			(BgL_curz00_6709)
																																			== 9L))
																																		{	/* Unsafe/http.scm 445 */
																																			BgL_test6540z00_16339
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Unsafe/http.scm 445 */
																																			BgL_test6540z00_16339
																																				=
																																				((long)
																																				(BgL_curz00_6709)
																																				== 32L);
																																		}
																																	if (BgL_test6540z00_16339)
																																		{	/* Unsafe/http.scm 445 */
																																			BgL_iportz00_6714
																																				=
																																				BgL_iportz00_6699;
																																			BgL_lastzd2matchzd2_6715
																																				=
																																				BgL_newzd2matchzd2_6704;
																																			BgL_forwardz00_6716
																																				=
																																				(1L +
																																				BgL_forwardz00_6701);
																																			BgL_bufposz00_6717
																																				=
																																				BgL_bufposz00_6702;
																																		BgL_zc3z04anonymousza34545ze3z87_6718:
																																			{	/* Unsafe/http.scm 445 */
																																				long
																																					BgL_newzd2matchzd2_6719;
																																				RGC_STOP_MATCH
																																					(BgL_iportz00_6714,
																																					BgL_forwardz00_6716);
																																				BgL_newzd2matchzd2_6719
																																					= 2L;
																																				if (
																																					(BgL_forwardz00_6716
																																						==
																																						BgL_bufposz00_6717))
																																					{	/* Unsafe/http.scm 445 */
																																						if (rgc_fill_buffer(BgL_iportz00_6714))
																																							{	/* Unsafe/http.scm 445 */
																																								long
																																									BgL_arg4548z00_6722;
																																								long
																																									BgL_arg4549z00_6723;
																																								BgL_arg4548z00_6722
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_iportz00_6714);
																																								BgL_arg4549z00_6723
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_iportz00_6714);
																																								{
																																									long
																																										BgL_bufposz00_16353;
																																									long
																																										BgL_forwardz00_16352;
																																									BgL_forwardz00_16352
																																										=
																																										BgL_arg4548z00_6722;
																																									BgL_bufposz00_16353
																																										=
																																										BgL_arg4549z00_6723;
																																									BgL_bufposz00_6717
																																										=
																																										BgL_bufposz00_16353;
																																									BgL_forwardz00_6716
																																										=
																																										BgL_forwardz00_16352;
																																									goto
																																										BgL_zc3z04anonymousza34545ze3z87_6718;
																																								}
																																							}
																																						else
																																							{	/* Unsafe/http.scm 445 */
																																								BgL_matchz00_6878
																																									=
																																									BgL_newzd2matchzd2_6719;
																																							}
																																					}
																																				else
																																					{	/* Unsafe/http.scm 445 */
																																						int
																																							BgL_curz00_6724;
																																						BgL_curz00_6724
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_iportz00_6714,
																																							BgL_forwardz00_6716);
																																						{	/* Unsafe/http.scm 445 */

																																							{	/* Unsafe/http.scm 445 */
																																								bool_t
																																									BgL_test6544z00_16355;
																																								if (((long) (BgL_curz00_6724) == 9L))
																																									{	/* Unsafe/http.scm 445 */
																																										BgL_test6544z00_16355
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Unsafe/http.scm 445 */
																																										BgL_test6544z00_16355
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_6724)
																																											==
																																											32L);
																																									}
																																								if (BgL_test6544z00_16355)
																																									{
																																										long
																																											BgL_forwardz00_16362;
																																										long
																																											BgL_lastzd2matchzd2_16361;
																																										BgL_lastzd2matchzd2_16361
																																											=
																																											BgL_newzd2matchzd2_6719;
																																										BgL_forwardz00_16362
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_6716);
																																										BgL_forwardz00_6716
																																											=
																																											BgL_forwardz00_16362;
																																										BgL_lastzd2matchzd2_6715
																																											=
																																											BgL_lastzd2matchzd2_16361;
																																										goto
																																											BgL_zc3z04anonymousza34545ze3z87_6718;
																																									}
																																								else
																																									{	/* Unsafe/http.scm 445 */
																																										BgL_matchz00_6878
																																											=
																																											BgL_newzd2matchzd2_6719;
																																									}
																																							}
																																						}
																																					}
																																			}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 445 */
																																			BgL_matchz00_6878
																																				=
																																				BgL_newzd2matchzd2_6704;
																																		}
																																}
																															}
																														}
																												}
																											}
																										else
																											{	/* Unsafe/http.scm 445 */
																												BgL_iportz00_6735 =
																													BgL_iportz00_6648;
																												BgL_lastzd2matchzd2_6736
																													=
																													BgL_lastzd2matchzd2_6649;
																												BgL_forwardz00_6737 =
																													(1L +
																													BgL_forwardz00_6650);
																												BgL_bufposz00_6738 =
																													BgL_bufposz00_6651;
																											BgL_zc3z04anonymousza34554ze3z87_6739:
																												{	/* Unsafe/http.scm 445 */
																													long
																														BgL_newzd2matchzd2_6740;
																													RGC_STOP_MATCH
																														(BgL_iportz00_6735,
																														BgL_forwardz00_6737);
																													BgL_newzd2matchzd2_6740
																														= 1L;
																													if (
																														(BgL_forwardz00_6737
																															==
																															BgL_bufposz00_6738))
																														{	/* Unsafe/http.scm 445 */
																															if (rgc_fill_buffer(BgL_iportz00_6735))
																																{	/* Unsafe/http.scm 445 */
																																	long
																																		BgL_arg4557z00_6743;
																																	long
																																		BgL_arg4558z00_6744;
																																	BgL_arg4557z00_6743
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_iportz00_6735);
																																	BgL_arg4558z00_6744
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_iportz00_6735);
																																	{
																																		long
																																			BgL_bufposz00_16374;
																																		long
																																			BgL_forwardz00_16373;
																																		BgL_forwardz00_16373
																																			=
																																			BgL_arg4557z00_6743;
																																		BgL_bufposz00_16374
																																			=
																																			BgL_arg4558z00_6744;
																																		BgL_bufposz00_6738
																																			=
																																			BgL_bufposz00_16374;
																																		BgL_forwardz00_6737
																																			=
																																			BgL_forwardz00_16373;
																																		goto
																																			BgL_zc3z04anonymousza34554ze3z87_6739;
																																	}
																																}
																															else
																																{	/* Unsafe/http.scm 445 */
																																	BgL_matchz00_6878
																																		=
																																		BgL_newzd2matchzd2_6740;
																																}
																														}
																													else
																														{	/* Unsafe/http.scm 445 */
																															int
																																BgL_curz00_6745;
																															BgL_curz00_6745 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_iportz00_6735,
																																BgL_forwardz00_6737);
																															{	/* Unsafe/http.scm 445 */

																																if (
																																	((long)
																																		(BgL_curz00_6745)
																																		== 58L))
																																	{	/* Unsafe/http.scm 445 */
																																		long
																																			BgL_arg4560z00_6747;
																																		BgL_arg4560z00_6747
																																			=
																																			(1L +
																																			BgL_forwardz00_6737);
																																		{	/* Unsafe/http.scm 445 */
																																			long
																																				BgL_newzd2matchzd2_10335;
																																			RGC_STOP_MATCH
																																				(BgL_iportz00_6735,
																																				BgL_arg4560z00_6747);
																																			BgL_newzd2matchzd2_10335
																																				= 0L;
																																			BgL_matchz00_6878
																																				=
																																				BgL_newzd2matchzd2_10335;
																																	}}
																																else
																																	{	/* Unsafe/http.scm 445 */
																																		bool_t
																																			BgL_test6549z00_16381;
																																		{	/* Unsafe/http.scm 445 */
																																			bool_t
																																				BgL_test6550z00_16382;
																																			if ((
																																					(long)
																																					(BgL_curz00_6745)
																																					==
																																					10L))
																																				{	/* Unsafe/http.scm 445 */
																																					BgL_test6550z00_16382
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Unsafe/http.scm 445 */
																																					BgL_test6550z00_16382
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_6745)
																																						==
																																						9L);
																																				}
																																			if (BgL_test6550z00_16382)
																																				{	/* Unsafe/http.scm 445 */
																																					BgL_test6549z00_16381
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Unsafe/http.scm 445 */
																																					if (
																																						((long) (BgL_curz00_6745) == 13L))
																																						{	/* Unsafe/http.scm 445 */
																																							BgL_test6549z00_16381
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Unsafe/http.scm 445 */
																																							if (((long) (BgL_curz00_6745) == 32L))
																																								{	/* Unsafe/http.scm 445 */
																																									BgL_test6549z00_16381
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Unsafe/http.scm 445 */
																																									BgL_test6549z00_16381
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_6745)
																																										==
																																										58L);
																																		}}}}
																																		if (BgL_test6549z00_16381)
																																			{	/* Unsafe/http.scm 445 */
																																				BgL_matchz00_6878
																																					=
																																					BgL_newzd2matchzd2_6740;
																																			}
																																		else
																																			{	/* Unsafe/http.scm 445 */
																																				BgL_iportz00_6669
																																					=
																																					BgL_iportz00_6735;
																																				BgL_lastzd2matchzd2_6670
																																					=
																																					BgL_newzd2matchzd2_6740;
																																				BgL_forwardz00_6671
																																					=
																																					(1L +
																																					BgL_forwardz00_6737);
																																				BgL_bufposz00_6672
																																					=
																																					BgL_bufposz00_6738;
																																			BgL_zc3z04anonymousza34523ze3z87_6673:
																																				{	/* Unsafe/http.scm 445 */
																																					long
																																						BgL_newzd2matchzd2_6674;
																																					RGC_STOP_MATCH
																																						(BgL_iportz00_6669,
																																						BgL_forwardz00_6671);
																																					BgL_newzd2matchzd2_6674
																																						=
																																						1L;
																																					if (
																																						(BgL_forwardz00_6671
																																							==
																																							BgL_bufposz00_6672))
																																						{	/* Unsafe/http.scm 445 */
																																							if (rgc_fill_buffer(BgL_iportz00_6669))
																																								{	/* Unsafe/http.scm 445 */
																																									long
																																										BgL_arg4526z00_6677;
																																									long
																																										BgL_arg4527z00_6678;
																																									BgL_arg4526z00_6677
																																										=
																																										RGC_BUFFER_FORWARD
																																										(BgL_iportz00_6669);
																																									BgL_arg4527z00_6678
																																										=
																																										RGC_BUFFER_BUFPOS
																																										(BgL_iportz00_6669);
																																									{
																																										long
																																											BgL_bufposz00_16404;
																																										long
																																											BgL_forwardz00_16403;
																																										BgL_forwardz00_16403
																																											=
																																											BgL_arg4526z00_6677;
																																										BgL_bufposz00_16404
																																											=
																																											BgL_arg4527z00_6678;
																																										BgL_bufposz00_6672
																																											=
																																											BgL_bufposz00_16404;
																																										BgL_forwardz00_6671
																																											=
																																											BgL_forwardz00_16403;
																																										goto
																																											BgL_zc3z04anonymousza34523ze3z87_6673;
																																									}
																																								}
																																							else
																																								{	/* Unsafe/http.scm 445 */
																																									BgL_matchz00_6878
																																										=
																																										BgL_newzd2matchzd2_6674;
																																								}
																																						}
																																					else
																																						{	/* Unsafe/http.scm 445 */
																																							int
																																								BgL_curz00_6679;
																																							BgL_curz00_6679
																																								=
																																								RGC_BUFFER_GET_CHAR
																																								(BgL_iportz00_6669,
																																								BgL_forwardz00_6671);
																																							{	/* Unsafe/http.scm 445 */

																																								if (((long) (BgL_curz00_6679) == 58L))
																																									{	/* Unsafe/http.scm 445 */
																																										long
																																											BgL_arg4529z00_6681;
																																										BgL_arg4529z00_6681
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_6671);
																																										{	/* Unsafe/http.scm 445 */
																																											long
																																												BgL_newzd2matchzd2_10285;
																																											RGC_STOP_MATCH
																																												(BgL_iportz00_6669,
																																												BgL_arg4529z00_6681);
																																											BgL_newzd2matchzd2_10285
																																												=
																																												0L;
																																											BgL_matchz00_6878
																																												=
																																												BgL_newzd2matchzd2_10285;
																																									}}
																																								else
																																									{	/* Unsafe/http.scm 445 */
																																										bool_t
																																											BgL_test6557z00_16411;
																																										{	/* Unsafe/http.scm 445 */
																																											bool_t
																																												BgL_test6558z00_16412;
																																											if (((long) (BgL_curz00_6679) == 10L))
																																												{	/* Unsafe/http.scm 445 */
																																													BgL_test6558z00_16412
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Unsafe/http.scm 445 */
																																													BgL_test6558z00_16412
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_6679)
																																														==
																																														9L);
																																												}
																																											if (BgL_test6558z00_16412)
																																												{	/* Unsafe/http.scm 445 */
																																													BgL_test6557z00_16411
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Unsafe/http.scm 445 */
																																													if (((long) (BgL_curz00_6679) == 13L))
																																														{	/* Unsafe/http.scm 445 */
																																															BgL_test6557z00_16411
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Unsafe/http.scm 445 */
																																															if (((long) (BgL_curz00_6679) == 32L))
																																																{	/* Unsafe/http.scm 445 */
																																																	BgL_test6557z00_16411
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Unsafe/http.scm 445 */
																																																	BgL_test6557z00_16411
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_6679)
																																																		==
																																																		58L);
																																										}}}}
																																										if (BgL_test6557z00_16411)
																																											{	/* Unsafe/http.scm 445 */
																																												BgL_matchz00_6878
																																													=
																																													BgL_newzd2matchzd2_6674;
																																											}
																																										else
																																											{
																																												long
																																													BgL_forwardz00_16427;
																																												long
																																													BgL_lastzd2matchzd2_16426;
																																												BgL_lastzd2matchzd2_16426
																																													=
																																													BgL_newzd2matchzd2_6674;
																																												BgL_forwardz00_16427
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_6671);
																																												BgL_forwardz00_6671
																																													=
																																													BgL_forwardz00_16427;
																																												BgL_lastzd2matchzd2_6670
																																													=
																																													BgL_lastzd2matchzd2_16426;
																																												goto
																																													BgL_zc3z04anonymousza34523ze3z87_6673;
																																											}
																																									}
																																							}
																																						}
																																				}
																																			}
																																	}
																															}
																														}
																												}
																											}
																									}
																							}
																						}
																					}
																			}
																			RGC_SET_FILEPOS(BgL_iportz00_6612);
																			switch (BgL_matchz00_6878)
																				{
																				case 3L:

																					{	/* Unsafe/http.scm 445 */
																						bool_t BgL_test6562z00_16432;

																						{	/* Unsafe/http.scm 445 */
																							long BgL_arg4647z00_6868;

																							BgL_arg4647z00_6868 =
																								RGC_BUFFER_MATCH_LENGTH
																								(BgL_iportz00_6612);
																							BgL_test6562z00_16432 =
																								(BgL_arg4647z00_6868 == 0L);
																						}
																						if (BgL_test6562z00_16432)
																							{	/* Unsafe/http.scm 445 */
																								BgL_hz00_4402 = BEOF;
																							}
																						else
																							{	/* Unsafe/http.scm 445 */
																								BgL_hz00_4402 =
																									BCHAR(RGC_BUFFER_CHARACTER
																									(BgL_iportz00_6612));
																							}
																					}
																					break;
																				case 2L:

																					goto
																						BgL_zc3z04anonymousza34653ze3z87_6877;
																					break;
																				case 1L:

																					{	/* Unsafe/http.scm 451 */
																						obj_t BgL_val0_1419z00_6881;

																						{	/* Unsafe/http.scm 445 */
																							long BgL_arg4573z00_10374;

																							BgL_arg4573z00_10374 =
																								RGC_BUFFER_MATCH_LENGTH
																								(BgL_iportz00_6612);
																							BgL_val0_1419z00_6881 =
																								rgc_buffer_substring
																								(BgL_iportz00_6612, 0L,
																								BgL_arg4573z00_10374);
																						}
																						{	/* Unsafe/http.scm 451 */
																							int BgL_tmpz00_16439;

																							BgL_tmpz00_16439 = (int) (2L);
																							BGL_MVALUES_NUMBER_SET
																								(BgL_tmpz00_16439);
																						}
																						{	/* Unsafe/http.scm 451 */
																							int BgL_tmpz00_16442;

																							BgL_tmpz00_16442 = (int) (1L);
																							BGL_MVALUES_VAL_SET
																								(BgL_tmpz00_16442, BFALSE);
																						}
																						BgL_hz00_4402 =
																							BgL_val0_1419z00_6881;
																					} break;
																				case 0L:

																					{	/* Unsafe/http.scm 447 */
																						obj_t BgL_hz00_6883;

																						BgL_minz00_6771 = (int) (0L);
																						BgL_maxz00_6772 = (int) ((-1L));
																						if (
																							((long) (BgL_maxz00_6772) <
																								(long) (BgL_minz00_6771)))
																							{	/* Unsafe/http.scm 445 */
																								long BgL_arg4576z00_6775;

																								BgL_arg4576z00_6775 =
																									RGC_BUFFER_MATCH_LENGTH
																									(BgL_iportz00_6612);
																								{	/* Unsafe/http.scm 445 */
																									long BgL_za72za7_10352;

																									BgL_za72za7_10352 =
																										(long) (BgL_maxz00_6772);
																									BgL_maxz00_6772 =
																										(int) (
																										(BgL_arg4576z00_6775 +
																											BgL_za72za7_10352));
																							}}
																						else
																							{	/* Unsafe/http.scm 445 */
																								BFALSE;
																							}
																						{	/* Unsafe/http.scm 445 */
																							bool_t BgL_test6564z00_16453;

																							if (
																								((long) (BgL_minz00_6771) >=
																									0L))
																								{	/* Unsafe/http.scm 445 */
																									if (
																										((long) (BgL_maxz00_6772) >=
																											(long) (BgL_minz00_6771)))
																										{	/* Unsafe/http.scm 445 */
																											long BgL_arg4585z00_6786;

																											BgL_arg4585z00_6786 =
																												RGC_BUFFER_MATCH_LENGTH
																												(BgL_iportz00_6612);
																											BgL_test6564z00_16453 =
																												((long)
																												(BgL_maxz00_6772) <=
																												BgL_arg4585z00_6786);
																										}
																									else
																										{	/* Unsafe/http.scm 445 */
																											BgL_test6564z00_16453 =
																												((bool_t) 0);
																										}
																								}
																							else
																								{	/* Unsafe/http.scm 445 */
																									BgL_test6564z00_16453 =
																										((bool_t) 0);
																								}
																							if (BgL_test6564z00_16453)
																								{	/* Unsafe/http.scm 445 */
																									BgL_hz00_6883 =
																										rgc_buffer_substring
																										(BgL_iportz00_6612,
																										(long) (BgL_minz00_6771),
																										(long) (BgL_maxz00_6772));
																								}
																							else
																								{	/* Unsafe/http.scm 445 */
																									obj_t BgL_arg4581z00_6780;
																									obj_t BgL_arg4582z00_6781;

																									{	/* Unsafe/http.scm 445 */
																										obj_t BgL_arg4583z00_6782;

																										{	/* Unsafe/http.scm 445 */
																											long BgL_arg4573z00_10362;

																											BgL_arg4573z00_10362 =
																												RGC_BUFFER_MATCH_LENGTH
																												(BgL_iportz00_6612);
																											BgL_arg4583z00_6782 =
																												rgc_buffer_substring
																												(BgL_iportz00_6612, 0L,
																												BgL_arg4573z00_10362);
																										}
																										{	/* Unsafe/http.scm 445 */
																											obj_t
																												BgL_list4584z00_6783;
																											BgL_list4584z00_6783 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg4583z00_6782,
																												BNIL);
																											BgL_arg4581z00_6780 =
																												BGl_formatz00zz__r4_output_6_10_3z00
																												(BGl_string5660z00zz__httpz00,
																												BgL_list4584z00_6783);
																									}}
																									BgL_arg4582z00_6781 =
																										MAKE_YOUNG_PAIR(BINT
																										(BgL_minz00_6771),
																										BINT(BgL_maxz00_6772));
																									BgL_hz00_6883 =
																										BGl_errorz00zz__errorz00
																										(BGl_string5661z00zz__httpz00,
																										BgL_arg4581z00_6780,
																										BgL_arg4582z00_6781);
																						}}
																						{	/* Unsafe/http.scm 447 */
																							obj_t BgL_pz00_6884;

																							BgL_pz00_6884 =
																								BGl_httpzd2readzd2fixnumz00zz__httpz00
																								(BgL_iportz00_6612);
																							{	/* Unsafe/http.scm 448 */

																								{	/* Unsafe/http.scm 449 */
																									int BgL_tmpz00_16478;

																									BgL_tmpz00_16478 = (int) (2L);
																									BGL_MVALUES_NUMBER_SET
																										(BgL_tmpz00_16478);
																								}
																								{	/* Unsafe/http.scm 449 */
																									int BgL_tmpz00_16481;

																									BgL_tmpz00_16481 = (int) (1L);
																									BGL_MVALUES_VAL_SET
																										(BgL_tmpz00_16481,
																										BgL_pz00_6884);
																								}
																								BgL_hz00_4402 = BgL_hz00_6883;
																					}}} break;
																				default:
																					BgL_hz00_4402 =
																						BGl_errorz00zz__errorz00
																						(BGl_string5657z00zz__httpz00,
																						BGl_string5658z00zz__httpz00,
																						BINT(BgL_matchz00_6878));
																				}
																		}
																	}
																	{	/* Unsafe/http.scm 515 */
																		obj_t BgL_pz00_4403;

																		{	/* Unsafe/http.scm 516 */
																			obj_t BgL_tmpz00_11696;

																			{	/* Unsafe/http.scm 516 */
																				int BgL_tmpz00_16487;

																				BgL_tmpz00_16487 = (int) (1L);
																				BgL_tmpz00_11696 =
																					BGL_MVALUES_VAL(BgL_tmpz00_16487);
																			}
																			{	/* Unsafe/http.scm 516 */
																				int BgL_tmpz00_16490;

																				BgL_tmpz00_16490 = (int) (1L);
																				BGL_MVALUES_VAL_SET(BgL_tmpz00_16490,
																					BUNSPEC);
																			}
																			BgL_pz00_4403 = BgL_tmpz00_11696;
																		}
																		BgL_hostnamez00_3885 = BgL_hz00_4402;
																		BgL_portz00_3886 = BgL_pz00_4403;
																		BGl_crlfzd2grammarze70z35zz__httpz00
																			(BgL_iportz00_3882);
																		{	/* Unsafe/http.scm 519 */
																			obj_t BgL_hostz00_4405;

																			if (INTEGERP(BgL_pz00_4403))
																				{	/* Unsafe/http.scm 520 */
																					obj_t BgL_arg3428z00_4408;

																					{	/* Ieee/fixnum.scm 978 */

																						BgL_arg3428z00_4408 =
																							BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00
																							((long) CINT(BgL_pz00_4403), 10L);
																					}
																					BgL_hostz00_4405 =
																						string_append_3(BgL_hz00_4402,
																						BGl_string5728z00zz__httpz00,
																						BgL_arg3428z00_4408);
																				}
																			else
																				{	/* Unsafe/http.scm 519 */
																					BgL_hostz00_4405 = BgL_hz00_4402;
																				}
																			{	/* Unsafe/http.scm 522 */
																				obj_t BgL_arg3426z00_4406;

																				BgL_arg3426z00_4406 =
																					MAKE_YOUNG_PAIR(BgL_kz00_4399,
																					BgL_hostz00_4405);
																				BgL_headerz00_3884 =
																					MAKE_YOUNG_PAIR(BgL_arg3426z00_4406,
																					BgL_headerz00_3884);
																			}
																			goto
																				BgL_zc3z04anonymousza33400ze3z87_4358;
																		}
																	}
																}
															else
																{	/* Unsafe/http.scm 512 */
																	if (
																		(BgL_kz00_4399 ==
																			BGl_keyword5772z00zz__httpz00))
																		{	/* Unsafe/http.scm 512 */
																			BgL_iportz00_6043 = BgL_iportz00_3882;
																			{
																				obj_t BgL_iportz00_6078;
																				long BgL_lastzd2matchzd2_6079;
																				long BgL_forwardz00_6080;
																				long BgL_bufposz00_6081;
																				obj_t BgL_iportz00_6103;
																				long BgL_lastzd2matchzd2_6104;
																				long BgL_forwardz00_6105;
																				long BgL_bufposz00_6106;
																				obj_t BgL_iportz00_6118;
																				long BgL_lastzd2matchzd2_6119;
																				long BgL_forwardz00_6120;
																				long BgL_bufposz00_6121;
																				obj_t BgL_iportz00_6133;
																				long BgL_lastzd2matchzd2_6134;
																				long BgL_forwardz00_6135;
																				long BgL_bufposz00_6136;
																				obj_t BgL_iportz00_6148;
																				long BgL_lastzd2matchzd2_6149;
																				long BgL_forwardz00_6150;
																				long BgL_bufposz00_6151;

																			BgL_zc3z04anonymousza34366ze3z87_6281:
																				RGC_START_MATCH(BgL_iportz00_6043);
																				{	/* Unsafe/http.scm 461 */
																					long BgL_matchz00_6282;

																					{	/* Unsafe/http.scm 461 */
																						long BgL_arg4368z00_6286;
																						long BgL_arg4369z00_6287;

																						BgL_arg4368z00_6286 =
																							RGC_BUFFER_FORWARD
																							(BgL_iportz00_6043);
																						BgL_arg4369z00_6287 =
																							RGC_BUFFER_BUFPOS
																							(BgL_iportz00_6043);
																						BgL_iportz00_6078 =
																							BgL_iportz00_6043;
																						BgL_lastzd2matchzd2_6079 = 2L;
																						BgL_forwardz00_6080 =
																							BgL_arg4368z00_6286;
																						BgL_bufposz00_6081 =
																							BgL_arg4369z00_6287;
																					BgL_zc3z04anonymousza34235ze3z87_6082:
																						if (
																							(BgL_forwardz00_6080 ==
																								BgL_bufposz00_6081))
																							{	/* Unsafe/http.scm 461 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_6078))
																									{	/* Unsafe/http.scm 461 */
																										long BgL_arg4238z00_6085;
																										long BgL_arg4239z00_6086;

																										BgL_arg4238z00_6085 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_6078);
																										BgL_arg4239z00_6086 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_6078);
																										{
																											long BgL_bufposz00_16513;
																											long BgL_forwardz00_16512;

																											BgL_forwardz00_16512 =
																												BgL_arg4238z00_6085;
																											BgL_bufposz00_16513 =
																												BgL_arg4239z00_6086;
																											BgL_bufposz00_6081 =
																												BgL_bufposz00_16513;
																											BgL_forwardz00_6080 =
																												BgL_forwardz00_16512;
																											goto
																												BgL_zc3z04anonymousza34235ze3z87_6082;
																										}
																									}
																								else
																									{	/* Unsafe/http.scm 461 */
																										BgL_matchz00_6282 =
																											BgL_lastzd2matchzd2_6079;
																									}
																							}
																						else
																							{	/* Unsafe/http.scm 461 */
																								int BgL_curz00_6087;

																								BgL_curz00_6087 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_6078,
																									BgL_forwardz00_6080);
																								{	/* Unsafe/http.scm 461 */

																									{	/* Unsafe/http.scm 461 */
																										bool_t
																											BgL_test6571z00_16515;
																										if (((long)
																												(BgL_curz00_6087) >=
																												48L))
																											{	/* Unsafe/http.scm 461 */
																												BgL_test6571z00_16515 =
																													(
																													(long)
																													(BgL_curz00_6087) <
																													58L);
																											}
																										else
																											{	/* Unsafe/http.scm 461 */
																												BgL_test6571z00_16515 =
																													((bool_t) 0);
																											}
																										if (BgL_test6571z00_16515)
																											{	/* Unsafe/http.scm 461 */
																												BgL_iportz00_6118 =
																													BgL_iportz00_6078;
																												BgL_lastzd2matchzd2_6119
																													=
																													BgL_lastzd2matchzd2_6079;
																												BgL_forwardz00_6120 =
																													(1L +
																													BgL_forwardz00_6080);
																												BgL_bufposz00_6121 =
																													BgL_bufposz00_6081;
																											BgL_zc3z04anonymousza34256ze3z87_6122:
																												{	/* Unsafe/http.scm 461 */
																													long
																														BgL_newzd2matchzd2_6123;
																													RGC_STOP_MATCH
																														(BgL_iportz00_6118,
																														BgL_forwardz00_6120);
																													BgL_newzd2matchzd2_6123
																														= 0L;
																													if (
																														(BgL_forwardz00_6120
																															==
																															BgL_bufposz00_6121))
																														{	/* Unsafe/http.scm 461 */
																															if (rgc_fill_buffer(BgL_iportz00_6118))
																																{	/* Unsafe/http.scm 461 */
																																	long
																																		BgL_arg4259z00_6126;
																																	long
																																		BgL_arg4260z00_6127;
																																	BgL_arg4259z00_6126
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_iportz00_6118);
																																	BgL_arg4260z00_6127
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_iportz00_6118);
																																	{
																																		long
																																			BgL_bufposz00_16529;
																																		long
																																			BgL_forwardz00_16528;
																																		BgL_forwardz00_16528
																																			=
																																			BgL_arg4259z00_6126;
																																		BgL_bufposz00_16529
																																			=
																																			BgL_arg4260z00_6127;
																																		BgL_bufposz00_6121
																																			=
																																			BgL_bufposz00_16529;
																																		BgL_forwardz00_6120
																																			=
																																			BgL_forwardz00_16528;
																																		goto
																																			BgL_zc3z04anonymousza34256ze3z87_6122;
																																	}
																																}
																															else
																																{	/* Unsafe/http.scm 461 */
																																	BgL_matchz00_6282
																																		=
																																		BgL_newzd2matchzd2_6123;
																																}
																														}
																													else
																														{	/* Unsafe/http.scm 461 */
																															int
																																BgL_curz00_6128;
																															BgL_curz00_6128 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_iportz00_6118,
																																BgL_forwardz00_6120);
																															{	/* Unsafe/http.scm 461 */

																																{	/* Unsafe/http.scm 461 */
																																	bool_t
																																		BgL_test6575z00_16531;
																																	if (((long)
																																			(BgL_curz00_6128)
																																			>= 48L))
																																		{	/* Unsafe/http.scm 461 */
																																			BgL_test6575z00_16531
																																				=
																																				((long)
																																				(BgL_curz00_6128)
																																				< 58L);
																																		}
																																	else
																																		{	/* Unsafe/http.scm 461 */
																																			BgL_test6575z00_16531
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																	if (BgL_test6575z00_16531)
																																		{	/* Unsafe/http.scm 461 */
																																			BgL_iportz00_6133
																																				=
																																				BgL_iportz00_6118;
																																			BgL_lastzd2matchzd2_6134
																																				=
																																				BgL_newzd2matchzd2_6123;
																																			BgL_forwardz00_6135
																																				=
																																				(1L +
																																				BgL_forwardz00_6120);
																																			BgL_bufposz00_6136
																																				=
																																				BgL_bufposz00_6121;
																																		BgL_zc3z04anonymousza34264ze3z87_6137:
																																			{	/* Unsafe/http.scm 461 */
																																				long
																																					BgL_newzd2matchzd2_6138;
																																				RGC_STOP_MATCH
																																					(BgL_iportz00_6133,
																																					BgL_forwardz00_6135);
																																				BgL_newzd2matchzd2_6138
																																					= 0L;
																																				if (
																																					(BgL_forwardz00_6135
																																						==
																																						BgL_bufposz00_6136))
																																					{	/* Unsafe/http.scm 461 */
																																						if (rgc_fill_buffer(BgL_iportz00_6133))
																																							{	/* Unsafe/http.scm 461 */
																																								long
																																									BgL_arg4267z00_6141;
																																								long
																																									BgL_arg4268z00_6142;
																																								BgL_arg4267z00_6141
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_iportz00_6133);
																																								BgL_arg4268z00_6142
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_iportz00_6133);
																																								{
																																									long
																																										BgL_bufposz00_16545;
																																									long
																																										BgL_forwardz00_16544;
																																									BgL_forwardz00_16544
																																										=
																																										BgL_arg4267z00_6141;
																																									BgL_bufposz00_16545
																																										=
																																										BgL_arg4268z00_6142;
																																									BgL_bufposz00_6136
																																										=
																																										BgL_bufposz00_16545;
																																									BgL_forwardz00_6135
																																										=
																																										BgL_forwardz00_16544;
																																									goto
																																										BgL_zc3z04anonymousza34264ze3z87_6137;
																																								}
																																							}
																																						else
																																							{	/* Unsafe/http.scm 461 */
																																								BgL_matchz00_6282
																																									=
																																									BgL_newzd2matchzd2_6138;
																																							}
																																					}
																																				else
																																					{	/* Unsafe/http.scm 461 */
																																						int
																																							BgL_curz00_6143;
																																						BgL_curz00_6143
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_iportz00_6133,
																																							BgL_forwardz00_6135);
																																						{	/* Unsafe/http.scm 461 */

																																							{	/* Unsafe/http.scm 461 */
																																								bool_t
																																									BgL_test6579z00_16547;
																																								if (((long) (BgL_curz00_6143) >= 48L))
																																									{	/* Unsafe/http.scm 461 */
																																										BgL_test6579z00_16547
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_6143)
																																											<
																																											58L);
																																									}
																																								else
																																									{	/* Unsafe/http.scm 461 */
																																										BgL_test6579z00_16547
																																											=
																																											(
																																											(bool_t)
																																											0);
																																									}
																																								if (BgL_test6579z00_16547)
																																									{
																																										long
																																											BgL_forwardz00_16554;
																																										long
																																											BgL_lastzd2matchzd2_16553;
																																										BgL_lastzd2matchzd2_16553
																																											=
																																											BgL_newzd2matchzd2_6138;
																																										BgL_forwardz00_16554
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_6135);
																																										BgL_forwardz00_6135
																																											=
																																											BgL_forwardz00_16554;
																																										BgL_lastzd2matchzd2_6134
																																											=
																																											BgL_lastzd2matchzd2_16553;
																																										goto
																																											BgL_zc3z04anonymousza34264ze3z87_6137;
																																									}
																																								else
																																									{	/* Unsafe/http.scm 461 */
																																										BgL_matchz00_6282
																																											=
																																											BgL_newzd2matchzd2_6138;
																																									}
																																							}
																																						}
																																					}
																																			}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 461 */
																																			BgL_matchz00_6282
																																				=
																																				BgL_newzd2matchzd2_6123;
																																		}
																																}
																															}
																														}
																												}
																											}
																										else
																											{	/* Unsafe/http.scm 461 */
																												bool_t
																													BgL_test6581z00_16558;
																												if (((long)
																														(BgL_curz00_6087) ==
																														9L))
																													{	/* Unsafe/http.scm 461 */
																														BgL_test6581z00_16558
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Unsafe/http.scm 461 */
																														BgL_test6581z00_16558
																															=
																															((long)
																															(BgL_curz00_6087)
																															== 32L);
																													}
																												if (BgL_test6581z00_16558)
																													{	/* Unsafe/http.scm 461 */
																														BgL_iportz00_6103 =
																															BgL_iportz00_6078;
																														BgL_lastzd2matchzd2_6104
																															=
																															BgL_lastzd2matchzd2_6079;
																														BgL_forwardz00_6105
																															=
																															(1L +
																															BgL_forwardz00_6080);
																														BgL_bufposz00_6106 =
																															BgL_bufposz00_6081;
																													BgL_zc3z04anonymousza34248ze3z87_6107:
																														{	/* Unsafe/http.scm 461 */
																															long
																																BgL_newzd2matchzd2_6108;
																															RGC_STOP_MATCH
																																(BgL_iportz00_6103,
																																BgL_forwardz00_6105);
																															BgL_newzd2matchzd2_6108
																																= 1L;
																															if (
																																(BgL_forwardz00_6105
																																	==
																																	BgL_bufposz00_6106))
																																{	/* Unsafe/http.scm 461 */
																																	if (rgc_fill_buffer(BgL_iportz00_6103))
																																		{	/* Unsafe/http.scm 461 */
																																			long
																																				BgL_arg4251z00_6111;
																																			long
																																				BgL_arg4252z00_6112;
																																			BgL_arg4251z00_6111
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_iportz00_6103);
																																			BgL_arg4252z00_6112
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_iportz00_6103);
																																			{
																																				long
																																					BgL_bufposz00_16572;
																																				long
																																					BgL_forwardz00_16571;
																																				BgL_forwardz00_16571
																																					=
																																					BgL_arg4251z00_6111;
																																				BgL_bufposz00_16572
																																					=
																																					BgL_arg4252z00_6112;
																																				BgL_bufposz00_6106
																																					=
																																					BgL_bufposz00_16572;
																																				BgL_forwardz00_6105
																																					=
																																					BgL_forwardz00_16571;
																																				goto
																																					BgL_zc3z04anonymousza34248ze3z87_6107;
																																			}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 461 */
																																			BgL_matchz00_6282
																																				=
																																				BgL_newzd2matchzd2_6108;
																																		}
																																}
																															else
																																{	/* Unsafe/http.scm 461 */
																																	int
																																		BgL_curz00_6113;
																																	BgL_curz00_6113
																																		=
																																		RGC_BUFFER_GET_CHAR
																																		(BgL_iportz00_6103,
																																		BgL_forwardz00_6105);
																																	{	/* Unsafe/http.scm 461 */

																																		{	/* Unsafe/http.scm 461 */
																																			bool_t
																																				BgL_test6585z00_16574;
																																			if ((
																																					(long)
																																					(BgL_curz00_6113)
																																					==
																																					9L))
																																				{	/* Unsafe/http.scm 461 */
																																					BgL_test6585z00_16574
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Unsafe/http.scm 461 */
																																					BgL_test6585z00_16574
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_6113)
																																						==
																																						32L);
																																				}
																																			if (BgL_test6585z00_16574)
																																				{	/* Unsafe/http.scm 461 */
																																					BgL_iportz00_6148
																																						=
																																						BgL_iportz00_6103;
																																					BgL_lastzd2matchzd2_6149
																																						=
																																						BgL_newzd2matchzd2_6108;
																																					BgL_forwardz00_6150
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_6105);
																																					BgL_bufposz00_6151
																																						=
																																						BgL_bufposz00_6106;
																																				BgL_zc3z04anonymousza34272ze3z87_6152:
																																					{	/* Unsafe/http.scm 461 */
																																						long
																																							BgL_newzd2matchzd2_6153;
																																						RGC_STOP_MATCH
																																							(BgL_iportz00_6148,
																																							BgL_forwardz00_6150);
																																						BgL_newzd2matchzd2_6153
																																							=
																																							1L;
																																						if (
																																							(BgL_forwardz00_6150
																																								==
																																								BgL_bufposz00_6151))
																																							{	/* Unsafe/http.scm 461 */
																																								if (rgc_fill_buffer(BgL_iportz00_6148))
																																									{	/* Unsafe/http.scm 461 */
																																										long
																																											BgL_arg4275z00_6156;
																																										long
																																											BgL_arg4276z00_6157;
																																										BgL_arg4275z00_6156
																																											=
																																											RGC_BUFFER_FORWARD
																																											(BgL_iportz00_6148);
																																										BgL_arg4276z00_6157
																																											=
																																											RGC_BUFFER_BUFPOS
																																											(BgL_iportz00_6148);
																																										{
																																											long
																																												BgL_bufposz00_16588;
																																											long
																																												BgL_forwardz00_16587;
																																											BgL_forwardz00_16587
																																												=
																																												BgL_arg4275z00_6156;
																																											BgL_bufposz00_16588
																																												=
																																												BgL_arg4276z00_6157;
																																											BgL_bufposz00_6151
																																												=
																																												BgL_bufposz00_16588;
																																											BgL_forwardz00_6150
																																												=
																																												BgL_forwardz00_16587;
																																											goto
																																												BgL_zc3z04anonymousza34272ze3z87_6152;
																																										}
																																									}
																																								else
																																									{	/* Unsafe/http.scm 461 */
																																										BgL_matchz00_6282
																																											=
																																											BgL_newzd2matchzd2_6153;
																																									}
																																							}
																																						else
																																							{	/* Unsafe/http.scm 461 */
																																								int
																																									BgL_curz00_6158;
																																								BgL_curz00_6158
																																									=
																																									RGC_BUFFER_GET_CHAR
																																									(BgL_iportz00_6148,
																																									BgL_forwardz00_6150);
																																								{	/* Unsafe/http.scm 461 */

																																									{	/* Unsafe/http.scm 461 */
																																										bool_t
																																											BgL_test6589z00_16590;
																																										if (((long) (BgL_curz00_6158) == 9L))
																																											{	/* Unsafe/http.scm 461 */
																																												BgL_test6589z00_16590
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Unsafe/http.scm 461 */
																																												BgL_test6589z00_16590
																																													=
																																													(
																																													(long)
																																													(BgL_curz00_6158)
																																													==
																																													32L);
																																											}
																																										if (BgL_test6589z00_16590)
																																											{
																																												long
																																													BgL_forwardz00_16597;
																																												long
																																													BgL_lastzd2matchzd2_16596;
																																												BgL_lastzd2matchzd2_16596
																																													=
																																													BgL_newzd2matchzd2_6153;
																																												BgL_forwardz00_16597
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_6150);
																																												BgL_forwardz00_6150
																																													=
																																													BgL_forwardz00_16597;
																																												BgL_lastzd2matchzd2_6149
																																													=
																																													BgL_lastzd2matchzd2_16596;
																																												goto
																																													BgL_zc3z04anonymousza34272ze3z87_6152;
																																											}
																																										else
																																											{	/* Unsafe/http.scm 461 */
																																												BgL_matchz00_6282
																																													=
																																													BgL_newzd2matchzd2_6153;
																																											}
																																									}
																																								}
																																							}
																																					}
																																				}
																																			else
																																				{	/* Unsafe/http.scm 461 */
																																					BgL_matchz00_6282
																																						=
																																						BgL_newzd2matchzd2_6108;
																																				}
																																		}
																																	}
																																}
																														}
																													}
																												else
																													{	/* Unsafe/http.scm 461 */
																														long
																															BgL_arg4246z00_6094;
																														BgL_arg4246z00_6094
																															=
																															(1L +
																															BgL_forwardz00_6080);
																														{	/* Unsafe/http.scm 461 */
																															long
																																BgL_newzd2matchzd2_10393;
																															RGC_STOP_MATCH
																																(BgL_iportz00_6078,
																																BgL_arg4246z00_6094);
																															BgL_newzd2matchzd2_10393
																																= 2L;
																															BgL_matchz00_6282
																																=
																																BgL_newzd2matchzd2_10393;
																					}}}}}}}
																					RGC_SET_FILEPOS(BgL_iportz00_6043);
																					switch (BgL_matchz00_6282)
																						{
																						case 2L:

																							{	/* Unsafe/http.scm 461 */
																								bool_t BgL_test6591z00_16604;

																								{	/* Unsafe/http.scm 461 */
																									long BgL_arg4360z00_6272;

																									BgL_arg4360z00_6272 =
																										RGC_BUFFER_MATCH_LENGTH
																										(BgL_iportz00_6043);
																									BgL_test6591z00_16604 =
																										(BgL_arg4360z00_6272 == 0L);
																								}
																								if (BgL_test6591z00_16604)
																									{	/* Unsafe/http.scm 461 */
																										BgL_contentzd2lengthzd2_3887
																											= BEOF;
																									}
																								else
																									{	/* Unsafe/http.scm 461 */
																										BgL_contentzd2lengthzd2_3887
																											=
																											BCHAR(RGC_BUFFER_CHARACTER
																											(BgL_iportz00_6043));
																									}
																							}
																							break;
																						case 1L:

																							goto
																								BgL_zc3z04anonymousza34366ze3z87_6281;
																							break;
																						case 0L:

																							{	/* Unsafe/http.scm 462 */
																								long BgL_arg4367z00_6285;

																								BgL_arg4367z00_6285 =
																									rgc_buffer_fixnum
																									(BgL_iportz00_6043);
																								BgL_contentzd2lengthzd2_3887 =
																									make_belong((long)
																									(BgL_arg4367z00_6285));
																							} break;
																						default:
																							BgL_contentzd2lengthzd2_3887 =
																								BGl_errorz00zz__errorz00
																								(BGl_string5657z00zz__httpz00,
																								BGl_string5658z00zz__httpz00,
																								BINT(BgL_matchz00_6282));
																						}
																				}
																			}
																			BgL_iportz00_4495 = BgL_iportz00_3882;
																			{
																				obj_t BgL_iportz00_4531;
																				long BgL_lastzd2matchzd2_4532;
																				long BgL_forwardz00_4533;
																				long BgL_bufposz00_4534;
																				obj_t BgL_iportz00_4547;
																				long BgL_lastzd2matchzd2_4548;
																				long BgL_forwardz00_4549;
																				long BgL_bufposz00_4550;
																				obj_t BgL_iportz00_4568;
																				long BgL_lastzd2matchzd2_4569;
																				long BgL_forwardz00_4570;
																				long BgL_bufposz00_4571;
																				obj_t BgL_iportz00_4581;
																				long BgL_lastzd2matchzd2_4582;
																				long BgL_forwardz00_4583;
																				long BgL_bufposz00_4584;

																				RGC_START_MATCH(BgL_iportz00_4495);
																				{	/* Unsafe/http.scm 499 */
																					long BgL_matchz00_4733;

																					{	/* Unsafe/http.scm 499 */
																						long BgL_arg3618z00_4736;
																						long BgL_arg3620z00_4737;

																						BgL_arg3618z00_4736 =
																							RGC_BUFFER_FORWARD
																							(BgL_iportz00_4495);
																						BgL_arg3620z00_4737 =
																							RGC_BUFFER_BUFPOS
																							(BgL_iportz00_4495);
																						BgL_iportz00_4581 =
																							BgL_iportz00_4495;
																						BgL_lastzd2matchzd2_4582 = 1L;
																						BgL_forwardz00_4583 =
																							BgL_arg3618z00_4736;
																						BgL_bufposz00_4584 =
																							BgL_arg3620z00_4737;
																					BgL_zc3z04anonymousza33502ze3z87_4585:
																						if (
																							(BgL_forwardz00_4583 ==
																								BgL_bufposz00_4584))
																							{	/* Unsafe/http.scm 499 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_4581))
																									{	/* Unsafe/http.scm 499 */
																										long BgL_arg3505z00_4588;
																										long BgL_arg3507z00_4589;

																										BgL_arg3505z00_4588 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_4581);
																										BgL_arg3507z00_4589 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_4581);
																										{
																											long BgL_bufposz00_16625;
																											long BgL_forwardz00_16624;

																											BgL_forwardz00_16624 =
																												BgL_arg3505z00_4588;
																											BgL_bufposz00_16625 =
																												BgL_arg3507z00_4589;
																											BgL_bufposz00_4584 =
																												BgL_bufposz00_16625;
																											BgL_forwardz00_4583 =
																												BgL_forwardz00_16624;
																											goto
																												BgL_zc3z04anonymousza33502ze3z87_4585;
																										}
																									}
																								else
																									{	/* Unsafe/http.scm 499 */
																										BgL_matchz00_4733 =
																											BgL_lastzd2matchzd2_4582;
																									}
																							}
																						else
																							{	/* Unsafe/http.scm 499 */
																								int BgL_curz00_4590;

																								BgL_curz00_4590 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_4581,
																									BgL_forwardz00_4583);
																								{	/* Unsafe/http.scm 499 */

																									if (
																										((long) (BgL_curz00_4590) ==
																											13L))
																										{	/* Unsafe/http.scm 499 */
																											BgL_iportz00_4568 =
																												BgL_iportz00_4581;
																											BgL_lastzd2matchzd2_4569 =
																												BgL_lastzd2matchzd2_4582;
																											BgL_forwardz00_4570 =
																												(1L +
																												BgL_forwardz00_4583);
																											BgL_bufposz00_4571 =
																												BgL_bufposz00_4584;
																										BgL_zc3z04anonymousza33493ze3z87_4572:
																											{	/* Unsafe/http.scm 499 */
																												long
																													BgL_newzd2matchzd2_4573;
																												RGC_STOP_MATCH
																													(BgL_iportz00_4568,
																													BgL_forwardz00_4570);
																												BgL_newzd2matchzd2_4573
																													= 1L;
																												if ((BgL_forwardz00_4570
																														==
																														BgL_bufposz00_4571))
																													{	/* Unsafe/http.scm 499 */
																														if (rgc_fill_buffer
																															(BgL_iportz00_4568))
																															{	/* Unsafe/http.scm 499 */
																																long
																																	BgL_arg3497z00_4576;
																																long
																																	BgL_arg3498z00_4577;
																																BgL_arg3497z00_4576
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_iportz00_4568);
																																BgL_arg3498z00_4577
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_iportz00_4568);
																																{
																																	long
																																		BgL_bufposz00_16638;
																																	long
																																		BgL_forwardz00_16637;
																																	BgL_forwardz00_16637
																																		=
																																		BgL_arg3497z00_4576;
																																	BgL_bufposz00_16638
																																		=
																																		BgL_arg3498z00_4577;
																																	BgL_bufposz00_4571
																																		=
																																		BgL_bufposz00_16638;
																																	BgL_forwardz00_4570
																																		=
																																		BgL_forwardz00_16637;
																																	goto
																																		BgL_zc3z04anonymousza33493ze3z87_4572;
																																}
																															}
																														else
																															{	/* Unsafe/http.scm 499 */
																																BgL_matchz00_4733
																																	=
																																	BgL_newzd2matchzd2_4573;
																															}
																													}
																												else
																													{	/* Unsafe/http.scm 499 */
																														int BgL_curz00_4578;

																														BgL_curz00_4578 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_iportz00_4568,
																															BgL_forwardz00_4570);
																														{	/* Unsafe/http.scm 499 */

																															if (
																																((long)
																																	(BgL_curz00_4578)
																																	== 10L))
																																{	/* Unsafe/http.scm 499 */
																																	long
																																		BgL_arg3501z00_4580;
																																	BgL_arg3501z00_4580
																																		=
																																		(1L +
																																		BgL_forwardz00_4570);
																																	{	/* Unsafe/http.scm 499 */
																																		long
																																			BgL_newzd2matchzd2_11162;
																																		RGC_STOP_MATCH
																																			(BgL_iportz00_4568,
																																			BgL_arg3501z00_4580);
																																		BgL_newzd2matchzd2_11162
																																			= 0L;
																																		BgL_matchz00_4733
																																			=
																																			BgL_newzd2matchzd2_11162;
																																}}
																															else
																																{	/* Unsafe/http.scm 499 */
																																	BgL_matchz00_4733
																																		=
																																		BgL_newzd2matchzd2_4573;
																																}
																														}
																													}
																											}
																										}
																									else
																										{	/* Unsafe/http.scm 499 */
																											if (
																												((long)
																													(BgL_curz00_4590) ==
																													10L))
																												{	/* Unsafe/http.scm 499 */
																													long
																														BgL_arg3511z00_4594;
																													BgL_arg3511z00_4594 =
																														(1L +
																														BgL_forwardz00_4583);
																													{	/* Unsafe/http.scm 499 */
																														long
																															BgL_newzd2matchzd2_11176;
																														RGC_STOP_MATCH
																															(BgL_iportz00_4581,
																															BgL_arg3511z00_4594);
																														BgL_newzd2matchzd2_11176
																															= 0L;
																														BgL_matchz00_4733 =
																															BgL_newzd2matchzd2_11176;
																												}}
																											else
																												{	/* Unsafe/http.scm 499 */
																													BgL_iportz00_4531 =
																														BgL_iportz00_4581;
																													BgL_lastzd2matchzd2_4532
																														=
																														BgL_lastzd2matchzd2_4582;
																													BgL_forwardz00_4533 =
																														(1L +
																														BgL_forwardz00_4583);
																													BgL_bufposz00_4534 =
																														BgL_bufposz00_4584;
																												BgL_zc3z04anonymousza33467ze3z87_4535:
																													{	/* Unsafe/http.scm 499 */
																														long
																															BgL_newzd2matchzd2_4536;
																														RGC_STOP_MATCH
																															(BgL_iportz00_4531,
																															BgL_forwardz00_4533);
																														BgL_newzd2matchzd2_4536
																															= 1L;
																														if (
																															(BgL_forwardz00_4533
																																==
																																BgL_bufposz00_4534))
																															{	/* Unsafe/http.scm 499 */
																																if (rgc_fill_buffer(BgL_iportz00_4531))
																																	{	/* Unsafe/http.scm 499 */
																																		long
																																			BgL_arg3470z00_4539;
																																		long
																																			BgL_arg3472z00_4540;
																																		BgL_arg3470z00_4539
																																			=
																																			RGC_BUFFER_FORWARD
																																			(BgL_iportz00_4531);
																																		BgL_arg3472z00_4540
																																			=
																																			RGC_BUFFER_BUFPOS
																																			(BgL_iportz00_4531);
																																		{
																																			long
																																				BgL_bufposz00_16659;
																																			long
																																				BgL_forwardz00_16658;
																																			BgL_forwardz00_16658
																																				=
																																				BgL_arg3470z00_4539;
																																			BgL_bufposz00_16659
																																				=
																																				BgL_arg3472z00_4540;
																																			BgL_bufposz00_4534
																																				=
																																				BgL_bufposz00_16659;
																																			BgL_forwardz00_4533
																																				=
																																				BgL_forwardz00_16658;
																																			goto
																																				BgL_zc3z04anonymousza33467ze3z87_4535;
																																		}
																																	}
																																else
																																	{	/* Unsafe/http.scm 499 */
																																		BgL_matchz00_4733
																																			=
																																			BgL_newzd2matchzd2_4536;
																																	}
																															}
																														else
																															{	/* Unsafe/http.scm 499 */
																																int
																																	BgL_curz00_4541;
																																BgL_curz00_4541
																																	=
																																	RGC_BUFFER_GET_CHAR
																																	(BgL_iportz00_4531,
																																	BgL_forwardz00_4533);
																																{	/* Unsafe/http.scm 499 */

																																	if (
																																		((long)
																																			(BgL_curz00_4541)
																																			== 13L))
																																		{	/* Unsafe/http.scm 499 */
																																			long
																																				BgL_arg3475z00_4543;
																																			BgL_arg3475z00_4543
																																				=
																																				(1L +
																																				BgL_forwardz00_4533);
																																			{
																																				long
																																					BgL_forwardz00_11084;
																																				long
																																					BgL_bufposz00_11085;
																																				BgL_forwardz00_11084
																																					=
																																					BgL_arg3475z00_4543;
																																				BgL_bufposz00_11085
																																					=
																																					BgL_bufposz00_4534;
																																			BgL_statezd27zd21249z00_11083:
																																				if (
																																					(BgL_forwardz00_11084
																																						==
																																						BgL_bufposz00_11085))
																																					{	/* Unsafe/http.scm 499 */
																																						if (rgc_fill_buffer(BgL_iportz00_4531))
																																							{	/* Unsafe/http.scm 499 */
																																								long
																																									BgL_arg3517z00_11088;
																																								long
																																									BgL_arg3518z00_11089;
																																								BgL_arg3517z00_11088
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_iportz00_4531);
																																								BgL_arg3518z00_11089
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_iportz00_4531);
																																								{
																																									long
																																										BgL_bufposz00_16672;
																																									long
																																										BgL_forwardz00_16671;
																																									BgL_forwardz00_16671
																																										=
																																										BgL_arg3517z00_11088;
																																									BgL_bufposz00_16672
																																										=
																																										BgL_arg3518z00_11089;
																																									BgL_bufposz00_11085
																																										=
																																										BgL_bufposz00_16672;
																																									BgL_forwardz00_11084
																																										=
																																										BgL_forwardz00_16671;
																																									goto
																																										BgL_statezd27zd21249z00_11083;
																																								}
																																							}
																																						else
																																							{	/* Unsafe/http.scm 499 */
																																								BgL_matchz00_4733
																																									=
																																									BgL_newzd2matchzd2_4536;
																																							}
																																					}
																																				else
																																					{	/* Unsafe/http.scm 499 */
																																						int
																																							BgL_curz00_11090;
																																						BgL_curz00_11090
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_iportz00_4531,
																																							BgL_forwardz00_11084);
																																						{	/* Unsafe/http.scm 499 */

																																							if (((long) (BgL_curz00_11090) == 10L))
																																								{	/* Unsafe/http.scm 499 */
																																									long
																																										BgL_arg3521z00_11092;
																																									BgL_arg3521z00_11092
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_11084);
																																									{	/* Unsafe/http.scm 499 */
																																										long
																																											BgL_newzd2matchzd2_11102;
																																										RGC_STOP_MATCH
																																											(BgL_iportz00_4531,
																																											BgL_arg3521z00_11092);
																																										BgL_newzd2matchzd2_11102
																																											=
																																											0L;
																																										BgL_matchz00_4733
																																											=
																																											BgL_newzd2matchzd2_11102;
																																								}}
																																							else
																																								{	/* Unsafe/http.scm 499 */
																																									BgL_matchz00_4733
																																										=
																																										BgL_newzd2matchzd2_4536;
																																								}
																																						}
																																					}
																																			}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 499 */
																																			if (
																																				((long)
																																					(BgL_curz00_4541)
																																					==
																																					10L))
																																				{	/* Unsafe/http.scm 499 */
																																					long
																																						BgL_arg3478z00_4545;
																																					BgL_arg3478z00_4545
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_4533);
																																					{	/* Unsafe/http.scm 499 */
																																						long
																																							BgL_newzd2matchzd2_11107;
																																						RGC_STOP_MATCH
																																							(BgL_iportz00_4531,
																																							BgL_arg3478z00_4545);
																																						BgL_newzd2matchzd2_11107
																																							=
																																							0L;
																																						BgL_matchz00_4733
																																							=
																																							BgL_newzd2matchzd2_11107;
																																				}}
																																			else
																																				{	/* Unsafe/http.scm 499 */
																																					BgL_iportz00_4547
																																						=
																																						BgL_iportz00_4531;
																																					BgL_lastzd2matchzd2_4548
																																						=
																																						BgL_newzd2matchzd2_4536;
																																					BgL_forwardz00_4549
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_4533);
																																					BgL_bufposz00_4550
																																						=
																																						BgL_bufposz00_4534;
																																				BgL_zc3z04anonymousza33480ze3z87_4551:
																																					if (
																																						(BgL_forwardz00_4549
																																							==
																																							BgL_bufposz00_4550))
																																						{	/* Unsafe/http.scm 499 */
																																							if (rgc_fill_buffer(BgL_iportz00_4547))
																																								{	/* Unsafe/http.scm 499 */
																																									long
																																										BgL_arg3483z00_4554;
																																									long
																																										BgL_arg3485z00_4555;
																																									BgL_arg3483z00_4554
																																										=
																																										RGC_BUFFER_FORWARD
																																										(BgL_iportz00_4547);
																																									BgL_arg3485z00_4555
																																										=
																																										RGC_BUFFER_BUFPOS
																																										(BgL_iportz00_4547);
																																									{
																																										long
																																											BgL_bufposz00_16691;
																																										long
																																											BgL_forwardz00_16690;
																																										BgL_forwardz00_16690
																																											=
																																											BgL_arg3483z00_4554;
																																										BgL_bufposz00_16691
																																											=
																																											BgL_arg3485z00_4555;
																																										BgL_bufposz00_4550
																																											=
																																											BgL_bufposz00_16691;
																																										BgL_forwardz00_4549
																																											=
																																											BgL_forwardz00_16690;
																																										goto
																																											BgL_zc3z04anonymousza33480ze3z87_4551;
																																									}
																																								}
																																							else
																																								{	/* Unsafe/http.scm 499 */
																																									BgL_matchz00_4733
																																										=
																																										BgL_lastzd2matchzd2_4548;
																																								}
																																						}
																																					else
																																						{	/* Unsafe/http.scm 499 */
																																							int
																																								BgL_curz00_4556;
																																							BgL_curz00_4556
																																								=
																																								RGC_BUFFER_GET_CHAR
																																								(BgL_iportz00_4547,
																																								BgL_forwardz00_4549);
																																							{	/* Unsafe/http.scm 499 */

																																								if (((long) (BgL_curz00_4556) == 13L))
																																									{	/* Unsafe/http.scm 499 */
																																										long
																																											BgL_arg3488z00_4558;
																																										BgL_arg3488z00_4558
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_4549);
																																										{
																																											long
																																												BgL_forwardz00_11121;
																																											long
																																												BgL_bufposz00_11122;
																																											BgL_forwardz00_11121
																																												=
																																												BgL_arg3488z00_4558;
																																											BgL_bufposz00_11122
																																												=
																																												BgL_bufposz00_4550;
																																										BgL_statezd27zd21249z00_11120:
																																											if ((BgL_forwardz00_11121 == BgL_bufposz00_11122))
																																												{	/* Unsafe/http.scm 499 */
																																													if (rgc_fill_buffer(BgL_iportz00_4547))
																																														{	/* Unsafe/http.scm 499 */
																																															long
																																																BgL_arg3517z00_11125;
																																															long
																																																BgL_arg3518z00_11126;
																																															BgL_arg3517z00_11125
																																																=
																																																RGC_BUFFER_FORWARD
																																																(BgL_iportz00_4547);
																																															BgL_arg3518z00_11126
																																																=
																																																RGC_BUFFER_BUFPOS
																																																(BgL_iportz00_4547);
																																															{
																																																long
																																																	BgL_bufposz00_16704;
																																																long
																																																	BgL_forwardz00_16703;
																																																BgL_forwardz00_16703
																																																	=
																																																	BgL_arg3517z00_11125;
																																																BgL_bufposz00_16704
																																																	=
																																																	BgL_arg3518z00_11126;
																																																BgL_bufposz00_11122
																																																	=
																																																	BgL_bufposz00_16704;
																																																BgL_forwardz00_11121
																																																	=
																																																	BgL_forwardz00_16703;
																																																goto
																																																	BgL_statezd27zd21249z00_11120;
																																															}
																																														}
																																													else
																																														{	/* Unsafe/http.scm 499 */
																																															BgL_matchz00_4733
																																																=
																																																BgL_lastzd2matchzd2_4548;
																																														}
																																												}
																																											else
																																												{	/* Unsafe/http.scm 499 */
																																													int
																																														BgL_curz00_11127;
																																													BgL_curz00_11127
																																														=
																																														RGC_BUFFER_GET_CHAR
																																														(BgL_iportz00_4547,
																																														BgL_forwardz00_11121);
																																													{	/* Unsafe/http.scm 499 */

																																														if (((long) (BgL_curz00_11127) == 10L))
																																															{	/* Unsafe/http.scm 499 */
																																																long
																																																	BgL_arg3521z00_11129;
																																																BgL_arg3521z00_11129
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_11121);
																																																{	/* Unsafe/http.scm 499 */
																																																	long
																																																		BgL_newzd2matchzd2_11139;
																																																	RGC_STOP_MATCH
																																																		(BgL_iportz00_4547,
																																																		BgL_arg3521z00_11129);
																																																	BgL_newzd2matchzd2_11139
																																																		=
																																																		0L;
																																																	BgL_matchz00_4733
																																																		=
																																																		BgL_newzd2matchzd2_11139;
																																															}}
																																														else
																																															{	/* Unsafe/http.scm 499 */
																																																BgL_matchz00_4733
																																																	=
																																																	BgL_lastzd2matchzd2_4548;
																																															}
																																													}
																																												}
																																										}
																																									}
																																								else
																																									{	/* Unsafe/http.scm 499 */
																																										if (((long) (BgL_curz00_4556) == 10L))
																																											{	/* Unsafe/http.scm 499 */
																																												long
																																													BgL_arg3490z00_4560;
																																												BgL_arg3490z00_4560
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_4549);
																																												{	/* Unsafe/http.scm 499 */
																																													long
																																														BgL_newzd2matchzd2_11144;
																																													RGC_STOP_MATCH
																																														(BgL_iportz00_4547,
																																														BgL_arg3490z00_4560);
																																													BgL_newzd2matchzd2_11144
																																														=
																																														0L;
																																													BgL_matchz00_4733
																																														=
																																														BgL_newzd2matchzd2_11144;
																																											}}
																																										else
																																											{
																																												long
																																													BgL_forwardz00_16716;
																																												BgL_forwardz00_16716
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_4549);
																																												BgL_forwardz00_4549
																																													=
																																													BgL_forwardz00_16716;
																																												goto
																																													BgL_zc3z04anonymousza33480ze3z87_4551;
																																											}
																																									}
																																							}
																																						}
																																				}
																																		}
																																}
																															}
																													}
																												}
																										}
																								}
																							}
																					}
																					RGC_SET_FILEPOS(BgL_iportz00_4495);
																					switch (BgL_matchz00_4733)
																						{
																						case 1L:
																							BFALSE;
																							break;
																						case 0L:
																							BUNSPEC;
																							break;
																						default:
																							BGl_errorz00zz__errorz00
																								(BGl_string5657z00zz__httpz00,
																								BGl_string5658z00zz__httpz00,
																								BINT(BgL_matchz00_4733));
																						}
																				}
																			}
																			{	/* Unsafe/http.scm 531 */
																				obj_t BgL_arg3435z00_4415;

																				BgL_arg3435z00_4415 =
																					MAKE_YOUNG_PAIR(BgL_kz00_4399,
																					BgL_contentzd2lengthzd2_3887);
																				BgL_headerz00_3884 =
																					MAKE_YOUNG_PAIR(BgL_arg3435z00_4415,
																					BgL_headerz00_3884);
																			}
																			goto
																				BgL_zc3z04anonymousza33400ze3z87_4358;
																		}
																	else
																		{	/* Unsafe/http.scm 512 */
																			if (
																				(BgL_kz00_4399 ==
																					BGl_keyword5774z00zz__httpz00))
																				{	/* Unsafe/http.scm 512 */
																					BgL_iportz00_5743 = BgL_iportz00_3882;
																					{
																						obj_t BgL_iportz00_5778;
																						long BgL_lastzd2matchzd2_5779;
																						long BgL_forwardz00_5780;
																						long BgL_bufposz00_5781;
																						obj_t BgL_iportz00_5806;
																						long BgL_lastzd2matchzd2_5807;
																						long BgL_forwardz00_5808;
																						long BgL_bufposz00_5809;
																						obj_t BgL_iportz00_5821;
																						long BgL_lastzd2matchzd2_5822;
																						long BgL_forwardz00_5823;
																						long BgL_bufposz00_5824;
																						obj_t BgL_iportz00_5836;
																						long BgL_lastzd2matchzd2_5837;
																						long BgL_forwardz00_5838;
																						long BgL_bufposz00_5839;
																						obj_t BgL_iportz00_5858;
																						long BgL_lastzd2matchzd2_5859;
																						long BgL_forwardz00_5860;
																						long BgL_bufposz00_5861;

																					BgL_zc3z04anonymousza34231ze3z87_6002:
																						RGC_START_MATCH
																							(BgL_iportz00_5743);
																						{	/* Unsafe/http.scm 466 */
																							long BgL_matchz00_6003;

																							{	/* Unsafe/http.scm 466 */
																								long BgL_arg4232z00_6006;
																								long BgL_arg4233z00_6007;

																								BgL_arg4232z00_6006 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_5743);
																								BgL_arg4233z00_6007 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_5743);
																								BgL_iportz00_5858 =
																									BgL_iportz00_5743;
																								BgL_lastzd2matchzd2_5859 = 2L;
																								BgL_forwardz00_5860 =
																									BgL_arg4232z00_6006;
																								BgL_bufposz00_5861 =
																									BgL_arg4233z00_6007;
																							BgL_zc3z04anonymousza34131ze3z87_5862:
																								if (
																									(BgL_forwardz00_5860 ==
																										BgL_bufposz00_5861))
																									{	/* Unsafe/http.scm 466 */
																										if (rgc_fill_buffer
																											(BgL_iportz00_5858))
																											{	/* Unsafe/http.scm 466 */
																												long
																													BgL_arg4134z00_5865;
																												long
																													BgL_arg4135z00_5866;
																												BgL_arg4134z00_5865 =
																													RGC_BUFFER_FORWARD
																													(BgL_iportz00_5858);
																												BgL_arg4135z00_5866 =
																													RGC_BUFFER_BUFPOS
																													(BgL_iportz00_5858);
																												{
																													long
																														BgL_bufposz00_16738;
																													long
																														BgL_forwardz00_16737;
																													BgL_forwardz00_16737 =
																														BgL_arg4134z00_5865;
																													BgL_bufposz00_16738 =
																														BgL_arg4135z00_5866;
																													BgL_bufposz00_5861 =
																														BgL_bufposz00_16738;
																													BgL_forwardz00_5860 =
																														BgL_forwardz00_16737;
																													goto
																														BgL_zc3z04anonymousza34131ze3z87_5862;
																												}
																											}
																										else
																											{	/* Unsafe/http.scm 466 */
																												BgL_matchz00_6003 =
																													BgL_lastzd2matchzd2_5859;
																											}
																									}
																								else
																									{	/* Unsafe/http.scm 466 */
																										int BgL_curz00_5867;

																										BgL_curz00_5867 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_iportz00_5858,
																											BgL_forwardz00_5860);
																										{	/* Unsafe/http.scm 466 */

																											{	/* Unsafe/http.scm 466 */
																												bool_t
																													BgL_test6616z00_16740;
																												if (((long)
																														(BgL_curz00_5867) ==
																														45L))
																													{	/* Unsafe/http.scm 466 */
																														BgL_test6616z00_16740
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Unsafe/http.scm 466 */
																														bool_t
																															BgL_test6618z00_16744;
																														if (((long)
																																(BgL_curz00_5867)
																																>= 65L))
																															{	/* Unsafe/http.scm 466 */
																																BgL_test6618z00_16744
																																	=
																																	((long)
																																	(BgL_curz00_5867)
																																	< 91L);
																															}
																														else
																															{	/* Unsafe/http.scm 466 */
																																BgL_test6618z00_16744
																																	=
																																	((bool_t) 0);
																															}
																														if (BgL_test6618z00_16744)
																															{	/* Unsafe/http.scm 466 */
																																BgL_test6616z00_16740
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Unsafe/http.scm 466 */
																																if (
																																	((long)
																																		(BgL_curz00_5867)
																																		>= 97L))
																																	{	/* Unsafe/http.scm 466 */
																																		BgL_test6616z00_16740
																																			=
																																			((long)
																																			(BgL_curz00_5867)
																																			< 123L);
																																	}
																																else
																																	{	/* Unsafe/http.scm 466 */
																																		BgL_test6616z00_16740
																																			=
																																			((bool_t)
																																			0);
																																	}
																															}
																													}
																												if (BgL_test6616z00_16740)
																													{	/* Unsafe/http.scm 466 */
																														BgL_iportz00_5836 =
																															BgL_iportz00_5858;
																														BgL_lastzd2matchzd2_5837
																															=
																															BgL_lastzd2matchzd2_5859;
																														BgL_forwardz00_5838
																															=
																															(1L +
																															BgL_forwardz00_5860);
																														BgL_bufposz00_5839 =
																															BgL_bufposz00_5861;
																													BgL_zc3z04anonymousza34121ze3z87_5840:
																														{	/* Unsafe/http.scm 466 */
																															long
																																BgL_newzd2matchzd2_5841;
																															RGC_STOP_MATCH
																																(BgL_iportz00_5836,
																																BgL_forwardz00_5838);
																															BgL_newzd2matchzd2_5841
																																= 0L;
																															if (
																																(BgL_forwardz00_5838
																																	==
																																	BgL_bufposz00_5839))
																																{	/* Unsafe/http.scm 466 */
																																	if (rgc_fill_buffer(BgL_iportz00_5836))
																																		{	/* Unsafe/http.scm 466 */
																																			long
																																				BgL_arg4124z00_5844;
																																			long
																																				BgL_arg4125z00_5845;
																																			BgL_arg4124z00_5844
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_iportz00_5836);
																																			BgL_arg4125z00_5845
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_iportz00_5836);
																																			{
																																				long
																																					BgL_bufposz00_16763;
																																				long
																																					BgL_forwardz00_16762;
																																				BgL_forwardz00_16762
																																					=
																																					BgL_arg4124z00_5844;
																																				BgL_bufposz00_16763
																																					=
																																					BgL_arg4125z00_5845;
																																				BgL_bufposz00_5839
																																					=
																																					BgL_bufposz00_16763;
																																				BgL_forwardz00_5838
																																					=
																																					BgL_forwardz00_16762;
																																				goto
																																					BgL_zc3z04anonymousza34121ze3z87_5840;
																																			}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 466 */
																																			BgL_matchz00_6003
																																				=
																																				BgL_newzd2matchzd2_5841;
																																		}
																																}
																															else
																																{	/* Unsafe/http.scm 466 */
																																	int
																																		BgL_curz00_5846;
																																	BgL_curz00_5846
																																		=
																																		RGC_BUFFER_GET_CHAR
																																		(BgL_iportz00_5836,
																																		BgL_forwardz00_5838);
																																	{	/* Unsafe/http.scm 466 */

																																		{	/* Unsafe/http.scm 466 */
																																			bool_t
																																				BgL_test6623z00_16765;
																																			if ((
																																					(long)
																																					(BgL_curz00_5846)
																																					==
																																					45L))
																																				{	/* Unsafe/http.scm 466 */
																																					BgL_test6623z00_16765
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Unsafe/http.scm 466 */
																																					bool_t
																																						BgL_test6625z00_16769;
																																					if ((
																																							(long)
																																							(BgL_curz00_5846)
																																							>=
																																							65L))
																																						{	/* Unsafe/http.scm 466 */
																																							BgL_test6625z00_16769
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_5846)
																																								<
																																								91L);
																																						}
																																					else
																																						{	/* Unsafe/http.scm 466 */
																																							BgL_test6625z00_16769
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test6625z00_16769)
																																						{	/* Unsafe/http.scm 466 */
																																							BgL_test6623z00_16765
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Unsafe/http.scm 466 */
																																							if (((long) (BgL_curz00_5846) >= 97L))
																																								{	/* Unsafe/http.scm 466 */
																																									BgL_test6623z00_16765
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_5846)
																																										<
																																										123L);
																																								}
																																							else
																																								{	/* Unsafe/http.scm 466 */
																																									BgL_test6623z00_16765
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																						}
																																				}
																																			if (BgL_test6623z00_16765)
																																				{	/* Unsafe/http.scm 466 */
																																					BgL_iportz00_5778
																																						=
																																						BgL_iportz00_5836;
																																					BgL_lastzd2matchzd2_5779
																																						=
																																						BgL_newzd2matchzd2_5841;
																																					BgL_forwardz00_5780
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_5838);
																																					BgL_bufposz00_5781
																																						=
																																						BgL_bufposz00_5839;
																																				BgL_zc3z04anonymousza34094ze3z87_5782:
																																					{	/* Unsafe/http.scm 466 */
																																						long
																																							BgL_newzd2matchzd2_5783;
																																						RGC_STOP_MATCH
																																							(BgL_iportz00_5778,
																																							BgL_forwardz00_5780);
																																						BgL_newzd2matchzd2_5783
																																							=
																																							0L;
																																						if (
																																							(BgL_forwardz00_5780
																																								==
																																								BgL_bufposz00_5781))
																																							{	/* Unsafe/http.scm 466 */
																																								if (rgc_fill_buffer(BgL_iportz00_5778))
																																									{	/* Unsafe/http.scm 466 */
																																										long
																																											BgL_arg4097z00_5786;
																																										long
																																											BgL_arg4098z00_5787;
																																										BgL_arg4097z00_5786
																																											=
																																											RGC_BUFFER_FORWARD
																																											(BgL_iportz00_5778);
																																										BgL_arg4098z00_5787
																																											=
																																											RGC_BUFFER_BUFPOS
																																											(BgL_iportz00_5778);
																																										{
																																											long
																																												BgL_bufposz00_16788;
																																											long
																																												BgL_forwardz00_16787;
																																											BgL_forwardz00_16787
																																												=
																																												BgL_arg4097z00_5786;
																																											BgL_bufposz00_16788
																																												=
																																												BgL_arg4098z00_5787;
																																											BgL_bufposz00_5781
																																												=
																																												BgL_bufposz00_16788;
																																											BgL_forwardz00_5780
																																												=
																																												BgL_forwardz00_16787;
																																											goto
																																												BgL_zc3z04anonymousza34094ze3z87_5782;
																																										}
																																									}
																																								else
																																									{	/* Unsafe/http.scm 466 */
																																										BgL_matchz00_6003
																																											=
																																											BgL_newzd2matchzd2_5783;
																																									}
																																							}
																																						else
																																							{	/* Unsafe/http.scm 466 */
																																								int
																																									BgL_curz00_5788;
																																								BgL_curz00_5788
																																									=
																																									RGC_BUFFER_GET_CHAR
																																									(BgL_iportz00_5778,
																																									BgL_forwardz00_5780);
																																								{	/* Unsafe/http.scm 466 */

																																									{	/* Unsafe/http.scm 466 */
																																										bool_t
																																											BgL_test6630z00_16790;
																																										if (((long) (BgL_curz00_5788) == 45L))
																																											{	/* Unsafe/http.scm 466 */
																																												BgL_test6630z00_16790
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Unsafe/http.scm 466 */
																																												bool_t
																																													BgL_test6632z00_16794;
																																												if (((long) (BgL_curz00_5788) >= 65L))
																																													{	/* Unsafe/http.scm 466 */
																																														BgL_test6632z00_16794
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_5788)
																																															<
																																															91L);
																																													}
																																												else
																																													{	/* Unsafe/http.scm 466 */
																																														BgL_test6632z00_16794
																																															=
																																															(
																																															(bool_t)
																																															0);
																																													}
																																												if (BgL_test6632z00_16794)
																																													{	/* Unsafe/http.scm 466 */
																																														BgL_test6630z00_16790
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Unsafe/http.scm 466 */
																																														if (((long) (BgL_curz00_5788) >= 97L))
																																															{	/* Unsafe/http.scm 466 */
																																																BgL_test6630z00_16790
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_5788)
																																																	<
																																																	123L);
																																															}
																																														else
																																															{	/* Unsafe/http.scm 466 */
																																																BgL_test6630z00_16790
																																																	=
																																																	(
																																																	(bool_t)
																																																	0);
																																															}
																																													}
																																											}
																																										if (BgL_test6630z00_16790)
																																											{
																																												long
																																													BgL_forwardz00_16806;
																																												long
																																													BgL_lastzd2matchzd2_16805;
																																												BgL_lastzd2matchzd2_16805
																																													=
																																													BgL_newzd2matchzd2_5783;
																																												BgL_forwardz00_16806
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_5780);
																																												BgL_forwardz00_5780
																																													=
																																													BgL_forwardz00_16806;
																																												BgL_lastzd2matchzd2_5779
																																													=
																																													BgL_lastzd2matchzd2_16805;
																																												goto
																																													BgL_zc3z04anonymousza34094ze3z87_5782;
																																											}
																																										else
																																											{	/* Unsafe/http.scm 466 */
																																												BgL_matchz00_6003
																																													=
																																													BgL_newzd2matchzd2_5783;
																																											}
																																									}
																																								}
																																							}
																																					}
																																				}
																																			else
																																				{	/* Unsafe/http.scm 466 */
																																					BgL_matchz00_6003
																																						=
																																						BgL_newzd2matchzd2_5841;
																																				}
																																		}
																																	}
																																}
																														}
																													}
																												else
																													{	/* Unsafe/http.scm 466 */
																														bool_t
																															BgL_test6635z00_16810;
																														if (((long)
																																(BgL_curz00_5867)
																																== 9L))
																															{	/* Unsafe/http.scm 466 */
																																BgL_test6635z00_16810
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Unsafe/http.scm 466 */
																																BgL_test6635z00_16810
																																	=
																																	((long)
																																	(BgL_curz00_5867)
																																	== 32L);
																															}
																														if (BgL_test6635z00_16810)
																															{	/* Unsafe/http.scm 466 */
																																BgL_iportz00_5806
																																	=
																																	BgL_iportz00_5858;
																																BgL_lastzd2matchzd2_5807
																																	=
																																	BgL_lastzd2matchzd2_5859;
																																BgL_forwardz00_5808
																																	=
																																	(1L +
																																	BgL_forwardz00_5860);
																																BgL_bufposz00_5809
																																	=
																																	BgL_bufposz00_5861;
																															BgL_zc3z04anonymousza34105ze3z87_5810:
																																{	/* Unsafe/http.scm 466 */
																																	long
																																		BgL_newzd2matchzd2_5811;
																																	RGC_STOP_MATCH
																																		(BgL_iportz00_5806,
																																		BgL_forwardz00_5808);
																																	BgL_newzd2matchzd2_5811
																																		= 1L;
																																	if (
																																		(BgL_forwardz00_5808
																																			==
																																			BgL_bufposz00_5809))
																																		{	/* Unsafe/http.scm 466 */
																																			if (rgc_fill_buffer(BgL_iportz00_5806))
																																				{	/* Unsafe/http.scm 466 */
																																					long
																																						BgL_arg4108z00_5814;
																																					long
																																						BgL_arg4109z00_5815;
																																					BgL_arg4108z00_5814
																																						=
																																						RGC_BUFFER_FORWARD
																																						(BgL_iportz00_5806);
																																					BgL_arg4109z00_5815
																																						=
																																						RGC_BUFFER_BUFPOS
																																						(BgL_iportz00_5806);
																																					{
																																						long
																																							BgL_bufposz00_16824;
																																						long
																																							BgL_forwardz00_16823;
																																						BgL_forwardz00_16823
																																							=
																																							BgL_arg4108z00_5814;
																																						BgL_bufposz00_16824
																																							=
																																							BgL_arg4109z00_5815;
																																						BgL_bufposz00_5809
																																							=
																																							BgL_bufposz00_16824;
																																						BgL_forwardz00_5808
																																							=
																																							BgL_forwardz00_16823;
																																						goto
																																							BgL_zc3z04anonymousza34105ze3z87_5810;
																																					}
																																				}
																																			else
																																				{	/* Unsafe/http.scm 466 */
																																					BgL_matchz00_6003
																																						=
																																						BgL_newzd2matchzd2_5811;
																																				}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 466 */
																																			int
																																				BgL_curz00_5816;
																																			BgL_curz00_5816
																																				=
																																				RGC_BUFFER_GET_CHAR
																																				(BgL_iportz00_5806,
																																				BgL_forwardz00_5808);
																																			{	/* Unsafe/http.scm 466 */

																																				{	/* Unsafe/http.scm 466 */
																																					bool_t
																																						BgL_test6639z00_16826;
																																					if ((
																																							(long)
																																							(BgL_curz00_5816)
																																							==
																																							9L))
																																						{	/* Unsafe/http.scm 466 */
																																							BgL_test6639z00_16826
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Unsafe/http.scm 466 */
																																							BgL_test6639z00_16826
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_5816)
																																								==
																																								32L);
																																						}
																																					if (BgL_test6639z00_16826)
																																						{	/* Unsafe/http.scm 466 */
																																							BgL_iportz00_5821
																																								=
																																								BgL_iportz00_5806;
																																							BgL_lastzd2matchzd2_5822
																																								=
																																								BgL_newzd2matchzd2_5811;
																																							BgL_forwardz00_5823
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_5808);
																																							BgL_bufposz00_5824
																																								=
																																								BgL_bufposz00_5809;
																																						BgL_zc3z04anonymousza34113ze3z87_5825:
																																							{	/* Unsafe/http.scm 466 */
																																								long
																																									BgL_newzd2matchzd2_5826;
																																								RGC_STOP_MATCH
																																									(BgL_iportz00_5821,
																																									BgL_forwardz00_5823);
																																								BgL_newzd2matchzd2_5826
																																									=
																																									1L;
																																								if ((BgL_forwardz00_5823 == BgL_bufposz00_5824))
																																									{	/* Unsafe/http.scm 466 */
																																										if (rgc_fill_buffer(BgL_iportz00_5821))
																																											{	/* Unsafe/http.scm 466 */
																																												long
																																													BgL_arg4116z00_5829;
																																												long
																																													BgL_arg4117z00_5830;
																																												BgL_arg4116z00_5829
																																													=
																																													RGC_BUFFER_FORWARD
																																													(BgL_iportz00_5821);
																																												BgL_arg4117z00_5830
																																													=
																																													RGC_BUFFER_BUFPOS
																																													(BgL_iportz00_5821);
																																												{
																																													long
																																														BgL_bufposz00_16840;
																																													long
																																														BgL_forwardz00_16839;
																																													BgL_forwardz00_16839
																																														=
																																														BgL_arg4116z00_5829;
																																													BgL_bufposz00_16840
																																														=
																																														BgL_arg4117z00_5830;
																																													BgL_bufposz00_5824
																																														=
																																														BgL_bufposz00_16840;
																																													BgL_forwardz00_5823
																																														=
																																														BgL_forwardz00_16839;
																																													goto
																																														BgL_zc3z04anonymousza34113ze3z87_5825;
																																												}
																																											}
																																										else
																																											{	/* Unsafe/http.scm 466 */
																																												BgL_matchz00_6003
																																													=
																																													BgL_newzd2matchzd2_5826;
																																											}
																																									}
																																								else
																																									{	/* Unsafe/http.scm 466 */
																																										int
																																											BgL_curz00_5831;
																																										BgL_curz00_5831
																																											=
																																											RGC_BUFFER_GET_CHAR
																																											(BgL_iportz00_5821,
																																											BgL_forwardz00_5823);
																																										{	/* Unsafe/http.scm 466 */

																																											{	/* Unsafe/http.scm 466 */
																																												bool_t
																																													BgL_test6643z00_16842;
																																												if (((long) (BgL_curz00_5831) == 9L))
																																													{	/* Unsafe/http.scm 466 */
																																														BgL_test6643z00_16842
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Unsafe/http.scm 466 */
																																														BgL_test6643z00_16842
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_5831)
																																															==
																																															32L);
																																													}
																																												if (BgL_test6643z00_16842)
																																													{
																																														long
																																															BgL_forwardz00_16849;
																																														long
																																															BgL_lastzd2matchzd2_16848;
																																														BgL_lastzd2matchzd2_16848
																																															=
																																															BgL_newzd2matchzd2_5826;
																																														BgL_forwardz00_16849
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_5823);
																																														BgL_forwardz00_5823
																																															=
																																															BgL_forwardz00_16849;
																																														BgL_lastzd2matchzd2_5822
																																															=
																																															BgL_lastzd2matchzd2_16848;
																																														goto
																																															BgL_zc3z04anonymousza34113ze3z87_5825;
																																													}
																																												else
																																													{	/* Unsafe/http.scm 466 */
																																														BgL_matchz00_6003
																																															=
																																															BgL_newzd2matchzd2_5826;
																																													}
																																											}
																																										}
																																									}
																																							}
																																						}
																																					else
																																						{	/* Unsafe/http.scm 466 */
																																							BgL_matchz00_6003
																																								=
																																								BgL_newzd2matchzd2_5811;
																																						}
																																				}
																																			}
																																		}
																																}
																															}
																														else
																															{	/* Unsafe/http.scm 466 */
																																long
																																	BgL_arg4144z00_5878;
																																BgL_arg4144z00_5878
																																	=
																																	(1L +
																																	BgL_forwardz00_5860);
																																{	/* Unsafe/http.scm 466 */
																																	long
																																		BgL_newzd2matchzd2_10531;
																																	RGC_STOP_MATCH
																																		(BgL_iportz00_5858,
																																		BgL_arg4144z00_5878);
																																	BgL_newzd2matchzd2_10531
																																		= 2L;
																																	BgL_matchz00_6003
																																		=
																																		BgL_newzd2matchzd2_10531;
																							}}}}}}}
																							RGC_SET_FILEPOS
																								(BgL_iportz00_5743);
																							switch (BgL_matchz00_6003)
																								{
																								case 2L:

																									{	/* Unsafe/http.scm 466 */
																										bool_t
																											BgL_test6645z00_16856;
																										{	/* Unsafe/http.scm 466 */
																											long BgL_arg4225z00_5993;

																											BgL_arg4225z00_5993 =
																												RGC_BUFFER_MATCH_LENGTH
																												(BgL_iportz00_5743);
																											BgL_test6645z00_16856 =
																												(BgL_arg4225z00_5993 ==
																												0L);
																										}
																										if (BgL_test6645z00_16856)
																											{	/* Unsafe/http.scm 466 */
																												BgL_transferzd2encodingzd2_3888
																													= BEOF;
																											}
																										else
																											{	/* Unsafe/http.scm 466 */
																												BgL_transferzd2encodingzd2_3888
																													=
																													BCHAR
																													(RGC_BUFFER_CHARACTER
																													(BgL_iportz00_5743));
																											}
																									}
																									break;
																								case 1L:

																									goto
																										BgL_zc3z04anonymousza34231ze3z87_6002;
																									break;
																								case 0L:

																									{	/* Unsafe/http.scm 466 */
																										long BgL_arg5202z00_10545;

																										BgL_arg5202z00_10545 =
																											RGC_BUFFER_MATCH_LENGTH
																											(BgL_iportz00_5743);
																										BgL_transferzd2encodingzd2_3888
																											=
																											rgc_buffer_downcase_subsymbol
																											(BgL_iportz00_5743, 0L,
																											BgL_arg5202z00_10545);
																									} break;
																								default:
																									BgL_transferzd2encodingzd2_3888 = BGl_errorz00zz__errorz00(BGl_string5657z00zz__httpz00, BGl_string5658z00zz__httpz00, BINT(BgL_matchz00_6003));
																								}
																						}
																					}
																					BGl_crlfzd2grammarze70z35zz__httpz00
																						(BgL_iportz00_3882);
																					{	/* Unsafe/http.scm 536 */
																						obj_t BgL_arg3440z00_4419;

																						BgL_arg3440z00_4419 =
																							MAKE_YOUNG_PAIR(BgL_kz00_4399,
																							BgL_transferzd2encodingzd2_3888);
																						BgL_headerz00_3884 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg3440z00_4419,
																							BgL_headerz00_3884);
																					}
																					goto
																						BgL_zc3z04anonymousza33400ze3z87_4358;
																				}
																			else
																				{	/* Unsafe/http.scm 512 */
																					if (
																						(BgL_kz00_4399 ==
																							BGl_keyword5683z00zz__httpz00))
																						{	/* Unsafe/http.scm 512 */
																							BgL_authoriza7ationza7_3889 =
																								BGl_authzd2grammarze70z35zz__httpz00
																								(BgL_iportz00_3882);
																							BGl_crlfzd2grammarze70z35zz__httpz00
																								(BgL_iportz00_3882);
																							{	/* Unsafe/http.scm 541 */
																								obj_t BgL_arg3444z00_4423;

																								BgL_arg3444z00_4423 =
																									MAKE_YOUNG_PAIR(BgL_kz00_4399,
																									BgL_authoriza7ationza7_3889);
																								BgL_headerz00_3884 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg3444z00_4423,
																									BgL_headerz00_3884);
																							}
																							goto
																								BgL_zc3z04anonymousza33400ze3z87_4358;
																						}
																					else
																						{	/* Unsafe/http.scm 512 */
																							if (
																								(BgL_kz00_4399 ==
																									BGl_keyword5687z00zz__httpz00))
																								{	/* Unsafe/http.scm 512 */
																									BgL_iportz00_5338 =
																										BgL_iportz00_3882;
																									{
																										obj_t BgL_iportz00_5379;
																										long
																											BgL_lastzd2matchzd2_5380;
																										long BgL_forwardz00_5381;
																										long BgL_bufposz00_5382;
																										obj_t BgL_iportz00_5404;
																										long
																											BgL_lastzd2matchzd2_5405;
																										long BgL_forwardz00_5406;
																										long BgL_bufposz00_5407;
																										obj_t BgL_iportz00_5430;
																										long
																											BgL_lastzd2matchzd2_5431;
																										long BgL_forwardz00_5432;
																										long BgL_bufposz00_5433;
																										obj_t BgL_iportz00_5461;
																										long
																											BgL_lastzd2matchzd2_5462;
																										long BgL_forwardz00_5463;
																										long BgL_bufposz00_5464;
																										obj_t BgL_iportz00_5476;
																										long
																											BgL_lastzd2matchzd2_5477;
																										long BgL_forwardz00_5478;
																										long BgL_bufposz00_5479;
																										obj_t BgL_iportz00_5527;
																										long
																											BgL_lastzd2matchzd2_5528;
																										long BgL_forwardz00_5529;
																										long BgL_bufposz00_5530;
																										obj_t BgL_iportz00_5552;
																										long
																											BgL_lastzd2matchzd2_5553;
																										long BgL_forwardz00_5554;
																										long BgL_bufposz00_5555;
																										long BgL_minz00_5646;
																										long BgL_maxz00_5647;

																									BgL_zc3z04anonymousza34090ze3z87_5696:
																										RGC_START_MATCH
																											(BgL_iportz00_5338);
																										{	/* Unsafe/http.scm 471 */
																											long BgL_matchz00_5697;

																											{	/* Unsafe/http.scm 471 */
																												long
																													BgL_arg4091z00_5700;
																												long
																													BgL_arg4092z00_5701;
																												BgL_arg4091z00_5700 =
																													RGC_BUFFER_FORWARD
																													(BgL_iportz00_5338);
																												BgL_arg4092z00_5701 =
																													RGC_BUFFER_BUFPOS
																													(BgL_iportz00_5338);
																												BgL_iportz00_5404 =
																													BgL_iportz00_5338;
																												BgL_lastzd2matchzd2_5405
																													= 3L;
																												BgL_forwardz00_5406 =
																													BgL_arg4091z00_5700;
																												BgL_bufposz00_5407 =
																													BgL_arg4092z00_5701;
																											BgL_zc3z04anonymousza33916ze3z87_5408:
																												if (
																													(BgL_forwardz00_5406
																														==
																														BgL_bufposz00_5407))
																													{	/* Unsafe/http.scm 471 */
																														if (rgc_fill_buffer
																															(BgL_iportz00_5404))
																															{	/* Unsafe/http.scm 471 */
																																long
																																	BgL_arg3919z00_5411;
																																long
																																	BgL_arg3920z00_5412;
																																BgL_arg3919z00_5411
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_iportz00_5404);
																																BgL_arg3920z00_5412
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_iportz00_5404);
																																{
																																	long
																																		BgL_bufposz00_16887;
																																	long
																																		BgL_forwardz00_16886;
																																	BgL_forwardz00_16886
																																		=
																																		BgL_arg3919z00_5411;
																																	BgL_bufposz00_16887
																																		=
																																		BgL_arg3920z00_5412;
																																	BgL_bufposz00_5407
																																		=
																																		BgL_bufposz00_16887;
																																	BgL_forwardz00_5406
																																		=
																																		BgL_forwardz00_16886;
																																	goto
																																		BgL_zc3z04anonymousza33916ze3z87_5408;
																																}
																															}
																														else
																															{	/* Unsafe/http.scm 471 */
																																BgL_matchz00_5697
																																	=
																																	BgL_lastzd2matchzd2_5405;
																															}
																													}
																												else
																													{	/* Unsafe/http.scm 471 */
																														int BgL_curz00_5413;

																														BgL_curz00_5413 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_iportz00_5404,
																															BgL_forwardz00_5406);
																														{	/* Unsafe/http.scm 471 */

																															{	/* Unsafe/http.scm 471 */
																																bool_t
																																	BgL_test6650z00_16889;
																																if (((long)
																																		(BgL_curz00_5413)
																																		== 45L))
																																	{	/* Unsafe/http.scm 471 */
																																		BgL_test6650z00_16889
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Unsafe/http.scm 471 */
																																		bool_t
																																			BgL_test6652z00_16893;
																																		if (((long)
																																				(BgL_curz00_5413)
																																				>= 65L))
																																			{	/* Unsafe/http.scm 471 */
																																				BgL_test6652z00_16893
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_5413)
																																					<
																																					91L);
																																			}
																																		else
																																			{	/* Unsafe/http.scm 471 */
																																				BgL_test6652z00_16893
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test6652z00_16893)
																																			{	/* Unsafe/http.scm 471 */
																																				BgL_test6650z00_16889
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Unsafe/http.scm 471 */
																																				if (
																																					((long) (BgL_curz00_5413) >= 97L))
																																					{	/* Unsafe/http.scm 471 */
																																						BgL_test6650z00_16889
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_5413)
																																							<
																																							123L);
																																					}
																																				else
																																					{	/* Unsafe/http.scm 471 */
																																						BgL_test6650z00_16889
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																			}
																																	}
																																if (BgL_test6650z00_16889)
																																	{	/* Unsafe/http.scm 471 */
																																		BgL_iportz00_5552
																																			=
																																			BgL_iportz00_5404;
																																		BgL_lastzd2matchzd2_5553
																																			=
																																			BgL_lastzd2matchzd2_5405;
																																		BgL_forwardz00_5554
																																			=
																																			(1L +
																																			BgL_forwardz00_5406);
																																		BgL_bufposz00_5555
																																			=
																																			BgL_bufposz00_5407;
																																	BgL_zc3z04anonymousza33990ze3z87_5556:
																																		{	/* Unsafe/http.scm 471 */
																																			long
																																				BgL_newzd2matchzd2_5557;
																																			RGC_STOP_MATCH
																																				(BgL_iportz00_5552,
																																				BgL_forwardz00_5554);
																																			BgL_newzd2matchzd2_5557
																																				= 3L;
																																			if (
																																				(BgL_forwardz00_5554
																																					==
																																					BgL_bufposz00_5555))
																																				{	/* Unsafe/http.scm 471 */
																																					if (rgc_fill_buffer(BgL_iportz00_5552))
																																						{	/* Unsafe/http.scm 471 */
																																							long
																																								BgL_arg3993z00_5560;
																																							long
																																								BgL_arg3994z00_5561;
																																							BgL_arg3993z00_5560
																																								=
																																								RGC_BUFFER_FORWARD
																																								(BgL_iportz00_5552);
																																							BgL_arg3994z00_5561
																																								=
																																								RGC_BUFFER_BUFPOS
																																								(BgL_iportz00_5552);
																																							{
																																								long
																																									BgL_bufposz00_16912;
																																								long
																																									BgL_forwardz00_16911;
																																								BgL_forwardz00_16911
																																									=
																																									BgL_arg3993z00_5560;
																																								BgL_bufposz00_16912
																																									=
																																									BgL_arg3994z00_5561;
																																								BgL_bufposz00_5555
																																									=
																																									BgL_bufposz00_16912;
																																								BgL_forwardz00_5554
																																									=
																																									BgL_forwardz00_16911;
																																								goto
																																									BgL_zc3z04anonymousza33990ze3z87_5556;
																																							}
																																						}
																																					else
																																						{	/* Unsafe/http.scm 471 */
																																							BgL_matchz00_5697
																																								=
																																								BgL_newzd2matchzd2_5557;
																																						}
																																				}
																																			else
																																				{	/* Unsafe/http.scm 471 */
																																					int
																																						BgL_curz00_5562;
																																					BgL_curz00_5562
																																						=
																																						RGC_BUFFER_GET_CHAR
																																						(BgL_iportz00_5552,
																																						BgL_forwardz00_5554);
																																					{	/* Unsafe/http.scm 471 */

																																						{	/* Unsafe/http.scm 471 */
																																							bool_t
																																								BgL_test6657z00_16914;
																																							if (((long) (BgL_curz00_5562) == 45L))
																																								{	/* Unsafe/http.scm 471 */
																																									BgL_test6657z00_16914
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Unsafe/http.scm 471 */
																																									bool_t
																																										BgL_test6659z00_16918;
																																									if (((long) (BgL_curz00_5562) >= 65L))
																																										{	/* Unsafe/http.scm 471 */
																																											BgL_test6659z00_16918
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_5562)
																																												<
																																												91L);
																																										}
																																									else
																																										{	/* Unsafe/http.scm 471 */
																																											BgL_test6659z00_16918
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																									if (BgL_test6659z00_16918)
																																										{	/* Unsafe/http.scm 471 */
																																											BgL_test6657z00_16914
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Unsafe/http.scm 471 */
																																											if (((long) (BgL_curz00_5562) >= 97L))
																																												{	/* Unsafe/http.scm 471 */
																																													BgL_test6657z00_16914
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_5562)
																																														<
																																														123L);
																																												}
																																											else
																																												{	/* Unsafe/http.scm 471 */
																																													BgL_test6657z00_16914
																																														=
																																														(
																																														(bool_t)
																																														0);
																																												}
																																										}
																																								}
																																							if (BgL_test6657z00_16914)
																																								{	/* Unsafe/http.scm 471 */
																																									BgL_iportz00_5430
																																										=
																																										BgL_iportz00_5552;
																																									BgL_lastzd2matchzd2_5431
																																										=
																																										BgL_newzd2matchzd2_5557;
																																									BgL_forwardz00_5432
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_5554);
																																									BgL_bufposz00_5433
																																										=
																																										BgL_bufposz00_5555;
																																								BgL_zc3z04anonymousza33930ze3z87_5434:
																																									if ((BgL_forwardz00_5432 == BgL_bufposz00_5433))
																																										{	/* Unsafe/http.scm 471 */
																																											if (rgc_fill_buffer(BgL_iportz00_5430))
																																												{	/* Unsafe/http.scm 471 */
																																													long
																																														BgL_arg3933z00_5437;
																																													long
																																														BgL_arg3934z00_5438;
																																													BgL_arg3933z00_5437
																																														=
																																														RGC_BUFFER_FORWARD
																																														(BgL_iportz00_5430);
																																													BgL_arg3934z00_5438
																																														=
																																														RGC_BUFFER_BUFPOS
																																														(BgL_iportz00_5430);
																																													{
																																														long
																																															BgL_bufposz00_16936;
																																														long
																																															BgL_forwardz00_16935;
																																														BgL_forwardz00_16935
																																															=
																																															BgL_arg3933z00_5437;
																																														BgL_bufposz00_16936
																																															=
																																															BgL_arg3934z00_5438;
																																														BgL_bufposz00_5433
																																															=
																																															BgL_bufposz00_16936;
																																														BgL_forwardz00_5432
																																															=
																																															BgL_forwardz00_16935;
																																														goto
																																															BgL_zc3z04anonymousza33930ze3z87_5434;
																																													}
																																												}
																																											else
																																												{	/* Unsafe/http.scm 471 */
																																													BgL_matchz00_5697
																																														=
																																														BgL_lastzd2matchzd2_5431;
																																												}
																																										}
																																									else
																																										{	/* Unsafe/http.scm 471 */
																																											int
																																												BgL_curz00_5439;
																																											BgL_curz00_5439
																																												=
																																												RGC_BUFFER_GET_CHAR
																																												(BgL_iportz00_5430,
																																												BgL_forwardz00_5432);
																																											{	/* Unsafe/http.scm 471 */

																																												{	/* Unsafe/http.scm 471 */
																																													bool_t
																																														BgL_test6664z00_16938;
																																													if (((long) (BgL_curz00_5439) == 45L))
																																														{	/* Unsafe/http.scm 471 */
																																															BgL_test6664z00_16938
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Unsafe/http.scm 471 */
																																															bool_t
																																																BgL_test6666z00_16942;
																																															if (((long) (BgL_curz00_5439) >= 65L))
																																																{	/* Unsafe/http.scm 471 */
																																																	BgL_test6666z00_16942
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_5439)
																																																		<
																																																		91L);
																																																}
																																															else
																																																{	/* Unsafe/http.scm 471 */
																																																	BgL_test6666z00_16942
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																															if (BgL_test6666z00_16942)
																																																{	/* Unsafe/http.scm 471 */
																																																	BgL_test6664z00_16938
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Unsafe/http.scm 471 */
																																																	if (((long) (BgL_curz00_5439) >= 97L))
																																																		{	/* Unsafe/http.scm 471 */
																																																			BgL_test6664z00_16938
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_5439)
																																																				<
																																																				123L);
																																																		}
																																																	else
																																																		{	/* Unsafe/http.scm 471 */
																																																			BgL_test6664z00_16938
																																																				=
																																																				(
																																																				(bool_t)
																																																				0);
																																																		}
																																																}
																																														}
																																													if (BgL_test6664z00_16938)
																																														{
																																															long
																																																BgL_forwardz00_16953;
																																															BgL_forwardz00_16953
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_5432);
																																															BgL_forwardz00_5432
																																																=
																																																BgL_forwardz00_16953;
																																															goto
																																																BgL_zc3z04anonymousza33930ze3z87_5434;
																																														}
																																													else
																																														{	/* Unsafe/http.scm 471 */
																																															if (((long) (BgL_curz00_5439) == 44L))
																																																{	/* Unsafe/http.scm 471 */
																																																	BgL_iportz00_5527
																																																		=
																																																		BgL_iportz00_5430;
																																																	BgL_lastzd2matchzd2_5528
																																																		=
																																																		BgL_lastzd2matchzd2_5431;
																																																	BgL_forwardz00_5529
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_5432);
																																																	BgL_bufposz00_5530
																																																		=
																																																		BgL_bufposz00_5433;
																																																BgL_zc3z04anonymousza33977ze3z87_5531:
																																																	if ((BgL_forwardz00_5529 == BgL_bufposz00_5530))
																																																		{	/* Unsafe/http.scm 471 */
																																																			if (rgc_fill_buffer(BgL_iportz00_5527))
																																																				{	/* Unsafe/http.scm 471 */
																																																					long
																																																						BgL_arg3980z00_5534;
																																																					long
																																																						BgL_arg3981z00_5535;
																																																					BgL_arg3980z00_5534
																																																						=
																																																						RGC_BUFFER_FORWARD
																																																						(BgL_iportz00_5527);
																																																					BgL_arg3981z00_5535
																																																						=
																																																						RGC_BUFFER_BUFPOS
																																																						(BgL_iportz00_5527);
																																																					{
																																																						long
																																																							BgL_bufposz00_16965;
																																																						long
																																																							BgL_forwardz00_16964;
																																																						BgL_forwardz00_16964
																																																							=
																																																							BgL_arg3980z00_5534;
																																																						BgL_bufposz00_16965
																																																							=
																																																							BgL_arg3981z00_5535;
																																																						BgL_bufposz00_5530
																																																							=
																																																							BgL_bufposz00_16965;
																																																						BgL_forwardz00_5529
																																																							=
																																																							BgL_forwardz00_16964;
																																																						goto
																																																							BgL_zc3z04anonymousza33977ze3z87_5531;
																																																					}
																																																				}
																																																			else
																																																				{	/* Unsafe/http.scm 471 */
																																																					BgL_matchz00_5697
																																																						=
																																																						BgL_lastzd2matchzd2_5528;
																																																				}
																																																		}
																																																	else
																																																		{	/* Unsafe/http.scm 471 */
																																																			int
																																																				BgL_curz00_5536;
																																																			BgL_curz00_5536
																																																				=
																																																				RGC_BUFFER_GET_CHAR
																																																				(BgL_iportz00_5527,
																																																				BgL_forwardz00_5529);
																																																			{	/* Unsafe/http.scm 471 */

																																																				{	/* Unsafe/http.scm 471 */
																																																					bool_t
																																																						BgL_test6672z00_16967;
																																																					if (((long) (BgL_curz00_5536) == 45L))
																																																						{	/* Unsafe/http.scm 471 */
																																																							BgL_test6672z00_16967
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Unsafe/http.scm 471 */
																																																							bool_t
																																																								BgL_test6674z00_16971;
																																																							if (((long) (BgL_curz00_5536) >= 65L))
																																																								{	/* Unsafe/http.scm 471 */
																																																									BgL_test6674z00_16971
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_5536)
																																																										<
																																																										91L);
																																																								}
																																																							else
																																																								{	/* Unsafe/http.scm 471 */
																																																									BgL_test6674z00_16971
																																																										=
																																																										(
																																																										(bool_t)
																																																										0);
																																																								}
																																																							if (BgL_test6674z00_16971)
																																																								{	/* Unsafe/http.scm 471 */
																																																									BgL_test6672z00_16967
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Unsafe/http.scm 471 */
																																																									if (((long) (BgL_curz00_5536) >= 97L))
																																																										{	/* Unsafe/http.scm 471 */
																																																											BgL_test6672z00_16967
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_5536)
																																																												<
																																																												123L);
																																																										}
																																																									else
																																																										{	/* Unsafe/http.scm 471 */
																																																											BgL_test6672z00_16967
																																																												=
																																																												(
																																																												(bool_t)
																																																												0);
																																																										}
																																																								}
																																																						}
																																																					if (BgL_test6672z00_16967)
																																																						{	/* Unsafe/http.scm 471 */
																																																							BgL_iportz00_5379
																																																								=
																																																								BgL_iportz00_5527;
																																																							BgL_lastzd2matchzd2_5380
																																																								=
																																																								BgL_lastzd2matchzd2_5528;
																																																							BgL_forwardz00_5381
																																																								=
																																																								(1L
																																																								+
																																																								BgL_forwardz00_5529);
																																																							BgL_bufposz00_5382
																																																								=
																																																								BgL_bufposz00_5530;
																																																						BgL_zc3z04anonymousza33902ze3z87_5383:
																																																							if ((BgL_forwardz00_5381 == BgL_bufposz00_5382))
																																																								{	/* Unsafe/http.scm 471 */
																																																									if (rgc_fill_buffer(BgL_iportz00_5379))
																																																										{	/* Unsafe/http.scm 471 */
																																																											long
																																																												BgL_arg3905z00_5386;
																																																											long
																																																												BgL_arg3906z00_5387;
																																																											BgL_arg3905z00_5386
																																																												=
																																																												RGC_BUFFER_FORWARD
																																																												(BgL_iportz00_5379);
																																																											BgL_arg3906z00_5387
																																																												=
																																																												RGC_BUFFER_BUFPOS
																																																												(BgL_iportz00_5379);
																																																											{
																																																												long
																																																													BgL_bufposz00_16989;
																																																												long
																																																													BgL_forwardz00_16988;
																																																												BgL_forwardz00_16988
																																																													=
																																																													BgL_arg3905z00_5386;
																																																												BgL_bufposz00_16989
																																																													=
																																																													BgL_arg3906z00_5387;
																																																												BgL_bufposz00_5382
																																																													=
																																																													BgL_bufposz00_16989;
																																																												BgL_forwardz00_5381
																																																													=
																																																													BgL_forwardz00_16988;
																																																												goto
																																																													BgL_zc3z04anonymousza33902ze3z87_5383;
																																																											}
																																																										}
																																																									else
																																																										{	/* Unsafe/http.scm 471 */
																																																											BgL_matchz00_5697
																																																												=
																																																												BgL_lastzd2matchzd2_5380;
																																																										}
																																																								}
																																																							else
																																																								{	/* Unsafe/http.scm 471 */
																																																									int
																																																										BgL_curz00_5388;
																																																									BgL_curz00_5388
																																																										=
																																																										RGC_BUFFER_GET_CHAR
																																																										(BgL_iportz00_5379,
																																																										BgL_forwardz00_5381);
																																																									{	/* Unsafe/http.scm 471 */

																																																										{	/* Unsafe/http.scm 471 */
																																																											bool_t
																																																												BgL_test6679z00_16991;
																																																											if (((long) (BgL_curz00_5388) == 45L))
																																																												{	/* Unsafe/http.scm 471 */
																																																													BgL_test6679z00_16991
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Unsafe/http.scm 471 */
																																																													bool_t
																																																														BgL_test6681z00_16995;
																																																													if (((long) (BgL_curz00_5388) >= 65L))
																																																														{	/* Unsafe/http.scm 471 */
																																																															BgL_test6681z00_16995
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_5388)
																																																																<
																																																																91L);
																																																														}
																																																													else
																																																														{	/* Unsafe/http.scm 471 */
																																																															BgL_test6681z00_16995
																																																																=
																																																																(
																																																																(bool_t)
																																																																0);
																																																														}
																																																													if (BgL_test6681z00_16995)
																																																														{	/* Unsafe/http.scm 471 */
																																																															BgL_test6679z00_16991
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Unsafe/http.scm 471 */
																																																															if (((long) (BgL_curz00_5388) >= 97L))
																																																																{	/* Unsafe/http.scm 471 */
																																																																	BgL_test6679z00_16991
																																																																		=
																																																																		(
																																																																		(long)
																																																																		(BgL_curz00_5388)
																																																																		<
																																																																		123L);
																																																																}
																																																															else
																																																																{	/* Unsafe/http.scm 471 */
																																																																	BgL_test6679z00_16991
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		0);
																																																																}
																																																														}
																																																												}
																																																											if (BgL_test6679z00_16991)
																																																												{
																																																													long
																																																														BgL_forwardz00_17006;
																																																													BgL_forwardz00_17006
																																																														=
																																																														(1L
																																																														+
																																																														BgL_forwardz00_5381);
																																																													BgL_forwardz00_5381
																																																														=
																																																														BgL_forwardz00_17006;
																																																													goto
																																																														BgL_zc3z04anonymousza33902ze3z87_5383;
																																																												}
																																																											else
																																																												{	/* Unsafe/http.scm 471 */
																																																													if (((long) (BgL_curz00_5388) == 44L))
																																																														{
																																																															long
																																																																BgL_bufposz00_17015;
																																																															long
																																																																BgL_forwardz00_17013;
																																																															long
																																																																BgL_lastzd2matchzd2_17012;
																																																															obj_t
																																																																BgL_iportz00_17011;
																																																															BgL_iportz00_17011
																																																																=
																																																																BgL_iportz00_5379;
																																																															BgL_lastzd2matchzd2_17012
																																																																=
																																																																BgL_lastzd2matchzd2_5380;
																																																															BgL_forwardz00_17013
																																																																=
																																																																(1L
																																																																+
																																																																BgL_forwardz00_5381);
																																																															BgL_bufposz00_17015
																																																																=
																																																																BgL_bufposz00_5382;
																																																															BgL_bufposz00_5530
																																																																=
																																																																BgL_bufposz00_17015;
																																																															BgL_forwardz00_5529
																																																																=
																																																																BgL_forwardz00_17013;
																																																															BgL_lastzd2matchzd2_5528
																																																																=
																																																																BgL_lastzd2matchzd2_17012;
																																																															BgL_iportz00_5527
																																																																=
																																																																BgL_iportz00_17011;
																																																															goto
																																																																BgL_zc3z04anonymousza33977ze3z87_5531;
																																																														}
																																																													else
																																																														{	/* Unsafe/http.scm 471 */
																																																															if (((long) (BgL_curz00_5388) == 13L))
																																																																{	/* Unsafe/http.scm 471 */
																																																																	long
																																																																		BgL_arg3915z00_5399;
																																																																	BgL_arg3915z00_5399
																																																																		=
																																																																		(1L
																																																																		+
																																																																		BgL_forwardz00_5381);
																																																																	{
																																																																		long
																																																																			BgL_forwardz00_10565;
																																																																		long
																																																																			BgL_bufposz00_10566;
																																																																		BgL_forwardz00_10565
																																																																			=
																																																																			BgL_arg3915z00_5399;
																																																																		BgL_bufposz00_10566
																																																																			=
																																																																			BgL_bufposz00_5382;
																																																																	BgL_statezd29zd21212z00_10564:
																																																																		if ((BgL_forwardz00_10565 == BgL_bufposz00_10566))
																																																																			{	/* Unsafe/http.scm 471 */
																																																																				if (rgc_fill_buffer(BgL_iportz00_5379))
																																																																					{	/* Unsafe/http.scm 471 */
																																																																						long
																																																																							BgL_arg3972z00_10569;
																																																																						long
																																																																							BgL_arg3973z00_10570;
																																																																						BgL_arg3972z00_10569
																																																																							=
																																																																							RGC_BUFFER_FORWARD
																																																																							(BgL_iportz00_5379);
																																																																						BgL_arg3973z00_10570
																																																																							=
																																																																							RGC_BUFFER_BUFPOS
																																																																							(BgL_iportz00_5379);
																																																																						{
																																																																							long
																																																																								BgL_bufposz00_17027;
																																																																							long
																																																																								BgL_forwardz00_17026;
																																																																							BgL_forwardz00_17026
																																																																								=
																																																																								BgL_arg3972z00_10569;
																																																																							BgL_bufposz00_17027
																																																																								=
																																																																								BgL_arg3973z00_10570;
																																																																							BgL_bufposz00_10566
																																																																								=
																																																																								BgL_bufposz00_17027;
																																																																							BgL_forwardz00_10565
																																																																								=
																																																																								BgL_forwardz00_17026;
																																																																							goto
																																																																								BgL_statezd29zd21212z00_10564;
																																																																						}
																																																																					}
																																																																				else
																																																																					{	/* Unsafe/http.scm 471 */
																																																																						BgL_matchz00_5697
																																																																							=
																																																																							BgL_lastzd2matchzd2_5380;
																																																																					}
																																																																			}
																																																																		else
																																																																			{	/* Unsafe/http.scm 471 */
																																																																				int
																																																																					BgL_curz00_10571;
																																																																				BgL_curz00_10571
																																																																					=
																																																																					RGC_BUFFER_GET_CHAR
																																																																					(BgL_iportz00_5379,
																																																																					BgL_forwardz00_10565);
																																																																				{	/* Unsafe/http.scm 471 */

																																																																					if (((long) (BgL_curz00_10571) == 10L))
																																																																						{	/* Unsafe/http.scm 471 */
																																																																							long
																																																																								BgL_arg3975z00_10573;
																																																																							BgL_arg3975z00_10573
																																																																								=
																																																																								(1L
																																																																								+
																																																																								BgL_forwardz00_10565);
																																																																							{	/* Unsafe/http.scm 471 */
																																																																								long
																																																																									BgL_newzd2matchzd2_10583;
																																																																								RGC_STOP_MATCH
																																																																									(BgL_iportz00_5379,
																																																																									BgL_arg3975z00_10573);
																																																																								BgL_newzd2matchzd2_10583
																																																																									=
																																																																									1L;
																																																																								BgL_matchz00_5697
																																																																									=
																																																																									BgL_newzd2matchzd2_10583;
																																																																						}}
																																																																					else
																																																																						{	/* Unsafe/http.scm 471 */
																																																																							BgL_matchz00_5697
																																																																								=
																																																																								BgL_lastzd2matchzd2_5380;
																																																																						}
																																																																				}
																																																																			}
																																																																	}
																																																																}
																																																															else
																																																																{	/* Unsafe/http.scm 471 */
																																																																	BgL_matchz00_5697
																																																																		=
																																																																		BgL_lastzd2matchzd2_5380;
																																																																}
																																																														}
																																																												}
																																																										}
																																																									}
																																																								}
																																																						}
																																																					else
																																																						{	/* Unsafe/http.scm 471 */
																																																							bool_t
																																																								BgL_test6689z00_17035;
																																																							if (((long) (BgL_curz00_5536) == 9L))
																																																								{	/* Unsafe/http.scm 471 */
																																																									BgL_test6689z00_17035
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Unsafe/http.scm 471 */
																																																									BgL_test6689z00_17035
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_5536)
																																																										==
																																																										32L);
																																																								}
																																																							if (BgL_test6689z00_17035)
																																																								{
																																																									long
																																																										BgL_forwardz00_17041;
																																																									BgL_forwardz00_17041
																																																										=
																																																										(1L
																																																										+
																																																										BgL_forwardz00_5529);
																																																									BgL_forwardz00_5529
																																																										=
																																																										BgL_forwardz00_17041;
																																																									goto
																																																										BgL_zc3z04anonymousza33977ze3z87_5531;
																																																								}
																																																							else
																																																								{	/* Unsafe/http.scm 471 */
																																																									BgL_matchz00_5697
																																																										=
																																																										BgL_lastzd2matchzd2_5528;
																																																								}
																																																						}
																																																				}
																																																			}
																																																		}
																																																}
																																															else
																																																{	/* Unsafe/http.scm 471 */
																																																	if (((long) (BgL_curz00_5439) == 13L))
																																																		{	/* Unsafe/http.scm 471 */
																																																			long
																																																				BgL_arg3943z00_5450;
																																																			BgL_arg3943z00_5450
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_5432);
																																																			{
																																																				long
																																																					BgL_forwardz00_10624;
																																																				long
																																																					BgL_bufposz00_10625;
																																																				BgL_forwardz00_10624
																																																					=
																																																					BgL_arg3943z00_5450;
																																																				BgL_bufposz00_10625
																																																					=
																																																					BgL_bufposz00_5433;
																																																			BgL_statezd24zd21207z00_10623:
																																																				if ((BgL_forwardz00_10624 == BgL_bufposz00_10625))
																																																					{	/* Unsafe/http.scm 471 */
																																																						if (rgc_fill_buffer(BgL_iportz00_5430))
																																																							{	/* Unsafe/http.scm 471 */
																																																								long
																																																									BgL_arg3964z00_10628;
																																																								long
																																																									BgL_arg3965z00_10629;
																																																								BgL_arg3964z00_10628
																																																									=
																																																									RGC_BUFFER_FORWARD
																																																									(BgL_iportz00_5430);
																																																								BgL_arg3965z00_10629
																																																									=
																																																									RGC_BUFFER_BUFPOS
																																																									(BgL_iportz00_5430);
																																																								{
																																																									long
																																																										BgL_bufposz00_17055;
																																																									long
																																																										BgL_forwardz00_17054;
																																																									BgL_forwardz00_17054
																																																										=
																																																										BgL_arg3964z00_10628;
																																																									BgL_bufposz00_17055
																																																										=
																																																										BgL_arg3965z00_10629;
																																																									BgL_bufposz00_10625
																																																										=
																																																										BgL_bufposz00_17055;
																																																									BgL_forwardz00_10624
																																																										=
																																																										BgL_forwardz00_17054;
																																																									goto
																																																										BgL_statezd24zd21207z00_10623;
																																																								}
																																																							}
																																																						else
																																																							{	/* Unsafe/http.scm 471 */
																																																								BgL_matchz00_5697
																																																									=
																																																									BgL_lastzd2matchzd2_5431;
																																																							}
																																																					}
																																																				else
																																																					{	/* Unsafe/http.scm 471 */
																																																						int
																																																							BgL_curz00_10630;
																																																						BgL_curz00_10630
																																																							=
																																																							RGC_BUFFER_GET_CHAR
																																																							(BgL_iportz00_5430,
																																																							BgL_forwardz00_10624);
																																																						{	/* Unsafe/http.scm 471 */

																																																							if (((long) (BgL_curz00_10630) == 10L))
																																																								{	/* Unsafe/http.scm 471 */
																																																									long
																																																										BgL_arg3967z00_10632;
																																																									BgL_arg3967z00_10632
																																																										=
																																																										(1L
																																																										+
																																																										BgL_forwardz00_10624);
																																																									{	/* Unsafe/http.scm 471 */
																																																										long
																																																											BgL_newzd2matchzd2_10642;
																																																										RGC_STOP_MATCH
																																																											(BgL_iportz00_5430,
																																																											BgL_arg3967z00_10632);
																																																										BgL_newzd2matchzd2_10642
																																																											=
																																																											0L;
																																																										BgL_matchz00_5697
																																																											=
																																																											BgL_newzd2matchzd2_10642;
																																																								}}
																																																							else
																																																								{	/* Unsafe/http.scm 471 */
																																																									BgL_matchz00_5697
																																																										=
																																																										BgL_lastzd2matchzd2_5431;
																																																								}
																																																						}
																																																					}
																																																			}
																																																		}
																																																	else
																																																		{	/* Unsafe/http.scm 471 */
																																																			BgL_matchz00_5697
																																																				=
																																																				BgL_lastzd2matchzd2_5431;
																																																		}
																																																}
																																														}
																																												}
																																											}
																																										}
																																								}
																																							else
																																								{	/* Unsafe/http.scm 471 */
																																									if (((long) (BgL_curz00_5562) == 44L))
																																										{
																																											long
																																												BgL_bufposz00_17070;
																																											long
																																												BgL_forwardz00_17068;
																																											long
																																												BgL_lastzd2matchzd2_17067;
																																											obj_t
																																												BgL_iportz00_17066;
																																											BgL_iportz00_17066
																																												=
																																												BgL_iportz00_5552;
																																											BgL_lastzd2matchzd2_17067
																																												=
																																												BgL_newzd2matchzd2_5557;
																																											BgL_forwardz00_17068
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_5554);
																																											BgL_bufposz00_17070
																																												=
																																												BgL_bufposz00_5555;
																																											BgL_bufposz00_5530
																																												=
																																												BgL_bufposz00_17070;
																																											BgL_forwardz00_5529
																																												=
																																												BgL_forwardz00_17068;
																																											BgL_lastzd2matchzd2_5528
																																												=
																																												BgL_lastzd2matchzd2_17067;
																																											BgL_iportz00_5527
																																												=
																																												BgL_iportz00_17066;
																																											goto
																																												BgL_zc3z04anonymousza33977ze3z87_5531;
																																										}
																																									else
																																										{	/* Unsafe/http.scm 471 */
																																											if (((long) (BgL_curz00_5562) == 13L))
																																												{	/* Unsafe/http.scm 471 */
																																													long
																																														BgL_arg4003z00_5573;
																																													BgL_arg4003z00_5573
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_5554);
																																													{
																																														long
																																															BgL_forwardz00_10790;
																																														long
																																															BgL_bufposz00_10791;
																																														BgL_forwardz00_10790
																																															=
																																															BgL_arg4003z00_5573;
																																														BgL_bufposz00_10791
																																															=
																																															BgL_bufposz00_5555;
																																													BgL_statezd24zd21207z00_10789:
																																														if ((BgL_forwardz00_10790 == BgL_bufposz00_10791))
																																															{	/* Unsafe/http.scm 471 */
																																																if (rgc_fill_buffer(BgL_iportz00_5552))
																																																	{	/* Unsafe/http.scm 471 */
																																																		long
																																																			BgL_arg3964z00_10794;
																																																		long
																																																			BgL_arg3965z00_10795;
																																																		BgL_arg3964z00_10794
																																																			=
																																																			RGC_BUFFER_FORWARD
																																																			(BgL_iportz00_5552);
																																																		BgL_arg3965z00_10795
																																																			=
																																																			RGC_BUFFER_BUFPOS
																																																			(BgL_iportz00_5552);
																																																		{
																																																			long
																																																				BgL_bufposz00_17082;
																																																			long
																																																				BgL_forwardz00_17081;
																																																			BgL_forwardz00_17081
																																																				=
																																																				BgL_arg3964z00_10794;
																																																			BgL_bufposz00_17082
																																																				=
																																																				BgL_arg3965z00_10795;
																																																			BgL_bufposz00_10791
																																																				=
																																																				BgL_bufposz00_17082;
																																																			BgL_forwardz00_10790
																																																				=
																																																				BgL_forwardz00_17081;
																																																			goto
																																																				BgL_statezd24zd21207z00_10789;
																																																		}
																																																	}
																																																else
																																																	{	/* Unsafe/http.scm 471 */
																																																		BgL_matchz00_5697
																																																			=
																																																			BgL_newzd2matchzd2_5557;
																																																	}
																																															}
																																														else
																																															{	/* Unsafe/http.scm 471 */
																																																int
																																																	BgL_curz00_10796;
																																																BgL_curz00_10796
																																																	=
																																																	RGC_BUFFER_GET_CHAR
																																																	(BgL_iportz00_5552,
																																																	BgL_forwardz00_10790);
																																																{	/* Unsafe/http.scm 471 */

																																																	if (((long) (BgL_curz00_10796) == 10L))
																																																		{	/* Unsafe/http.scm 471 */
																																																			long
																																																				BgL_arg3967z00_10798;
																																																			BgL_arg3967z00_10798
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_10790);
																																																			{	/* Unsafe/http.scm 471 */
																																																				long
																																																					BgL_newzd2matchzd2_10808;
																																																				RGC_STOP_MATCH
																																																					(BgL_iportz00_5552,
																																																					BgL_arg3967z00_10798);
																																																				BgL_newzd2matchzd2_10808
																																																					=
																																																					0L;
																																																				BgL_matchz00_5697
																																																					=
																																																					BgL_newzd2matchzd2_10808;
																																																		}}
																																																	else
																																																		{	/* Unsafe/http.scm 471 */
																																																			BgL_matchz00_5697
																																																				=
																																																				BgL_newzd2matchzd2_5557;
																																																		}
																																																}
																																															}
																																													}
																																												}
																																											else
																																												{	/* Unsafe/http.scm 471 */
																																													BgL_matchz00_5697
																																														=
																																														BgL_newzd2matchzd2_5557;
																																												}
																																										}
																																								}
																																						}
																																					}
																																				}
																																		}
																																	}
																																else
																																	{	/* Unsafe/http.scm 471 */
																																		bool_t
																																			BgL_test6700z00_17090;
																																		if (((long)
																																				(BgL_curz00_5413)
																																				== 9L))
																																			{	/* Unsafe/http.scm 471 */
																																				BgL_test6700z00_17090
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Unsafe/http.scm 471 */
																																				BgL_test6700z00_17090
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_5413)
																																					==
																																					32L);
																																			}
																																		if (BgL_test6700z00_17090)
																																			{	/* Unsafe/http.scm 471 */
																																				BgL_iportz00_5461
																																					=
																																					BgL_iportz00_5404;
																																				BgL_lastzd2matchzd2_5462
																																					=
																																					BgL_lastzd2matchzd2_5405;
																																				BgL_forwardz00_5463
																																					=
																																					(1L +
																																					BgL_forwardz00_5406);
																																				BgL_bufposz00_5464
																																					=
																																					BgL_bufposz00_5407;
																																			BgL_zc3z04anonymousza33945ze3z87_5465:
																																				{	/* Unsafe/http.scm 471 */
																																					long
																																						BgL_newzd2matchzd2_5466;
																																					RGC_STOP_MATCH
																																						(BgL_iportz00_5461,
																																						BgL_forwardz00_5463);
																																					BgL_newzd2matchzd2_5466
																																						=
																																						2L;
																																					if (
																																						(BgL_forwardz00_5463
																																							==
																																							BgL_bufposz00_5464))
																																						{	/* Unsafe/http.scm 471 */
																																							if (rgc_fill_buffer(BgL_iportz00_5461))
																																								{	/* Unsafe/http.scm 471 */
																																									long
																																										BgL_arg3948z00_5469;
																																									long
																																										BgL_arg3949z00_5470;
																																									BgL_arg3948z00_5469
																																										=
																																										RGC_BUFFER_FORWARD
																																										(BgL_iportz00_5461);
																																									BgL_arg3949z00_5470
																																										=
																																										RGC_BUFFER_BUFPOS
																																										(BgL_iportz00_5461);
																																									{
																																										long
																																											BgL_bufposz00_17104;
																																										long
																																											BgL_forwardz00_17103;
																																										BgL_forwardz00_17103
																																											=
																																											BgL_arg3948z00_5469;
																																										BgL_bufposz00_17104
																																											=
																																											BgL_arg3949z00_5470;
																																										BgL_bufposz00_5464
																																											=
																																											BgL_bufposz00_17104;
																																										BgL_forwardz00_5463
																																											=
																																											BgL_forwardz00_17103;
																																										goto
																																											BgL_zc3z04anonymousza33945ze3z87_5465;
																																									}
																																								}
																																							else
																																								{	/* Unsafe/http.scm 471 */
																																									BgL_matchz00_5697
																																										=
																																										BgL_newzd2matchzd2_5466;
																																								}
																																						}
																																					else
																																						{	/* Unsafe/http.scm 471 */
																																							int
																																								BgL_curz00_5471;
																																							BgL_curz00_5471
																																								=
																																								RGC_BUFFER_GET_CHAR
																																								(BgL_iportz00_5461,
																																								BgL_forwardz00_5463);
																																							{	/* Unsafe/http.scm 471 */

																																								{	/* Unsafe/http.scm 471 */
																																									bool_t
																																										BgL_test6704z00_17106;
																																									if (((long) (BgL_curz00_5471) == 9L))
																																										{	/* Unsafe/http.scm 471 */
																																											BgL_test6704z00_17106
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Unsafe/http.scm 471 */
																																											BgL_test6704z00_17106
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_5471)
																																												==
																																												32L);
																																										}
																																									if (BgL_test6704z00_17106)
																																										{	/* Unsafe/http.scm 471 */
																																											BgL_iportz00_5476
																																												=
																																												BgL_iportz00_5461;
																																											BgL_lastzd2matchzd2_5477
																																												=
																																												BgL_newzd2matchzd2_5466;
																																											BgL_forwardz00_5478
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_5463);
																																											BgL_bufposz00_5479
																																												=
																																												BgL_bufposz00_5464;
																																										BgL_zc3z04anonymousza33953ze3z87_5480:
																																											{	/* Unsafe/http.scm 471 */
																																												long
																																													BgL_newzd2matchzd2_5481;
																																												RGC_STOP_MATCH
																																													(BgL_iportz00_5476,
																																													BgL_forwardz00_5478);
																																												BgL_newzd2matchzd2_5481
																																													=
																																													2L;
																																												if ((BgL_forwardz00_5478 == BgL_bufposz00_5479))
																																													{	/* Unsafe/http.scm 471 */
																																														if (rgc_fill_buffer(BgL_iportz00_5476))
																																															{	/* Unsafe/http.scm 471 */
																																																long
																																																	BgL_arg3956z00_5484;
																																																long
																																																	BgL_arg3957z00_5485;
																																																BgL_arg3956z00_5484
																																																	=
																																																	RGC_BUFFER_FORWARD
																																																	(BgL_iportz00_5476);
																																																BgL_arg3957z00_5485
																																																	=
																																																	RGC_BUFFER_BUFPOS
																																																	(BgL_iportz00_5476);
																																																{
																																																	long
																																																		BgL_bufposz00_17120;
																																																	long
																																																		BgL_forwardz00_17119;
																																																	BgL_forwardz00_17119
																																																		=
																																																		BgL_arg3956z00_5484;
																																																	BgL_bufposz00_17120
																																																		=
																																																		BgL_arg3957z00_5485;
																																																	BgL_bufposz00_5479
																																																		=
																																																		BgL_bufposz00_17120;
																																																	BgL_forwardz00_5478
																																																		=
																																																		BgL_forwardz00_17119;
																																																	goto
																																																		BgL_zc3z04anonymousza33953ze3z87_5480;
																																																}
																																															}
																																														else
																																															{	/* Unsafe/http.scm 471 */
																																																BgL_matchz00_5697
																																																	=
																																																	BgL_newzd2matchzd2_5481;
																																															}
																																													}
																																												else
																																													{	/* Unsafe/http.scm 471 */
																																														int
																																															BgL_curz00_5486;
																																														BgL_curz00_5486
																																															=
																																															RGC_BUFFER_GET_CHAR
																																															(BgL_iportz00_5476,
																																															BgL_forwardz00_5478);
																																														{	/* Unsafe/http.scm 471 */

																																															{	/* Unsafe/http.scm 471 */
																																																bool_t
																																																	BgL_test6708z00_17122;
																																																if (((long) (BgL_curz00_5486) == 9L))
																																																	{	/* Unsafe/http.scm 471 */
																																																		BgL_test6708z00_17122
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Unsafe/http.scm 471 */
																																																		BgL_test6708z00_17122
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_5486)
																																																			==
																																																			32L);
																																																	}
																																																if (BgL_test6708z00_17122)
																																																	{
																																																		long
																																																			BgL_forwardz00_17129;
																																																		long
																																																			BgL_lastzd2matchzd2_17128;
																																																		BgL_lastzd2matchzd2_17128
																																																			=
																																																			BgL_newzd2matchzd2_5481;
																																																		BgL_forwardz00_17129
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_5478);
																																																		BgL_forwardz00_5478
																																																			=
																																																			BgL_forwardz00_17129;
																																																		BgL_lastzd2matchzd2_5477
																																																			=
																																																			BgL_lastzd2matchzd2_17128;
																																																		goto
																																																			BgL_zc3z04anonymousza33953ze3z87_5480;
																																																	}
																																																else
																																																	{	/* Unsafe/http.scm 471 */
																																																		BgL_matchz00_5697
																																																			=
																																																			BgL_newzd2matchzd2_5481;
																																																	}
																																															}
																																														}
																																													}
																																											}
																																										}
																																									else
																																										{	/* Unsafe/http.scm 471 */
																																											BgL_matchz00_5697
																																												=
																																												BgL_newzd2matchzd2_5466;
																																										}
																																								}
																																							}
																																						}
																																				}
																																			}
																																		else
																																			{	/* Unsafe/http.scm 471 */
																																				long
																																					BgL_arg3929z00_5424;
																																				BgL_arg3929z00_5424
																																					=
																																					(1L +
																																					BgL_forwardz00_5406);
																																				{	/* Unsafe/http.scm 471 */
																																					long
																																						BgL_newzd2matchzd2_10603;
																																					RGC_STOP_MATCH
																																						(BgL_iportz00_5404,
																																						BgL_arg3929z00_5424);
																																					BgL_newzd2matchzd2_10603
																																						=
																																						3L;
																																					BgL_matchz00_5697
																																						=
																																						BgL_newzd2matchzd2_10603;
																											}}}}}}}
																											RGC_SET_FILEPOS
																												(BgL_iportz00_5338);
																											switch (BgL_matchz00_5697)
																												{
																												case 3L:

																													BgL_connectionz00_3891
																														=
																														BGl_symbol5767z00zz__httpz00;
																													break;
																												case 2L:

																													goto
																														BgL_zc3z04anonymousza34090ze3z87_5696;
																													break;
																												case 1L:

																													BgL_minz00_5646 = 0L;
																													BgL_maxz00_5647 =
																														(-2L);
																												BgL_lambda4053z00_5648:
																													if (
																														(BgL_maxz00_5647 <
																															0L))
																														{	/* Unsafe/http.scm 471 */
																															long
																																BgL_stopz00_5650;
																															{	/* Unsafe/http.scm 471 */
																																long
																																	BgL_arg4057z00_5653;
																																BgL_arg4057z00_5653
																																	=
																																	RGC_BUFFER_MATCH_LENGTH
																																	(BgL_iportz00_5338);
																																BgL_stopz00_5650
																																	=
																																	(BgL_arg4057z00_5653
																																	+
																																	BgL_maxz00_5647);
																															}
																															if (
																																(BgL_stopz00_5650
																																	<=
																																	BgL_minz00_5646))
																																{	/* Unsafe/http.scm 471 */
																																	obj_t
																																		BgL_arg4056z00_5652;
																																	BgL_arg4056z00_5652
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BINT
																																		(BgL_minz00_5646),
																																		BINT
																																		(BgL_maxz00_5647));
																																	BgL_connectionz00_3891
																																		=
																																		BGl_errorz00zz__errorz00
																																		(BGl_string5768z00zz__httpz00,
																																		BGl_string5769z00zz__httpz00,
																																		BgL_arg4056z00_5652);
																																}
																															else
																																{	/* Unsafe/http.scm 471 */
																																	BgL_connectionz00_3891
																																		=
																																		rgc_buffer_downcase_subsymbol
																																		(BgL_iportz00_5338,
																																		BgL_minz00_5646,
																																		BgL_stopz00_5650);
																																}
																														}
																													else
																														{	/* Unsafe/http.scm 471 */
																															bool_t
																																BgL_test6712z00_17147;
																															if (
																																(BgL_minz00_5646
																																	>= 0L))
																																{	/* Unsafe/http.scm 471 */
																																	bool_t
																																		BgL_test6714z00_17150;
																																	{	/* Unsafe/http.scm 471 */
																																		long
																																			BgL_arg4064z00_5662;
																																		BgL_arg4064z00_5662
																																			=
																																			RGC_BUFFER_MATCH_LENGTH
																																			(BgL_iportz00_5338);
																																		BgL_test6714z00_17150
																																			=
																																			(BgL_maxz00_5647
																																			<=
																																			BgL_arg4064z00_5662);
																																	}
																																	if (BgL_test6714z00_17150)
																																		{	/* Unsafe/http.scm 471 */
																																			BgL_test6712z00_17147
																																				=
																																				(BgL_maxz00_5647
																																				>=
																																				BgL_minz00_5646);
																																		}
																																	else
																																		{	/* Unsafe/http.scm 471 */
																																			BgL_test6712z00_17147
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																}
																															else
																																{	/* Unsafe/http.scm 471 */
																																	BgL_test6712z00_17147
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test6712z00_17147)
																																{	/* Unsafe/http.scm 471 */
																																	BgL_connectionz00_3891
																																		=
																																		rgc_buffer_downcase_subsymbol
																																		(BgL_iportz00_5338,
																																		BgL_minz00_5646,
																																		BgL_maxz00_5647);
																																}
																															else
																																{	/* Unsafe/http.scm 471 */
																																	obj_t
																																		BgL_arg4063z00_5659;
																																	BgL_arg4063z00_5659
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BINT
																																		(BgL_minz00_5646),
																																		BINT
																																		(BgL_maxz00_5647));
																																	BgL_connectionz00_3891
																																		=
																																		BGl_errorz00zz__errorz00
																																		(BGl_string5768z00zz__httpz00,
																																		BGl_string5769z00zz__httpz00,
																																		BgL_arg4063z00_5659);
																																}
																														}
																													break;
																												case 0L:

																													{
																														long
																															BgL_maxz00_17160;
																														long
																															BgL_minz00_17159;
																														BgL_minz00_17159 =
																															0L;
																														BgL_maxz00_17160 =
																															(-2L);
																														BgL_maxz00_5647 =
																															BgL_maxz00_17160;
																														BgL_minz00_5646 =
																															BgL_minz00_17159;
																														goto
																															BgL_lambda4053z00_5648;
																													}
																													break;
																												default:
																													BgL_connectionz00_3891
																														=
																														BGl_errorz00zz__errorz00
																														(BGl_string5657z00zz__httpz00,
																														BGl_string5658z00zz__httpz00,
																														BINT
																														(BgL_matchz00_5697));
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 545 */
																										obj_t BgL_arg3447z00_4426;

																										BgL_arg3447z00_4426 =
																											MAKE_YOUNG_PAIR
																											(BgL_kz00_4399,
																											BgL_connectionz00_3891);
																										BgL_headerz00_3884 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg3447z00_4426,
																											BgL_headerz00_3884);
																									}
																									goto
																										BgL_zc3z04anonymousza33400ze3z87_4358;
																								}
																							else
																								{	/* Unsafe/http.scm 512 */
																									if (
																										(BgL_kz00_4399 ==
																											BGl_keyword5776z00zz__httpz00))
																										{	/* Unsafe/http.scm 512 */
																											BgL_proxyzd2authoriza7ationz75_3890
																												=
																												BGl_authzd2grammarze70z35zz__httpz00
																												(BgL_iportz00_3882);
																											BGl_crlfzd2grammarze70z35zz__httpz00
																												(BgL_iportz00_3882);
																											goto
																												BgL_zc3z04anonymousza33400ze3z87_4358;
																										}
																									else
																										{	/* Unsafe/http.scm 512 */
																											if (
																												(BgL_kz00_4399 ==
																													BGl_keyword5778z00zz__httpz00))
																												{	/* Unsafe/http.scm 553 */
																													obj_t BgL_ez00_4431;

																													BgL_ez00_4431 =
																														BGl_valuezd2grammarze70z35zz__httpz00
																														(BgL_iportz00_3882);
																													if (OUTPUT_PORTP
																														(BgL_poz00_3883))
																														{	/* Unsafe/http.scm 559 */
																															bool_t
																																BgL_test6718z00_17175;
																															{	/* Unsafe/http.scm 559 */
																																long
																																	BgL_l1z00_11716;
																																BgL_l1z00_11716
																																	=
																																	STRING_LENGTH(
																																	((obj_t)
																																		BgL_ez00_4431));
																																if (
																																	(BgL_l1z00_11716
																																		== 12L))
																																	{	/* Unsafe/http.scm 559 */
																																		int
																																			BgL_arg5257z00_11719;
																																		{	/* Unsafe/http.scm 559 */
																																			char
																																				*BgL_auxz00_17183;
																																			char
																																				*BgL_tmpz00_17180;
																																			BgL_auxz00_17183
																																				=
																																				BSTRING_TO_STRING
																																				(BGl_string5780z00zz__httpz00);
																																			BgL_tmpz00_17180
																																				=
																																				BSTRING_TO_STRING
																																				(((obj_t) BgL_ez00_4431));
																																			BgL_arg5257z00_11719
																																				=
																																				memcmp
																																				(BgL_tmpz00_17180,
																																				BgL_auxz00_17183,
																																				BgL_l1z00_11716);
																																		}
																																		BgL_test6718z00_17175
																																			=
																																			((long)
																																			(BgL_arg5257z00_11719)
																																			== 0L);
																																	}
																																else
																																	{	/* Unsafe/http.scm 559 */
																																		BgL_test6718z00_17175
																																			=
																																			((bool_t)
																																			0);
																																	}
																															}
																															if (BgL_test6718z00_17175)
																																{	/* Unsafe/http.scm 559 */
																																	bgl_display_string
																																		(BGl_string5781z00zz__httpz00,
																																		BgL_poz00_3883);
																																	bgl_display_char
																																		(((unsigned
																																				char)
																																			10),
																																		BgL_poz00_3883);
																																	bgl_flush_output_port
																																		(BgL_poz00_3883);
																																	goto
																																		BgL_zc3z04anonymousza33400ze3z87_4358;
																																}
																															else
																																{	/* Unsafe/http.scm 559 */
																																	bgl_display_string
																																		(BGl_string5782z00zz__httpz00,
																																		BgL_poz00_3883);
																																	bgl_display_char
																																		(((unsigned
																																				char)
																																			10),
																																		BgL_poz00_3883);
																																	bgl_flush_output_port
																																		(BgL_poz00_3883);
																																	{	/* Unsafe/http.scm 567 */
																																		BgL_z62iozd2parsezd2errorz62_bglt
																																			BgL_arg3454z00_4436;
																																		{	/* Unsafe/http.scm 567 */
																																			BgL_z62iozd2parsezd2errorz62_bglt
																																				BgL_new1275z00_4437;
																																			{	/* Unsafe/http.scm 567 */
																																				BgL_z62iozd2parsezd2errorz62_bglt
																																					BgL_new1274z00_4441;
																																				BgL_new1274z00_4441
																																					=
																																					(
																																					(BgL_z62iozd2parsezd2errorz62_bglt)
																																					BOBJECT
																																					(GC_MALLOC
																																						(sizeof
																																							(struct
																																								BgL_z62iozd2parsezd2errorz62_bgl))));
																																				{	/* Unsafe/http.scm 567 */
																																					long
																																						BgL_arg3458z00_4442;
																																					BgL_arg3458z00_4442
																																						=
																																						BGL_CLASS_NUM
																																						(BGl_z62iozd2parsezd2errorz62zz__objectz00);
																																					BGL_OBJECT_CLASS_NUM_SET
																																						(((BgL_objectz00_bglt) BgL_new1274z00_4441), BgL_arg3458z00_4442);
																																				}
																																				BgL_new1275z00_4437
																																					=
																																					BgL_new1274z00_4441;
																																			}
																																			((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1275z00_4437)))->BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
																																			((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1275z00_4437)))->BgL_locationz00) = ((obj_t) BFALSE), BUNSPEC);
																																			{
																																				obj_t
																																					BgL_auxz00_17202;
																																				{	/* Unsafe/http.scm 567 */
																																					obj_t
																																						BgL_arg3455z00_4438;
																																					{	/* Unsafe/http.scm 567 */
																																						obj_t
																																							BgL_arg3456z00_4439;
																																						{	/* Unsafe/http.scm 567 */
																																							obj_t
																																								BgL_classz00_11736;
																																							BgL_classz00_11736
																																								=
																																								BGl_z62iozd2parsezd2errorz62zz__objectz00;
																																							BgL_arg3456z00_4439
																																								=
																																								BGL_CLASS_ALL_FIELDS
																																								(BgL_classz00_11736);
																																						}
																																						BgL_arg3455z00_4438
																																							=
																																							VECTOR_REF
																																							(BgL_arg3456z00_4439,
																																							2L);
																																					}
																																					BgL_auxz00_17202
																																						=
																																						BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																																						(BgL_arg3455z00_4438);
																																				}
																																				((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1275z00_4437)))->BgL_stackz00) = ((obj_t) BgL_auxz00_17202), BUNSPEC);
																																			}
																																			((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1275z00_4437)))->BgL_procz00) = ((obj_t) BGl_string5783z00zz__httpz00), BUNSPEC);
																																			{
																																				obj_t
																																					BgL_auxz00_17210;
																																				{	/* Unsafe/http.scm 570 */
																																					obj_t
																																						BgL_list3457z00_4440;
																																					BgL_list3457z00_4440
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_ez00_4431,
																																						BNIL);
																																					BgL_auxz00_17210
																																						=
																																						BGl_formatz00zz__r4_output_6_10_3z00
																																						(BGl_string5784z00zz__httpz00,
																																						BgL_list3457z00_4440);
																																				}
																																				((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1275z00_4437)))->BgL_msgz00) = ((obj_t) BgL_auxz00_17210), BUNSPEC);
																																			}
																																			((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1275z00_4437)))->BgL_objz00) = ((obj_t) BgL_iportz00_3882), BUNSPEC);
																																			BgL_arg3454z00_4436
																																				=
																																				BgL_new1275z00_4437;
																																		}
																																		return
																																			BGl_raisez00zz__errorz00
																																			(((obj_t)
																																				BgL_arg3454z00_4436));
																																	}
																																}
																														}
																													else
																														{	/* Unsafe/http.scm 555 */
																															return
																																BGl_errorz00zz__errorz00
																																(BGl_string5783z00zz__httpz00,
																																BGl_string5785z00zz__httpz00,
																																BgL_poz00_3883);
																														}
																												}
																											else
																												{	/* Unsafe/http.scm 572 */
																													obj_t BgL_vz00_4444;

																													BgL_vz00_4444 =
																														BGl_valuezd2grammarze70z35zz__httpz00
																														(BgL_iportz00_3882);
																													{	/* Unsafe/http.scm 573 */
																														obj_t
																															BgL_arg3461z00_4445;
																														BgL_arg3461z00_4445
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_kz00_4399,
																															BgL_vz00_4444);
																														BgL_headerz00_3884 =
																															MAKE_YOUNG_PAIR
																															(BgL_arg3461z00_4445,
																															BgL_headerz00_3884);
																													}
																													goto
																														BgL_zc3z04anonymousza33400ze3z87_4358;
																												}
																										}
																								}
																						}
																				}
																		}
																}
														}
													}
													break;
												default:
													return
														BGl_errorz00zz__errorz00
														(BGl_string5657z00zz__httpz00,
														BGl_string5658z00zz__httpz00,
														BINT(BgL_matchz00_4359));
												}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* the-failure~0 */
	obj_t BGl_thezd2failureze70z35zz__httpz00(obj_t BgL_iportz00_12542)
	{
		{	/* Unsafe/http.scm 506 */
			{	/* Unsafe/http.scm 506 */
				bool_t BgL_test6720z00_17226;

				{	/* Unsafe/http.scm 506 */
					long BgL_arg3394z00_4349;

					BgL_arg3394z00_4349 = RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12542);
					BgL_test6720z00_17226 = (BgL_arg3394z00_4349 == 0L);
				}
				if (BgL_test6720z00_17226)
					{	/* Unsafe/http.scm 506 */
						return BEOF;
					}
				else
					{	/* Unsafe/http.scm 506 */
						return BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_12542));
					}
			}
		}

	}



/* value-grammar~0 */
	obj_t BGl_valuezd2grammarze70z35zz__httpz00(obj_t BgL_iportz00_7167)
	{
		{	/* Unsafe/http.scm 428 */
			{
				obj_t BgL_iportz00_7207;
				long BgL_lastzd2matchzd2_7208;
				long BgL_forwardz00_7209;
				long BgL_bufposz00_7210;
				obj_t BgL_iportz00_7240;
				long BgL_lastzd2matchzd2_7241;
				long BgL_forwardz00_7242;
				long BgL_bufposz00_7243;
				obj_t BgL_iportz00_7255;
				long BgL_lastzd2matchzd2_7256;
				long BgL_forwardz00_7257;
				long BgL_bufposz00_7258;
				obj_t BgL_iportz00_7268;
				long BgL_lastzd2matchzd2_7269;
				long BgL_forwardz00_7270;
				long BgL_bufposz00_7271;
				obj_t BgL_iportz00_7284;
				long BgL_lastzd2matchzd2_7285;
				long BgL_forwardz00_7286;
				long BgL_bufposz00_7287;
				obj_t BgL_iportz00_7303;
				long BgL_lastzd2matchzd2_7304;
				long BgL_forwardz00_7305;
				long BgL_bufposz00_7306;
				obj_t BgL_iportz00_7324;
				long BgL_lastzd2matchzd2_7325;
				long BgL_forwardz00_7326;
				long BgL_bufposz00_7327;
				int BgL_minz00_7349;
				int BgL_maxz00_7350;

			BgL_zc3z04anonymousza34929ze3z87_7455:
				RGC_START_MATCH(BgL_iportz00_7167);
				{	/* Unsafe/http.scm 428 */
					long BgL_matchz00_7456;

					{	/* Unsafe/http.scm 428 */
						long BgL_arg4930z00_7459;
						long BgL_arg4931z00_7460;

						BgL_arg4930z00_7459 = RGC_BUFFER_FORWARD(BgL_iportz00_7167);
						BgL_arg4931z00_7460 = RGC_BUFFER_BUFPOS(BgL_iportz00_7167);
						BgL_iportz00_7284 = BgL_iportz00_7167;
						BgL_lastzd2matchzd2_7285 = 4L;
						BgL_forwardz00_7286 = BgL_arg4930z00_7459;
						BgL_bufposz00_7287 = BgL_arg4931z00_7460;
					BgL_zc3z04anonymousza34813ze3z87_7288:
						if ((BgL_forwardz00_7286 == BgL_bufposz00_7287))
							{	/* Unsafe/http.scm 428 */
								if (rgc_fill_buffer(BgL_iportz00_7284))
									{	/* Unsafe/http.scm 428 */
										long BgL_arg4816z00_7291;
										long BgL_arg4817z00_7292;

										BgL_arg4816z00_7291 = RGC_BUFFER_FORWARD(BgL_iportz00_7284);
										BgL_arg4817z00_7292 = RGC_BUFFER_BUFPOS(BgL_iportz00_7284);
										{
											long BgL_bufposz00_17241;
											long BgL_forwardz00_17240;

											BgL_forwardz00_17240 = BgL_arg4816z00_7291;
											BgL_bufposz00_17241 = BgL_arg4817z00_7292;
											BgL_bufposz00_7287 = BgL_bufposz00_17241;
											BgL_forwardz00_7286 = BgL_forwardz00_17240;
											goto BgL_zc3z04anonymousza34813ze3z87_7288;
										}
									}
								else
									{	/* Unsafe/http.scm 428 */
										BgL_matchz00_7456 = BgL_lastzd2matchzd2_7285;
									}
							}
						else
							{	/* Unsafe/http.scm 428 */
								int BgL_curz00_7293;

								BgL_curz00_7293 =
									RGC_BUFFER_GET_CHAR(BgL_iportz00_7284, BgL_forwardz00_7286);
								{	/* Unsafe/http.scm 428 */

									if (((long) (BgL_curz00_7293) == 13L))
										{	/* Unsafe/http.scm 428 */
											BgL_iportz00_7255 = BgL_iportz00_7284;
											BgL_lastzd2matchzd2_7256 = BgL_lastzd2matchzd2_7285;
											BgL_forwardz00_7257 = (1L + BgL_forwardz00_7286);
											BgL_bufposz00_7258 = BgL_bufposz00_7287;
										BgL_zc3z04anonymousza34796ze3z87_7259:
											{	/* Unsafe/http.scm 428 */
												long BgL_newzd2matchzd2_7260;

												RGC_STOP_MATCH(BgL_iportz00_7255, BgL_forwardz00_7257);
												BgL_newzd2matchzd2_7260 = 4L;
												if ((BgL_forwardz00_7257 == BgL_bufposz00_7258))
													{	/* Unsafe/http.scm 428 */
														if (rgc_fill_buffer(BgL_iportz00_7255))
															{	/* Unsafe/http.scm 428 */
																long BgL_arg4799z00_7263;
																long BgL_arg4800z00_7264;

																BgL_arg4799z00_7263 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_7255);
																BgL_arg4800z00_7264 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_7255);
																{
																	long BgL_bufposz00_17254;
																	long BgL_forwardz00_17253;

																	BgL_forwardz00_17253 = BgL_arg4799z00_7263;
																	BgL_bufposz00_17254 = BgL_arg4800z00_7264;
																	BgL_bufposz00_7258 = BgL_bufposz00_17254;
																	BgL_forwardz00_7257 = BgL_forwardz00_17253;
																	goto BgL_zc3z04anonymousza34796ze3z87_7259;
																}
															}
														else
															{	/* Unsafe/http.scm 428 */
																BgL_matchz00_7456 = BgL_newzd2matchzd2_7260;
															}
													}
												else
													{	/* Unsafe/http.scm 428 */
														int BgL_curz00_7265;

														BgL_curz00_7265 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_7255,
															BgL_forwardz00_7257);
														{	/* Unsafe/http.scm 428 */

															if (((long) (BgL_curz00_7265) == 10L))
																{	/* Unsafe/http.scm 428 */
																	long BgL_arg4802z00_7267;

																	BgL_arg4802z00_7267 =
																		(1L + BgL_forwardz00_7257);
																	{	/* Unsafe/http.scm 428 */
																		long BgL_newzd2matchzd2_10163;

																		RGC_STOP_MATCH(BgL_iportz00_7255,
																			BgL_arg4802z00_7267);
																		BgL_newzd2matchzd2_10163 = 3L;
																		BgL_matchz00_7456 =
																			BgL_newzd2matchzd2_10163;
																}}
															else
																{	/* Unsafe/http.scm 428 */
																	BgL_matchz00_7456 = BgL_newzd2matchzd2_7260;
																}
														}
													}
											}
										}
									else
										{	/* Unsafe/http.scm 428 */
											if (((long) (BgL_curz00_7293) == 10L))
												{	/* Unsafe/http.scm 428 */
													long BgL_arg4821z00_7297;

													BgL_arg4821z00_7297 = (1L + BgL_forwardz00_7286);
													{	/* Unsafe/http.scm 428 */
														long BgL_newzd2matchzd2_10194;

														RGC_STOP_MATCH(BgL_iportz00_7284,
															BgL_arg4821z00_7297);
														BgL_newzd2matchzd2_10194 = 3L;
														BgL_matchz00_7456 = BgL_newzd2matchzd2_10194;
												}}
											else
												{	/* Unsafe/http.scm 428 */
													bool_t BgL_test6728z00_17267;

													if (((long) (BgL_curz00_7293) == 9L))
														{	/* Unsafe/http.scm 428 */
															BgL_test6728z00_17267 = ((bool_t) 1);
														}
													else
														{	/* Unsafe/http.scm 428 */
															BgL_test6728z00_17267 =
																((long) (BgL_curz00_7293) == 32L);
														}
													if (BgL_test6728z00_17267)
														{	/* Unsafe/http.scm 428 */
															BgL_iportz00_7207 = BgL_iportz00_7284;
															BgL_lastzd2matchzd2_7208 =
																BgL_lastzd2matchzd2_7285;
															BgL_forwardz00_7209 = (1L + BgL_forwardz00_7286);
															BgL_bufposz00_7210 = BgL_bufposz00_7287;
														BgL_zc3z04anonymousza34775ze3z87_7211:
															{	/* Unsafe/http.scm 428 */
																long BgL_newzd2matchzd2_7212;

																RGC_STOP_MATCH(BgL_iportz00_7207,
																	BgL_forwardz00_7209);
																BgL_newzd2matchzd2_7212 = 0L;
																if ((BgL_forwardz00_7209 == BgL_bufposz00_7210))
																	{	/* Unsafe/http.scm 428 */
																		if (rgc_fill_buffer(BgL_iportz00_7207))
																			{	/* Unsafe/http.scm 428 */
																				long BgL_arg4778z00_7215;
																				long BgL_arg4779z00_7216;

																				BgL_arg4778z00_7215 =
																					RGC_BUFFER_FORWARD(BgL_iportz00_7207);
																				BgL_arg4779z00_7216 =
																					RGC_BUFFER_BUFPOS(BgL_iportz00_7207);
																				{
																					long BgL_bufposz00_17281;
																					long BgL_forwardz00_17280;

																					BgL_forwardz00_17280 =
																						BgL_arg4778z00_7215;
																					BgL_bufposz00_17281 =
																						BgL_arg4779z00_7216;
																					BgL_bufposz00_7210 =
																						BgL_bufposz00_17281;
																					BgL_forwardz00_7209 =
																						BgL_forwardz00_17280;
																					goto
																						BgL_zc3z04anonymousza34775ze3z87_7211;
																				}
																			}
																		else
																			{	/* Unsafe/http.scm 428 */
																				BgL_matchz00_7456 =
																					BgL_newzd2matchzd2_7212;
																			}
																	}
																else
																	{	/* Unsafe/http.scm 428 */
																		int BgL_curz00_7217;

																		BgL_curz00_7217 =
																			RGC_BUFFER_GET_CHAR(BgL_iportz00_7207,
																			BgL_forwardz00_7209);
																		{	/* Unsafe/http.scm 428 */

																			{	/* Unsafe/http.scm 428 */
																				bool_t BgL_test6732z00_17283;

																				if (((long) (BgL_curz00_7217) == 9L))
																					{	/* Unsafe/http.scm 428 */
																						BgL_test6732z00_17283 =
																							((bool_t) 1);
																					}
																				else
																					{	/* Unsafe/http.scm 428 */
																						BgL_test6732z00_17283 =
																							((long) (BgL_curz00_7217) == 32L);
																					}
																				if (BgL_test6732z00_17283)
																					{	/* Unsafe/http.scm 428 */
																						BgL_iportz00_7303 =
																							BgL_iportz00_7207;
																						BgL_lastzd2matchzd2_7304 =
																							BgL_newzd2matchzd2_7212;
																						BgL_forwardz00_7305 =
																							(1L + BgL_forwardz00_7209);
																						BgL_bufposz00_7306 =
																							BgL_bufposz00_7210;
																					BgL_zc3z04anonymousza34826ze3z87_7307:
																						{	/* Unsafe/http.scm 428 */
																							long BgL_newzd2matchzd2_7308;

																							RGC_STOP_MATCH(BgL_iportz00_7303,
																								BgL_forwardz00_7305);
																							BgL_newzd2matchzd2_7308 = 0L;
																							if (
																								(BgL_forwardz00_7305 ==
																									BgL_bufposz00_7306))
																								{	/* Unsafe/http.scm 428 */
																									if (rgc_fill_buffer
																										(BgL_iportz00_7303))
																										{	/* Unsafe/http.scm 428 */
																											long BgL_arg4829z00_7311;
																											long BgL_arg4830z00_7312;

																											BgL_arg4829z00_7311 =
																												RGC_BUFFER_FORWARD
																												(BgL_iportz00_7303);
																											BgL_arg4830z00_7312 =
																												RGC_BUFFER_BUFPOS
																												(BgL_iportz00_7303);
																											{
																												long
																													BgL_bufposz00_17297;
																												long
																													BgL_forwardz00_17296;
																												BgL_forwardz00_17296 =
																													BgL_arg4829z00_7311;
																												BgL_bufposz00_17297 =
																													BgL_arg4830z00_7312;
																												BgL_bufposz00_7306 =
																													BgL_bufposz00_17297;
																												BgL_forwardz00_7305 =
																													BgL_forwardz00_17296;
																												goto
																													BgL_zc3z04anonymousza34826ze3z87_7307;
																											}
																										}
																									else
																										{	/* Unsafe/http.scm 428 */
																											BgL_matchz00_7456 =
																												BgL_newzd2matchzd2_7308;
																										}
																								}
																							else
																								{	/* Unsafe/http.scm 428 */
																									int BgL_curz00_7313;

																									BgL_curz00_7313 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_iportz00_7303,
																										BgL_forwardz00_7305);
																									{	/* Unsafe/http.scm 428 */

																										{	/* Unsafe/http.scm 428 */
																											bool_t
																												BgL_test6736z00_17299;
																											if (((long)
																													(BgL_curz00_7313) ==
																													9L))
																												{	/* Unsafe/http.scm 428 */
																													BgL_test6736z00_17299
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Unsafe/http.scm 428 */
																													BgL_test6736z00_17299
																														=
																														((long)
																														(BgL_curz00_7313) ==
																														32L);
																												}
																											if (BgL_test6736z00_17299)
																												{
																													long
																														BgL_forwardz00_17306;
																													long
																														BgL_lastzd2matchzd2_17305;
																													BgL_lastzd2matchzd2_17305
																														=
																														BgL_newzd2matchzd2_7308;
																													BgL_forwardz00_17306 =
																														(1L +
																														BgL_forwardz00_7305);
																													BgL_forwardz00_7305 =
																														BgL_forwardz00_17306;
																													BgL_lastzd2matchzd2_7304
																														=
																														BgL_lastzd2matchzd2_17305;
																													goto
																														BgL_zc3z04anonymousza34826ze3z87_7307;
																												}
																											else
																												{	/* Unsafe/http.scm 428 */
																													BgL_matchz00_7456 =
																														BgL_newzd2matchzd2_7308;
																												}
																										}
																									}
																								}
																						}
																					}
																				else
																					{	/* Unsafe/http.scm 428 */
																						BgL_matchz00_7456 =
																							BgL_newzd2matchzd2_7212;
																					}
																			}
																		}
																	}
															}
														}
													else
														{	/* Unsafe/http.scm 428 */
															BgL_iportz00_7268 = BgL_iportz00_7284;
															BgL_lastzd2matchzd2_7269 =
																BgL_lastzd2matchzd2_7285;
															BgL_forwardz00_7270 = (1L + BgL_forwardz00_7286);
															BgL_bufposz00_7271 = BgL_bufposz00_7287;
														BgL_zc3z04anonymousza34803ze3z87_7272:
															{	/* Unsafe/http.scm 428 */
																long BgL_newzd2matchzd2_7273;

																RGC_STOP_MATCH(BgL_iportz00_7268,
																	BgL_forwardz00_7270);
																BgL_newzd2matchzd2_7273 = 4L;
																if ((BgL_forwardz00_7270 == BgL_bufposz00_7271))
																	{	/* Unsafe/http.scm 428 */
																		if (rgc_fill_buffer(BgL_iportz00_7268))
																			{	/* Unsafe/http.scm 428 */
																				long BgL_arg4806z00_7276;
																				long BgL_arg4807z00_7277;

																				BgL_arg4806z00_7276 =
																					RGC_BUFFER_FORWARD(BgL_iportz00_7268);
																				BgL_arg4807z00_7277 =
																					RGC_BUFFER_BUFPOS(BgL_iportz00_7268);
																				{
																					long BgL_bufposz00_17318;
																					long BgL_forwardz00_17317;

																					BgL_forwardz00_17317 =
																						BgL_arg4806z00_7276;
																					BgL_bufposz00_17318 =
																						BgL_arg4807z00_7277;
																					BgL_bufposz00_7271 =
																						BgL_bufposz00_17318;
																					BgL_forwardz00_7270 =
																						BgL_forwardz00_17317;
																					goto
																						BgL_zc3z04anonymousza34803ze3z87_7272;
																				}
																			}
																		else
																			{	/* Unsafe/http.scm 428 */
																				BgL_matchz00_7456 =
																					BgL_newzd2matchzd2_7273;
																			}
																	}
																else
																	{	/* Unsafe/http.scm 428 */
																		int BgL_curz00_7278;

																		BgL_curz00_7278 =
																			RGC_BUFFER_GET_CHAR(BgL_iportz00_7268,
																			BgL_forwardz00_7270);
																		{	/* Unsafe/http.scm 428 */

																			if (((long) (BgL_curz00_7278) == 13L))
																				{	/* Unsafe/http.scm 428 */
																					BgL_iportz00_7324 = BgL_iportz00_7268;
																					BgL_lastzd2matchzd2_7325 =
																						BgL_newzd2matchzd2_7273;
																					BgL_forwardz00_7326 =
																						(1L + BgL_forwardz00_7270);
																					BgL_bufposz00_7327 =
																						BgL_bufposz00_7271;
																				BgL_zc3z04anonymousza34835ze3z87_7328:
																					if (
																						(BgL_forwardz00_7326 ==
																							BgL_bufposz00_7327))
																						{	/* Unsafe/http.scm 428 */
																							if (rgc_fill_buffer
																								(BgL_iportz00_7324))
																								{	/* Unsafe/http.scm 428 */
																									long BgL_arg4838z00_7331;
																									long BgL_arg4839z00_7332;

																									BgL_arg4838z00_7331 =
																										RGC_BUFFER_FORWARD
																										(BgL_iportz00_7324);
																									BgL_arg4839z00_7332 =
																										RGC_BUFFER_BUFPOS
																										(BgL_iportz00_7324);
																									{
																										long BgL_bufposz00_17330;
																										long BgL_forwardz00_17329;

																										BgL_forwardz00_17329 =
																											BgL_arg4838z00_7331;
																										BgL_bufposz00_17330 =
																											BgL_arg4839z00_7332;
																										BgL_bufposz00_7327 =
																											BgL_bufposz00_17330;
																										BgL_forwardz00_7326 =
																											BgL_forwardz00_17329;
																										goto
																											BgL_zc3z04anonymousza34835ze3z87_7328;
																									}
																								}
																							else
																								{	/* Unsafe/http.scm 428 */
																									BgL_matchz00_7456 =
																										BgL_lastzd2matchzd2_7325;
																								}
																						}
																					else
																						{	/* Unsafe/http.scm 428 */
																							int BgL_curz00_7333;

																							BgL_curz00_7333 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_iportz00_7324,
																								BgL_forwardz00_7326);
																							{	/* Unsafe/http.scm 428 */

																								if (
																									((long) (BgL_curz00_7333) ==
																										10L))
																									{	/* Unsafe/http.scm 428 */
																										long BgL_arg4841z00_7335;

																										BgL_arg4841z00_7335 =
																											(1L +
																											BgL_forwardz00_7326);
																										{	/* Unsafe/http.scm 428 */
																											long
																												BgL_newzd2matchzd2_10225;
																											RGC_STOP_MATCH
																												(BgL_iportz00_7324,
																												BgL_arg4841z00_7335);
																											BgL_newzd2matchzd2_10225 =
																												1L;
																											BgL_matchz00_7456 =
																												BgL_newzd2matchzd2_10225;
																									}}
																								else
																									{	/* Unsafe/http.scm 428 */
																										BgL_iportz00_7240 =
																											BgL_iportz00_7324;
																										BgL_lastzd2matchzd2_7241 =
																											BgL_lastzd2matchzd2_7325;
																										BgL_forwardz00_7242 =
																											(1L +
																											BgL_forwardz00_7326);
																										BgL_bufposz00_7243 =
																											BgL_bufposz00_7327;
																									BgL_zc3z04anonymousza34786ze3z87_7244:
																										if (
																											(BgL_forwardz00_7242 ==
																												BgL_bufposz00_7243))
																											{	/* Unsafe/http.scm 428 */
																												if (rgc_fill_buffer
																													(BgL_iportz00_7240))
																													{	/* Unsafe/http.scm 428 */
																														long
																															BgL_arg4789z00_7247;
																														long
																															BgL_arg4790z00_7248;
																														BgL_arg4789z00_7247
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_iportz00_7240);
																														BgL_arg4790z00_7248
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_iportz00_7240);
																														{
																															long
																																BgL_bufposz00_17344;
																															long
																																BgL_forwardz00_17343;
																															BgL_forwardz00_17343
																																=
																																BgL_arg4789z00_7247;
																															BgL_bufposz00_17344
																																=
																																BgL_arg4790z00_7248;
																															BgL_bufposz00_7243
																																=
																																BgL_bufposz00_17344;
																															BgL_forwardz00_7242
																																=
																																BgL_forwardz00_17343;
																															goto
																																BgL_zc3z04anonymousza34786ze3z87_7244;
																														}
																													}
																												else
																													{	/* Unsafe/http.scm 428 */
																														BgL_matchz00_7456 =
																															BgL_lastzd2matchzd2_7241;
																													}
																											}
																										else
																											{	/* Unsafe/http.scm 428 */
																												int BgL_curz00_7249;

																												BgL_curz00_7249 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_iportz00_7240,
																													BgL_forwardz00_7242);
																												{	/* Unsafe/http.scm 428 */

																													if (
																														((long)
																															(BgL_curz00_7249)
																															== 13L))
																														{
																															long
																																BgL_bufposz00_17353;
																															long
																																BgL_forwardz00_17351;
																															long
																																BgL_lastzd2matchzd2_17350;
																															obj_t
																																BgL_iportz00_17349;
																															BgL_iportz00_17349
																																=
																																BgL_iportz00_7240;
																															BgL_lastzd2matchzd2_17350
																																=
																																BgL_lastzd2matchzd2_7241;
																															BgL_forwardz00_17351
																																=
																																(1L +
																																BgL_forwardz00_7242);
																															BgL_bufposz00_17353
																																=
																																BgL_bufposz00_7243;
																															BgL_bufposz00_7327
																																=
																																BgL_bufposz00_17353;
																															BgL_forwardz00_7326
																																=
																																BgL_forwardz00_17351;
																															BgL_lastzd2matchzd2_7325
																																=
																																BgL_lastzd2matchzd2_17350;
																															BgL_iportz00_7324
																																=
																																BgL_iportz00_17349;
																															goto
																																BgL_zc3z04anonymousza34835ze3z87_7328;
																														}
																													else
																														{	/* Unsafe/http.scm 428 */
																															if (
																																((long)
																																	(BgL_curz00_7249)
																																	== 10L))
																																{	/* Unsafe/http.scm 428 */
																																	long
																																		BgL_arg4794z00_7253;
																																	BgL_arg4794z00_7253
																																		=
																																		(1L +
																																		BgL_forwardz00_7242);
																																	{	/* Unsafe/http.scm 428 */
																																		long
																																			BgL_newzd2matchzd2_10148;
																																		RGC_STOP_MATCH
																																			(BgL_iportz00_7240,
																																			BgL_arg4794z00_7253);
																																		BgL_newzd2matchzd2_10148
																																			= 2L;
																																		BgL_matchz00_7456
																																			=
																																			BgL_newzd2matchzd2_10148;
																																}}
																															else
																																{
																																	long
																																		BgL_forwardz00_17359;
																																	BgL_forwardz00_17359
																																		=
																																		(1L +
																																		BgL_forwardz00_7242);
																																	BgL_forwardz00_7242
																																		=
																																		BgL_forwardz00_17359;
																																	goto
																																		BgL_zc3z04anonymousza34786ze3z87_7244;
																																}
																														}
																												}
																											}
																									}
																							}
																						}
																				}
																			else
																				{	/* Unsafe/http.scm 428 */
																					if (((long) (BgL_curz00_7278) == 10L))
																						{	/* Unsafe/http.scm 428 */
																							long BgL_arg4811z00_7282;

																							BgL_arg4811z00_7282 =
																								(1L + BgL_forwardz00_7270);
																							{	/* Unsafe/http.scm 428 */
																								long BgL_newzd2matchzd2_10179;

																								RGC_STOP_MATCH
																									(BgL_iportz00_7268,
																									BgL_arg4811z00_7282);
																								BgL_newzd2matchzd2_10179 = 2L;
																								BgL_matchz00_7456 =
																									BgL_newzd2matchzd2_10179;
																						}}
																					else
																						{
																							long BgL_bufposz00_17372;
																							long BgL_forwardz00_17370;
																							long BgL_lastzd2matchzd2_17369;
																							obj_t BgL_iportz00_17368;

																							BgL_iportz00_17368 =
																								BgL_iportz00_7268;
																							BgL_lastzd2matchzd2_17369 =
																								BgL_newzd2matchzd2_7273;
																							BgL_forwardz00_17370 =
																								(1L + BgL_forwardz00_7270);
																							BgL_bufposz00_17372 =
																								BgL_bufposz00_7271;
																							BgL_bufposz00_7243 =
																								BgL_bufposz00_17372;
																							BgL_forwardz00_7242 =
																								BgL_forwardz00_17370;
																							BgL_lastzd2matchzd2_7241 =
																								BgL_lastzd2matchzd2_17369;
																							BgL_iportz00_7240 =
																								BgL_iportz00_17368;
																							goto
																								BgL_zc3z04anonymousza34786ze3z87_7244;
																						}
																				}
																		}
																	}
															}
														}
												}
										}
								}
							}
					}
					RGC_SET_FILEPOS(BgL_iportz00_7167);
					switch (BgL_matchz00_7456)
						{
						case 4L:

							return BGl_string5759z00zz__httpz00;
							break;
						case 3L:

							return BGl_string5759z00zz__httpz00;
							break;
						case 2L:

							BgL_minz00_7349 = (int) (0L);
							BgL_maxz00_7350 = (int) ((-1L));
						BgL_lambda4850z00_7351:
							if (((long) (BgL_maxz00_7350) < (long) (BgL_minz00_7349)))
								{	/* Unsafe/http.scm 428 */
									long BgL_arg4852z00_7353;

									BgL_arg4852z00_7353 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_7167);
									{	/* Unsafe/http.scm 428 */
										long BgL_za72za7_10237;

										BgL_za72za7_10237 = (long) (BgL_maxz00_7350);
										BgL_maxz00_7350 =
											(int) ((BgL_arg4852z00_7353 + BgL_za72za7_10237));
								}}
							else
								{	/* Unsafe/http.scm 428 */
									BFALSE;
								}
							{	/* Unsafe/http.scm 428 */
								bool_t BgL_test6750z00_17383;

								if (((long) (BgL_minz00_7349) >= 0L))
									{	/* Unsafe/http.scm 428 */
										if (((long) (BgL_maxz00_7350) >= (long) (BgL_minz00_7349)))
											{	/* Unsafe/http.scm 428 */
												long BgL_arg4861z00_7364;

												BgL_arg4861z00_7364 =
													RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_7167);
												BgL_test6750z00_17383 =
													((long) (BgL_maxz00_7350) <= BgL_arg4861z00_7364);
											}
										else
											{	/* Unsafe/http.scm 428 */
												BgL_test6750z00_17383 = ((bool_t) 0);
											}
									}
								else
									{	/* Unsafe/http.scm 428 */
										BgL_test6750z00_17383 = ((bool_t) 0);
									}
								if (BgL_test6750z00_17383)
									{	/* Unsafe/http.scm 428 */
										return
											rgc_buffer_substring(BgL_iportz00_7167,
											(long) (BgL_minz00_7349), (long) (BgL_maxz00_7350));
									}
								else
									{	/* Unsafe/http.scm 428 */
										obj_t BgL_arg4857z00_7358;
										obj_t BgL_arg4858z00_7359;

										{	/* Unsafe/http.scm 428 */
											obj_t BgL_arg4859z00_7360;

											{	/* Unsafe/http.scm 428 */
												long BgL_arg4849z00_10247;

												BgL_arg4849z00_10247 =
													RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_7167);
												BgL_arg4859z00_7360 =
													rgc_buffer_substring(BgL_iportz00_7167, 0L,
													BgL_arg4849z00_10247);
											}
											{	/* Unsafe/http.scm 428 */
												obj_t BgL_list4860z00_7361;

												BgL_list4860z00_7361 =
													MAKE_YOUNG_PAIR(BgL_arg4859z00_7360, BNIL);
												BgL_arg4857z00_7358 =
													BGl_formatz00zz__r4_output_6_10_3z00
													(BGl_string5660z00zz__httpz00, BgL_list4860z00_7361);
										}}
										BgL_arg4858z00_7359 =
											MAKE_YOUNG_PAIR(BINT(BgL_minz00_7349),
											BINT(BgL_maxz00_7350));
										return
											BGl_errorz00zz__errorz00(BGl_string5661z00zz__httpz00,
											BgL_arg4857z00_7358, BgL_arg4858z00_7359);
									}
							}
							break;
						case 1L:

							{
								int BgL_maxz00_17409;
								int BgL_minz00_17407;

								BgL_minz00_17407 = (int) (0L);
								BgL_maxz00_17409 = (int) ((-2L));
								BgL_maxz00_7350 = BgL_maxz00_17409;
								BgL_minz00_7349 = BgL_minz00_17407;
								goto BgL_lambda4850z00_7351;
							}
							break;
						case 0L:

							goto BgL_zc3z04anonymousza34929ze3z87_7455;
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string5657z00zz__httpz00,
								BGl_string5658z00zz__httpz00, BINT(BgL_matchz00_7456));
						}
				}
			}
		}

	}



/* auth-grammar~0 */
	obj_t BGl_authzd2grammarze70z35zz__httpz00(obj_t BgL_iportz00_5071)
	{
		{	/* Unsafe/http.scm 483 */
			{
				obj_t BgL_iportz00_5105;
				long BgL_lastzd2matchzd2_5106;
				long BgL_forwardz00_5107;
				long BgL_bufposz00_5108;
				obj_t BgL_iportz00_5120;
				long BgL_lastzd2matchzd2_5121;
				long BgL_forwardz00_5122;
				long BgL_bufposz00_5123;
				obj_t BgL_iportz00_5135;
				long BgL_lastzd2matchzd2_5136;
				long BgL_forwardz00_5137;
				long BgL_bufposz00_5138;
				obj_t BgL_iportz00_5150;
				long BgL_lastzd2matchzd2_5151;
				long BgL_forwardz00_5152;
				long BgL_bufposz00_5153;
				obj_t BgL_iportz00_5165;
				long BgL_lastzd2matchzd2_5166;
				long BgL_forwardz00_5167;
				long BgL_bufposz00_5168;

			BgL_zc3z04anonymousza33898ze3z87_5298:
				RGC_START_MATCH(BgL_iportz00_5071);
				{	/* Unsafe/http.scm 483 */
					long BgL_matchz00_5299;

					{	/* Unsafe/http.scm 483 */
						long BgL_arg3899z00_5302;
						long BgL_arg3900z00_5303;

						BgL_arg3899z00_5302 = RGC_BUFFER_FORWARD(BgL_iportz00_5071);
						BgL_arg3900z00_5303 = RGC_BUFFER_BUFPOS(BgL_iportz00_5071);
						BgL_iportz00_5165 = BgL_iportz00_5071;
						BgL_lastzd2matchzd2_5166 = 2L;
						BgL_forwardz00_5167 = BgL_arg3899z00_5302;
						BgL_bufposz00_5168 = BgL_arg3900z00_5303;
					BgL_zc3z04anonymousza33803ze3z87_5169:
						if ((BgL_forwardz00_5167 == BgL_bufposz00_5168))
							{	/* Unsafe/http.scm 483 */
								if (rgc_fill_buffer(BgL_iportz00_5165))
									{	/* Unsafe/http.scm 483 */
										long BgL_arg3806z00_5172;
										long BgL_arg3807z00_5173;

										BgL_arg3806z00_5172 = RGC_BUFFER_FORWARD(BgL_iportz00_5165);
										BgL_arg3807z00_5173 = RGC_BUFFER_BUFPOS(BgL_iportz00_5165);
										{
											long BgL_bufposz00_17424;
											long BgL_forwardz00_17423;

											BgL_forwardz00_17423 = BgL_arg3806z00_5172;
											BgL_bufposz00_17424 = BgL_arg3807z00_5173;
											BgL_bufposz00_5168 = BgL_bufposz00_17424;
											BgL_forwardz00_5167 = BgL_forwardz00_17423;
											goto BgL_zc3z04anonymousza33803ze3z87_5169;
										}
									}
								else
									{	/* Unsafe/http.scm 483 */
										BgL_matchz00_5299 = BgL_lastzd2matchzd2_5166;
									}
							}
						else
							{	/* Unsafe/http.scm 483 */
								int BgL_curz00_5174;

								BgL_curz00_5174 =
									RGC_BUFFER_GET_CHAR(BgL_iportz00_5165, BgL_forwardz00_5167);
								{	/* Unsafe/http.scm 483 */

									{	/* Unsafe/http.scm 483 */
										bool_t BgL_test6755z00_17426;

										if (((long) (BgL_curz00_5174) == 9L))
											{	/* Unsafe/http.scm 483 */
												BgL_test6755z00_17426 = ((bool_t) 1);
											}
										else
											{	/* Unsafe/http.scm 483 */
												BgL_test6755z00_17426 =
													((long) (BgL_curz00_5174) == 32L);
											}
										if (BgL_test6755z00_17426)
											{	/* Unsafe/http.scm 483 */
												BgL_iportz00_5120 = BgL_iportz00_5165;
												BgL_lastzd2matchzd2_5121 = BgL_lastzd2matchzd2_5166;
												BgL_forwardz00_5122 = (1L + BgL_forwardz00_5167);
												BgL_bufposz00_5123 = BgL_bufposz00_5168;
											BgL_zc3z04anonymousza33779ze3z87_5124:
												{	/* Unsafe/http.scm 483 */
													long BgL_newzd2matchzd2_5125;

													RGC_STOP_MATCH(BgL_iportz00_5120,
														BgL_forwardz00_5122);
													BgL_newzd2matchzd2_5125 = 0L;
													if ((BgL_forwardz00_5122 == BgL_bufposz00_5123))
														{	/* Unsafe/http.scm 483 */
															if (rgc_fill_buffer(BgL_iportz00_5120))
																{	/* Unsafe/http.scm 483 */
																	long BgL_arg3782z00_5128;
																	long BgL_arg3783z00_5129;

																	BgL_arg3782z00_5128 =
																		RGC_BUFFER_FORWARD(BgL_iportz00_5120);
																	BgL_arg3783z00_5129 =
																		RGC_BUFFER_BUFPOS(BgL_iportz00_5120);
																	{
																		long BgL_bufposz00_17440;
																		long BgL_forwardz00_17439;

																		BgL_forwardz00_17439 = BgL_arg3782z00_5128;
																		BgL_bufposz00_17440 = BgL_arg3783z00_5129;
																		BgL_bufposz00_5123 = BgL_bufposz00_17440;
																		BgL_forwardz00_5122 = BgL_forwardz00_17439;
																		goto BgL_zc3z04anonymousza33779ze3z87_5124;
																	}
																}
															else
																{	/* Unsafe/http.scm 483 */
																	BgL_matchz00_5299 = BgL_newzd2matchzd2_5125;
																}
														}
													else
														{	/* Unsafe/http.scm 483 */
															int BgL_curz00_5130;

															BgL_curz00_5130 =
																RGC_BUFFER_GET_CHAR(BgL_iportz00_5120,
																BgL_forwardz00_5122);
															{	/* Unsafe/http.scm 483 */

																{	/* Unsafe/http.scm 483 */
																	bool_t BgL_test6759z00_17442;

																	if (((long) (BgL_curz00_5130) == 9L))
																		{	/* Unsafe/http.scm 483 */
																			BgL_test6759z00_17442 = ((bool_t) 1);
																		}
																	else
																		{	/* Unsafe/http.scm 483 */
																			BgL_test6759z00_17442 =
																				((long) (BgL_curz00_5130) == 32L);
																		}
																	if (BgL_test6759z00_17442)
																		{	/* Unsafe/http.scm 483 */
																			BgL_iportz00_5150 = BgL_iportz00_5120;
																			BgL_lastzd2matchzd2_5151 =
																				BgL_newzd2matchzd2_5125;
																			BgL_forwardz00_5152 =
																				(1L + BgL_forwardz00_5122);
																			BgL_bufposz00_5153 = BgL_bufposz00_5123;
																		BgL_zc3z04anonymousza33795ze3z87_5154:
																			{	/* Unsafe/http.scm 483 */
																				long BgL_newzd2matchzd2_5155;

																				RGC_STOP_MATCH(BgL_iportz00_5150,
																					BgL_forwardz00_5152);
																				BgL_newzd2matchzd2_5155 = 0L;
																				if (
																					(BgL_forwardz00_5152 ==
																						BgL_bufposz00_5153))
																					{	/* Unsafe/http.scm 483 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_5150))
																							{	/* Unsafe/http.scm 483 */
																								long BgL_arg3798z00_5158;
																								long BgL_arg3799z00_5159;

																								BgL_arg3798z00_5158 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_5150);
																								BgL_arg3799z00_5159 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_5150);
																								{
																									long BgL_bufposz00_17456;
																									long BgL_forwardz00_17455;

																									BgL_forwardz00_17455 =
																										BgL_arg3798z00_5158;
																									BgL_bufposz00_17456 =
																										BgL_arg3799z00_5159;
																									BgL_bufposz00_5153 =
																										BgL_bufposz00_17456;
																									BgL_forwardz00_5152 =
																										BgL_forwardz00_17455;
																									goto
																										BgL_zc3z04anonymousza33795ze3z87_5154;
																								}
																							}
																						else
																							{	/* Unsafe/http.scm 483 */
																								BgL_matchz00_5299 =
																									BgL_newzd2matchzd2_5155;
																							}
																					}
																				else
																					{	/* Unsafe/http.scm 483 */
																						int BgL_curz00_5160;

																						BgL_curz00_5160 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_5150,
																							BgL_forwardz00_5152);
																						{	/* Unsafe/http.scm 483 */

																							{	/* Unsafe/http.scm 483 */
																								bool_t BgL_test6763z00_17458;

																								if (
																									((long) (BgL_curz00_5160) ==
																										9L))
																									{	/* Unsafe/http.scm 483 */
																										BgL_test6763z00_17458 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Unsafe/http.scm 483 */
																										BgL_test6763z00_17458 =
																											(
																											(long) (BgL_curz00_5160)
																											== 32L);
																									}
																								if (BgL_test6763z00_17458)
																									{
																										long BgL_forwardz00_17465;
																										long
																											BgL_lastzd2matchzd2_17464;
																										BgL_lastzd2matchzd2_17464 =
																											BgL_newzd2matchzd2_5155;
																										BgL_forwardz00_17465 =
																											(1L +
																											BgL_forwardz00_5152);
																										BgL_forwardz00_5152 =
																											BgL_forwardz00_17465;
																										BgL_lastzd2matchzd2_5151 =
																											BgL_lastzd2matchzd2_17464;
																										goto
																											BgL_zc3z04anonymousza33795ze3z87_5154;
																									}
																								else
																									{	/* Unsafe/http.scm 483 */
																										BgL_matchz00_5299 =
																											BgL_newzd2matchzd2_5155;
																									}
																							}
																						}
																					}
																			}
																		}
																	else
																		{	/* Unsafe/http.scm 483 */
																			BgL_matchz00_5299 =
																				BgL_newzd2matchzd2_5125;
																		}
																}
															}
														}
												}
											}
										else
											{	/* Unsafe/http.scm 483 */
												BgL_iportz00_5135 = BgL_iportz00_5165;
												BgL_lastzd2matchzd2_5136 = BgL_lastzd2matchzd2_5166;
												BgL_forwardz00_5137 = (1L + BgL_forwardz00_5167);
												BgL_bufposz00_5138 = BgL_bufposz00_5168;
											BgL_zc3z04anonymousza33787ze3z87_5139:
												{	/* Unsafe/http.scm 483 */
													long BgL_newzd2matchzd2_5140;

													RGC_STOP_MATCH(BgL_iportz00_5135,
														BgL_forwardz00_5137);
													BgL_newzd2matchzd2_5140 = 1L;
													if ((BgL_forwardz00_5137 == BgL_bufposz00_5138))
														{	/* Unsafe/http.scm 483 */
															if (rgc_fill_buffer(BgL_iportz00_5135))
																{	/* Unsafe/http.scm 483 */
																	long BgL_arg3790z00_5143;
																	long BgL_arg3791z00_5144;

																	BgL_arg3790z00_5143 =
																		RGC_BUFFER_FORWARD(BgL_iportz00_5135);
																	BgL_arg3791z00_5144 =
																		RGC_BUFFER_BUFPOS(BgL_iportz00_5135);
																	{
																		long BgL_bufposz00_17477;
																		long BgL_forwardz00_17476;

																		BgL_forwardz00_17476 = BgL_arg3790z00_5143;
																		BgL_bufposz00_17477 = BgL_arg3791z00_5144;
																		BgL_bufposz00_5138 = BgL_bufposz00_17477;
																		BgL_forwardz00_5137 = BgL_forwardz00_17476;
																		goto BgL_zc3z04anonymousza33787ze3z87_5139;
																	}
																}
															else
																{	/* Unsafe/http.scm 483 */
																	BgL_matchz00_5299 = BgL_newzd2matchzd2_5140;
																}
														}
													else
														{	/* Unsafe/http.scm 483 */
															int BgL_curz00_5145;

															BgL_curz00_5145 =
																RGC_BUFFER_GET_CHAR(BgL_iportz00_5135,
																BgL_forwardz00_5137);
															{	/* Unsafe/http.scm 483 */

																{	/* Unsafe/http.scm 483 */
																	bool_t BgL_test6767z00_17479;

																	if (((long) (BgL_curz00_5145) == 10L))
																		{	/* Unsafe/http.scm 483 */
																			BgL_test6767z00_17479 = ((bool_t) 1);
																		}
																	else
																		{	/* Unsafe/http.scm 483 */
																			BgL_test6767z00_17479 =
																				((long) (BgL_curz00_5145) == 13L);
																		}
																	if (BgL_test6767z00_17479)
																		{	/* Unsafe/http.scm 483 */
																			BgL_matchz00_5299 =
																				BgL_newzd2matchzd2_5140;
																		}
																	else
																		{	/* Unsafe/http.scm 483 */
																			BgL_iportz00_5105 = BgL_iportz00_5135;
																			BgL_lastzd2matchzd2_5106 =
																				BgL_newzd2matchzd2_5140;
																			BgL_forwardz00_5107 =
																				(1L + BgL_forwardz00_5137);
																			BgL_bufposz00_5108 = BgL_bufposz00_5138;
																		BgL_zc3z04anonymousza33771ze3z87_5109:
																			{	/* Unsafe/http.scm 483 */
																				long BgL_newzd2matchzd2_5110;

																				RGC_STOP_MATCH(BgL_iportz00_5105,
																					BgL_forwardz00_5107);
																				BgL_newzd2matchzd2_5110 = 1L;
																				if (
																					(BgL_forwardz00_5107 ==
																						BgL_bufposz00_5108))
																					{	/* Unsafe/http.scm 483 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_5105))
																							{	/* Unsafe/http.scm 483 */
																								long BgL_arg3774z00_5113;
																								long BgL_arg3775z00_5114;

																								BgL_arg3774z00_5113 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_5105);
																								BgL_arg3775z00_5114 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_5105);
																								{
																									long BgL_bufposz00_17493;
																									long BgL_forwardz00_17492;

																									BgL_forwardz00_17492 =
																										BgL_arg3774z00_5113;
																									BgL_bufposz00_17493 =
																										BgL_arg3775z00_5114;
																									BgL_bufposz00_5108 =
																										BgL_bufposz00_17493;
																									BgL_forwardz00_5107 =
																										BgL_forwardz00_17492;
																									goto
																										BgL_zc3z04anonymousza33771ze3z87_5109;
																								}
																							}
																						else
																							{	/* Unsafe/http.scm 483 */
																								BgL_matchz00_5299 =
																									BgL_newzd2matchzd2_5110;
																							}
																					}
																				else
																					{	/* Unsafe/http.scm 483 */
																						int BgL_curz00_5115;

																						BgL_curz00_5115 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_5105,
																							BgL_forwardz00_5107);
																						{	/* Unsafe/http.scm 483 */

																							{	/* Unsafe/http.scm 483 */
																								bool_t BgL_test6771z00_17495;

																								if (
																									((long) (BgL_curz00_5115) ==
																										10L))
																									{	/* Unsafe/http.scm 483 */
																										BgL_test6771z00_17495 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Unsafe/http.scm 483 */
																										BgL_test6771z00_17495 =
																											(
																											(long) (BgL_curz00_5115)
																											== 13L);
																									}
																								if (BgL_test6771z00_17495)
																									{	/* Unsafe/http.scm 483 */
																										BgL_matchz00_5299 =
																											BgL_newzd2matchzd2_5110;
																									}
																								else
																									{
																										long BgL_forwardz00_17502;
																										long
																											BgL_lastzd2matchzd2_17501;
																										BgL_lastzd2matchzd2_17501 =
																											BgL_newzd2matchzd2_5110;
																										BgL_forwardz00_17502 =
																											(1L +
																											BgL_forwardz00_5107);
																										BgL_forwardz00_5107 =
																											BgL_forwardz00_17502;
																										BgL_lastzd2matchzd2_5106 =
																											BgL_lastzd2matchzd2_17501;
																										goto
																											BgL_zc3z04anonymousza33771ze3z87_5109;
																									}
																							}
																						}
																					}
																			}
																		}
																}
															}
														}
												}
											}
									}
								}
							}
					}
					RGC_SET_FILEPOS(BgL_iportz00_5071);
					switch (BgL_matchz00_5299)
						{
						case 2L:

							return BFALSE;
							break;
						case 1L:

							{	/* Unsafe/http.scm 483 */
								long BgL_arg3818z00_10902;

								BgL_arg3818z00_10902 =
									RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_5071);
								return
									rgc_buffer_substring(BgL_iportz00_5071, 0L,
									BgL_arg3818z00_10902);
							}
							break;
						case 0L:

							goto BgL_zc3z04anonymousza33898ze3z87_5298;
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string5657z00zz__httpz00,
								BGl_string5658z00zz__httpz00, BINT(BgL_matchz00_5299));
						}
				}
			}
		}

	}



/* crlf-grammar~0 */
	obj_t BGl_crlfzd2grammarze70z35zz__httpz00(obj_t BgL_iportz00_4774)
	{
		{	/* Unsafe/http.scm 492 */
			{
				obj_t BgL_iportz00_4811;
				long BgL_lastzd2matchzd2_4812;
				long BgL_forwardz00_4813;
				long BgL_bufposz00_4814;
				obj_t BgL_iportz00_4836;
				long BgL_lastzd2matchzd2_4837;
				long BgL_forwardz00_4838;
				long BgL_bufposz00_4839;
				obj_t BgL_iportz00_4861;
				long BgL_lastzd2matchzd2_4862;
				long BgL_forwardz00_4863;
				long BgL_bufposz00_4864;
				obj_t BgL_iportz00_4880;
				long BgL_lastzd2matchzd2_4881;
				long BgL_forwardz00_4882;
				long BgL_bufposz00_4883;

				RGC_START_MATCH(BgL_iportz00_4774);
				{	/* Unsafe/http.scm 492 */
					long BgL_matchz00_5029;

					{	/* Unsafe/http.scm 492 */
						long BgL_arg3768z00_5032;
						long BgL_arg3769z00_5033;

						BgL_arg3768z00_5032 = RGC_BUFFER_FORWARD(BgL_iportz00_4774);
						BgL_arg3769z00_5033 = RGC_BUFFER_BUFPOS(BgL_iportz00_4774);
						BgL_iportz00_4811 = BgL_iportz00_4774;
						BgL_lastzd2matchzd2_4812 = 1L;
						BgL_forwardz00_4813 = BgL_arg3768z00_5032;
						BgL_bufposz00_4814 = BgL_arg3769z00_5033;
					BgL_zc3z04anonymousza33622ze3z87_4815:
						if ((BgL_forwardz00_4813 == BgL_bufposz00_4814))
							{	/* Unsafe/http.scm 492 */
								if (rgc_fill_buffer(BgL_iportz00_4811))
									{	/* Unsafe/http.scm 492 */
										long BgL_arg3625z00_4818;
										long BgL_arg3626z00_4819;

										BgL_arg3625z00_4818 = RGC_BUFFER_FORWARD(BgL_iportz00_4811);
										BgL_arg3626z00_4819 = RGC_BUFFER_BUFPOS(BgL_iportz00_4811);
										{
											long BgL_bufposz00_17522;
											long BgL_forwardz00_17521;

											BgL_forwardz00_17521 = BgL_arg3625z00_4818;
											BgL_bufposz00_17522 = BgL_arg3626z00_4819;
											BgL_bufposz00_4814 = BgL_bufposz00_17522;
											BgL_forwardz00_4813 = BgL_forwardz00_17521;
											goto BgL_zc3z04anonymousza33622ze3z87_4815;
										}
									}
								else
									{	/* Unsafe/http.scm 492 */
										BgL_matchz00_5029 = BgL_lastzd2matchzd2_4812;
									}
							}
						else
							{	/* Unsafe/http.scm 492 */
								int BgL_curz00_4820;

								BgL_curz00_4820 =
									RGC_BUFFER_GET_CHAR(BgL_iportz00_4811, BgL_forwardz00_4813);
								{	/* Unsafe/http.scm 492 */

									if (((long) (BgL_curz00_4820) == 13L))
										{	/* Unsafe/http.scm 492 */
											BgL_iportz00_4861 = BgL_iportz00_4811;
											BgL_lastzd2matchzd2_4862 = BgL_lastzd2matchzd2_4812;
											BgL_forwardz00_4863 = (1L + BgL_forwardz00_4813);
											BgL_bufposz00_4864 = BgL_bufposz00_4814;
										BgL_zc3z04anonymousza33653ze3z87_4865:
											{	/* Unsafe/http.scm 492 */
												long BgL_newzd2matchzd2_4866;

												RGC_STOP_MATCH(BgL_iportz00_4861, BgL_forwardz00_4863);
												BgL_newzd2matchzd2_4866 = 1L;
												if ((BgL_forwardz00_4863 == BgL_bufposz00_4864))
													{	/* Unsafe/http.scm 492 */
														if (rgc_fill_buffer(BgL_iportz00_4861))
															{	/* Unsafe/http.scm 492 */
																long BgL_arg3657z00_4869;
																long BgL_arg3658z00_4870;

																BgL_arg3657z00_4869 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_4861);
																BgL_arg3658z00_4870 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_4861);
																{
																	long BgL_bufposz00_17535;
																	long BgL_forwardz00_17534;

																	BgL_forwardz00_17534 = BgL_arg3657z00_4869;
																	BgL_bufposz00_17535 = BgL_arg3658z00_4870;
																	BgL_bufposz00_4864 = BgL_bufposz00_17535;
																	BgL_forwardz00_4863 = BgL_forwardz00_17534;
																	goto BgL_zc3z04anonymousza33653ze3z87_4865;
																}
															}
														else
															{	/* Unsafe/http.scm 492 */
																BgL_matchz00_5029 = BgL_newzd2matchzd2_4866;
															}
													}
												else
													{	/* Unsafe/http.scm 492 */
														int BgL_curz00_4871;

														BgL_curz00_4871 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_4861,
															BgL_forwardz00_4863);
														{	/* Unsafe/http.scm 492 */

															if (((long) (BgL_curz00_4871) == 10L))
																{	/* Unsafe/http.scm 492 */
																	long BgL_arg3660z00_4873;

																	BgL_arg3660z00_4873 =
																		(1L + BgL_forwardz00_4863);
																	{	/* Unsafe/http.scm 492 */
																		long BgL_newzd2matchzd2_10985;

																		RGC_STOP_MATCH(BgL_iportz00_4861,
																			BgL_arg3660z00_4873);
																		BgL_newzd2matchzd2_10985 = 0L;
																		BgL_matchz00_5029 =
																			BgL_newzd2matchzd2_10985;
																}}
															else
																{	/* Unsafe/http.scm 492 */
																	BgL_matchz00_5029 = BgL_newzd2matchzd2_4866;
																}
														}
													}
											}
										}
									else
										{	/* Unsafe/http.scm 492 */
											if (((long) (BgL_curz00_4820) == 10L))
												{	/* Unsafe/http.scm 492 */
													long BgL_arg3631z00_4824;

													BgL_arg3631z00_4824 = (1L + BgL_forwardz00_4813);
													{	/* Unsafe/http.scm 492 */
														long BgL_newzd2matchzd2_10917;

														RGC_STOP_MATCH(BgL_iportz00_4811,
															BgL_arg3631z00_4824);
														BgL_newzd2matchzd2_10917 = 0L;
														BgL_matchz00_5029 = BgL_newzd2matchzd2_10917;
												}}
											else
												{	/* Unsafe/http.scm 492 */
													bool_t BgL_test6780z00_17548;

													if (((long) (BgL_curz00_4820) == 9L))
														{	/* Unsafe/http.scm 492 */
															BgL_test6780z00_17548 = ((bool_t) 1);
														}
													else
														{	/* Unsafe/http.scm 492 */
															BgL_test6780z00_17548 =
																((long) (BgL_curz00_4820) == 32L);
														}
													if (BgL_test6780z00_17548)
														{	/* Unsafe/http.scm 492 */
															BgL_iportz00_4836 = BgL_iportz00_4811;
															BgL_lastzd2matchzd2_4837 =
																BgL_lastzd2matchzd2_4812;
															BgL_forwardz00_4838 = (1L + BgL_forwardz00_4813);
															BgL_bufposz00_4839 = BgL_bufposz00_4814;
														BgL_zc3z04anonymousza33638ze3z87_4840:
															{	/* Unsafe/http.scm 492 */
																long BgL_newzd2matchzd2_4841;

																RGC_STOP_MATCH(BgL_iportz00_4836,
																	BgL_forwardz00_4838);
																BgL_newzd2matchzd2_4841 = 1L;
																if ((BgL_forwardz00_4838 == BgL_bufposz00_4839))
																	{	/* Unsafe/http.scm 492 */
																		if (rgc_fill_buffer(BgL_iportz00_4836))
																			{	/* Unsafe/http.scm 492 */
																				long BgL_arg3642z00_4844;
																				long BgL_arg3643z00_4845;

																				BgL_arg3642z00_4844 =
																					RGC_BUFFER_FORWARD(BgL_iportz00_4836);
																				BgL_arg3643z00_4845 =
																					RGC_BUFFER_BUFPOS(BgL_iportz00_4836);
																				{
																					long BgL_bufposz00_17562;
																					long BgL_forwardz00_17561;

																					BgL_forwardz00_17561 =
																						BgL_arg3642z00_4844;
																					BgL_bufposz00_17562 =
																						BgL_arg3643z00_4845;
																					BgL_bufposz00_4839 =
																						BgL_bufposz00_17562;
																					BgL_forwardz00_4838 =
																						BgL_forwardz00_17561;
																					goto
																						BgL_zc3z04anonymousza33638ze3z87_4840;
																				}
																			}
																		else
																			{	/* Unsafe/http.scm 492 */
																				BgL_matchz00_5029 =
																					BgL_newzd2matchzd2_4841;
																			}
																	}
																else
																	{	/* Unsafe/http.scm 492 */
																		int BgL_curz00_4846;

																		BgL_curz00_4846 =
																			RGC_BUFFER_GET_CHAR(BgL_iportz00_4836,
																			BgL_forwardz00_4838);
																		{	/* Unsafe/http.scm 492 */

																			if (((long) (BgL_curz00_4846) == 13L))
																				{	/* Unsafe/http.scm 492 */
																					long BgL_arg3645z00_4848;

																					BgL_arg3645z00_4848 =
																						(1L + BgL_forwardz00_4838);
																					{
																						long BgL_forwardz00_10942;
																						long BgL_bufposz00_10943;

																						BgL_forwardz00_10942 =
																							BgL_arg3645z00_4848;
																						BgL_bufposz00_10943 =
																							BgL_bufposz00_4839;
																					BgL_statezd28zd21239z00_10941:
																						if (
																							(BgL_forwardz00_10942 ==
																								BgL_bufposz00_10943))
																							{	/* Unsafe/http.scm 492 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_4836))
																									{	/* Unsafe/http.scm 492 */
																										long BgL_arg3677z00_10946;
																										long BgL_arg3678z00_10947;

																										BgL_arg3677z00_10946 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_4836);
																										BgL_arg3678z00_10947 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_4836);
																										{
																											long BgL_bufposz00_17575;
																											long BgL_forwardz00_17574;

																											BgL_forwardz00_17574 =
																												BgL_arg3677z00_10946;
																											BgL_bufposz00_17575 =
																												BgL_arg3678z00_10947;
																											BgL_bufposz00_10943 =
																												BgL_bufposz00_17575;
																											BgL_forwardz00_10942 =
																												BgL_forwardz00_17574;
																											goto
																												BgL_statezd28zd21239z00_10941;
																										}
																									}
																								else
																									{	/* Unsafe/http.scm 492 */
																										BgL_matchz00_5029 =
																											BgL_newzd2matchzd2_4841;
																									}
																							}
																						else
																							{	/* Unsafe/http.scm 492 */
																								int BgL_curz00_10948;

																								BgL_curz00_10948 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_4836,
																									BgL_forwardz00_10942);
																								{	/* Unsafe/http.scm 492 */

																									if (
																										((long) (BgL_curz00_10948)
																											== 10L))
																										{	/* Unsafe/http.scm 492 */
																											long BgL_arg3680z00_10950;

																											BgL_arg3680z00_10950 =
																												(1L +
																												BgL_forwardz00_10942);
																											{	/* Unsafe/http.scm 492 */
																												long
																													BgL_newzd2matchzd2_10960;
																												RGC_STOP_MATCH
																													(BgL_iportz00_4836,
																													BgL_arg3680z00_10950);
																												BgL_newzd2matchzd2_10960
																													= 0L;
																												BgL_matchz00_5029 =
																													BgL_newzd2matchzd2_10960;
																										}}
																									else
																										{	/* Unsafe/http.scm 492 */
																											BgL_matchz00_5029 =
																												BgL_newzd2matchzd2_4841;
																										}
																								}
																							}
																					}
																				}
																			else
																				{	/* Unsafe/http.scm 492 */
																					if (((long) (BgL_curz00_4846) == 10L))
																						{	/* Unsafe/http.scm 492 */
																							long BgL_arg3648z00_4850;

																							BgL_arg3648z00_4850 =
																								(1L + BgL_forwardz00_4838);
																							{	/* Unsafe/http.scm 492 */
																								long BgL_newzd2matchzd2_10965;

																								RGC_STOP_MATCH
																									(BgL_iportz00_4836,
																									BgL_arg3648z00_4850);
																								BgL_newzd2matchzd2_10965 = 0L;
																								BgL_matchz00_5029 =
																									BgL_newzd2matchzd2_10965;
																						}}
																					else
																						{	/* Unsafe/http.scm 492 */
																							bool_t BgL_test6789z00_17587;

																							if (
																								((long) (BgL_curz00_4846) ==
																									9L))
																								{	/* Unsafe/http.scm 492 */
																									BgL_test6789z00_17587 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Unsafe/http.scm 492 */
																									BgL_test6789z00_17587 =
																										(
																										(long) (BgL_curz00_4846) ==
																										32L);
																								}
																							if (BgL_test6789z00_17587)
																								{	/* Unsafe/http.scm 492 */
																									BgL_iportz00_4880 =
																										BgL_iportz00_4836;
																									BgL_lastzd2matchzd2_4881 =
																										BgL_newzd2matchzd2_4841;
																									BgL_forwardz00_4882 =
																										(1L + BgL_forwardz00_4838);
																									BgL_bufposz00_4883 =
																										BgL_bufposz00_4839;
																								BgL_zc3z04anonymousza33662ze3z87_4884:
																									if (
																										(BgL_forwardz00_4882 ==
																											BgL_bufposz00_4883))
																										{	/* Unsafe/http.scm 492 */
																											if (rgc_fill_buffer
																												(BgL_iportz00_4880))
																												{	/* Unsafe/http.scm 492 */
																													long
																														BgL_arg3665z00_4887;
																													long
																														BgL_arg3666z00_4888;
																													BgL_arg3665z00_4887 =
																														RGC_BUFFER_FORWARD
																														(BgL_iportz00_4880);
																													BgL_arg3666z00_4888 =
																														RGC_BUFFER_BUFPOS
																														(BgL_iportz00_4880);
																													{
																														long
																															BgL_bufposz00_17600;
																														long
																															BgL_forwardz00_17599;
																														BgL_forwardz00_17599
																															=
																															BgL_arg3665z00_4887;
																														BgL_bufposz00_17600
																															=
																															BgL_arg3666z00_4888;
																														BgL_bufposz00_4883 =
																															BgL_bufposz00_17600;
																														BgL_forwardz00_4882
																															=
																															BgL_forwardz00_17599;
																														goto
																															BgL_zc3z04anonymousza33662ze3z87_4884;
																													}
																												}
																											else
																												{	/* Unsafe/http.scm 492 */
																													BgL_matchz00_5029 =
																														BgL_lastzd2matchzd2_4881;
																												}
																										}
																									else
																										{	/* Unsafe/http.scm 492 */
																											int BgL_curz00_4889;

																											BgL_curz00_4889 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_iportz00_4880,
																												BgL_forwardz00_4882);
																											{	/* Unsafe/http.scm 492 */

																												if (
																													((long)
																														(BgL_curz00_4889) ==
																														13L))
																													{	/* Unsafe/http.scm 492 */
																														long
																															BgL_arg3668z00_4891;
																														BgL_arg3668z00_4891
																															=
																															(1L +
																															BgL_forwardz00_4882);
																														{
																															long
																																BgL_forwardz00_11001;
																															long
																																BgL_bufposz00_11002;
																															BgL_forwardz00_11001
																																=
																																BgL_arg3668z00_4891;
																															BgL_bufposz00_11002
																																=
																																BgL_bufposz00_4883;
																														BgL_statezd28zd21239z00_11000:
																															if (
																																(BgL_forwardz00_11001
																																	==
																																	BgL_bufposz00_11002))
																																{	/* Unsafe/http.scm 492 */
																																	if (rgc_fill_buffer(BgL_iportz00_4880))
																																		{	/* Unsafe/http.scm 492 */
																																			long
																																				BgL_arg3677z00_11005;
																																			long
																																				BgL_arg3678z00_11006;
																																			BgL_arg3677z00_11005
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_iportz00_4880);
																																			BgL_arg3678z00_11006
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_iportz00_4880);
																																			{
																																				long
																																					BgL_bufposz00_17613;
																																				long
																																					BgL_forwardz00_17612;
																																				BgL_forwardz00_17612
																																					=
																																					BgL_arg3677z00_11005;
																																				BgL_bufposz00_17613
																																					=
																																					BgL_arg3678z00_11006;
																																				BgL_bufposz00_11002
																																					=
																																					BgL_bufposz00_17613;
																																				BgL_forwardz00_11001
																																					=
																																					BgL_forwardz00_17612;
																																				goto
																																					BgL_statezd28zd21239z00_11000;
																																			}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 492 */
																																			BgL_matchz00_5029
																																				=
																																				BgL_lastzd2matchzd2_4881;
																																		}
																																}
																															else
																																{	/* Unsafe/http.scm 492 */
																																	int
																																		BgL_curz00_11007;
																																	BgL_curz00_11007
																																		=
																																		RGC_BUFFER_GET_CHAR
																																		(BgL_iportz00_4880,
																																		BgL_forwardz00_11001);
																																	{	/* Unsafe/http.scm 492 */

																																		if (
																																			((long)
																																				(BgL_curz00_11007)
																																				== 10L))
																																			{	/* Unsafe/http.scm 492 */
																																				long
																																					BgL_arg3680z00_11009;
																																				BgL_arg3680z00_11009
																																					=
																																					(1L +
																																					BgL_forwardz00_11001);
																																				{	/* Unsafe/http.scm 492 */
																																					long
																																						BgL_newzd2matchzd2_11019;
																																					RGC_STOP_MATCH
																																						(BgL_iportz00_4880,
																																						BgL_arg3680z00_11009);
																																					BgL_newzd2matchzd2_11019
																																						=
																																						0L;
																																					BgL_matchz00_5029
																																						=
																																						BgL_newzd2matchzd2_11019;
																																			}}
																																		else
																																			{	/* Unsafe/http.scm 492 */
																																				BgL_matchz00_5029
																																					=
																																					BgL_lastzd2matchzd2_4881;
																																			}
																																	}
																																}
																														}
																													}
																												else
																													{	/* Unsafe/http.scm 492 */
																														if (
																															((long)
																																(BgL_curz00_4889)
																																== 10L))
																															{	/* Unsafe/http.scm 492 */
																																long
																																	BgL_arg3670z00_4893;
																																BgL_arg3670z00_4893
																																	=
																																	(1L +
																																	BgL_forwardz00_4882);
																																{	/* Unsafe/http.scm 492 */
																																	long
																																		BgL_newzd2matchzd2_11024;
																																	RGC_STOP_MATCH
																																		(BgL_iportz00_4880,
																																		BgL_arg3670z00_4893);
																																	BgL_newzd2matchzd2_11024
																																		= 0L;
																																	BgL_matchz00_5029
																																		=
																																		BgL_newzd2matchzd2_11024;
																															}}
																														else
																															{	/* Unsafe/http.scm 492 */
																																bool_t
																																	BgL_test6798z00_17625;
																																if (((long)
																																		(BgL_curz00_4889)
																																		== 9L))
																																	{	/* Unsafe/http.scm 492 */
																																		BgL_test6798z00_17625
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Unsafe/http.scm 492 */
																																		BgL_test6798z00_17625
																																			=
																																			((long)
																																			(BgL_curz00_4889)
																																			== 32L);
																																	}
																																if (BgL_test6798z00_17625)
																																	{
																																		long
																																			BgL_forwardz00_17631;
																																		BgL_forwardz00_17631
																																			=
																																			(1L +
																																			BgL_forwardz00_4882);
																																		BgL_forwardz00_4882
																																			=
																																			BgL_forwardz00_17631;
																																		goto
																																			BgL_zc3z04anonymousza33662ze3z87_4884;
																																	}
																																else
																																	{	/* Unsafe/http.scm 492 */
																																		BgL_matchz00_5029
																																			=
																																			BgL_lastzd2matchzd2_4881;
																																	}
																															}
																													}
																											}
																										}
																								}
																							else
																								{	/* Unsafe/http.scm 492 */
																									BgL_matchz00_5029 =
																										BgL_newzd2matchzd2_4841;
																								}
																						}
																				}
																		}
																	}
															}
														}
													else
														{	/* Unsafe/http.scm 492 */
															long BgL_arg3636z00_4828;

															BgL_arg3636z00_4828 = (1L + BgL_forwardz00_4813);
															{	/* Unsafe/http.scm 492 */
																long BgL_newzd2matchzd2_10924;

																RGC_STOP_MATCH(BgL_iportz00_4811,
																	BgL_arg3636z00_4828);
																BgL_newzd2matchzd2_10924 = 1L;
																BgL_matchz00_5029 = BgL_newzd2matchzd2_10924;
					}}}}}}}
					RGC_SET_FILEPOS(BgL_iportz00_4774);
					switch (BgL_matchz00_5029)
						{
						case 1L:

							return BFALSE;
							break;
						case 0L:

							return BUNSPEC;
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string5657z00zz__httpz00,
								BGl_string5658z00zz__httpz00, BINT(BgL_matchz00_5029));
						}
				}
			}
		}

	}



/* &http-parse-header */
	obj_t BGl_z62httpzd2parsezd2headerz62zz__httpz00(obj_t BgL_envz00_12408,
		obj_t BgL_pz00_12409, obj_t BgL_poz00_12410)
	{
		{	/* Unsafe/http.scm 425 */
			{	/* Unsafe/http.scm 428 */
				obj_t BgL_auxz00_17641;

				if (INPUT_PORTP(BgL_pz00_12409))
					{	/* Unsafe/http.scm 428 */
						BgL_auxz00_17641 = BgL_pz00_12409;
					}
				else
					{
						obj_t BgL_auxz00_17644;

						BgL_auxz00_17644 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5665z00zz__httpz00,
							BINT(15779L), BGl_string5787z00zz__httpz00,
							BGl_string5763z00zz__httpz00, BgL_pz00_12409);
						FAILURE(BgL_auxz00_17644, BFALSE, BFALSE);
					}
				return
					BGl_httpzd2parsezd2headerz00zz__httpz00(BgL_auxz00_17641,
					BgL_poz00_12410);
			}
		}

	}



/* http-parse-response */
	BGL_EXPORTED_DEF obj_t BGl_httpzd2parsezd2responsez00zz__httpz00(obj_t
		BgL_ipz00_56, obj_t BgL_opz00_57, obj_t BgL_procz00_58)
	{
		{	/* Unsafe/http.scm 621 */
			{	/* Unsafe/http.scm 622 */
				obj_t BgL__1z00_7500;

				BgL__1z00_7500 =
					BGl_z62zc3z04anonymousza31591ze3ze5zz__httpz00
					(BGl_statuszd2linezd2grammarz00zz__httpz00, BgL_ipz00_56);
				{	/* Unsafe/http.scm 623 */
					obj_t BgL_statusz00_7501;
					obj_t BgL__2z00_7502;

					{	/* Unsafe/http.scm 624 */
						obj_t BgL_tmpz00_11741;

						{	/* Unsafe/http.scm 624 */
							int BgL_tmpz00_17653;

							BgL_tmpz00_17653 = (int) (1L);
							BgL_tmpz00_11741 = BGL_MVALUES_VAL(BgL_tmpz00_17653);
						}
						{	/* Unsafe/http.scm 624 */
							int BgL_tmpz00_17656;

							BgL_tmpz00_17656 = (int) (1L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_17656, BUNSPEC);
						}
						BgL_statusz00_7501 = BgL_tmpz00_11741;
					}
					{	/* Unsafe/http.scm 624 */
						obj_t BgL_tmpz00_11742;

						{	/* Unsafe/http.scm 624 */
							int BgL_tmpz00_17659;

							BgL_tmpz00_17659 = (int) (2L);
							BgL_tmpz00_11742 = BGL_MVALUES_VAL(BgL_tmpz00_17659);
						}
						{	/* Unsafe/http.scm 624 */
							int BgL_tmpz00_17662;

							BgL_tmpz00_17662 = (int) (2L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_17662, BUNSPEC);
						}
						BgL__2z00_7502 = BgL_tmpz00_11742;
					}
					{	/* Unsafe/http.scm 624 */
						obj_t BgL_headerz00_7503;

						BgL_headerz00_7503 =
							BGl_httpzd2parsezd2headerz00zz__httpz00(BgL_ipz00_56,
							BgL_opz00_57);
						{	/* Unsafe/http.scm 625 */
							obj_t BgL__hostz00_7504;
							obj_t BgL__portz00_7505;
							obj_t BgL_clenz00_7506;
							obj_t BgL_tencz00_7507;
							obj_t BgL__autz00_7508;
							obj_t BgL__pautz00_7509;
							obj_t BgL__connz00_7510;

							{	/* Unsafe/http.scm 626 */
								obj_t BgL_tmpz00_11743;

								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17666;

									BgL_tmpz00_17666 = (int) (1L);
									BgL_tmpz00_11743 = BGL_MVALUES_VAL(BgL_tmpz00_17666);
								}
								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17669;

									BgL_tmpz00_17669 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_17669, BUNSPEC);
								}
								BgL__hostz00_7504 = BgL_tmpz00_11743;
							}
							{	/* Unsafe/http.scm 626 */
								obj_t BgL_tmpz00_11744;

								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17672;

									BgL_tmpz00_17672 = (int) (2L);
									BgL_tmpz00_11744 = BGL_MVALUES_VAL(BgL_tmpz00_17672);
								}
								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17675;

									BgL_tmpz00_17675 = (int) (2L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_17675, BUNSPEC);
								}
								BgL__portz00_7505 = BgL_tmpz00_11744;
							}
							{	/* Unsafe/http.scm 626 */
								obj_t BgL_tmpz00_11745;

								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17678;

									BgL_tmpz00_17678 = (int) (3L);
									BgL_tmpz00_11745 = BGL_MVALUES_VAL(BgL_tmpz00_17678);
								}
								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17681;

									BgL_tmpz00_17681 = (int) (3L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_17681, BUNSPEC);
								}
								BgL_clenz00_7506 = BgL_tmpz00_11745;
							}
							{	/* Unsafe/http.scm 626 */
								obj_t BgL_tmpz00_11746;

								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17684;

									BgL_tmpz00_17684 = (int) (4L);
									BgL_tmpz00_11746 = BGL_MVALUES_VAL(BgL_tmpz00_17684);
								}
								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17687;

									BgL_tmpz00_17687 = (int) (4L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_17687, BUNSPEC);
								}
								BgL_tencz00_7507 = BgL_tmpz00_11746;
							}
							{	/* Unsafe/http.scm 626 */
								obj_t BgL_tmpz00_11747;

								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17690;

									BgL_tmpz00_17690 = (int) (5L);
									BgL_tmpz00_11747 = BGL_MVALUES_VAL(BgL_tmpz00_17690);
								}
								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17693;

									BgL_tmpz00_17693 = (int) (5L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_17693, BUNSPEC);
								}
								BgL__autz00_7508 = BgL_tmpz00_11747;
							}
							{	/* Unsafe/http.scm 626 */
								obj_t BgL_tmpz00_11748;

								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17696;

									BgL_tmpz00_17696 = (int) (6L);
									BgL_tmpz00_11748 = BGL_MVALUES_VAL(BgL_tmpz00_17696);
								}
								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17699;

									BgL_tmpz00_17699 = (int) (6L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_17699, BUNSPEC);
								}
								BgL__pautz00_7509 = BgL_tmpz00_11748;
							}
							{	/* Unsafe/http.scm 626 */
								obj_t BgL_tmpz00_11749;

								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17702;

									BgL_tmpz00_17702 = (int) (7L);
									BgL_tmpz00_11749 = BGL_MVALUES_VAL(BgL_tmpz00_17702);
								}
								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17705;

									BgL_tmpz00_17705 = (int) (7L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_17705, BUNSPEC);
								}
								BgL__connz00_7510 = BgL_tmpz00_11749;
							}
							{

								if (INTEGERP(BgL_statusz00_7501))
									{	/* Unsafe/http.scm 626 */
										switch ((long) CINT(BgL_statusz00_7501))
											{
											case 200L:
											case 207L:

												if ((BgL_tencz00_7507 == BGl_symbol5791z00zz__httpz00))
													{	/* Unsafe/http.scm 631 */
														obj_t BgL_arg4932z00_7513;

														BgL_arg4932z00_7513 =
															BGl_httpzd2chunkszd2ze3portze3zz__httpz00
															(BgL_ipz00_56);
														return BGL_PROCEDURE_CALL5(BgL_procz00_58,
															BgL_arg4932z00_7513, BgL_statusz00_7501,
															BgL_headerz00_7503, BgL_clenz00_7506,
															BgL_tencz00_7507);
													}
												else
													{	/* Unsafe/http.scm 630 */
														return
															BGL_PROCEDURE_CALL5(BgL_procz00_58, BgL_ipz00_56,
															BgL_statusz00_7501, BgL_headerz00_7503,
															BgL_clenz00_7506, BgL_tencz00_7507);
													}
												break;
											case 201L:
											case 204L:
											case 304L:

												return
													BGL_PROCEDURE_CALL5(BgL_procz00_58, BFALSE,
													BgL_statusz00_7501, BgL_headerz00_7503,
													BgL_clenz00_7506, BgL_tencz00_7507);
												break;
											case 301L:
											case 302L:
											case 303L:
											case 307L:

												{	/* Unsafe/http.scm 639 */
													obj_t BgL_locz00_7514;

													BgL_locz00_7514 =
														BGl_assqz00zz__r4_pairs_and_lists_6_3z00
														(BGl_keyword5793z00zz__httpz00, BgL_headerz00_7503);
													if (PAIRP(BgL_locz00_7514))
														{	/* Unsafe/http.scm 645 */
															BgL_z62httpzd2redirectionzb0_bglt
																BgL_arg4934z00_7516;
															{	/* Unsafe/http.scm 645 */
																BgL_z62httpzd2redirectionzb0_bglt
																	BgL_new1284z00_7517;
																{	/* Unsafe/http.scm 645 */
																	BgL_z62httpzd2redirectionzb0_bglt
																		BgL_new1283z00_7520;
																	BgL_new1283z00_7520 =
																		((BgL_z62httpzd2redirectionzb0_bglt)
																		BOBJECT(GC_MALLOC(sizeof(struct
																					BgL_z62httpzd2redirectionzb0_bgl))));
																	{	/* Unsafe/http.scm 645 */
																		long BgL_arg4937z00_7521;

																		BgL_arg4937z00_7521 =
																			BGL_CLASS_NUM
																			(BGl_z62httpzd2redirectionzb0zz__httpz00);
																		BGL_OBJECT_CLASS_NUM_SET((
																				(BgL_objectz00_bglt)
																				BgL_new1283z00_7520),
																			BgL_arg4937z00_7521);
																	}
																	BgL_new1284z00_7517 = BgL_new1283z00_7520;
																}
																((((BgL_z62exceptionz62_bglt) COBJECT(
																				((BgL_z62exceptionz62_bglt)
																					BgL_new1284z00_7517)))->
																		BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
																((((BgL_z62exceptionz62_bglt)
																			COBJECT(((BgL_z62exceptionz62_bglt)
																					BgL_new1284z00_7517)))->
																		BgL_locationz00) =
																	((obj_t) BFALSE), BUNSPEC);
																{
																	obj_t BgL_auxz00_17748;

																	{	/* Unsafe/http.scm 645 */
																		obj_t BgL_arg4935z00_7518;

																		{	/* Unsafe/http.scm 645 */
																			obj_t BgL_arg4936z00_7519;

																			{	/* Unsafe/http.scm 645 */
																				obj_t BgL_classz00_11758;

																				BgL_classz00_11758 =
																					BGl_z62httpzd2redirectionzb0zz__httpz00;
																				BgL_arg4936z00_7519 =
																					BGL_CLASS_ALL_FIELDS
																					(BgL_classz00_11758);
																			}
																			BgL_arg4935z00_7518 =
																				VECTOR_REF(BgL_arg4936z00_7519, 2L);
																		}
																		BgL_auxz00_17748 =
																			BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																			(BgL_arg4935z00_7518);
																	}
																	((((BgL_z62exceptionz62_bglt) COBJECT(
																					((BgL_z62exceptionz62_bglt)
																						BgL_new1284z00_7517)))->
																			BgL_stackz00) =
																		((obj_t) BgL_auxz00_17748), BUNSPEC);
																}
																((((BgL_z62httpzd2redirectionzb0_bglt)
																			COBJECT(BgL_new1284z00_7517))->
																		BgL_portz00) =
																	((obj_t) BgL_ipz00_56), BUNSPEC);
																((((BgL_z62httpzd2redirectionzb0_bglt)
																			COBJECT(BgL_new1284z00_7517))->
																		BgL_urlz00) =
																	((obj_t) CDR(BgL_locz00_7514)), BUNSPEC);
																BgL_arg4934z00_7516 = BgL_new1284z00_7517;
															}
															return
																BGl_raisez00zz__errorz00(
																((obj_t) BgL_arg4934z00_7516));
														}
													else
														{	/* Unsafe/http.scm 641 */
															BgL_z62httpzd2redirectionzd2errorz62_bglt
																BgL_arg4938z00_7522;
															{	/* Unsafe/http.scm 641 */
																BgL_z62httpzd2redirectionzd2errorz62_bglt
																	BgL_new1282z00_7523;
																{	/* Unsafe/http.scm 641 */
																	BgL_z62httpzd2redirectionzd2errorz62_bglt
																		BgL_new1281z00_7526;
																	BgL_new1281z00_7526 =
																		((BgL_z62httpzd2redirectionzd2errorz62_bglt)
																		BOBJECT(GC_MALLOC(sizeof(struct
																					BgL_z62httpzd2redirectionzd2errorz62_bgl))));
																	{	/* Unsafe/http.scm 641 */
																		long BgL_arg4941z00_7527;

																		BgL_arg4941z00_7527 =
																			BGL_CLASS_NUM
																			(BGl_z62httpzd2redirectionzd2errorz62zz__httpz00);
																		BGL_OBJECT_CLASS_NUM_SET((
																				(BgL_objectz00_bglt)
																				BgL_new1281z00_7526),
																			BgL_arg4941z00_7527);
																	}
																	BgL_new1282z00_7523 = BgL_new1281z00_7526;
																}
																((((BgL_z62exceptionz62_bglt) COBJECT(
																				((BgL_z62exceptionz62_bglt)
																					BgL_new1282z00_7523)))->
																		BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
																((((BgL_z62exceptionz62_bglt)
																			COBJECT(((BgL_z62exceptionz62_bglt)
																					BgL_new1282z00_7523)))->
																		BgL_locationz00) =
																	((obj_t) BFALSE), BUNSPEC);
																{
																	obj_t BgL_auxz00_17767;

																	{	/* Unsafe/http.scm 641 */
																		obj_t BgL_arg4939z00_7524;

																		{	/* Unsafe/http.scm 641 */
																			obj_t BgL_arg4940z00_7525;

																			{	/* Unsafe/http.scm 641 */
																				obj_t BgL_classz00_11764;

																				BgL_classz00_11764 =
																					BGl_z62httpzd2redirectionzd2errorz62zz__httpz00;
																				BgL_arg4940z00_7525 =
																					BGL_CLASS_ALL_FIELDS
																					(BgL_classz00_11764);
																			}
																			BgL_arg4939z00_7524 =
																				VECTOR_REF(BgL_arg4940z00_7525, 2L);
																		}
																		BgL_auxz00_17767 =
																			BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																			(BgL_arg4939z00_7524);
																	}
																	((((BgL_z62exceptionz62_bglt) COBJECT(
																					((BgL_z62exceptionz62_bglt)
																						BgL_new1282z00_7523)))->
																			BgL_stackz00) =
																		((obj_t) BgL_auxz00_17767), BUNSPEC);
																}
																((((BgL_z62errorz62_bglt) COBJECT(
																				((BgL_z62errorz62_bglt)
																					BgL_new1282z00_7523)))->BgL_procz00) =
																	((obj_t) BGl_symbol5795z00zz__httpz00),
																	BUNSPEC);
																((((BgL_z62errorz62_bglt)
																			COBJECT(((BgL_z62errorz62_bglt)
																					BgL_new1282z00_7523)))->BgL_msgz00) =
																	((obj_t) BGl_string5797z00zz__httpz00),
																	BUNSPEC);
																((((BgL_z62errorz62_bglt)
																			COBJECT(((BgL_z62errorz62_bglt)
																					BgL_new1282z00_7523)))->BgL_objz00) =
																	((obj_t) BgL_ipz00_56), BUNSPEC);
																BgL_arg4938z00_7522 = BgL_new1282z00_7523;
															}
															return
																BGl_raisez00zz__errorz00(
																((obj_t) BgL_arg4938z00_7522));
														}
												}
												break;
											default:
											BgL_case_else1279z00_7511:
												{	/* Unsafe/http.scm 649 */
													obj_t BgL__ortest_1276z00_7528;

													BgL__ortest_1276z00_7528 =
														BGL_PROCEDURE_CALL5(BgL_procz00_58, BgL_ipz00_56,
														BgL_statusz00_7501, BgL_headerz00_7503,
														BgL_clenz00_7506, BgL_tencz00_7507);
													if (CBOOL(BgL__ortest_1276z00_7528))
														{	/* Unsafe/http.scm 649 */
															return BgL__ortest_1276z00_7528;
														}
													else
														{	/* Unsafe/http.scm 650 */
															BgL_z62httpzd2statuszd2errorz62_bglt
																BgL_arg4942z00_7529;
															{	/* Unsafe/http.scm 650 */
																BgL_z62httpzd2statuszd2errorz62_bglt
																	BgL_new1278z00_7530;
																{	/* Unsafe/http.scm 650 */
																	BgL_z62httpzd2statuszd2errorz62_bglt
																		BgL_new1277z00_7534;
																	BgL_new1277z00_7534 =
																		((BgL_z62httpzd2statuszd2errorz62_bglt)
																		BOBJECT(GC_MALLOC(sizeof(struct
																					BgL_z62httpzd2statuszd2errorz62_bgl))));
																	{	/* Unsafe/http.scm 650 */
																		long BgL_arg4946z00_7535;

																		BgL_arg4946z00_7535 =
																			BGL_CLASS_NUM
																			(BGl_z62httpzd2statuszd2errorz62zz__httpz00);
																		BGL_OBJECT_CLASS_NUM_SET((
																				(BgL_objectz00_bglt)
																				BgL_new1277z00_7534),
																			BgL_arg4946z00_7535);
																	}
																	BgL_new1278z00_7530 = BgL_new1277z00_7534;
																}
																((((BgL_z62exceptionz62_bglt) COBJECT(
																				((BgL_z62exceptionz62_bglt)
																					BgL_new1278z00_7530)))->
																		BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
																((((BgL_z62exceptionz62_bglt)
																			COBJECT(((BgL_z62exceptionz62_bglt)
																					BgL_new1278z00_7530)))->
																		BgL_locationz00) =
																	((obj_t) BFALSE), BUNSPEC);
																{
																	obj_t BgL_auxz00_17799;

																	{	/* Unsafe/http.scm 650 */
																		obj_t BgL_arg4943z00_7531;

																		{	/* Unsafe/http.scm 650 */
																			obj_t BgL_arg4944z00_7532;

																			{	/* Unsafe/http.scm 650 */
																				obj_t BgL_classz00_11753;

																				BgL_classz00_11753 =
																					BGl_z62httpzd2statuszd2errorz62zz__httpz00;
																				BgL_arg4944z00_7532 =
																					BGL_CLASS_ALL_FIELDS
																					(BgL_classz00_11753);
																			}
																			BgL_arg4943z00_7531 =
																				VECTOR_REF(BgL_arg4944z00_7532, 2L);
																		}
																		BgL_auxz00_17799 =
																			BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																			(BgL_arg4943z00_7531);
																	}
																	((((BgL_z62exceptionz62_bglt) COBJECT(
																					((BgL_z62exceptionz62_bglt)
																						BgL_new1278z00_7530)))->
																			BgL_stackz00) =
																		((obj_t) BgL_auxz00_17799), BUNSPEC);
																}
																((((BgL_z62errorz62_bglt) COBJECT(
																				((BgL_z62errorz62_bglt)
																					BgL_new1278z00_7530)))->BgL_procz00) =
																	((obj_t) BGl_symbol5788z00zz__httpz00),
																	BUNSPEC);
																{
																	obj_t BgL_auxz00_17807;

																	{	/* Unsafe/http.scm 652 */
																		obj_t BgL_list4945z00_7533;

																		BgL_list4945z00_7533 =
																			MAKE_YOUNG_PAIR(BgL_statusz00_7501, BNIL);
																		BgL_auxz00_17807 =
																			BGl_formatz00zz__r4_output_6_10_3z00
																			(BGl_string5790z00zz__httpz00,
																			BgL_list4945z00_7533);
																	}
																	((((BgL_z62errorz62_bglt) COBJECT(
																					((BgL_z62errorz62_bglt)
																						BgL_new1278z00_7530)))->
																			BgL_msgz00) =
																		((obj_t) BgL_auxz00_17807), BUNSPEC);
																}
																((((BgL_z62errorz62_bglt) COBJECT(
																				((BgL_z62errorz62_bglt)
																					BgL_new1278z00_7530)))->BgL_objz00) =
																	((obj_t) BgL_ipz00_56), BUNSPEC);
																((((BgL_z62httpzd2statuszd2errorz62_bglt)
																			COBJECT(BgL_new1278z00_7530))->
																		BgL_statusz00) =
																	((int) CINT(BgL_statusz00_7501)), BUNSPEC);
																BgL_arg4942z00_7529 = BgL_new1278z00_7530;
															}
															return
																BGl_raisez00zz__errorz00(
																((obj_t) BgL_arg4942z00_7529));
														}
												}
											}
									}
								else
									{	/* Unsafe/http.scm 626 */
										goto BgL_case_else1279z00_7511;
									}
							}
						}
					}
				}
			}
		}

	}



/* &http-parse-response */
	obj_t BGl_z62httpzd2parsezd2responsez62zz__httpz00(obj_t BgL_envz00_12411,
		obj_t BgL_ipz00_12412, obj_t BgL_opz00_12413, obj_t BgL_procz00_12414)
	{
		{	/* Unsafe/http.scm 621 */
			{	/* Unsafe/http.scm 622 */
				obj_t BgL_auxz00_17827;
				obj_t BgL_auxz00_17820;

				if (PROCEDUREP(BgL_procz00_12414))
					{	/* Unsafe/http.scm 622 */
						BgL_auxz00_17827 = BgL_procz00_12414;
					}
				else
					{
						obj_t BgL_auxz00_17830;

						BgL_auxz00_17830 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5665z00zz__httpz00,
							BINT(21476L), BGl_string5798z00zz__httpz00,
							BGl_string5799z00zz__httpz00, BgL_procz00_12414);
						FAILURE(BgL_auxz00_17830, BFALSE, BFALSE);
					}
				if (INPUT_PORTP(BgL_ipz00_12412))
					{	/* Unsafe/http.scm 622 */
						BgL_auxz00_17820 = BgL_ipz00_12412;
					}
				else
					{
						obj_t BgL_auxz00_17823;

						BgL_auxz00_17823 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5665z00zz__httpz00,
							BINT(21476L), BGl_string5798z00zz__httpz00,
							BGl_string5763z00zz__httpz00, BgL_ipz00_12412);
						FAILURE(BgL_auxz00_17823, BFALSE, BFALSE);
					}
				return
					BGl_httpzd2parsezd2responsez00zz__httpz00(BgL_auxz00_17820,
					BgL_opz00_12413, BgL_auxz00_17827);
			}
		}

	}



/* http-response-body->port */
	BGL_EXPORTED_DEF obj_t
		BGl_httpzd2responsezd2bodyzd2ze3portz31zz__httpz00(obj_t BgL_ipz00_59,
		obj_t BgL_opz00_60)
	{
		{	/* Unsafe/http.scm 659 */
			return
				BGl_httpzd2parsezd2responsez00zz__httpz00(BgL_ipz00_59, BgL_opz00_60,
				BGl_proc5800z00zz__httpz00);
		}

	}



/* &http-response-body->port */
	obj_t BGl_z62httpzd2responsezd2bodyzd2ze3portz53zz__httpz00(obj_t
		BgL_envz00_12417, obj_t BgL_ipz00_12418, obj_t BgL_opz00_12419)
	{
		{	/* Unsafe/http.scm 659 */
			{	/* Unsafe/http.scm 662 */
				obj_t BgL_auxz00_17843;
				obj_t BgL_auxz00_17836;

				if (OUTPUT_PORTP(BgL_opz00_12419))
					{	/* Unsafe/http.scm 662 */
						BgL_auxz00_17843 = BgL_opz00_12419;
					}
				else
					{
						obj_t BgL_auxz00_17846;

						BgL_auxz00_17846 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5665z00zz__httpz00,
							BINT(22833L), BGl_string5801z00zz__httpz00,
							BGl_string5802z00zz__httpz00, BgL_opz00_12419);
						FAILURE(BgL_auxz00_17846, BFALSE, BFALSE);
					}
				if (INPUT_PORTP(BgL_ipz00_12418))
					{	/* Unsafe/http.scm 662 */
						BgL_auxz00_17836 = BgL_ipz00_12418;
					}
				else
					{
						obj_t BgL_auxz00_17839;

						BgL_auxz00_17839 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5665z00zz__httpz00,
							BINT(22833L), BGl_string5801z00zz__httpz00,
							BGl_string5763z00zz__httpz00, BgL_ipz00_12418);
						FAILURE(BgL_auxz00_17839, BFALSE, BFALSE);
					}
				return
					BGl_httpzd2responsezd2bodyzd2ze3portz31zz__httpz00(BgL_auxz00_17836,
					BgL_auxz00_17843);
			}
		}

	}



/* &parse-body */
	obj_t BGl_z62parsezd2bodyzb0zz__httpz00(obj_t BgL_envz00_12420,
		obj_t BgL_ipz00_12421, obj_t BgL_statuszd2codezd2_12422,
		obj_t BgL_headerz00_12423, obj_t BgL_clenz00_12424, obj_t BgL_tencz00_12425)
	{
		{	/* Unsafe/http.scm 669 */
			if (INPUT_PORTP(BgL_ipz00_12421))
				{	/* Unsafe/http.scm 662 */
					if (CBOOL(BgL_clenz00_12424))
						{	/* Unsafe/http.scm 665 */
							obj_t BgL_pz00_13062;

							{	/* Unsafe/http.scm 665 */
								obj_t BgL_arg4951z00_13063;

								BgL_arg4951z00_13063 =
									BGl_barrierzd2portzd2zz__httpz00(BgL_ipz00_12421,
									BgL_clenz00_12424);
								{	/* Unsafe/http.scm 665 */

									BgL_pz00_13062 =
										BGl_openzd2inputzd2procedurez00zz__r4_ports_6_10_1z00
										(BgL_arg4951z00_13063, BTRUE);
								}
							}
							{	/* Unsafe/http.scm 666 */
								obj_t BgL_zc3z04anonymousza34950ze3z87_13064;

								BgL_zc3z04anonymousza34950ze3z87_13064 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza34950ze3ze5zz__httpz00, (int) (1L),
									(int) (1L));
								PROCEDURE_SET(BgL_zc3z04anonymousza34950ze3z87_13064,
									(int) (0L), BgL_ipz00_12421);
								BGl_inputzd2portzd2closezd2hookzd2setz12z12zz__r4_ports_6_10_1z00
									(BgL_pz00_13062, BgL_zc3z04anonymousza34950ze3z87_13064);
							}
							return BgL_pz00_13062;
						}
					else
						{	/* Unsafe/http.scm 664 */
							return BgL_ipz00_12421;
						}
				}
			else
				{	/* Unsafe/http.scm 663 */

					return
						BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00
						(BGl_string5759z00zz__httpz00, BINT(0L), BINT(0L));
				}
		}

	}



/* &<@anonymous:4950> */
	obj_t BGl_z62zc3z04anonymousza34950ze3ze5zz__httpz00(obj_t BgL_envz00_12426,
		obj_t BgL_inz00_12428)
	{
		{	/* Unsafe/http.scm 666 */
			{	/* Unsafe/http.scm 666 */
				obj_t BgL_ipz00_12427;

				BgL_ipz00_12427 = PROCEDURE_REF(BgL_envz00_12426, (int) (0L));
				return bgl_close_input_port(((obj_t) BgL_ipz00_12427));
			}
		}

	}



/* http-read-crlf */
	BGL_EXPORTED_DEF obj_t BGl_httpzd2readzd2crlfz00zz__httpz00(obj_t BgL_pz00_61)
	{
		{	/* Unsafe/http.scm 675 */
			{
				obj_t BgL_iportz00_7558;

				BgL_iportz00_7558 = BgL_pz00_61;
				{
					obj_t BgL_iportz00_7664;
					long BgL_lastzd2matchzd2_7665;
					long BgL_forwardz00_7666;
					long BgL_bufposz00_7667;
					obj_t BgL_iportz00_7645;
					long BgL_lastzd2matchzd2_7646;
					long BgL_forwardz00_7647;
					long BgL_bufposz00_7648;
					obj_t BgL_iportz00_7620;
					long BgL_lastzd2matchzd2_7621;
					long BgL_forwardz00_7622;
					long BgL_bufposz00_7623;
					obj_t BgL_iportz00_7595;
					long BgL_lastzd2matchzd2_7596;
					long BgL_forwardz00_7597;
					long BgL_bufposz00_7598;

					RGC_START_MATCH(BgL_iportz00_7558);
					{	/* Unsafe/http.scm 677 */
						long BgL_matchz00_7813;

						{	/* Unsafe/http.scm 677 */
							long BgL_arg5102z00_7824;
							long BgL_arg5103z00_7825;

							BgL_arg5102z00_7824 = RGC_BUFFER_FORWARD(BgL_iportz00_7558);
							BgL_arg5103z00_7825 = RGC_BUFFER_BUFPOS(BgL_iportz00_7558);
							BgL_iportz00_7595 = BgL_iportz00_7558;
							BgL_lastzd2matchzd2_7596 = 1L;
							BgL_forwardz00_7597 = BgL_arg5102z00_7824;
							BgL_bufposz00_7598 = BgL_arg5103z00_7825;
						BgL_zc3z04anonymousza34954ze3z87_7599:
							if ((BgL_forwardz00_7597 == BgL_bufposz00_7598))
								{	/* Unsafe/http.scm 677 */
									if (rgc_fill_buffer(BgL_iportz00_7595))
										{	/* Unsafe/http.scm 677 */
											long BgL_arg4957z00_7602;
											long BgL_arg4958z00_7603;

											BgL_arg4957z00_7602 =
												RGC_BUFFER_FORWARD(BgL_iportz00_7595);
											BgL_arg4958z00_7603 =
												RGC_BUFFER_BUFPOS(BgL_iportz00_7595);
											{
												long BgL_bufposz00_17880;
												long BgL_forwardz00_17879;

												BgL_forwardz00_17879 = BgL_arg4957z00_7602;
												BgL_bufposz00_17880 = BgL_arg4958z00_7603;
												BgL_bufposz00_7598 = BgL_bufposz00_17880;
												BgL_forwardz00_7597 = BgL_forwardz00_17879;
												goto BgL_zc3z04anonymousza34954ze3z87_7599;
											}
										}
									else
										{	/* Unsafe/http.scm 677 */
											BgL_matchz00_7813 = BgL_lastzd2matchzd2_7596;
										}
								}
							else
								{	/* Unsafe/http.scm 677 */
									int BgL_curz00_7604;

									BgL_curz00_7604 =
										RGC_BUFFER_GET_CHAR(BgL_iportz00_7595, BgL_forwardz00_7597);
									{	/* Unsafe/http.scm 677 */

										if (((long) (BgL_curz00_7604) == 13L))
											{	/* Unsafe/http.scm 677 */
												BgL_iportz00_7645 = BgL_iportz00_7595;
												BgL_lastzd2matchzd2_7646 = BgL_lastzd2matchzd2_7596;
												BgL_forwardz00_7647 = (1L + BgL_forwardz00_7597);
												BgL_bufposz00_7648 = BgL_bufposz00_7598;
											BgL_zc3z04anonymousza34981ze3z87_7649:
												{	/* Unsafe/http.scm 677 */
													long BgL_newzd2matchzd2_7650;

													RGC_STOP_MATCH(BgL_iportz00_7645,
														BgL_forwardz00_7647);
													BgL_newzd2matchzd2_7650 = 1L;
													if ((BgL_forwardz00_7647 == BgL_bufposz00_7648))
														{	/* Unsafe/http.scm 677 */
															if (rgc_fill_buffer(BgL_iportz00_7645))
																{	/* Unsafe/http.scm 677 */
																	long BgL_arg4984z00_7653;
																	long BgL_arg4985z00_7654;

																	BgL_arg4984z00_7653 =
																		RGC_BUFFER_FORWARD(BgL_iportz00_7645);
																	BgL_arg4985z00_7654 =
																		RGC_BUFFER_BUFPOS(BgL_iportz00_7645);
																	{
																		long BgL_bufposz00_17893;
																		long BgL_forwardz00_17892;

																		BgL_forwardz00_17892 = BgL_arg4984z00_7653;
																		BgL_bufposz00_17893 = BgL_arg4985z00_7654;
																		BgL_bufposz00_7648 = BgL_bufposz00_17893;
																		BgL_forwardz00_7647 = BgL_forwardz00_17892;
																		goto BgL_zc3z04anonymousza34981ze3z87_7649;
																	}
																}
															else
																{	/* Unsafe/http.scm 677 */
																	BgL_matchz00_7813 = BgL_newzd2matchzd2_7650;
																}
														}
													else
														{	/* Unsafe/http.scm 677 */
															int BgL_curz00_7655;

															BgL_curz00_7655 =
																RGC_BUFFER_GET_CHAR(BgL_iportz00_7645,
																BgL_forwardz00_7647);
															{	/* Unsafe/http.scm 677 */

																if (((long) (BgL_curz00_7655) == 10L))
																	{	/* Unsafe/http.scm 677 */
																		long BgL_arg4987z00_7657;

																		BgL_arg4987z00_7657 =
																			(1L + BgL_forwardz00_7647);
																		{	/* Unsafe/http.scm 677 */
																			long BgL_newzd2matchzd2_11857;

																			RGC_STOP_MATCH(BgL_iportz00_7645,
																				BgL_arg4987z00_7657);
																			BgL_newzd2matchzd2_11857 = 0L;
																			BgL_matchz00_7813 =
																				BgL_newzd2matchzd2_11857;
																	}}
																else
																	{	/* Unsafe/http.scm 677 */
																		BgL_matchz00_7813 = BgL_newzd2matchzd2_7650;
																	}
															}
														}
												}
											}
										else
											{	/* Unsafe/http.scm 677 */
												if (((long) (BgL_curz00_7604) == 10L))
													{	/* Unsafe/http.scm 677 */
														long BgL_arg4962z00_7608;

														BgL_arg4962z00_7608 = (1L + BgL_forwardz00_7597);
														{	/* Unsafe/http.scm 677 */
															long BgL_newzd2matchzd2_11789;

															RGC_STOP_MATCH(BgL_iportz00_7595,
																BgL_arg4962z00_7608);
															BgL_newzd2matchzd2_11789 = 0L;
															BgL_matchz00_7813 = BgL_newzd2matchzd2_11789;
													}}
												else
													{	/* Unsafe/http.scm 677 */
														bool_t BgL_test6818z00_17906;

														if (((long) (BgL_curz00_7604) == 9L))
															{	/* Unsafe/http.scm 677 */
																BgL_test6818z00_17906 = ((bool_t) 1);
															}
														else
															{	/* Unsafe/http.scm 677 */
																BgL_test6818z00_17906 =
																	((long) (BgL_curz00_7604) == 32L);
															}
														if (BgL_test6818z00_17906)
															{	/* Unsafe/http.scm 677 */
																BgL_iportz00_7620 = BgL_iportz00_7595;
																BgL_lastzd2matchzd2_7621 =
																	BgL_lastzd2matchzd2_7596;
																BgL_forwardz00_7622 =
																	(1L + BgL_forwardz00_7597);
																BgL_bufposz00_7623 = BgL_bufposz00_7598;
															BgL_zc3z04anonymousza34968ze3z87_7624:
																{	/* Unsafe/http.scm 677 */
																	long BgL_newzd2matchzd2_7625;

																	RGC_STOP_MATCH(BgL_iportz00_7620,
																		BgL_forwardz00_7622);
																	BgL_newzd2matchzd2_7625 = 1L;
																	if (
																		(BgL_forwardz00_7622 == BgL_bufposz00_7623))
																		{	/* Unsafe/http.scm 677 */
																			if (rgc_fill_buffer(BgL_iportz00_7620))
																				{	/* Unsafe/http.scm 677 */
																					long BgL_arg4971z00_7628;
																					long BgL_arg4972z00_7629;

																					BgL_arg4971z00_7628 =
																						RGC_BUFFER_FORWARD
																						(BgL_iportz00_7620);
																					BgL_arg4972z00_7629 =
																						RGC_BUFFER_BUFPOS
																						(BgL_iportz00_7620);
																					{
																						long BgL_bufposz00_17920;
																						long BgL_forwardz00_17919;

																						BgL_forwardz00_17919 =
																							BgL_arg4971z00_7628;
																						BgL_bufposz00_17920 =
																							BgL_arg4972z00_7629;
																						BgL_bufposz00_7623 =
																							BgL_bufposz00_17920;
																						BgL_forwardz00_7622 =
																							BgL_forwardz00_17919;
																						goto
																							BgL_zc3z04anonymousza34968ze3z87_7624;
																					}
																				}
																			else
																				{	/* Unsafe/http.scm 677 */
																					BgL_matchz00_7813 =
																						BgL_newzd2matchzd2_7625;
																				}
																		}
																	else
																		{	/* Unsafe/http.scm 677 */
																			int BgL_curz00_7630;

																			BgL_curz00_7630 =
																				RGC_BUFFER_GET_CHAR(BgL_iportz00_7620,
																				BgL_forwardz00_7622);
																			{	/* Unsafe/http.scm 677 */

																				if (((long) (BgL_curz00_7630) == 13L))
																					{	/* Unsafe/http.scm 677 */
																						long BgL_arg4974z00_7632;

																						BgL_arg4974z00_7632 =
																							(1L + BgL_forwardz00_7622);
																						{
																							long BgL_forwardz00_11814;
																							long BgL_bufposz00_11815;

																							BgL_forwardz00_11814 =
																								BgL_arg4974z00_7632;
																							BgL_bufposz00_11815 =
																								BgL_bufposz00_7623;
																						BgL_statezd28zd21293z00_11813:
																							if (
																								(BgL_forwardz00_11814 ==
																									BgL_bufposz00_11815))
																								{	/* Unsafe/http.scm 677 */
																									if (rgc_fill_buffer
																										(BgL_iportz00_7620))
																										{	/* Unsafe/http.scm 677 */
																											long BgL_arg5005z00_11818;
																											long BgL_arg5006z00_11819;

																											BgL_arg5005z00_11818 =
																												RGC_BUFFER_FORWARD
																												(BgL_iportz00_7620);
																											BgL_arg5006z00_11819 =
																												RGC_BUFFER_BUFPOS
																												(BgL_iportz00_7620);
																											{
																												long
																													BgL_bufposz00_17933;
																												long
																													BgL_forwardz00_17932;
																												BgL_forwardz00_17932 =
																													BgL_arg5005z00_11818;
																												BgL_bufposz00_17933 =
																													BgL_arg5006z00_11819;
																												BgL_bufposz00_11815 =
																													BgL_bufposz00_17933;
																												BgL_forwardz00_11814 =
																													BgL_forwardz00_17932;
																												goto
																													BgL_statezd28zd21293z00_11813;
																											}
																										}
																									else
																										{	/* Unsafe/http.scm 677 */
																											BgL_matchz00_7813 =
																												BgL_newzd2matchzd2_7625;
																										}
																								}
																							else
																								{	/* Unsafe/http.scm 677 */
																									int BgL_curz00_11820;

																									BgL_curz00_11820 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_iportz00_7620,
																										BgL_forwardz00_11814);
																									{	/* Unsafe/http.scm 677 */

																										if (
																											((long) (BgL_curz00_11820)
																												== 10L))
																											{	/* Unsafe/http.scm 677 */
																												long
																													BgL_arg5008z00_11822;
																												BgL_arg5008z00_11822 =
																													(1L +
																													BgL_forwardz00_11814);
																												{	/* Unsafe/http.scm 677 */
																													long
																														BgL_newzd2matchzd2_11832;
																													RGC_STOP_MATCH
																														(BgL_iportz00_7620,
																														BgL_arg5008z00_11822);
																													BgL_newzd2matchzd2_11832
																														= 0L;
																													BgL_matchz00_7813 =
																														BgL_newzd2matchzd2_11832;
																											}}
																										else
																											{	/* Unsafe/http.scm 677 */
																												BgL_matchz00_7813 =
																													BgL_newzd2matchzd2_7625;
																											}
																									}
																								}
																						}
																					}
																				else
																					{	/* Unsafe/http.scm 677 */
																						if (
																							((long) (BgL_curz00_7630) == 10L))
																							{	/* Unsafe/http.scm 677 */
																								long BgL_arg4976z00_7634;

																								BgL_arg4976z00_7634 =
																									(1L + BgL_forwardz00_7622);
																								{	/* Unsafe/http.scm 677 */
																									long BgL_newzd2matchzd2_11837;

																									RGC_STOP_MATCH
																										(BgL_iportz00_7620,
																										BgL_arg4976z00_7634);
																									BgL_newzd2matchzd2_11837 = 0L;
																									BgL_matchz00_7813 =
																										BgL_newzd2matchzd2_11837;
																							}}
																						else
																							{	/* Unsafe/http.scm 677 */
																								bool_t BgL_test6827z00_17945;

																								if (
																									((long) (BgL_curz00_7630) ==
																										9L))
																									{	/* Unsafe/http.scm 677 */
																										BgL_test6827z00_17945 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Unsafe/http.scm 677 */
																										BgL_test6827z00_17945 =
																											(
																											(long) (BgL_curz00_7630)
																											== 32L);
																									}
																								if (BgL_test6827z00_17945)
																									{	/* Unsafe/http.scm 677 */
																										BgL_iportz00_7664 =
																											BgL_iportz00_7620;
																										BgL_lastzd2matchzd2_7665 =
																											BgL_newzd2matchzd2_7625;
																										BgL_forwardz00_7666 =
																											(1L +
																											BgL_forwardz00_7622);
																										BgL_bufposz00_7667 =
																											BgL_bufposz00_7623;
																									BgL_zc3z04anonymousza34989ze3z87_7668:
																										if (
																											(BgL_forwardz00_7666 ==
																												BgL_bufposz00_7667))
																											{	/* Unsafe/http.scm 677 */
																												if (rgc_fill_buffer
																													(BgL_iportz00_7664))
																													{	/* Unsafe/http.scm 677 */
																														long
																															BgL_arg4992z00_7671;
																														long
																															BgL_arg4993z00_7672;
																														BgL_arg4992z00_7671
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_iportz00_7664);
																														BgL_arg4993z00_7672
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_iportz00_7664);
																														{
																															long
																																BgL_bufposz00_17958;
																															long
																																BgL_forwardz00_17957;
																															BgL_forwardz00_17957
																																=
																																BgL_arg4992z00_7671;
																															BgL_bufposz00_17958
																																=
																																BgL_arg4993z00_7672;
																															BgL_bufposz00_7667
																																=
																																BgL_bufposz00_17958;
																															BgL_forwardz00_7666
																																=
																																BgL_forwardz00_17957;
																															goto
																																BgL_zc3z04anonymousza34989ze3z87_7668;
																														}
																													}
																												else
																													{	/* Unsafe/http.scm 677 */
																														BgL_matchz00_7813 =
																															BgL_lastzd2matchzd2_7665;
																													}
																											}
																										else
																											{	/* Unsafe/http.scm 677 */
																												int BgL_curz00_7673;

																												BgL_curz00_7673 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_iportz00_7664,
																													BgL_forwardz00_7666);
																												{	/* Unsafe/http.scm 677 */

																													if (
																														((long)
																															(BgL_curz00_7673)
																															== 13L))
																														{	/* Unsafe/http.scm 677 */
																															long
																																BgL_arg4995z00_7675;
																															BgL_arg4995z00_7675
																																=
																																(1L +
																																BgL_forwardz00_7666);
																															{
																																long
																																	BgL_forwardz00_11873;
																																long
																																	BgL_bufposz00_11874;
																																BgL_forwardz00_11873
																																	=
																																	BgL_arg4995z00_7675;
																																BgL_bufposz00_11874
																																	=
																																	BgL_bufposz00_7667;
																															BgL_statezd28zd21293z00_11872:
																																if (
																																	(BgL_forwardz00_11873
																																		==
																																		BgL_bufposz00_11874))
																																	{	/* Unsafe/http.scm 677 */
																																		if (rgc_fill_buffer(BgL_iportz00_7664))
																																			{	/* Unsafe/http.scm 677 */
																																				long
																																					BgL_arg5005z00_11877;
																																				long
																																					BgL_arg5006z00_11878;
																																				BgL_arg5005z00_11877
																																					=
																																					RGC_BUFFER_FORWARD
																																					(BgL_iportz00_7664);
																																				BgL_arg5006z00_11878
																																					=
																																					RGC_BUFFER_BUFPOS
																																					(BgL_iportz00_7664);
																																				{
																																					long
																																						BgL_bufposz00_17971;
																																					long
																																						BgL_forwardz00_17970;
																																					BgL_forwardz00_17970
																																						=
																																						BgL_arg5005z00_11877;
																																					BgL_bufposz00_17971
																																						=
																																						BgL_arg5006z00_11878;
																																					BgL_bufposz00_11874
																																						=
																																						BgL_bufposz00_17971;
																																					BgL_forwardz00_11873
																																						=
																																						BgL_forwardz00_17970;
																																					goto
																																						BgL_statezd28zd21293z00_11872;
																																				}
																																			}
																																		else
																																			{	/* Unsafe/http.scm 677 */
																																				BgL_matchz00_7813
																																					=
																																					BgL_lastzd2matchzd2_7665;
																																			}
																																	}
																																else
																																	{	/* Unsafe/http.scm 677 */
																																		int
																																			BgL_curz00_11879;
																																		BgL_curz00_11879
																																			=
																																			RGC_BUFFER_GET_CHAR
																																			(BgL_iportz00_7664,
																																			BgL_forwardz00_11873);
																																		{	/* Unsafe/http.scm 677 */

																																			if (
																																				((long)
																																					(BgL_curz00_11879)
																																					==
																																					10L))
																																				{	/* Unsafe/http.scm 677 */
																																					long
																																						BgL_arg5008z00_11881;
																																					BgL_arg5008z00_11881
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_11873);
																																					{	/* Unsafe/http.scm 677 */
																																						long
																																							BgL_newzd2matchzd2_11891;
																																						RGC_STOP_MATCH
																																							(BgL_iportz00_7664,
																																							BgL_arg5008z00_11881);
																																						BgL_newzd2matchzd2_11891
																																							=
																																							0L;
																																						BgL_matchz00_7813
																																							=
																																							BgL_newzd2matchzd2_11891;
																																				}}
																																			else
																																				{	/* Unsafe/http.scm 677 */
																																					BgL_matchz00_7813
																																						=
																																						BgL_lastzd2matchzd2_7665;
																																				}
																																		}
																																	}
																															}
																														}
																													else
																														{	/* Unsafe/http.scm 677 */
																															if (
																																((long)
																																	(BgL_curz00_7673)
																																	== 10L))
																																{	/* Unsafe/http.scm 677 */
																																	long
																																		BgL_arg4997z00_7677;
																																	BgL_arg4997z00_7677
																																		=
																																		(1L +
																																		BgL_forwardz00_7666);
																																	{	/* Unsafe/http.scm 677 */
																																		long
																																			BgL_newzd2matchzd2_11896;
																																		RGC_STOP_MATCH
																																			(BgL_iportz00_7664,
																																			BgL_arg4997z00_7677);
																																		BgL_newzd2matchzd2_11896
																																			= 0L;
																																		BgL_matchz00_7813
																																			=
																																			BgL_newzd2matchzd2_11896;
																																}}
																															else
																																{	/* Unsafe/http.scm 677 */
																																	bool_t
																																		BgL_test6836z00_17983;
																																	if (((long)
																																			(BgL_curz00_7673)
																																			== 9L))
																																		{	/* Unsafe/http.scm 677 */
																																			BgL_test6836z00_17983
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Unsafe/http.scm 677 */
																																			BgL_test6836z00_17983
																																				=
																																				((long)
																																				(BgL_curz00_7673)
																																				== 32L);
																																		}
																																	if (BgL_test6836z00_17983)
																																		{
																																			long
																																				BgL_forwardz00_17989;
																																			BgL_forwardz00_17989
																																				=
																																				(1L +
																																				BgL_forwardz00_7666);
																																			BgL_forwardz00_7666
																																				=
																																				BgL_forwardz00_17989;
																																			goto
																																				BgL_zc3z04anonymousza34989ze3z87_7668;
																																		}
																																	else
																																		{	/* Unsafe/http.scm 677 */
																																			BgL_matchz00_7813
																																				=
																																				BgL_lastzd2matchzd2_7665;
																																		}
																																}
																														}
																												}
																											}
																									}
																								else
																									{	/* Unsafe/http.scm 677 */
																										BgL_matchz00_7813 =
																											BgL_newzd2matchzd2_7625;
																									}
																							}
																					}
																			}
																		}
																}
															}
														else
															{	/* Unsafe/http.scm 677 */
																long BgL_arg4966z00_7612;

																BgL_arg4966z00_7612 =
																	(1L + BgL_forwardz00_7597);
																{	/* Unsafe/http.scm 677 */
																	long BgL_newzd2matchzd2_11796;

																	RGC_STOP_MATCH(BgL_iportz00_7595,
																		BgL_arg4966z00_7612);
																	BgL_newzd2matchzd2_11796 = 1L;
																	BgL_matchz00_7813 = BgL_newzd2matchzd2_11796;
						}}}}}}}
						RGC_SET_FILEPOS(BgL_iportz00_7558);
						switch (BgL_matchz00_7813)
							{
							case 1L:

								{	/* Unsafe/http.scm 681 */
									BgL_z62iozd2parsezd2errorz62_bglt BgL_arg5096z00_7816;

									{	/* Unsafe/http.scm 681 */
										BgL_z62iozd2parsezd2errorz62_bglt BgL_new1297z00_7817;

										{	/* Unsafe/http.scm 681 */
											BgL_z62iozd2parsezd2errorz62_bglt BgL_new1296z00_7822;

											BgL_new1296z00_7822 =
												((BgL_z62iozd2parsezd2errorz62_bglt)
												BOBJECT(GC_MALLOC(sizeof(struct
															BgL_z62iozd2parsezd2errorz62_bgl))));
											{	/* Unsafe/http.scm 681 */
												long BgL_arg5101z00_7823;

												BgL_arg5101z00_7823 =
													BGL_CLASS_NUM
													(BGl_z62iozd2parsezd2errorz62zz__objectz00);
												BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
														BgL_new1296z00_7822), BgL_arg5101z00_7823);
											}
											BgL_new1297z00_7817 = BgL_new1296z00_7822;
										}
										((((BgL_z62exceptionz62_bglt) COBJECT(
														((BgL_z62exceptionz62_bglt) BgL_new1297z00_7817)))->
												BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
										((((BgL_z62exceptionz62_bglt)
													COBJECT(((BgL_z62exceptionz62_bglt)
															BgL_new1297z00_7817)))->BgL_locationz00) =
											((obj_t) BFALSE), BUNSPEC);
										{
											obj_t BgL_auxz00_18004;

											{	/* Unsafe/http.scm 681 */
												obj_t BgL_arg5097z00_7818;

												{	/* Unsafe/http.scm 681 */
													obj_t BgL_arg5098z00_7819;

													{	/* Unsafe/http.scm 681 */
														obj_t BgL_classz00_11950;

														BgL_classz00_11950 =
															BGl_z62iozd2parsezd2errorz62zz__objectz00;
														BgL_arg5098z00_7819 =
															BGL_CLASS_ALL_FIELDS(BgL_classz00_11950);
													}
													BgL_arg5097z00_7818 =
														VECTOR_REF(BgL_arg5098z00_7819, 2L);
												}
												BgL_auxz00_18004 =
													BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
													(BgL_arg5097z00_7818);
											}
											((((BgL_z62exceptionz62_bglt) COBJECT(
															((BgL_z62exceptionz62_bglt)
																BgL_new1297z00_7817)))->BgL_stackz00) =
												((obj_t) BgL_auxz00_18004), BUNSPEC);
										}
										((((BgL_z62errorz62_bglt) COBJECT(
														((BgL_z62errorz62_bglt) BgL_new1297z00_7817)))->
												BgL_procz00) =
											((obj_t) BGl_symbol5803z00zz__httpz00), BUNSPEC);
										((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
															BgL_new1297z00_7817)))->BgL_msgz00) =
											((obj_t) BGl_string5659z00zz__httpz00), BUNSPEC);
										{
											obj_t BgL_auxz00_18014;

											{	/* Unsafe/http.scm 684 */
												obj_t BgL_arg5099z00_7820;

												{	/* Unsafe/http.scm 677 */
													bool_t BgL_test6838z00_18016;

													{	/* Unsafe/http.scm 677 */
														long BgL_arg5089z00_7803;

														BgL_arg5089z00_7803 =
															RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_7558);
														BgL_test6838z00_18016 = (BgL_arg5089z00_7803 == 0L);
													}
													if (BgL_test6838z00_18016)
														{	/* Unsafe/http.scm 677 */
															BgL_arg5099z00_7820 = BEOF;
														}
													else
														{	/* Unsafe/http.scm 677 */
															BgL_arg5099z00_7820 =
																BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_7558));
														}
												}
												BgL_auxz00_18014 =
													BGl_httpzd2parsezd2errorzd2msgzd2zz__httpz00
													(BgL_arg5099z00_7820, BgL_iportz00_7558);
											}
											((((BgL_z62errorz62_bglt) COBJECT(
															((BgL_z62errorz62_bglt) BgL_new1297z00_7817)))->
													BgL_objz00) = ((obj_t) BgL_auxz00_18014), BUNSPEC);
										}
										BgL_arg5096z00_7816 = BgL_new1297z00_7817;
									}
									return
										BGl_raisez00zz__errorz00(((obj_t) BgL_arg5096z00_7816));
								}
								break;
							case 0L:

								return BGl_string5730z00zz__httpz00;
								break;
							default:
								return
									BGl_errorz00zz__errorz00(BGl_string5657z00zz__httpz00,
									BGl_string5658z00zz__httpz00, BINT(BgL_matchz00_7813));
							}
					}
				}
			}
		}

	}



/* &http-read-crlf */
	obj_t BGl_z62httpzd2readzd2crlfz62zz__httpz00(obj_t BgL_envz00_12429,
		obj_t BgL_pz00_12430)
	{
		{	/* Unsafe/http.scm 675 */
			{	/* Unsafe/http.scm 677 */
				obj_t BgL_auxz00_18028;

				if (INPUT_PORTP(BgL_pz00_12430))
					{	/* Unsafe/http.scm 677 */
						BgL_auxz00_18028 = BgL_pz00_12430;
					}
				else
					{
						obj_t BgL_auxz00_18031;

						BgL_auxz00_18031 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5665z00zz__httpz00,
							BINT(23375L), BGl_string5805z00zz__httpz00,
							BGl_string5763z00zz__httpz00, BgL_pz00_12430);
						FAILURE(BgL_auxz00_18031, BFALSE, BFALSE);
					}
				return BGl_httpzd2readzd2crlfz00zz__httpz00(BgL_auxz00_18028);
			}
		}

	}



/* barrier-port */
	obj_t BGl_barrierzd2portzd2zz__httpz00(obj_t BgL_portz00_62,
		obj_t BgL_contentzd2lengthzd2_63)
	{
		{	/* Unsafe/http.scm 740 */
			{	/* Unsafe/http.scm 741 */
				obj_t BgL_contentzd2lengthzd2_12437;

				BgL_contentzd2lengthzd2_12437 =
					BGL_MAKE_UNSAFE_CELL(BgL_contentzd2lengthzd2_63);
				{	/* Unsafe/http.scm 741 */
					obj_t BgL_bufz00_7862;

					{	/* Ieee/string.scm 172 */

						BgL_bufz00_7862 = make_string(8192L, ((unsigned char) ' '));
					}
					{	/* Unsafe/http.scm 742 */
						obj_t BgL_zc3z04anonymousza35104ze3z87_12431;

						BgL_zc3z04anonymousza35104ze3z87_12431 =
							MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza35104ze3ze5zz__httpz00,
							(int) (0L), (int) (3L));
						PROCEDURE_SET(BgL_zc3z04anonymousza35104ze3z87_12431,
							(int) (0L), ((obj_t) BgL_contentzd2lengthzd2_12437));
						PROCEDURE_SET(BgL_zc3z04anonymousza35104ze3z87_12431,
							(int) (1L), BgL_bufz00_7862);
						PROCEDURE_SET(BgL_zc3z04anonymousza35104ze3z87_12431,
							(int) (2L), BgL_portz00_62);
						return BgL_zc3z04anonymousza35104ze3z87_12431;
					}
				}
			}
		}

	}



/* &<@anonymous:5104> */
	obj_t BGl_z62zc3z04anonymousza35104ze3ze5zz__httpz00(obj_t BgL_envz00_12432)
	{
		{	/* Unsafe/http.scm 742 */
			{	/* Unsafe/http.scm 743 */
				obj_t BgL_contentzd2lengthzd2_12433;
				obj_t BgL_bufz00_12434;
				obj_t BgL_portz00_12435;

				BgL_contentzd2lengthzd2_12433 =
					PROCEDURE_REF(BgL_envz00_12432, (int) (0L));
				BgL_bufz00_12434 =
					((obj_t) PROCEDURE_REF(BgL_envz00_12432, (int) (1L)));
				BgL_portz00_12435 =
					((obj_t) PROCEDURE_REF(BgL_envz00_12432, (int) (2L)));
				{	/* Unsafe/http.scm 743 */
					bool_t BgL_test6840z00_18055;

					{	/* Unsafe/http.scm 743 */
						long BgL_n1z00_13066;

						{	/* Unsafe/http.scm 743 */
							obj_t BgL_tmpz00_18056;

							BgL_tmpz00_18056 =
								BGL_UNSAFE_CELL_REF(BgL_contentzd2lengthzd2_12433);
							BgL_n1z00_13066 = BELONG_TO_LONG(BgL_tmpz00_18056);
						}
						BgL_test6840z00_18055 = (BgL_n1z00_13066 > ((long) 0));
					}
					if (BgL_test6840z00_18055)
						{	/* Unsafe/http.scm 744 */
							long BgL_nz00_13067;

							{	/* Unsafe/http.scm 744 */
								long BgL_bz00_13068;

								{	/* Unsafe/http.scm 744 */
									long BgL_xz00_13069;

									{	/* Unsafe/http.scm 744 */
										obj_t BgL_tmpz00_18059;

										BgL_tmpz00_18059 =
											BGL_UNSAFE_CELL_REF(BgL_contentzd2lengthzd2_12433);
										BgL_xz00_13069 = BELONG_TO_LONG(BgL_tmpz00_18059);
									}
									BgL_bz00_13068 = (long) (BgL_xz00_13069);
								}
								if ((8192L < BgL_bz00_13068))
									{	/* Unsafe/http.scm 744 */
										BgL_nz00_13067 = 8192L;
									}
								else
									{	/* Unsafe/http.scm 744 */
										BgL_nz00_13067 = BgL_bz00_13068;
									}
							}
							{	/* Unsafe/http.scm 744 */
								obj_t BgL_mz00_13070;

								BgL_mz00_13070 =
									BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00(BgL_bufz00_12434,
									BINT(BgL_nz00_13067), BgL_portz00_12435);
								{	/* Unsafe/http.scm 745 */

									{	/* Unsafe/http.scm 746 */
										obj_t BgL_auxz00_13071;

										{	/* Unsafe/http.scm 746 */
											long BgL_arg5106z00_13072;

											{	/* Unsafe/http.scm 746 */
												long BgL_tmpz00_18066;

												BgL_tmpz00_18066 = (long) CINT(BgL_mz00_13070);
												BgL_arg5106z00_13072 = (long) (BgL_tmpz00_18066);
											}
											{	/* Unsafe/http.scm 746 */
												long BgL_res5538z00_13073;

												{	/* Unsafe/http.scm 746 */
													long BgL_za71za7_13074;

													{	/* Unsafe/http.scm 746 */
														obj_t BgL_tmpz00_18069;

														BgL_tmpz00_18069 =
															BGL_UNSAFE_CELL_REF
															(BgL_contentzd2lengthzd2_12433);
														BgL_za71za7_13074 =
															BELONG_TO_LONG(BgL_tmpz00_18069);
													}
													{	/* Unsafe/http.scm 746 */
														long BgL_tmpz00_18071;

														BgL_tmpz00_18071 =
															(BgL_za71za7_13074 - BgL_arg5106z00_13072);
														BgL_res5538z00_13073 = (long) (BgL_tmpz00_18071);
												}}
												BgL_auxz00_13071 = make_belong(BgL_res5538z00_13073);
										}}
										BGL_UNSAFE_CELL_SET(BgL_contentzd2lengthzd2_12433,
											BgL_auxz00_13071);
									}
									if (((long) CINT(BgL_mz00_13070) < 8192L))
										{	/* Unsafe/http.scm 747 */
											return
												c_substring(BgL_bufz00_12434, 0L,
												(long) CINT(BgL_mz00_13070));
										}
									else
										{	/* Unsafe/http.scm 747 */
											return BgL_bufz00_12434;
										}
								}
							}
						}
					else
						{	/* Unsafe/http.scm 743 */
							return BFALSE;
						}
				}
			}
		}

	}



/* http-chunks->procedure */
	BGL_EXPORTED_DEF obj_t BGl_httpzd2chunkszd2ze3procedureze3zz__httpz00(obj_t
		BgL_ipz00_64)
	{
		{	/* Unsafe/http.scm 754 */
			{	/* Unsafe/http.scm 755 */
				obj_t BgL_statez00_12455;

				BgL_statez00_12455 = BGL_MAKE_UNSAFE_CELL(BGl_symbol5806z00zz__httpz00);
				{	/* Unsafe/http.scm 755 */
					obj_t BgL_sza7za7_12456;

					BgL_sza7za7_12456 = BGL_MAKE_UNSAFE_CELL(BINT(0L));
					{	/* Unsafe/http.scm 757 */
						obj_t BgL_bufferz00_7877;

						BgL_bufferz00_7877 = make_string(512L, ((unsigned char) '\000'));
						{	/* Unsafe/http.scm 758 */

							{	/* Unsafe/http.scm 759 */
								obj_t BgL_zc3z04anonymousza35109ze3z87_12438;

								BgL_zc3z04anonymousza35109ze3z87_12438 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza35109ze3ze5zz__httpz00, (int) (0L),
									(int) (5L));
								PROCEDURE_SET(BgL_zc3z04anonymousza35109ze3z87_12438,
									(int) (0L), ((obj_t) BgL_statez00_12455));
								PROCEDURE_SET(BgL_zc3z04anonymousza35109ze3z87_12438,
									(int) (1L), BgL_ipz00_64);
								PROCEDURE_SET(BgL_zc3z04anonymousza35109ze3z87_12438,
									(int) (2L), ((obj_t) BgL_sza7za7_12456));
								PROCEDURE_SET(BgL_zc3z04anonymousza35109ze3z87_12438,
									(int) (3L), BgL_bufferz00_7877);
								PROCEDURE_SET(BgL_zc3z04anonymousza35109ze3z87_12438,
									(int) (4L), BINT(512L));
								return BgL_zc3z04anonymousza35109ze3z87_12438;
							}
						}
					}
				}
			}
		}

	}



/* &http-chunks->procedure */
	obj_t BGl_z62httpzd2chunkszd2ze3procedurez81zz__httpz00(obj_t
		BgL_envz00_12439, obj_t BgL_ipz00_12440)
	{
		{	/* Unsafe/http.scm 754 */
			{	/* Unsafe/http.scm 755 */
				obj_t BgL_auxz00_18098;

				if (INPUT_PORTP(BgL_ipz00_12440))
					{	/* Unsafe/http.scm 755 */
						BgL_auxz00_18098 = BgL_ipz00_12440;
					}
				else
					{
						obj_t BgL_auxz00_18101;

						BgL_auxz00_18101 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5665z00zz__httpz00,
							BINT(26324L), BGl_string5808z00zz__httpz00,
							BGl_string5763z00zz__httpz00, BgL_ipz00_12440);
						FAILURE(BgL_auxz00_18101, BFALSE, BFALSE);
					}
				return BGl_httpzd2chunkszd2ze3procedureze3zz__httpz00(BgL_auxz00_18098);
			}
		}

	}



/* &<@anonymous:5109> */
	obj_t BGl_z62zc3z04anonymousza35109ze3ze5zz__httpz00(obj_t BgL_envz00_12441)
	{
		{	/* Unsafe/http.scm 759 */
			{	/* Unsafe/http.scm 761 */
				obj_t BgL_statez00_12442;
				obj_t BgL_ipz00_12443;
				obj_t BgL_sza7za7_12444;
				obj_t BgL_bufferz00_12445;
				long BgL_bufsza7za7_12446;

				BgL_statez00_12442 = PROCEDURE_REF(BgL_envz00_12441, (int) (0L));
				BgL_ipz00_12443 = ((obj_t) PROCEDURE_REF(BgL_envz00_12441, (int) (1L)));
				BgL_sza7za7_12444 = PROCEDURE_REF(BgL_envz00_12441, (int) (2L));
				BgL_bufferz00_12445 =
					((obj_t) PROCEDURE_REF(BgL_envz00_12441, (int) (3L)));
				BgL_bufsza7za7_12446 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_12441, (int) (4L)));
				{

				BgL_loopz00_13075:
					{	/* Unsafe/http.scm 761 */
						obj_t BgL_casezd2valuezd2_13076;

						BgL_casezd2valuezd2_13076 = BGL_UNSAFE_CELL_REF(BgL_statez00_12442);
						if ((BgL_casezd2valuezd2_13076 == BGl_symbol5809z00zz__httpz00))
							{	/* Unsafe/http.scm 761 */
								return BFALSE;
							}
						else
							{	/* Unsafe/http.scm 761 */
								if ((BgL_casezd2valuezd2_13076 == BGl_symbol5811z00zz__httpz00))
									{	/* Unsafe/http.scm 765 */
										obj_t BgL_lz00_13077;

										BgL_lz00_13077 =
											BGl_httpzd2readzd2linez00zz__httpz00(BgL_ipz00_12443);
										if (EOF_OBJECTP(BgL_lz00_13077))
											{	/* Unsafe/http.scm 767 */
												{	/* Unsafe/http.scm 768 */
													obj_t BgL_auxz00_13078;

													BgL_auxz00_13078 = BGl_symbol5809z00zz__httpz00;
													BGL_UNSAFE_CELL_SET(BgL_statez00_12442,
														BgL_auxz00_13078);
												}
												return BGl_string5759z00zz__httpz00;
											}
										else
											{	/* Unsafe/http.scm 770 */
												bool_t BgL_test6847z00_18126;

												{	/* Unsafe/http.scm 770 */
													bool_t BgL_test6848z00_18127;

													{	/* Unsafe/http.scm 770 */
														long BgL_l1z00_13079;

														BgL_l1z00_13079 =
															STRING_LENGTH(((obj_t) BgL_lz00_13077));
														if ((BgL_l1z00_13079 == 2L))
															{	/* Unsafe/http.scm 770 */
																int BgL_arg5257z00_13080;

																{	/* Unsafe/http.scm 770 */
																	char *BgL_auxz00_18135;
																	char *BgL_tmpz00_18132;

																	BgL_auxz00_18135 =
																		BSTRING_TO_STRING
																		(BGl_string5730z00zz__httpz00);
																	BgL_tmpz00_18132 =
																		BSTRING_TO_STRING(((obj_t) BgL_lz00_13077));
																	BgL_arg5257z00_13080 =
																		memcmp(BgL_tmpz00_18132, BgL_auxz00_18135,
																		BgL_l1z00_13079);
																}
																BgL_test6848z00_18127 =
																	((long) (BgL_arg5257z00_13080) == 0L);
															}
														else
															{	/* Unsafe/http.scm 770 */
																BgL_test6848z00_18127 = ((bool_t) 0);
															}
													}
													if (BgL_test6848z00_18127)
														{	/* Unsafe/http.scm 770 */
															BgL_test6847z00_18126 = ((bool_t) 1);
														}
													else
														{	/* Unsafe/http.scm 770 */
															long BgL_l1z00_13081;

															BgL_l1z00_13081 =
																STRING_LENGTH(((obj_t) BgL_lz00_13077));
															if ((BgL_l1z00_13081 == 1L))
																{	/* Unsafe/http.scm 770 */
																	int BgL_arg5257z00_13082;

																	{	/* Unsafe/http.scm 770 */
																		char *BgL_auxz00_18147;
																		char *BgL_tmpz00_18144;

																		BgL_auxz00_18147 =
																			BSTRING_TO_STRING
																			(BGl_string5813z00zz__httpz00);
																		BgL_tmpz00_18144 =
																			BSTRING_TO_STRING(((obj_t)
																				BgL_lz00_13077));
																		BgL_arg5257z00_13082 =
																			memcmp(BgL_tmpz00_18144, BgL_auxz00_18147,
																			BgL_l1z00_13081);
																	}
																	BgL_test6847z00_18126 =
																		((long) (BgL_arg5257z00_13082) == 0L);
																}
															else
																{	/* Unsafe/http.scm 770 */
																	BgL_test6847z00_18126 = ((bool_t) 0);
																}
														}
												}
												if (BgL_test6847z00_18126)
													{	/* Unsafe/http.scm 770 */
														{	/* Unsafe/http.scm 771 */
															obj_t BgL_auxz00_13083;

															BgL_auxz00_13083 = BGl_symbol5809z00zz__httpz00;
															BGL_UNSAFE_CELL_SET(BgL_statez00_12442,
																BgL_auxz00_13083);
														}
														return BgL_lz00_13077;
													}
												else
													{	/* Unsafe/http.scm 770 */
														return BgL_lz00_13077;
													}
											}
									}
								else
									{	/* Unsafe/http.scm 761 */
										if (
											(BgL_casezd2valuezd2_13076 ==
												BGl_symbol5814z00zz__httpz00))
											{	/* Unsafe/http.scm 761 */
												if (
													((long) CINT(BGL_UNSAFE_CELL_REF(BgL_sza7za7_12444))
														== 0L))
													{	/* Unsafe/http.scm 777 */
														BGl_httpzd2readzd2crlfz00zz__httpz00
															(BgL_ipz00_12443);
														{	/* Unsafe/http.scm 779 */
															obj_t BgL_auxz00_13084;

															BgL_auxz00_13084 = BGl_symbol5806z00zz__httpz00;
															BGL_UNSAFE_CELL_SET(BgL_statez00_12442,
																BgL_auxz00_13084);
														}
														goto BgL_loopz00_13075;
													}
												else
													{	/* Unsafe/http.scm 777 */
														if (
															((long)
																CINT(BGL_UNSAFE_CELL_REF(BgL_sza7za7_12444)) <
																BgL_bufsza7za7_12446))
															{	/* Unsafe/http.scm 782 */
																obj_t BgL_sz00_13085;

																BgL_sz00_13085 =
																	BGl_readzd2charszd2zz__r4_input_6_10_2z00
																	(BGL_UNSAFE_CELL_REF(BgL_sza7za7_12444),
																	BgL_ipz00_12443);
																{	/* Unsafe/http.scm 783 */
																	obj_t BgL_auxz00_13086;

																	BgL_auxz00_13086 =
																		SUBFX(BGL_UNSAFE_CELL_REF
																		(BgL_sza7za7_12444),
																		BINT(STRING_LENGTH(((obj_t)
																					BgL_sz00_13085))));
																	BGL_UNSAFE_CELL_SET(BgL_sza7za7_12444,
																		BgL_auxz00_13086);
																}
																return BgL_sz00_13085;
															}
														else
															{	/* Unsafe/http.scm 786 */
																obj_t BgL_sz00_13087;

																BgL_sz00_13087 =
																	BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00
																	(BgL_bufferz00_12445, BINT(512L),
																	BgL_ipz00_12443);
																{	/* Unsafe/http.scm 787 */
																	obj_t BgL_auxz00_13088;

																	BgL_auxz00_13088 =
																		SUBFX(BGL_UNSAFE_CELL_REF
																		(BgL_sza7za7_12444), BgL_sz00_13087);
																	BGL_UNSAFE_CELL_SET(BgL_sza7za7_12444,
																		BgL_auxz00_13088);
																}
																if (
																	((long) CINT(BgL_sz00_13087) ==
																		BgL_bufsza7za7_12446))
																	{	/* Unsafe/http.scm 788 */
																		return BgL_bufferz00_12445;
																	}
																else
																	{	/* Unsafe/http.scm 788 */
																		return
																			c_substring(BgL_bufferz00_12445, 0L,
																			(long) CINT(BgL_sz00_13087));
											}}}}
										else
											{	/* Unsafe/http.scm 761 */
												{	/* Unsafe/http.scm 792 */
													obj_t BgL_auxz00_13089;

													BgL_auxz00_13089 =
														BGl_z62zc3z04anonymousza31821ze3ze5zz__httpz00
														(BGl_za2chunkzd2siza7ezd2grammarza2za7zz__httpz00,
														BgL_ipz00_12443, BFALSE);
													BGL_UNSAFE_CELL_SET(BgL_sza7za7_12444,
														BgL_auxz00_13089);
												}
												if (
													((long) CINT(BGL_UNSAFE_CELL_REF(BgL_sza7za7_12444)) >
														0L))
													{	/* Unsafe/http.scm 793 */
														{	/* Unsafe/http.scm 796 */
															obj_t BgL_auxz00_13090;

															BgL_auxz00_13090 = BGl_symbol5814z00zz__httpz00;
															BGL_UNSAFE_CELL_SET(BgL_statez00_12442,
																BgL_auxz00_13090);
														}
														goto BgL_loopz00_13075;
													}
												else
													{	/* Unsafe/http.scm 793 */
														{	/* Unsafe/http.scm 800 */
															obj_t BgL_auxz00_13091;

															BgL_auxz00_13091 = BGl_symbol5811z00zz__httpz00;
															BGL_UNSAFE_CELL_SET(BgL_statez00_12442,
																BgL_auxz00_13091);
														}
														goto BgL_loopz00_13075;
													}
											}
									}
							}
					}
				}
			}
		}

	}



/* http-chunks->port */
	BGL_EXPORTED_DEF obj_t BGl_httpzd2chunkszd2ze3portze3zz__httpz00(obj_t
		BgL_ipz00_65)
	{
		{	/* Unsafe/http.scm 806 */
			{	/* Unsafe/http.scm 807 */
				obj_t BgL_ip2z00_7898;

				{	/* Unsafe/http.scm 807 */
					obj_t BgL_arg5124z00_7903;

					BgL_arg5124z00_7903 =
						BGl_httpzd2chunkszd2ze3procedureze3zz__httpz00(BgL_ipz00_65);
					{	/* Ieee/port.scm 474 */

						BgL_ip2z00_7898 =
							BGl_openzd2inputzd2procedurez00zz__r4_ports_6_10_1z00
							(BgL_arg5124z00_7903, BTRUE);
					}
				}
				{	/* Unsafe/http.scm 808 */
					obj_t BgL_zc3z04anonymousza35123ze3z87_12459;

					BgL_zc3z04anonymousza35123ze3z87_12459 =
						MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza35123ze3ze5zz__httpz00,
						(int) (1L), (int) (1L));
					PROCEDURE_SET(BgL_zc3z04anonymousza35123ze3z87_12459,
						(int) (0L), BgL_ipz00_65);
					BGl_inputzd2portzd2closezd2hookzd2setz12z12zz__r4_ports_6_10_1z00
						(BgL_ipz00_65, BgL_zc3z04anonymousza35123ze3z87_12459);
				}
				return BgL_ip2z00_7898;
			}
		}

	}



/* &http-chunks->port */
	obj_t BGl_z62httpzd2chunkszd2ze3portz81zz__httpz00(obj_t BgL_envz00_12460,
		obj_t BgL_ipz00_12461)
	{
		{	/* Unsafe/http.scm 806 */
			{	/* Unsafe/http.scm 807 */
				obj_t BgL_auxz00_18190;

				if (INPUT_PORTP(BgL_ipz00_12461))
					{	/* Unsafe/http.scm 807 */
						BgL_auxz00_18190 = BgL_ipz00_12461;
					}
				else
					{
						obj_t BgL_auxz00_18193;

						BgL_auxz00_18193 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5665z00zz__httpz00,
							BINT(27661L), BGl_string5816z00zz__httpz00,
							BGl_string5763z00zz__httpz00, BgL_ipz00_12461);
						FAILURE(BgL_auxz00_18193, BFALSE, BFALSE);
					}
				return BGl_httpzd2chunkszd2ze3portze3zz__httpz00(BgL_auxz00_18190);
			}
		}

	}



/* &<@anonymous:5123> */
	obj_t BGl_z62zc3z04anonymousza35123ze3ze5zz__httpz00(obj_t BgL_envz00_12462,
		obj_t BgL_inz00_12464)
	{
		{	/* Unsafe/http.scm 808 */
			{	/* Unsafe/http.scm 808 */
				obj_t BgL_ipz00_12463;

				BgL_ipz00_12463 = ((obj_t) PROCEDURE_REF(BgL_envz00_12462, (int) (0L)));
				return bgl_close_input_port(BgL_ipz00_12463);
			}
		}

	}



/* http-send-chunks */
	BGL_EXPORTED_DEF obj_t BGl_httpzd2sendzd2chunksz00zz__httpz00(obj_t
		BgL_ipz00_66, obj_t BgL_opz00_67, bool_t BgL_trailerz00_68)
	{
		{	/* Unsafe/http.scm 814 */
			{

			BgL_zc3z04anonymousza35125ze3z87_7907:
				{	/* Unsafe/http.scm 816 */
					obj_t BgL_sza7za7_7908;

					BgL_sza7za7_7908 =
						BGl_z62zc3z04anonymousza31821ze3ze5zz__httpz00
						(BGl_za2chunkzd2siza7ezd2grammarza2za7zz__httpz00, BgL_ipz00_66,
						BgL_opz00_67);
					if (((long) CINT(BgL_sza7za7_7908) > 0L))
						{	/* Unsafe/http.scm 817 */
							{
								obj_t BgL_sza7za7_7911;

								BgL_sza7za7_7911 = BgL_sza7za7_7908;
							BgL_zc3z04anonymousza35127ze3z87_7912:
								if (((long) CINT(BgL_sza7za7_7911) > 0L))
									{	/* Unsafe/http.scm 822 */
										long BgL_sz00_7914;

										{	/* Ieee/input.scm 85 */

											BgL_sz00_7914 =
												BGl_sendzd2charszd2zz__r4_input_6_10_2z00(BgL_ipz00_66,
												BgL_opz00_67, BgL_sza7za7_7911, BINT((-1L)));
										}
										if ((BgL_sz00_7914 > 0L))
											{	/* Unsafe/http.scm 824 */
												long BgL_arg5130z00_7916;

												BgL_arg5130z00_7916 =
													((long) CINT(BgL_sza7za7_7911) - BgL_sz00_7914);
												{
													obj_t BgL_sza7za7_18219;

													BgL_sza7za7_18219 = BINT(BgL_arg5130z00_7916);
													BgL_sza7za7_7911 = BgL_sza7za7_18219;
													goto BgL_zc3z04anonymousza35127ze3z87_7912;
												}
											}
										else
											{	/* Unsafe/http.scm 823 */
												((bool_t) 0);
											}
									}
								else
									{	/* Unsafe/http.scm 821 */
										((bool_t) 0);
									}
							}
							bgl_flush_output_port(BgL_opz00_67);
							{	/* Unsafe/http.scm 826 */
								obj_t BgL_sz00_7922;

								BgL_sz00_7922 =
									BGl_httpzd2readzd2crlfz00zz__httpz00(BgL_ipz00_66);
								bgl_display_obj(BgL_sz00_7922, BgL_opz00_67);
								goto BgL_zc3z04anonymousza35125ze3z87_7907;
							}
						}
					else
						{	/* Unsafe/http.scm 817 */
							if (BgL_trailerz00_68)
								{

								BgL_zc3z04anonymousza35131ze3z87_7924:
									{	/* Unsafe/http.scm 832 */
										obj_t BgL_lz00_7925;

										BgL_lz00_7925 =
											BGl_httpzd2readzd2linez00zz__httpz00(BgL_ipz00_66);
										if (EOF_OBJECTP(BgL_lz00_7925))
											{	/* Unsafe/http.scm 833 */
												return bgl_flush_output_port(BgL_opz00_67);
											}
										else
											{	/* Unsafe/http.scm 833 */
												bgl_display_obj(BgL_lz00_7925, BgL_opz00_67);
												if ((STRING_LENGTH(((obj_t) BgL_lz00_7925)) > 2L))
													{	/* Unsafe/http.scm 837 */
														goto BgL_zc3z04anonymousza35131ze3z87_7924;
													}
												else
													{	/* Unsafe/http.scm 837 */
														return bgl_flush_output_port(BgL_opz00_67);
													}
											}
									}
								}
							else
								{	/* Unsafe/http.scm 830 */
									bgl_display_obj(BGl_httpzd2readzd2linez00zz__httpz00
										(BgL_ipz00_66), BgL_opz00_67);
									return bgl_flush_output_port(BgL_opz00_67);
								}
						}
				}
			}
		}

	}



/* &http-send-chunks */
	obj_t BGl_z62httpzd2sendzd2chunksz62zz__httpz00(obj_t BgL_envz00_12465,
		obj_t BgL_ipz00_12466, obj_t BgL_opz00_12467, obj_t BgL_trailerz00_12468)
	{
		{	/* Unsafe/http.scm 814 */
			{	/* Unsafe/http.scm 816 */
				obj_t BgL_auxz00_18245;
				obj_t BgL_auxz00_18238;

				if (OUTPUT_PORTP(BgL_opz00_12467))
					{	/* Unsafe/http.scm 816 */
						BgL_auxz00_18245 = BgL_opz00_12467;
					}
				else
					{
						obj_t BgL_auxz00_18248;

						BgL_auxz00_18248 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5665z00zz__httpz00,
							BINT(28128L), BGl_string5817z00zz__httpz00,
							BGl_string5802z00zz__httpz00, BgL_opz00_12467);
						FAILURE(BgL_auxz00_18248, BFALSE, BFALSE);
					}
				if (INPUT_PORTP(BgL_ipz00_12466))
					{	/* Unsafe/http.scm 816 */
						BgL_auxz00_18238 = BgL_ipz00_12466;
					}
				else
					{
						obj_t BgL_auxz00_18241;

						BgL_auxz00_18241 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5665z00zz__httpz00,
							BINT(28128L), BGl_string5817z00zz__httpz00,
							BGl_string5763z00zz__httpz00, BgL_ipz00_12466);
						FAILURE(BgL_auxz00_18241, BFALSE, BFALSE);
					}
				return
					BGl_httpzd2sendzd2chunksz00zz__httpz00(BgL_auxz00_18238,
					BgL_auxz00_18245, CBOOL(BgL_trailerz00_12468));
			}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__httpz00(void)
	{
		{	/* Unsafe/http.scm 15 */
			{	/* Unsafe/http.scm 54 */
				obj_t BgL_arg5140z00_7936;
				obj_t BgL_arg5141z00_7937;

				{	/* Unsafe/http.scm 54 */
					obj_t BgL_v1443z00_7953;

					BgL_v1443z00_7953 = create_vector(0L);
					BgL_arg5140z00_7936 = BgL_v1443z00_7953;
				}
				{	/* Unsafe/http.scm 54 */
					obj_t BgL_v1444z00_7954;

					BgL_v1444z00_7954 = create_vector(0L);
					BgL_arg5141z00_7937 = BgL_v1444z00_7954;
				}
				BGl_z62httpzd2errorzb0zz__httpz00 =
					BGl_registerzd2classz12zc0zz__objectz00(BGl_symbol5821z00zz__httpz00,
					BGl_symbol5823z00zz__httpz00, BGl_z62errorz62zz__objectz00, 19506L,
					BGl_proc5820z00zz__httpz00, BGl_proc5819z00zz__httpz00, BFALSE,
					BGl_proc5818z00zz__httpz00, BFALSE, BgL_arg5140z00_7936,
					BgL_arg5141z00_7937);
			}
			{	/* Unsafe/http.scm 56 */
				obj_t BgL_arg5150z00_7961;
				obj_t BgL_arg5151z00_7962;

				{	/* Unsafe/http.scm 56 */
					obj_t BgL_v1445z00_7978;

					BgL_v1445z00_7978 = create_vector(0L);
					BgL_arg5150z00_7961 = BgL_v1445z00_7978;
				}
				{	/* Unsafe/http.scm 56 */
					obj_t BgL_v1446z00_7979;

					BgL_v1446z00_7979 = create_vector(0L);
					BgL_arg5151z00_7962 = BgL_v1446z00_7979;
				}
				BGl_z62httpzd2redirectionzd2errorz62zz__httpz00 =
					BGl_registerzd2classz12zc0zz__objectz00(BGl_symbol5828z00zz__httpz00,
					BGl_symbol5823z00zz__httpz00, BGl_z62httpzd2errorzb0zz__httpz00,
					5996L, BGl_proc5827z00zz__httpz00, BGl_proc5826z00zz__httpz00, BFALSE,
					BGl_proc5825z00zz__httpz00, BFALSE, BgL_arg5150z00_7961,
					BgL_arg5151z00_7962);
			}
			{	/* Unsafe/http.scm 57 */
				obj_t BgL_arg5160z00_7986;
				obj_t BgL_arg5161z00_7987;

				{	/* Unsafe/http.scm 57 */
					obj_t BgL_v1447z00_8004;

					BgL_v1447z00_8004 = create_vector(1L);
					VECTOR_SET(BgL_v1447z00_8004, 0L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol5832z00zz__httpz00, BGl_proc5831z00zz__httpz00,
							BGl_proc5830z00zz__httpz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol5834z00zz__httpz00));
					BgL_arg5160z00_7986 = BgL_v1447z00_8004;
				}
				{	/* Unsafe/http.scm 57 */
					obj_t BgL_v1448z00_8015;

					BgL_v1448z00_8015 = create_vector(0L);
					BgL_arg5161z00_7987 = BgL_v1448z00_8015;
				}
				BGl_z62httpzd2statuszd2errorz62zz__httpz00 =
					BGl_registerzd2classz12zc0zz__objectz00(BGl_symbol5839z00zz__httpz00,
					BGl_symbol5823z00zz__httpz00, BGl_z62httpzd2errorzb0zz__httpz00,
					8838L, BGl_proc5838z00zz__httpz00, BGl_proc5837z00zz__httpz00, BFALSE,
					BGl_proc5836z00zz__httpz00, BFALSE, BgL_arg5160z00_7986,
					BgL_arg5161z00_7987);
			}
			{	/* Unsafe/http.scm 60 */
				obj_t BgL_arg5175z00_8022;
				obj_t BgL_arg5176z00_8023;

				{	/* Unsafe/http.scm 60 */
					obj_t BgL_v1449z00_8038;

					BgL_v1449z00_8038 = create_vector(2L);
					VECTOR_SET(BgL_v1449z00_8038, 0L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol5843z00zz__httpz00, BGl_proc5842z00zz__httpz00,
							BGl_proc5841z00zz__httpz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol5844z00zz__httpz00));
					VECTOR_SET(BgL_v1449z00_8038, 1L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol5847z00zz__httpz00, BGl_proc5846z00zz__httpz00,
							BGl_proc5845z00zz__httpz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol5849z00zz__httpz00));
					BgL_arg5175z00_8022 = BgL_v1449z00_8038;
				}
				{	/* Unsafe/http.scm 60 */
					obj_t BgL_v1450z00_8059;

					BgL_v1450z00_8059 = create_vector(0L);
					BgL_arg5176z00_8023 = BgL_v1450z00_8059;
				}
				return (BGl_z62httpzd2redirectionzb0zz__httpz00 =
					BGl_registerzd2classz12zc0zz__objectz00(BGl_symbol5854z00zz__httpz00,
						BGl_symbol5823z00zz__httpz00, BGl_z62exceptionz62zz__objectz00,
						45480L, BGl_proc5853z00zz__httpz00, BGl_proc5852z00zz__httpz00,
						BFALSE, BGl_proc5851z00zz__httpz00, BFALSE, BgL_arg5175z00_8022,
						BgL_arg5176z00_8023), BUNSPEC);
			}
		}

	}



/* &<@anonymous:5181> */
	obj_t BGl_z62zc3z04anonymousza35181ze3ze5zz__httpz00(obj_t BgL_envz00_12487,
		obj_t BgL_new1074z00_12488)
	{
		{	/* Unsafe/http.scm 60 */
			{
				BgL_z62httpzd2redirectionzb0_bglt BgL_auxz00_18272;

				((((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt)
									((BgL_z62httpzd2redirectionzb0_bglt)
										BgL_new1074z00_12488))))->BgL_fnamez00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62exceptionz62_bglt)
							COBJECT(((BgL_z62exceptionz62_bglt) (
										(BgL_z62httpzd2redirectionzb0_bglt)
										BgL_new1074z00_12488))))->BgL_locationz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62exceptionz62_bglt)
							COBJECT(((BgL_z62exceptionz62_bglt) (
										(BgL_z62httpzd2redirectionzb0_bglt)
										BgL_new1074z00_12488))))->BgL_stackz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				{
					obj_t BgL_auxz00_18282;

					{	/* Unsafe/http.scm 60 */
						obj_t BgL_arg5247z00_13093;

						BgL_arg5247z00_13093 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_auxz00_18282 = BGL_ENV_CURRENT_INPUT_PORT(BgL_arg5247z00_13093);
					}
					((((BgL_z62httpzd2redirectionzb0_bglt) COBJECT(
									((BgL_z62httpzd2redirectionzb0_bglt) BgL_new1074z00_12488)))->
							BgL_portz00) = ((obj_t) BgL_auxz00_18282), BUNSPEC);
				}
				((((BgL_z62httpzd2redirectionzb0_bglt) COBJECT(
								((BgL_z62httpzd2redirectionzb0_bglt) BgL_new1074z00_12488)))->
						BgL_urlz00) = ((obj_t) BGl_string5759z00zz__httpz00), BUNSPEC);
				BgL_auxz00_18272 =
					((BgL_z62httpzd2redirectionzb0_bglt) BgL_new1074z00_12488);
				return ((obj_t) BgL_auxz00_18272);
			}
		}

	}



/* &lambda5179 */
	BgL_z62httpzd2redirectionzb0_bglt BGl_z62lambda5179z62zz__httpz00(obj_t
		BgL_envz00_12489)
	{
		{	/* Unsafe/http.scm 60 */
			{	/* Unsafe/http.scm 60 */
				BgL_z62httpzd2redirectionzb0_bglt BgL_new1073z00_13094;

				BgL_new1073z00_13094 =
					((BgL_z62httpzd2redirectionzb0_bglt) BOBJECT(GC_MALLOC(sizeof(struct
								BgL_z62httpzd2redirectionzb0_bgl))));
				{	/* Unsafe/http.scm 60 */
					long BgL_arg5180z00_13095;

					BgL_arg5180z00_13095 =
						BGL_CLASS_NUM(BGl_z62httpzd2redirectionzb0zz__httpz00);
					BGL_OBJECT_CLASS_NUM_SET(
						((BgL_objectz00_bglt) BgL_new1073z00_13094), BgL_arg5180z00_13095);
				}
				return BgL_new1073z00_13094;
			}
		}

	}



/* &lambda5177 */
	BgL_z62httpzd2redirectionzb0_bglt BGl_z62lambda5177z62zz__httpz00(obj_t
		BgL_envz00_12490, obj_t BgL_fname1068z00_12491,
		obj_t BgL_location1069z00_12492, obj_t BgL_stack1070z00_12493,
		obj_t BgL_port1071z00_12494, obj_t BgL_url1072z00_12495)
	{
		{	/* Unsafe/http.scm 60 */
			{	/* Unsafe/http.scm 60 */
				BgL_z62httpzd2redirectionzb0_bglt BgL_new1339z00_13098;

				{	/* Unsafe/http.scm 60 */
					BgL_z62httpzd2redirectionzb0_bglt BgL_new1338z00_13099;

					BgL_new1338z00_13099 =
						((BgL_z62httpzd2redirectionzb0_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_z62httpzd2redirectionzb0_bgl))));
					{	/* Unsafe/http.scm 60 */
						long BgL_arg5178z00_13100;

						BgL_arg5178z00_13100 =
							BGL_CLASS_NUM(BGl_z62httpzd2redirectionzb0zz__httpz00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1338z00_13099),
							BgL_arg5178z00_13100);
					}
					BgL_new1339z00_13098 = BgL_new1338z00_13099;
				}
				((((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt) BgL_new1339z00_13098)))->
						BgL_fnamez00) = ((obj_t) BgL_fname1068z00_12491), BUNSPEC);
				((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
									BgL_new1339z00_13098)))->BgL_locationz00) =
					((obj_t) BgL_location1069z00_12492), BUNSPEC);
				((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
									BgL_new1339z00_13098)))->BgL_stackz00) =
					((obj_t) BgL_stack1070z00_12493), BUNSPEC);
				((((BgL_z62httpzd2redirectionzb0_bglt) COBJECT(BgL_new1339z00_13098))->
						BgL_portz00) = ((obj_t) ((obj_t) BgL_port1071z00_12494)), BUNSPEC);
				((((BgL_z62httpzd2redirectionzb0_bglt) COBJECT(BgL_new1339z00_13098))->
						BgL_urlz00) = ((obj_t) ((obj_t) BgL_url1072z00_12495)), BUNSPEC);
				return BgL_new1339z00_13098;
			}
		}

	}



/* &lambda5191 */
	obj_t BGl_z62lambda5191z62zz__httpz00(obj_t BgL_envz00_12496,
		obj_t BgL_oz00_12497, obj_t BgL_vz00_12498)
	{
		{	/* Unsafe/http.scm 60 */
			return
				((((BgL_z62httpzd2redirectionzb0_bglt) COBJECT(
							((BgL_z62httpzd2redirectionzb0_bglt) BgL_oz00_12497)))->
					BgL_urlz00) = ((obj_t) ((obj_t) BgL_vz00_12498)), BUNSPEC);
		}

	}



/* &lambda5190 */
	obj_t BGl_z62lambda5190z62zz__httpz00(obj_t BgL_envz00_12499,
		obj_t BgL_oz00_12500)
	{
		{	/* Unsafe/http.scm 60 */
			return
				(((BgL_z62httpzd2redirectionzb0_bglt) COBJECT(
						((BgL_z62httpzd2redirectionzb0_bglt) BgL_oz00_12500)))->BgL_urlz00);
		}

	}



/* &lambda5186 */
	obj_t BGl_z62lambda5186z62zz__httpz00(obj_t BgL_envz00_12501,
		obj_t BgL_oz00_12502, obj_t BgL_vz00_12503)
	{
		{	/* Unsafe/http.scm 60 */
			return
				((((BgL_z62httpzd2redirectionzb0_bglt) COBJECT(
							((BgL_z62httpzd2redirectionzb0_bglt) BgL_oz00_12502)))->
					BgL_portz00) = ((obj_t) ((obj_t) BgL_vz00_12503)), BUNSPEC);
		}

	}



/* &lambda5185 */
	obj_t BGl_z62lambda5185z62zz__httpz00(obj_t BgL_envz00_12504,
		obj_t BgL_oz00_12505)
	{
		{	/* Unsafe/http.scm 60 */
			return
				(((BgL_z62httpzd2redirectionzb0_bglt) COBJECT(
						((BgL_z62httpzd2redirectionzb0_bglt) BgL_oz00_12505)))->
				BgL_portz00);
		}

	}



/* &<@anonymous:5166> */
	obj_t BGl_z62zc3z04anonymousza35166ze3ze5zz__httpz00(obj_t BgL_envz00_12506,
		obj_t BgL_new1066z00_12507)
	{
		{	/* Unsafe/http.scm 57 */
			{
				BgL_z62httpzd2statuszd2errorz62_bglt BgL_auxz00_18319;

				((((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt)
									((BgL_z62httpzd2statuszd2errorz62_bglt)
										BgL_new1066z00_12507))))->BgL_fnamez00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62exceptionz62_bglt)
							COBJECT(((BgL_z62exceptionz62_bglt) (
										(BgL_z62httpzd2statuszd2errorz62_bglt)
										BgL_new1066z00_12507))))->BgL_locationz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62exceptionz62_bglt)
							COBJECT(((BgL_z62exceptionz62_bglt) (
										(BgL_z62httpzd2statuszd2errorz62_bglt)
										BgL_new1066z00_12507))))->BgL_stackz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) (
										(BgL_z62httpzd2statuszd2errorz62_bglt)
										BgL_new1066z00_12507))))->BgL_procz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) (
										(BgL_z62httpzd2statuszd2errorz62_bglt)
										BgL_new1066z00_12507))))->BgL_msgz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) (
										(BgL_z62httpzd2statuszd2errorz62_bglt)
										BgL_new1066z00_12507))))->BgL_objz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62httpzd2statuszd2errorz62_bglt)
							COBJECT(((BgL_z62httpzd2statuszd2errorz62_bglt)
									BgL_new1066z00_12507)))->BgL_statusz00) =
					((int) (int) (0L)), BUNSPEC);
				BgL_auxz00_18319 =
					((BgL_z62httpzd2statuszd2errorz62_bglt) BgL_new1066z00_12507);
				return ((obj_t) BgL_auxz00_18319);
			}
		}

	}



/* &lambda5164 */
	BgL_z62httpzd2statuszd2errorz62_bglt BGl_z62lambda5164z62zz__httpz00(obj_t
		BgL_envz00_12508)
	{
		{	/* Unsafe/http.scm 57 */
			{	/* Unsafe/http.scm 57 */
				BgL_z62httpzd2statuszd2errorz62_bglt BgL_new1065z00_13108;

				BgL_new1065z00_13108 =
					((BgL_z62httpzd2statuszd2errorz62_bglt)
					BOBJECT(GC_MALLOC(sizeof(struct
								BgL_z62httpzd2statuszd2errorz62_bgl))));
				{	/* Unsafe/http.scm 57 */
					long BgL_arg5165z00_13109;

					BgL_arg5165z00_13109 =
						BGL_CLASS_NUM(BGl_z62httpzd2statuszd2errorz62zz__httpz00);
					BGL_OBJECT_CLASS_NUM_SET(
						((BgL_objectz00_bglt) BgL_new1065z00_13108), BgL_arg5165z00_13109);
				}
				return BgL_new1065z00_13108;
			}
		}

	}



/* &lambda5162 */
	BgL_z62httpzd2statuszd2errorz62_bglt BGl_z62lambda5162z62zz__httpz00(obj_t
		BgL_envz00_12509, obj_t BgL_fname1058z00_12510,
		obj_t BgL_location1059z00_12511, obj_t BgL_stack1060z00_12512,
		obj_t BgL_proc1061z00_12513, obj_t BgL_msg1062z00_12514,
		obj_t BgL_obj1063z00_12515, obj_t BgL_status1064z00_12516)
	{
		{	/* Unsafe/http.scm 57 */
			{	/* Unsafe/http.scm 57 */
				int BgL_status1064z00_13110;

				BgL_status1064z00_13110 = CINT(BgL_status1064z00_12516);
				{	/* Unsafe/http.scm 57 */
					BgL_z62httpzd2statuszd2errorz62_bglt BgL_new1337z00_13111;

					{	/* Unsafe/http.scm 57 */
						BgL_z62httpzd2statuszd2errorz62_bglt BgL_new1336z00_13112;

						BgL_new1336z00_13112 =
							((BgL_z62httpzd2statuszd2errorz62_bglt)
							BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62httpzd2statuszd2errorz62_bgl))));
						{	/* Unsafe/http.scm 57 */
							long BgL_arg5163z00_13113;

							BgL_arg5163z00_13113 =
								BGL_CLASS_NUM(BGl_z62httpzd2statuszd2errorz62zz__httpz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1336z00_13112),
								BgL_arg5163z00_13113);
						}
						BgL_new1337z00_13111 = BgL_new1336z00_13112;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1337z00_13111)))->
							BgL_fnamez00) = ((obj_t) BgL_fname1058z00_12510), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1337z00_13111)))->BgL_locationz00) =
						((obj_t) BgL_location1059z00_12511), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1337z00_13111)))->BgL_stackz00) =
						((obj_t) BgL_stack1060z00_12512), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
										BgL_new1337z00_13111)))->BgL_procz00) =
						((obj_t) BgL_proc1061z00_12513), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
										BgL_new1337z00_13111)))->BgL_msgz00) =
						((obj_t) BgL_msg1062z00_12514), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
										BgL_new1337z00_13111)))->BgL_objz00) =
						((obj_t) BgL_obj1063z00_12515), BUNSPEC);
					((((BgL_z62httpzd2statuszd2errorz62_bglt)
								COBJECT(BgL_new1337z00_13111))->BgL_statusz00) =
						((int) BgL_status1064z00_13110), BUNSPEC);
					return BgL_new1337z00_13111;
				}
			}
		}

	}



/* &lambda5171 */
	obj_t BGl_z62lambda5171z62zz__httpz00(obj_t BgL_envz00_12517,
		obj_t BgL_oz00_12518, obj_t BgL_vz00_12519)
	{
		{	/* Unsafe/http.scm 57 */
			{	/* Unsafe/http.scm 57 */
				int BgL_vz00_13115;

				BgL_vz00_13115 = CINT(BgL_vz00_12519);
				return
					((((BgL_z62httpzd2statuszd2errorz62_bglt) COBJECT(
								((BgL_z62httpzd2statuszd2errorz62_bglt) BgL_oz00_12518)))->
						BgL_statusz00) = ((int) BgL_vz00_13115), BUNSPEC);
		}}

	}



/* &lambda5170 */
	obj_t BGl_z62lambda5170z62zz__httpz00(obj_t BgL_envz00_12520,
		obj_t BgL_oz00_12521)
	{
		{	/* Unsafe/http.scm 57 */
			return
				BINT(
				(((BgL_z62httpzd2statuszd2errorz62_bglt) COBJECT(
							((BgL_z62httpzd2statuszd2errorz62_bglt) BgL_oz00_12521)))->
					BgL_statusz00));
		}

	}



/* &<@anonymous:5156> */
	obj_t BGl_z62zc3z04anonymousza35156ze3ze5zz__httpz00(obj_t BgL_envz00_12522,
		obj_t BgL_new1056z00_12523)
	{
		{	/* Unsafe/http.scm 56 */
			{
				BgL_z62httpzd2redirectionzd2errorz62_bglt BgL_auxz00_18371;

				((((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt)
									((BgL_z62httpzd2redirectionzd2errorz62_bglt)
										BgL_new1056z00_12523))))->BgL_fnamez00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62exceptionz62_bglt)
							COBJECT(((BgL_z62exceptionz62_bglt) (
										(BgL_z62httpzd2redirectionzd2errorz62_bglt)
										BgL_new1056z00_12523))))->BgL_locationz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62exceptionz62_bglt)
							COBJECT(((BgL_z62exceptionz62_bglt) (
										(BgL_z62httpzd2redirectionzd2errorz62_bglt)
										BgL_new1056z00_12523))))->BgL_stackz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) (
										(BgL_z62httpzd2redirectionzd2errorz62_bglt)
										BgL_new1056z00_12523))))->BgL_procz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) (
										(BgL_z62httpzd2redirectionzd2errorz62_bglt)
										BgL_new1056z00_12523))))->BgL_msgz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) (
										(BgL_z62httpzd2redirectionzd2errorz62_bglt)
										BgL_new1056z00_12523))))->BgL_objz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				BgL_auxz00_18371 =
					((BgL_z62httpzd2redirectionzd2errorz62_bglt) BgL_new1056z00_12523);
				return ((obj_t) BgL_auxz00_18371);
			}
		}

	}



/* &lambda5154 */
	BgL_z62httpzd2redirectionzd2errorz62_bglt
		BGl_z62lambda5154z62zz__httpz00(obj_t BgL_envz00_12524)
	{
		{	/* Unsafe/http.scm 56 */
			{	/* Unsafe/http.scm 56 */
				BgL_z62httpzd2redirectionzd2errorz62_bglt BgL_new1055z00_13118;

				BgL_new1055z00_13118 =
					((BgL_z62httpzd2redirectionzd2errorz62_bglt)
					BOBJECT(GC_MALLOC(sizeof(struct
								BgL_z62httpzd2redirectionzd2errorz62_bgl))));
				{	/* Unsafe/http.scm 56 */
					long BgL_arg5155z00_13119;

					BgL_arg5155z00_13119 =
						BGL_CLASS_NUM(BGl_z62httpzd2redirectionzd2errorz62zz__httpz00);
					BGL_OBJECT_CLASS_NUM_SET(
						((BgL_objectz00_bglt) BgL_new1055z00_13118), BgL_arg5155z00_13119);
				}
				return BgL_new1055z00_13118;
			}
		}

	}



/* &lambda5152 */
	BgL_z62httpzd2redirectionzd2errorz62_bglt
		BGl_z62lambda5152z62zz__httpz00(obj_t BgL_envz00_12525,
		obj_t BgL_fname1049z00_12526, obj_t BgL_location1050z00_12527,
		obj_t BgL_stack1051z00_12528, obj_t BgL_proc1052z00_12529,
		obj_t BgL_msg1053z00_12530, obj_t BgL_obj1054z00_12531)
	{
		{	/* Unsafe/http.scm 56 */
			{	/* Unsafe/http.scm 56 */
				BgL_z62httpzd2redirectionzd2errorz62_bglt BgL_new1335z00_13120;

				{	/* Unsafe/http.scm 56 */
					BgL_z62httpzd2redirectionzd2errorz62_bglt BgL_new1334z00_13121;

					BgL_new1334z00_13121 =
						((BgL_z62httpzd2redirectionzd2errorz62_bglt)
						BOBJECT(GC_MALLOC(sizeof(struct
									BgL_z62httpzd2redirectionzd2errorz62_bgl))));
					{	/* Unsafe/http.scm 56 */
						long BgL_arg5153z00_13122;

						BgL_arg5153z00_13122 =
							BGL_CLASS_NUM(BGl_z62httpzd2redirectionzd2errorz62zz__httpz00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1334z00_13121),
							BgL_arg5153z00_13122);
					}
					BgL_new1335z00_13120 = BgL_new1334z00_13121;
				}
				((((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt) BgL_new1335z00_13120)))->
						BgL_fnamez00) = ((obj_t) BgL_fname1049z00_12526), BUNSPEC);
				((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
									BgL_new1335z00_13120)))->BgL_locationz00) =
					((obj_t) BgL_location1050z00_12527), BUNSPEC);
				((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
									BgL_new1335z00_13120)))->BgL_stackz00) =
					((obj_t) BgL_stack1051z00_12528), BUNSPEC);
				((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
									BgL_new1335z00_13120)))->BgL_procz00) =
					((obj_t) BgL_proc1052z00_12529), BUNSPEC);
				((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
									BgL_new1335z00_13120)))->BgL_msgz00) =
					((obj_t) BgL_msg1053z00_12530), BUNSPEC);
				((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
									BgL_new1335z00_13120)))->BgL_objz00) =
					((obj_t) BgL_obj1054z00_12531), BUNSPEC);
				return BgL_new1335z00_13120;
			}
		}

	}



/* &<@anonymous:5146> */
	obj_t BGl_z62zc3z04anonymousza35146ze3ze5zz__httpz00(obj_t BgL_envz00_12532,
		obj_t BgL_new1047z00_12533)
	{
		{	/* Unsafe/http.scm 54 */
			{
				BgL_z62httpzd2errorzb0_bglt BgL_auxz00_18412;

				((((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt)
									((BgL_z62httpzd2errorzb0_bglt) BgL_new1047z00_12533))))->
						BgL_fnamez00) = ((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62exceptionz62_bglt)
							COBJECT(((BgL_z62exceptionz62_bglt) ((BgL_z62httpzd2errorzb0_bglt)
										BgL_new1047z00_12533))))->BgL_locationz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62exceptionz62_bglt)
							COBJECT(((BgL_z62exceptionz62_bglt) ((BgL_z62httpzd2errorzb0_bglt)
										BgL_new1047z00_12533))))->BgL_stackz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) ((BgL_z62httpzd2errorzb0_bglt)
										BgL_new1047z00_12533))))->BgL_procz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) ((BgL_z62httpzd2errorzb0_bglt)
										BgL_new1047z00_12533))))->BgL_msgz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) ((BgL_z62httpzd2errorzb0_bglt)
										BgL_new1047z00_12533))))->BgL_objz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				BgL_auxz00_18412 = ((BgL_z62httpzd2errorzb0_bglt) BgL_new1047z00_12533);
				return ((obj_t) BgL_auxz00_18412);
			}
		}

	}



/* &lambda5144 */
	BgL_z62httpzd2errorzb0_bglt BGl_z62lambda5144z62zz__httpz00(obj_t
		BgL_envz00_12534)
	{
		{	/* Unsafe/http.scm 54 */
			{	/* Unsafe/http.scm 54 */
				BgL_z62httpzd2errorzb0_bglt BgL_new1046z00_13124;

				BgL_new1046z00_13124 =
					((BgL_z62httpzd2errorzb0_bglt) BOBJECT(GC_MALLOC(sizeof(struct
								BgL_z62httpzd2errorzb0_bgl))));
				{	/* Unsafe/http.scm 54 */
					long BgL_arg5145z00_13125;

					BgL_arg5145z00_13125 =
						BGL_CLASS_NUM(BGl_z62httpzd2errorzb0zz__httpz00);
					BGL_OBJECT_CLASS_NUM_SET(
						((BgL_objectz00_bglt) BgL_new1046z00_13124), BgL_arg5145z00_13125);
				}
				return BgL_new1046z00_13124;
			}
		}

	}



/* &lambda5142 */
	BgL_z62httpzd2errorzb0_bglt BGl_z62lambda5142z62zz__httpz00(obj_t
		BgL_envz00_12535, obj_t BgL_fname1040z00_12536,
		obj_t BgL_location1041z00_12537, obj_t BgL_stack1042z00_12538,
		obj_t BgL_proc1043z00_12539, obj_t BgL_msg1044z00_12540,
		obj_t BgL_obj1045z00_12541)
	{
		{	/* Unsafe/http.scm 54 */
			{	/* Unsafe/http.scm 54 */
				BgL_z62httpzd2errorzb0_bglt BgL_new1333z00_13126;

				{	/* Unsafe/http.scm 54 */
					BgL_z62httpzd2errorzb0_bglt BgL_new1332z00_13127;

					BgL_new1332z00_13127 =
						((BgL_z62httpzd2errorzb0_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_z62httpzd2errorzb0_bgl))));
					{	/* Unsafe/http.scm 54 */
						long BgL_arg5143z00_13128;

						BgL_arg5143z00_13128 =
							BGL_CLASS_NUM(BGl_z62httpzd2errorzb0zz__httpz00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1332z00_13127),
							BgL_arg5143z00_13128);
					}
					BgL_new1333z00_13126 = BgL_new1332z00_13127;
				}
				((((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt) BgL_new1333z00_13126)))->
						BgL_fnamez00) = ((obj_t) BgL_fname1040z00_12536), BUNSPEC);
				((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
									BgL_new1333z00_13126)))->BgL_locationz00) =
					((obj_t) BgL_location1041z00_12537), BUNSPEC);
				((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
									BgL_new1333z00_13126)))->BgL_stackz00) =
					((obj_t) BgL_stack1042z00_12538), BUNSPEC);
				((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
									BgL_new1333z00_13126)))->BgL_procz00) =
					((obj_t) BgL_proc1043z00_12539), BUNSPEC);
				((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
									BgL_new1333z00_13126)))->BgL_msgz00) =
					((obj_t) BgL_msg1044z00_12540), BUNSPEC);
				((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
									BgL_new1333z00_13126)))->BgL_objz00) =
					((obj_t) BgL_obj1045z00_12541), BUNSPEC);
				return BgL_new1333z00_13126;
			}
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__httpz00(void)
	{
		{	/* Unsafe/http.scm 15 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__httpz00(void)
	{
		{	/* Unsafe/http.scm 15 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__httpz00(void)
	{
		{	/* Unsafe/http.scm 15 */
			BGl_modulezd2initializa7ationz75zz__urlz00(337061926L,
				BSTRING_TO_STRING(BGl_string5824z00zz__httpz00));
			BGl_modulezd2initializa7ationz75zz__rgcz00(352600006L,
				BSTRING_TO_STRING(BGl_string5824z00zz__httpz00));
			BGl_modulezd2initializa7ationz75zz__base64z00(67813413L,
				BSTRING_TO_STRING(BGl_string5824z00zz__httpz00));
			return
				BGl_modulezd2initializa7ationz75zz__socketz00(254233235L,
				BSTRING_TO_STRING(BGl_string5824z00zz__httpz00));
		}

	}

#ifdef __cplusplus
}
#endif
