/*===========================================================================*/
/*   (Unsafe/http.scm)                                                       */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -srfi enable-gmp -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -rm -copt -w -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -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 BgL_z62httpzd2redirectionzb0_bglt
		BGl_z62lambda5168z62zz__httpz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_symbol5791z00zz__httpz00 = BUNSPEC;
	extern long BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(long, long);
	static obj_t BGl_symbol5796z00zz__httpz00 = BUNSPEC;
	static BgL_z62httpzd2redirectionzb0_bglt
		BGl_z62lambda5170z62zz__httpz00(obj_t);
	static obj_t BGl_z62lambda5176z62zz__httpz00(obj_t, obj_t);
	static obj_t BGl_z62lambda5177z62zz__httpz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62httpzd2readzd2linez62zz__httpz00(obj_t, obj_t);
	static obj_t BGl_keyword5610z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_requirezd2initializa7ationz75zz__httpz00 = BUNSPEC;
	extern obj_t BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_list5694z00zz__httpz00 = BUNSPEC;
	extern obj_t BGl_raisez00zz__errorz00(obj_t);
	static obj_t BGl_z62lambda5181z62zz__httpz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza35095ze3ze5zz__httpz00(obj_t);
	static obj_t BGl_z62lambda5182z62zz__httpz00(obj_t, obj_t, obj_t);
	static obj_t BGl_makezd2httpzd2postzd2bodyzd2zz__httpz00(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_keyword5621z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_z62httpzd2chunkszd2ze3procedurez81zz__httpz00(obj_t, obj_t);
	static obj_t BGl_keyword5623z00zz__httpz00 = BUNSPEC;
	extern obj_t bgl_display_obj(obj_t, obj_t);
	static obj_t BGl_keyword5625z00zz__httpz00 = BUNSPEC;
	extern obj_t string_for_read(obj_t);
	static obj_t BGl_keyword5627z00zz__httpz00 = BUNSPEC;
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_keyword5629z00zz__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;
	static obj_t BGl_z62zc3z04anonymousza35114ze3ze5zz__httpz00(obj_t, obj_t);
	extern obj_t BGl_z62errorz62zz__objectz00;
	static obj_t BGl_keyword5631z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5714z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5633z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5716z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5635z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5718z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5637z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5639z00zz__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);
	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);
	static obj_t BGl_keyword5720z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5641z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5643z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5645z00zz__httpz00 = BUNSPEC;
	extern obj_t rgc_buffer_downcase_keyword(obj_t);
	static obj_t BGl_keyword5647z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5649z00zz__httpz00 = BUNSPEC;
	static long BGl_za2bufferzd2lengthza2zd2zz__httpz00;
	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;
	static obj_t BGl_keyword5651z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5653z00zz__httpz00 = BUNSPEC;
	extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_cnstzd2initzd2zz__httpz00(void);
	static obj_t BGl_keyword5735z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5655z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_keyword5657z00zz__httpz00 = BUNSPEC;
	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_keyword5659z00zz__httpz00 = BUNSPEC;
	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);
	static obj_t BGl_symbol5615z00zz__httpz00 = BUNSPEC;
	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_symbol5618z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_importedzd2moduleszd2initz00zz__httpz00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__httpz00(void);
	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_symbol5709z00zz__httpz00 = BUNSPEC;
	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_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_list5608z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_list5609z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_z62parsezd2bodyzb0zz__httpz00(obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_httpzd2responsezd2bodyzd2ze3portz31zz__httpz00(obj_t, obj_t);
	static obj_t BGl_za2chunkzd2siza7ezd2grammarza2za7zz__httpz00 = BUNSPEC;
	static obj_t BGl_generatezd2httpzd2boundaryz00zz__httpz00(void);
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_authzd2grammarze70z35zz__httpz00(obj_t);
	static obj_t BGl_thezd2substringze70z35zz__httpz00(obj_t, int, int);
	extern obj_t
		BGl_inputzd2portzd2closezd2hookzd2setz12z12zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_httpzd2parsezd2responsez00zz__httpz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_symbol5730z00zz__httpz00 = BUNSPEC;
	extern obj_t c_substring(obj_t, long, long);
	static obj_t BGl_symbol5733z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_list5620z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5737z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza35137ze3ze5zz__httpz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32367ze3ze5zz__httpz00(obj_t, obj_t);
	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);
	extern obj_t BGl_readzd2charzd2zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl_symbol5745z00zz__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_z62zc3z04anonymousza31825ze3ze5zz__httpz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza34942ze3ze5zz__httpz00(obj_t, obj_t);
	extern obj_t BGl_xzd2wwwzd2formzd2urlencodezd2zz__urlz00(obj_t);
	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_symbol5751z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_loopze70ze7zz__httpz00(obj_t, obj_t);
	static obj_t BGl_symbol5753z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5673z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5756z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5596z00zz__httpz00 = BUNSPEC;
	static BgL_z62httpzd2errorzb0_bglt BGl_z62lambda5133z62zz__httpz00(obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza35147ze3ze5zz__httpz00(obj_t, obj_t);
	static BgL_z62httpzd2errorzb0_bglt BGl_z62lambda5135z62zz__httpz00(obj_t);
	extern obj_t bstring_to_keyword(obj_t);
	extern bool_t rgc_fill_buffer(obj_t);
	extern obj_t make_string(long, unsigned char);
	static obj_t BGl_symbol5680z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza35100ze3ze5zz__httpz00(obj_t);
	extern obj_t bgl_close_input_port(obj_t);
	static obj_t BGl_symbol5763z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5682z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5765z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5684z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza35172ze3ze5zz__httpz00(obj_t, obj_t);
	static BgL_z62httpzd2redirectionzd2errorz62_bglt
		BGl_z62lambda5143z62zz__httpz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static BgL_z62httpzd2redirectionzd2errorz62_bglt
		BGl_z62lambda5145z62zz__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);
	static obj_t BGl_symbol5770z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5690z00zz__httpz00 = BUNSPEC;
	extern obj_t BGl_zb2zb2zz__r4_numbers_6_5z00(obj_t);
	static obj_t BGl_symbol5774z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5776z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_z62httpzd2parsezd2statuszd2linezb0zz__httpz00(obj_t, obj_t);
	static BgL_z62httpzd2statuszd2errorz62_bglt
		BGl_z62lambda5153z62zz__httpz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza35157ze3ze5zz__httpz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31593ze3ze5zz__httpz00(obj_t, obj_t);
	extern obj_t rgc_buffer_substring(obj_t, long, long);
	static BgL_z62httpzd2statuszd2errorz62_bglt
		BGl_z62lambda5155z62zz__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_symbol5781z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_z62httpzd2responsezd2bodyzd2ze3portz53zz__httpz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_symbol5785z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5786z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_symbol5789z00zz__httpz00 = BUNSPEC;
	static obj_t BGl_z62lambda5161z62zz__httpz00(obj_t, obj_t);
	static obj_t BGl_z62lambda5162z62zz__httpz00(obj_t, obj_t, obj_t);
	extern obj_t rgc_buffer_downcase_subsymbol(obj_t, long, long);
	static obj_t *__cnst;


	   
		 
		DEFINE_STRING(BGl_string5600z00zz__httpz00,
		BgL_bgl_string5600za700za7za7_5798za7, "regular-grammar", 15);
	      DEFINE_STRING(BGl_string5601z00zz__httpz00,
		BgL_bgl_string5601za700za7za7_5799za7, "Illegal match", 13);
	      DEFINE_STRING(BGl_string5602z00zz__httpz00,
		BgL_bgl_string5602za700za7za7_5800za7, "Illegal character", 17);
	      DEFINE_STRING(BGl_string5603z00zz__httpz00,
		BgL_bgl_string5603za700za7za7_5801za7, "Illegal range `~a'", 18);
	      DEFINE_STRING(BGl_string5604z00zz__httpz00,
		BgL_bgl_string5604za700za7za7_5802za7, "the-substring", 13);
	      DEFINE_STRING(BGl_string5605z00zz__httpz00,
		BgL_bgl_string5605za700za7za7_5803za7, "http-parse-status-line", 22);
	      DEFINE_STRING(BGl_string5606z00zz__httpz00,
		BgL_bgl_string5606za700za7za7_5804za7,
		"Illegal status line, premature end of input", 43);
	      DEFINE_STRING(BGl_string5607z00zz__httpz00,
		BgL_bgl_string5607za700za7za7_5805za7, "Illegal status line", 19);
	      DEFINE_STRING(BGl_string5611z00zz__httpz00,
		BgL_bgl_string5611za700za7za7_5806za7, "user-agent", 10);
	      DEFINE_STRING(BGl_string5612z00zz__httpz00,
		BgL_bgl_string5612za700za7za7_5807za7, "Mozilla/5.0", 11);
	      DEFINE_STRING(BGl_string5613z00zz__httpz00,
		BgL_bgl_string5613za700za7za7_5808za7, "localhost", 9);
	      DEFINE_STRING(BGl_string5614z00zz__httpz00,
		BgL_bgl_string5614za700za7za7_5809za7, "HTTP/1.1", 8);
	      DEFINE_STRING(BGl_string5616z00zz__httpz00,
		BgL_bgl_string5616za700za7za7_5810za7, "get", 3);
	      DEFINE_STRING(BGl_string5617z00zz__httpz00,
		BgL_bgl_string5617za700za7za7_5811za7, "/", 1);
	      DEFINE_STRING(BGl_string5619z00zz__httpz00,
		BgL_bgl_string5619za700za7za7_5812za7, "http", 4);
	      DEFINE_STRING(BGl_string5700z00zz__httpz00,
		BgL_bgl_string5700za700za7za7_5813za7, "0123456789abcdef", 16);
	      DEFINE_STRING(BGl_string5701z00zz__httpz00,
		BgL_bgl_string5701za700za7za7_5814za7, "", 0);
	      DEFINE_STRING(BGl_string5702z00zz__httpz00,
		BgL_bgl_string5702za700za7za7_5815za7, "}", 1);
	      DEFINE_STRING(BGl_string5703z00zz__httpz00,
		BgL_bgl_string5703za700za7za7_5816za7, "{", 1);
	      DEFINE_STRING(BGl_string5622z00zz__httpz00,
		BgL_bgl_string5622za700za7za7_5817za7, "args", 4);
	      DEFINE_STRING(BGl_string5704z00zz__httpz00,
		BgL_bgl_string5704za700za7za7_5818za7, "&http-parse-status-line", 23);
	      DEFINE_STRING(BGl_string5705z00zz__httpz00,
		BgL_bgl_string5705za700za7za7_5819za7, "input-port", 10);
	      DEFINE_STRING(BGl_string5624z00zz__httpz00,
		BgL_bgl_string5624za700za7za7_5820za7, "authorization", 13);
	      DEFINE_STRING(BGl_string5706z00zz__httpz00,
		BgL_bgl_string5706za700za7za7_5821za7, "&http-read-line", 15);
	      DEFINE_STRING(BGl_string5707z00zz__httpz00,
		BgL_bgl_string5707za700za7za7_5822za7, "Illegal separator", 17);
	      DEFINE_STRING(BGl_string5626z00zz__httpz00,
		BgL_bgl_string5626za700za7za7_5823za7, "body", 4);
	      DEFINE_ELONG(BGl_elong5728z00zz__httpz00,
		BgL_bgl_elong5728za700za7za7__5824za7, -1);
	      DEFINE_STRING(BGl_string5708z00zz__httpz00,
		BgL_bgl_string5708za700za7za7_5825za7, "Illegal integer", 15);
	      DEFINE_STRING(BGl_string5628z00zz__httpz00,
		BgL_bgl_string5628za700za7za7_5826za7, "connection", 10);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_httpzd2responsezd2bodyzd2ze3portzd2envze3zz__httpz00,
		BgL_bgl_za762httpza7d2respon5827z00,
		BGl_z62httpzd2responsezd2bodyzd2ze3portz53zz__httpz00, 0L, BUNSPEC, 2);
	      DEFINE_STRING(BGl_string5710z00zz__httpz00,
		BgL_bgl_string5710za700za7za7_5828za7, "the-downcase-subsymbol", 22);
	      DEFINE_STRING(BGl_string5711z00zz__httpz00,
		BgL_bgl_string5711za700za7za7_5829za7, "Illegal range", 13);
	      DEFINE_STRING(BGl_string5630z00zz__httpz00,
		BgL_bgl_string5630za700za7za7_5830za7, "content-type", 12);
	      DEFINE_STRING(BGl_string5712z00zz__httpz00,
		BgL_bgl_string5712za700za7za7_5831za7, "http-parse-header", 17);
	      DEFINE_STRING(BGl_string5713z00zz__httpz00,
		BgL_bgl_string5713za700za7za7_5832za7, "Illegal characters: ~a", 22);
	      DEFINE_STRING(BGl_string5632z00zz__httpz00,
		BgL_bgl_string5632za700za7za7_5833za7, "header", 6);
	      DEFINE_STRING(BGl_string5715z00zz__httpz00,
		BgL_bgl_string5715za700za7za7_5834za7, "content-length", 14);
	      DEFINE_STRING(BGl_string5634z00zz__httpz00,
		BgL_bgl_string5634za700za7za7_5835za7, "host", 4);
	      DEFINE_STRING(BGl_string5717z00zz__httpz00,
		BgL_bgl_string5717za700za7za7_5836za7, "transfer-encoding", 17);
	      DEFINE_STRING(BGl_string5636z00zz__httpz00,
		BgL_bgl_string5636za700za7za7_5837za7, "http-version", 12);
	      DEFINE_STRING(BGl_string5719z00zz__httpz00,
		BgL_bgl_string5719za700za7za7_5838za7, "proxy-authorization", 19);
	      DEFINE_STRING(BGl_string5638z00zz__httpz00,
		BgL_bgl_string5638za700za7za7_5839za7, "in", 2);
	      DEFINE_STRING(BGl_string5721z00zz__httpz00,
		BgL_bgl_string5721za700za7za7_5840za7, "expect", 6);
	      DEFINE_STRING(BGl_string5640z00zz__httpz00,
		BgL_bgl_string5640za700za7za7_5841za7, "login", 5);
	      DEFINE_STRING(BGl_string5722z00zz__httpz00,
		BgL_bgl_string5722za700za7za7_5842za7, "100-continue", 12);
	      DEFINE_STRING(BGl_string5723z00zz__httpz00,
		BgL_bgl_string5723za700za7za7_5843za7, "HTTP/1.1 100 Continue\r\n\r\n", 25);
	      DEFINE_STRING(BGl_string5642z00zz__httpz00,
		BgL_bgl_string5642za700za7za7_5844za7, "method", 6);
	      DEFINE_STRING(BGl_string5724z00zz__httpz00,
		BgL_bgl_string5724za700za7za7_5845za7,
		"HTTP/1.1 417 Expectation Failed\r\n\r\n", 35);
	      DEFINE_STRING(BGl_string5725z00zz__httpz00,
		BgL_bgl_string5725za700za7za7_5846za7, "expect-header", 13);
	      DEFINE_STRING(BGl_string5644z00zz__httpz00,
		BgL_bgl_string5644za700za7za7_5847za7, "out", 3);
	      DEFINE_STRING(BGl_string5726z00zz__httpz00,
		BgL_bgl_string5726za700za7za7_5848za7, "Expectation failed (~a)", 23);
	      DEFINE_STRING(BGl_string5727z00zz__httpz00,
		BgL_bgl_string5727za700za7za7_5849za7,
		"Cannot honnor message because output-port is #f", 47);
	      DEFINE_STRING(BGl_string5646z00zz__httpz00,
		BgL_bgl_string5646za700za7za7_5850za7, "password", 8);
	      DEFINE_STRING(BGl_string5729z00zz__httpz00,
		BgL_bgl_string5729za700za7za7_5851za7, "&http-parse-header", 18);
	      DEFINE_STRING(BGl_string5648z00zz__httpz00,
		BgL_bgl_string5648za700za7za7_5852za7, "path", 4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_httpzd2sendzd2chunkszd2envzd2zz__httpz00,
		BgL_bgl_za762httpza7d2sendza7d5853za7,
		BGl_z62httpzd2sendzd2chunksz62zz__httpz00, 0L, BUNSPEC, 3);
	      DEFINE_STRING(BGl_string5731z00zz__httpz00,
		BgL_bgl_string5731za700za7za7_5854za7, "http-parse-response", 19);
	      DEFINE_STRING(BGl_string5650z00zz__httpz00,
		BgL_bgl_string5650za700za7za7_5855za7, "port", 4);
	      DEFINE_STRING(BGl_string5732z00zz__httpz00,
		BgL_bgl_string5732za700za7za7_5856za7, "Bad status code: ~a", 19);
	      DEFINE_STRING(BGl_string5652z00zz__httpz00,
		BgL_bgl_string5652za700za7za7_5857za7, "protocol", 8);
	      DEFINE_STRING(BGl_string5734z00zz__httpz00,
		BgL_bgl_string5734za700za7za7_5858za7, "chunked", 7);
	      DEFINE_STRING(BGl_string5654z00zz__httpz00,
		BgL_bgl_string5654za700za7za7_5859za7, "proxy", 5);
	      DEFINE_STRING(BGl_string5736z00zz__httpz00,
		BgL_bgl_string5736za700za7za7_5860za7, "location", 8);
	      DEFINE_STRING(BGl_string5656z00zz__httpz00,
		BgL_bgl_string5656za700za7za7_5861za7, "socket", 6);
	      DEFINE_STRING(BGl_string5738z00zz__httpz00,
		BgL_bgl_string5738za700za7za7_5862za7, "http-parse-body", 15);
	      DEFINE_STRING(BGl_string5739z00zz__httpz00,
		BgL_bgl_string5739za700za7za7_5863za7, "No URL for redirection!", 23);
	      DEFINE_STRING(BGl_string5658z00zz__httpz00,
		BgL_bgl_string5658za700za7za7_5864za7, "timeout", 7);
	      DEFINE_STRING(BGl_string5740z00zz__httpz00,
		BgL_bgl_string5740za700za7za7_5865za7, "&http-parse-response", 20);
	      DEFINE_STRING(BGl_string5741z00zz__httpz00,
		BgL_bgl_string5741za700za7za7_5866za7, "procedure", 9);
	      DEFINE_STRING(BGl_string5660z00zz__httpz00,
		BgL_bgl_string5660za700za7za7_5867za7, "username", 8);
	      DEFINE_STRING(BGl_string5661z00zz__httpz00,
		BgL_bgl_string5661za700za7za7_5868za7, "Illegal keyword argument", 24);
	      DEFINE_STRING(BGl_string5743z00zz__httpz00,
		BgL_bgl_string5743za700za7za7_5869za7, "&http-response-body->port", 25);
	      DEFINE_STRING(BGl_string5662z00zz__httpz00,
		BgL_bgl_string5662za700za7za7_5870za7,
		"wrong number of arguments: [0..20] expected, provided", 53);
	      DEFINE_STRING(BGl_string5744z00zz__httpz00,
		BgL_bgl_string5744za700za7za7_5871za7, "output-port", 11);
	      DEFINE_STRING(BGl_string5663z00zz__httpz00,
		BgL_bgl_string5663za700za7za7_5872za7,
		"/tmp/bigloo/runtime/Unsafe/http.scm", 35);
	      DEFINE_STRING(BGl_string5664z00zz__httpz00,
		BgL_bgl_string5664za700za7za7_5873za7, "_http", 5);
	      DEFINE_STRING(BGl_string5746z00zz__httpz00,
		BgL_bgl_string5746za700za7za7_5874za7, "http-read-crlf", 14);
	      DEFINE_STRING(BGl_string5665z00zz__httpz00,
		BgL_bgl_string5665za700za7za7_5875za7, "bint", 4);
	      DEFINE_STRING(BGl_string5747z00zz__httpz00,
		BgL_bgl_string5747za700za7za7_5876za7, "&http-read-crlf", 15);
	      DEFINE_STRING(BGl_string5666z00zz__httpz00,
		BgL_bgl_string5666za700za7za7_5877za7,
		"Missing either \"host\" or \"port\" argument", 40);
	      DEFINE_STRING(BGl_string5667z00zz__httpz00,
		BgL_bgl_string5667za700za7za7_5878za7, "Missing \"out\" argument", 22);
	      DEFINE_STRING(BGl_string5749z00zz__httpz00,
		BgL_bgl_string5749za700za7za7_5879za7, "size", 4);
	      DEFINE_STRING(BGl_string5668z00zz__httpz00,
		BgL_bgl_string5668za700za7za7_5880za7,
		"Missing either \"in\" or \"socket\" argument", 40);
	      DEFINE_STRING(BGl_string5669z00zz__httpz00,
		BgL_bgl_string5669za700za7za7_5881za7, " http://", 8);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5742z00zz__httpz00,
		BgL_bgl_za762parseza7d2bodyza75882za7, BGl_z62parsezd2bodyzb0zz__httpz00,
		0L, BUNSPEC, 5);
	      DEFINE_STRING(BGl_string5750z00zz__httpz00,
		BgL_bgl_string5750za700za7za7_5883za7, "&http-chunks->procedure", 23);
	      DEFINE_STRING(BGl_string5670z00zz__httpz00,
		BgL_bgl_string5670za700za7za7_5884za7, ":", 1);
	      DEFINE_STRING(BGl_string5752z00zz__httpz00,
		BgL_bgl_string5752za700za7za7_5885za7, "eof", 3);
	      DEFINE_STRING(BGl_string5671z00zz__httpz00,
		BgL_bgl_string5671za700za7za7_5886za7, " ", 1);
	      DEFINE_STRING(BGl_string5672z00zz__httpz00,
		BgL_bgl_string5672za700za7za7_5887za7, "\r\n", 2);
	      DEFINE_STRING(BGl_string5754z00zz__httpz00,
		BgL_bgl_string5754za700za7za7_5888za7, "trailer", 7);
	      DEFINE_STRING(BGl_string5755z00zz__httpz00,
		BgL_bgl_string5755za700za7za7_5889za7, "\n", 1);
	      DEFINE_STRING(BGl_string5674z00zz__httpz00,
		BgL_bgl_string5674za700za7za7_5890za7, "https", 5);
	      DEFINE_STRING(BGl_string5675z00zz__httpz00,
		BgL_bgl_string5675za700za7za7_5891za7, "Host: ", 6);
	      DEFINE_STRING(BGl_string5757z00zz__httpz00,
		BgL_bgl_string5757za700za7za7_5892za7, "chunk", 5);
	      DEFINE_STRING(BGl_string5676z00zz__httpz00,
		BgL_bgl_string5676za700za7za7_5893za7, ": ", 2);
	      DEFINE_STRING(BGl_string5758z00zz__httpz00,
		BgL_bgl_string5758za700za7za7_5894za7, "&http-chunks->port", 18);
	      DEFINE_STRING(BGl_string5677z00zz__httpz00,
		BgL_bgl_string5677za700za7za7_5895za7, "Authorization: Basic ", 21);
	      DEFINE_STRING(BGl_string5759z00zz__httpz00,
		BgL_bgl_string5759za700za7za7_5896za7, "&http-send-chunks", 17);
	      DEFINE_STRING(BGl_string5678z00zz__httpz00,
		BgL_bgl_string5678za700za7za7_5897za7, "Authorization: ", 15);
	      DEFINE_STRING(BGl_string5597z00zz__httpz00,
		BgL_bgl_string5597za700za7za7_5898za7, "chunks", 6);
	      DEFINE_STRING(BGl_string5679z00zz__httpz00,
		BgL_bgl_string5679za700za7za7_5899za7, "Connection: ", 12);
	      DEFINE_STRING(BGl_string5598z00zz__httpz00,
		BgL_bgl_string5598za700za7za7_5900za7, "Illegal chunk size", 18);
	      DEFINE_STRING(BGl_string5599z00zz__httpz00,
		BgL_bgl_string5599za700za7za7_5901za7, "#<eof-object>", 13);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_httpzd2parsezd2responsezd2envzd2zz__httpz00,
		BgL_bgl_za762httpza7d2parseza75902za7,
		BGl_z62httpzd2parsezd2responsez62zz__httpz00, 0L, BUNSPEC, 3);
	      DEFINE_STRING(BGl_string5681z00zz__httpz00,
		BgL_bgl_string5681za700za7za7_5903za7, "post", 4);
	      DEFINE_STRING(BGl_string5764z00zz__httpz00,
		BgL_bgl_string5764za700za7za7_5904za7, "&http-error", 11);
	      DEFINE_STRING(BGl_string5683z00zz__httpz00,
		BgL_bgl_string5683za700za7za7_5905za7, "POST", 4);
	      DEFINE_STRING(BGl_string5766z00zz__httpz00,
		BgL_bgl_string5766za700za7za7_5906za7, "__http", 6);
	      DEFINE_STRING(BGl_string5685z00zz__httpz00,
		BgL_bgl_string5685za700za7za7_5907za7, "multipart/form-data", 19);
	      DEFINE_STRING(BGl_string5686z00zz__httpz00,
		BgL_bgl_string5686za700za7za7_5908za7, "Content-Length: ", 16);
	      DEFINE_STRING(BGl_string5687z00zz__httpz00,
		BgL_bgl_string5687za700za7za7_5909za7,
		"Content-Type: multipart/form-data; boundary=", 44);
	      DEFINE_STRING(BGl_string5688z00zz__httpz00,
		BgL_bgl_string5688za700za7za7_5910za7, "application/x-www-form-urlencoded",
		33);
	      DEFINE_STRING(BGl_string5689z00zz__httpz00,
		BgL_bgl_string5689za700za7za7_5911za7, "Content-Type: ", 14);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_httpzd2parsezd2headerzd2envzd2zz__httpz00,
		BgL_bgl_za762httpza7d2parseza75912za7,
		BGl_z62httpzd2parsezd2headerz62zz__httpz00, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5760z00zz__httpz00,
		BgL_bgl_za762za7c3za704anonymo5913za7,
		BGl_z62zc3z04anonymousza35137ze3ze5zz__httpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5761z00zz__httpz00,
		BgL_bgl_za762lambda5135za7625914z00, BGl_z62lambda5135z62zz__httpz00, 0L,
		BUNSPEC, 0);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5762z00zz__httpz00,
		BgL_bgl_za762lambda5133za7625915z00, BGl_z62lambda5133z62zz__httpz00, 0L,
		BUNSPEC, 6);
	      DEFINE_STRING(BGl_string5771z00zz__httpz00,
		BgL_bgl_string5771za700za7za7_5916za7, "&http-redirection-error", 23);
	      DEFINE_STRING(BGl_string5691z00zz__httpz00,
		BgL_bgl_string5691za700za7za7_5917za7, "inet", 4);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5767z00zz__httpz00,
		BgL_bgl_za762za7c3za704anonymo5918za7,
		BGl_z62zc3z04anonymousza35147ze3ze5zz__httpz00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string5692z00zz__httpz00,
		BgL_bgl_string5692za700za7za7_5919za7, "integer", 7);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5768z00zz__httpz00,
		BgL_bgl_za762lambda5145za7625920z00, BGl_z62lambda5145z62zz__httpz00, 0L,
		BUNSPEC, 0);
	      DEFINE_STRING(BGl_string5693z00zz__httpz00,
		BgL_bgl_string5693za700za7za7_5921za7, "string", 6);
	      DEFINE_STRING(BGl_string5775z00zz__httpz00,
		BgL_bgl_string5775za700za7za7_5922za7, "status", 6);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5769z00zz__httpz00,
		BgL_bgl_za762lambda5143za7625923z00, BGl_z62lambda5143z62zz__httpz00, 0L,
		BUNSPEC, 6);
	      DEFINE_STRING(BGl_string5695z00zz__httpz00,
		BgL_bgl_string5695za700za7za7_5924za7, "--", 2);
	      DEFINE_STRING(BGl_string5777z00zz__httpz00,
		BgL_bgl_string5777za700za7za7_5925za7, "int", 3);
	      DEFINE_STRING(BGl_string5696z00zz__httpz00,
		BgL_bgl_string5696za700za7za7_5926za7, "\r\n\r\n", 4);
	      DEFINE_STRING(BGl_string5697z00zz__httpz00,
		BgL_bgl_string5697za700za7za7_5927za7, "\";", 2);
	      DEFINE_STRING(BGl_string5698z00zz__httpz00,
		BgL_bgl_string5698za700za7za7_5928za7,
		"Content-Disposition: form-data; name=\"", 38);
	      DEFINE_STRING(BGl_string5699z00zz__httpz00,
		BgL_bgl_string5699za700za7za7_5929za7, "\"\r\n", 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_httpzd2chunkszd2ze3portzd2envz31zz__httpz00,
		BgL_bgl_za762httpza7d2chunks5930z00,
		BGl_z62httpzd2chunkszd2ze3portz81zz__httpz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_httpzd2chunkszd2ze3procedurezd2envz31zz__httpz00,
		BgL_bgl_za762httpza7d2chunks5931z00,
		BGl_z62httpzd2chunkszd2ze3procedurez81zz__httpz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_httpzd2parsezd2statuszd2linezd2envz00zz__httpz00,
		BgL_bgl_za762httpza7d2parseza75932za7,
		BGl_z62httpzd2parsezd2statuszd2linezb0zz__httpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5772z00zz__httpz00,
		BgL_bgl_za762lambda5162za7625933z00, BGl_z62lambda5162z62zz__httpz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5773z00zz__httpz00,
		BgL_bgl_za762lambda5161za7625934z00, BGl_z62lambda5161z62zz__httpz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STRING(BGl_string5782z00zz__httpz00,
		BgL_bgl_string5782za700za7za7_5935za7, "&http-status-error", 18);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5778z00zz__httpz00,
		BgL_bgl_za762za7c3za704anonymo5936za7,
		BGl_z62zc3z04anonymousza35157ze3ze5zz__httpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5779z00zz__httpz00,
		BgL_bgl_za762lambda5155za7625937z00, BGl_z62lambda5155z62zz__httpz00, 0L,
		BUNSPEC, 0);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5780z00zz__httpz00,
		BgL_bgl_za762lambda5153za7625938z00, BGl_z62lambda5153z62zz__httpz00, 0L,
		BUNSPEC, 7);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5783z00zz__httpz00,
		BgL_bgl_za762lambda5177za7625939z00, BGl_z62lambda5177z62zz__httpz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STRING(BGl_string5790z00zz__httpz00,
		BgL_bgl_string5790za700za7za7_5940za7, "url", 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5784z00zz__httpz00,
		BgL_bgl_za762lambda5176za7625941z00, BGl_z62lambda5176z62zz__httpz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STRING(BGl_string5792z00zz__httpz00,
		BgL_bgl_string5792za700za7za7_5942za7, "bstring", 7);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5787z00zz__httpz00,
		BgL_bgl_za762lambda5182za7625943z00, BGl_z62lambda5182z62zz__httpz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5788z00zz__httpz00,
		BgL_bgl_za762lambda5181za7625944z00, BGl_z62lambda5181z62zz__httpz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STRING(BGl_string5797z00zz__httpz00,
		BgL_bgl_string5797za700za7za7_5945za7, "&http-redirection", 17);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_httpzd2envzd2zz__httpz00,
		BgL_bgl__httpza700za7za7__http5946za7, opt_generic_entry,
		BGl__httpz00zz__httpz00, BFALSE, -1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5793z00zz__httpz00,
		BgL_bgl_za762za7c3za704anonymo5947za7,
		BGl_z62zc3z04anonymousza35172ze3ze5zz__httpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5794z00zz__httpz00,
		BgL_bgl_za762lambda5170za7625948z00, BGl_z62lambda5170z62zz__httpz00, 0L,
		BUNSPEC, 0);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc5795z00zz__httpz00,
		BgL_bgl_za762lambda5168za7625949z00, BGl_z62lambda5168z62zz__httpz00, 0L,
		BUNSPEC, 5);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_httpzd2readzd2linezd2envzd2zz__httpz00,
		BgL_bgl_za762httpza7d2readza7d5950za7,
		BGl_z62httpzd2readzd2linez62zz__httpz00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_httpzd2readzd2crlfzd2envzd2zz__httpz00,
		BgL_bgl_za762httpza7d2readza7d5951za7,
		BGl_z62httpzd2readzd2crlfz62zz__httpz00, 0L, BUNSPEC, 1);

/* 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_symbol5796z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5610z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__httpz00));
		     ADD_ROOT((void *) (&BGl_list5694z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5621z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5623z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5625z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5627z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5629z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_z62httpzd2redirectionzb0zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5631z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5714z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5633z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5716z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5635z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5718z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5637z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5639z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_z62httpzd2redirectionzd2errorz62zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5720z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5641z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5643z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5645z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5647z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5649z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_z62httpzd2statuszd2errorz62zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5651z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5653z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5735z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5655z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5657z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_keyword5659z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5615z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5618z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5709z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_list5608z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_list5609z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_za2chunkzd2siza7ezd2grammarza2za7zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5730z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5733z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_list5620z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5737z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5745z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_statuszd2linezd2grammarz00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5748z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5751z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5753z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5673z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5756z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5596z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5680z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5763z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5682z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5765z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5684z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5770z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5690z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5774z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5776z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_z62httpzd2errorzb0zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5781z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5785z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5786z00zz__httpz00));
		     ADD_ROOT((void *) (&BGl_symbol5789z00zz__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_13021, char *BgL_fromz00_13022)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__httpz00))
				{
					BGl_requirezd2initializa7ationz75zz__httpz00 = BBOOL(((bool_t) 0));
					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_symbol5596z00zz__httpz00 =
				bstring_to_symbol(BGl_string5597z00zz__httpz00);
			BGl_keyword5610z00zz__httpz00 =
				bstring_to_keyword(BGl_string5611z00zz__httpz00);
			BGl_list5609z00zz__httpz00 =
				MAKE_YOUNG_PAIR(BGl_keyword5610z00zz__httpz00,
				MAKE_YOUNG_PAIR(BGl_string5612z00zz__httpz00, BNIL));
			BGl_list5608z00zz__httpz00 =
				MAKE_YOUNG_PAIR(BGl_list5609z00zz__httpz00, BNIL);
			BGl_symbol5615z00zz__httpz00 =
				bstring_to_symbol(BGl_string5616z00zz__httpz00);
			BGl_symbol5618z00zz__httpz00 =
				bstring_to_symbol(BGl_string5619z00zz__httpz00);
			BGl_keyword5621z00zz__httpz00 =
				bstring_to_keyword(BGl_string5622z00zz__httpz00);
			BGl_keyword5623z00zz__httpz00 =
				bstring_to_keyword(BGl_string5624z00zz__httpz00);
			BGl_keyword5625z00zz__httpz00 =
				bstring_to_keyword(BGl_string5626z00zz__httpz00);
			BGl_keyword5627z00zz__httpz00 =
				bstring_to_keyword(BGl_string5628z00zz__httpz00);
			BGl_keyword5629z00zz__httpz00 =
				bstring_to_keyword(BGl_string5630z00zz__httpz00);
			BGl_keyword5631z00zz__httpz00 =
				bstring_to_keyword(BGl_string5632z00zz__httpz00);
			BGl_keyword5633z00zz__httpz00 =
				bstring_to_keyword(BGl_string5634z00zz__httpz00);
			BGl_keyword5635z00zz__httpz00 =
				bstring_to_keyword(BGl_string5636z00zz__httpz00);
			BGl_keyword5637z00zz__httpz00 =
				bstring_to_keyword(BGl_string5638z00zz__httpz00);
			BGl_keyword5639z00zz__httpz00 =
				bstring_to_keyword(BGl_string5640z00zz__httpz00);
			BGl_keyword5641z00zz__httpz00 =
				bstring_to_keyword(BGl_string5642z00zz__httpz00);
			BGl_keyword5643z00zz__httpz00 =
				bstring_to_keyword(BGl_string5644z00zz__httpz00);
			BGl_keyword5645z00zz__httpz00 =
				bstring_to_keyword(BGl_string5646z00zz__httpz00);
			BGl_keyword5647z00zz__httpz00 =
				bstring_to_keyword(BGl_string5648z00zz__httpz00);
			BGl_keyword5649z00zz__httpz00 =
				bstring_to_keyword(BGl_string5650z00zz__httpz00);
			BGl_keyword5651z00zz__httpz00 =
				bstring_to_keyword(BGl_string5652z00zz__httpz00);
			BGl_keyword5653z00zz__httpz00 =
				bstring_to_keyword(BGl_string5654z00zz__httpz00);
			BGl_keyword5655z00zz__httpz00 =
				bstring_to_keyword(BGl_string5656z00zz__httpz00);
			BGl_keyword5657z00zz__httpz00 =
				bstring_to_keyword(BGl_string5658z00zz__httpz00);
			BGl_keyword5659z00zz__httpz00 =
				bstring_to_keyword(BGl_string5660z00zz__httpz00);
			BGl_list5620z00zz__httpz00 =
				MAKE_YOUNG_PAIR(BGl_keyword5621z00zz__httpz00,
				MAKE_YOUNG_PAIR(BGl_keyword5623z00zz__httpz00,
					MAKE_YOUNG_PAIR(BGl_keyword5625z00zz__httpz00,
						MAKE_YOUNG_PAIR(BGl_keyword5627z00zz__httpz00,
							MAKE_YOUNG_PAIR(BGl_keyword5629z00zz__httpz00,
								MAKE_YOUNG_PAIR(BGl_keyword5631z00zz__httpz00,
									MAKE_YOUNG_PAIR(BGl_keyword5633z00zz__httpz00,
										MAKE_YOUNG_PAIR(BGl_keyword5635z00zz__httpz00,
											MAKE_YOUNG_PAIR(BGl_keyword5637z00zz__httpz00,
												MAKE_YOUNG_PAIR(BGl_keyword5639z00zz__httpz00,
													MAKE_YOUNG_PAIR(BGl_keyword5641z00zz__httpz00,
														MAKE_YOUNG_PAIR(BGl_keyword5643z00zz__httpz00,
															MAKE_YOUNG_PAIR(BGl_keyword5645z00zz__httpz00,
																MAKE_YOUNG_PAIR(BGl_keyword5647z00zz__httpz00,
																	MAKE_YOUNG_PAIR(BGl_keyword5649z00zz__httpz00,
																		MAKE_YOUNG_PAIR
																		(BGl_keyword5651z00zz__httpz00,
																			MAKE_YOUNG_PAIR
																			(BGl_keyword5653z00zz__httpz00,
																				MAKE_YOUNG_PAIR
																				(BGl_keyword5655z00zz__httpz00,
																					MAKE_YOUNG_PAIR
																					(BGl_keyword5657z00zz__httpz00,
																						MAKE_YOUNG_PAIR
																						(BGl_keyword5659z00zz__httpz00,
																							BNIL))))))))))))))))))));
			BGl_symbol5673z00zz__httpz00 =
				bstring_to_symbol(BGl_string5674z00zz__httpz00);
			BGl_symbol5680z00zz__httpz00 =
				bstring_to_symbol(BGl_string5681z00zz__httpz00);
			BGl_symbol5682z00zz__httpz00 =
				bstring_to_symbol(BGl_string5683z00zz__httpz00);
			BGl_symbol5684z00zz__httpz00 =
				bstring_to_symbol(BGl_string5685z00zz__httpz00);
			BGl_symbol5690z00zz__httpz00 =
				bstring_to_symbol(BGl_string5691z00zz__httpz00);
			BGl_list5694z00zz__httpz00 =
				MAKE_YOUNG_PAIR(BGl_string5672z00zz__httpz00, BNIL);
			BGl_symbol5709z00zz__httpz00 =
				bstring_to_symbol(BGl_string5701z00zz__httpz00);
			BGl_keyword5714z00zz__httpz00 =
				bstring_to_keyword(BGl_string5715z00zz__httpz00);
			BGl_keyword5716z00zz__httpz00 =
				bstring_to_keyword(BGl_string5717z00zz__httpz00);
			BGl_keyword5718z00zz__httpz00 =
				bstring_to_keyword(BGl_string5719z00zz__httpz00);
			BGl_keyword5720z00zz__httpz00 =
				bstring_to_keyword(BGl_string5721z00zz__httpz00);
			BGl_symbol5730z00zz__httpz00 =
				bstring_to_symbol(BGl_string5731z00zz__httpz00);
			BGl_symbol5733z00zz__httpz00 =
				bstring_to_symbol(BGl_string5734z00zz__httpz00);
			BGl_keyword5735z00zz__httpz00 =
				bstring_to_keyword(BGl_string5736z00zz__httpz00);
			BGl_symbol5737z00zz__httpz00 =
				bstring_to_symbol(BGl_string5738z00zz__httpz00);
			BGl_symbol5745z00zz__httpz00 =
				bstring_to_symbol(BGl_string5746z00zz__httpz00);
			BGl_symbol5748z00zz__httpz00 =
				bstring_to_symbol(BGl_string5749z00zz__httpz00);
			BGl_symbol5751z00zz__httpz00 =
				bstring_to_symbol(BGl_string5752z00zz__httpz00);
			BGl_symbol5753z00zz__httpz00 =
				bstring_to_symbol(BGl_string5754z00zz__httpz00);
			BGl_symbol5756z00zz__httpz00 =
				bstring_to_symbol(BGl_string5757z00zz__httpz00);
			BGl_symbol5763z00zz__httpz00 =
				bstring_to_symbol(BGl_string5764z00zz__httpz00);
			BGl_symbol5765z00zz__httpz00 =
				bstring_to_symbol(BGl_string5766z00zz__httpz00);
			BGl_symbol5770z00zz__httpz00 =
				bstring_to_symbol(BGl_string5771z00zz__httpz00);
			BGl_symbol5774z00zz__httpz00 =
				bstring_to_symbol(BGl_string5775z00zz__httpz00);
			BGl_symbol5776z00zz__httpz00 =
				bstring_to_symbol(BGl_string5777z00zz__httpz00);
			BGl_symbol5781z00zz__httpz00 =
				bstring_to_symbol(BGl_string5782z00zz__httpz00);
			BGl_symbol5785z00zz__httpz00 =
				bstring_to_symbol(BGl_string5650z00zz__httpz00);
			BGl_symbol5786z00zz__httpz00 =
				bstring_to_symbol(BGl_string5705z00zz__httpz00);
			BGl_symbol5789z00zz__httpz00 =
				bstring_to_symbol(BGl_string5790z00zz__httpz00);
			BGl_symbol5791z00zz__httpz00 =
				bstring_to_symbol(BGl_string5792z00zz__httpz00);
			return (BGl_symbol5796z00zz__httpz00 =
				bstring_to_symbol(BGl_string5797z00zz__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_zc3z04anonymousza31593ze3z87_12382;

				{
					int BgL_tmpz00_13110;

					BgL_tmpz00_13110 = (int) (0L);
					BgL_zc3z04anonymousza31593ze3z87_12382 =
						MAKE_EL_PROCEDURE(BgL_tmpz00_13110);
				}
				BGl_statuszd2linezd2grammarz00zz__httpz00 =
					BgL_zc3z04anonymousza31593ze3z87_12382;
			}
			{	/* Unsafe/http.scm 691 */
				obj_t BgL_zc3z04anonymousza31825ze3z87_12381;

				{
					int BgL_tmpz00_13113;

					BgL_tmpz00_13113 = (int) (0L);
					BgL_zc3z04anonymousza31825ze3z87_12381 =
						MAKE_EL_PROCEDURE(BgL_tmpz00_13113);
				}
				BGl_za2chunkzd2siza7ezd2grammarza2za7zz__httpz00 =
					BgL_zc3z04anonymousza31825ze3z87_12381;
			}
			return (BGl_za2bufferzd2lengthza2zd2zz__httpz00 = 8192L, BUNSPEC);
		}

	}



/* &<@anonymous:1825> */
	obj_t BGl_z62zc3z04anonymousza31825ze3ze5zz__httpz00(obj_t BgL_envz00_12383,
		obj_t BgL_iportz00_12384, obj_t BgL_opz00_12385)
	{
		{	/* Unsafe/http.scm 691 */
			{
				obj_t BgL_iportz00_12650;
				long BgL_lastzd2matchzd2_12651;
				long BgL_forwardz00_12652;
				long BgL_bufposz00_12653;
				obj_t BgL_iportz00_12641;
				long BgL_lastzd2matchzd2_12642;
				long BgL_forwardz00_12643;
				long BgL_bufposz00_12644;
				obj_t BgL_iportz00_12623;
				long BgL_lastzd2matchzd2_12624;
				long BgL_forwardz00_12625;
				long BgL_bufposz00_12626;
				obj_t BgL_iportz00_12604;
				long BgL_lastzd2matchzd2_12605;
				long BgL_forwardz00_12606;
				long BgL_bufposz00_12607;

				RGC_START_MATCH(BgL_iportz00_12384);
				{	/* Unsafe/http.scm 691 */
					long BgL_matchz00_12669;

					{	/* Unsafe/http.scm 691 */
						long BgL_arg2224z00_12670;
						long BgL_arg2225z00_12671;

						BgL_arg2224z00_12670 = RGC_BUFFER_FORWARD(BgL_iportz00_12384);
						BgL_arg2225z00_12671 = RGC_BUFFER_BUFPOS(BgL_iportz00_12384);
						BgL_iportz00_12641 = BgL_iportz00_12384;
						BgL_lastzd2matchzd2_12642 = 2L;
						BgL_forwardz00_12643 = BgL_arg2224z00_12670;
						BgL_bufposz00_12644 = BgL_arg2225z00_12671;
					BgL_statezd20zd21300z00_12600:
						if ((BgL_forwardz00_12643 == BgL_bufposz00_12644))
							{	/* Unsafe/http.scm 691 */
								if (rgc_fill_buffer(BgL_iportz00_12641))
									{	/* Unsafe/http.scm 691 */
										long BgL_arg1872z00_12645;
										long BgL_arg1873z00_12646;

										BgL_arg1872z00_12645 =
											RGC_BUFFER_FORWARD(BgL_iportz00_12641);
										BgL_arg1873z00_12646 =
											RGC_BUFFER_BUFPOS(BgL_iportz00_12641);
										{
											long BgL_bufposz00_13126;
											long BgL_forwardz00_13125;

											BgL_forwardz00_13125 = BgL_arg1872z00_12645;
											BgL_bufposz00_13126 = BgL_arg1873z00_12646;
											BgL_bufposz00_12644 = BgL_bufposz00_13126;
											BgL_forwardz00_12643 = BgL_forwardz00_13125;
											goto BgL_statezd20zd21300z00_12600;
										}
									}
								else
									{	/* Unsafe/http.scm 691 */
										BgL_matchz00_12669 = BgL_lastzd2matchzd2_12642;
									}
							}
						else
							{	/* Unsafe/http.scm 691 */
								int BgL_curz00_12647;

								BgL_curz00_12647 =
									RGC_BUFFER_GET_CHAR(BgL_iportz00_12641, BgL_forwardz00_12643);
								{	/* Unsafe/http.scm 691 */

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

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

											if (((long) (BgL_curz00_12647) >= 48L))
												{	/* Unsafe/http.scm 691 */
													BgL_test5956z00_13129 =
														((long) (BgL_curz00_12647) < 58L);
												}
											else
												{	/* Unsafe/http.scm 691 */
													BgL_test5956z00_13129 = ((bool_t) 0);
												}
											if (BgL_test5956z00_13129)
												{	/* Unsafe/http.scm 691 */
													BgL_test5955z00_13128 = ((bool_t) 1);
												}
											else
												{	/* Unsafe/http.scm 691 */
													bool_t BgL_test5958z00_13135;

													if (((long) (BgL_curz00_12647) >= 65L))
														{	/* Unsafe/http.scm 691 */
															BgL_test5958z00_13135 =
																((long) (BgL_curz00_12647) < 71L);
														}
													else
														{	/* Unsafe/http.scm 691 */
															BgL_test5958z00_13135 = ((bool_t) 0);
														}
													if (BgL_test5958z00_13135)
														{	/* Unsafe/http.scm 691 */
															BgL_test5955z00_13128 = ((bool_t) 1);
														}
													else
														{	/* Unsafe/http.scm 691 */
															if (((long) (BgL_curz00_12647) >= 97L))
																{	/* Unsafe/http.scm 691 */
																	BgL_test5955z00_13128 =
																		((long) (BgL_curz00_12647) < 103L);
																}
															else
																{	/* Unsafe/http.scm 691 */
																	BgL_test5955z00_13128 = ((bool_t) 0);
																}
														}
												}
										}
										if (BgL_test5955z00_13128)
											{	/* Unsafe/http.scm 691 */
												BgL_iportz00_12604 = BgL_iportz00_12641;
												BgL_lastzd2matchzd2_12605 = BgL_lastzd2matchzd2_12642;
												BgL_forwardz00_12606 = (1L + BgL_forwardz00_12643);
												BgL_bufposz00_12607 = BgL_bufposz00_12644;
											BgL_statezd22zd21302z00_12598:
												{	/* Unsafe/http.scm 691 */
													long BgL_newzd2matchzd2_12608;

													RGC_STOP_MATCH(BgL_iportz00_12604,
														BgL_forwardz00_12606);
													BgL_newzd2matchzd2_12608 = 2L;
													if ((BgL_forwardz00_12606 == BgL_bufposz00_12607))
														{	/* Unsafe/http.scm 691 */
															if (rgc_fill_buffer(BgL_iportz00_12604))
																{	/* Unsafe/http.scm 691 */
																	long BgL_arg1829z00_12609;
																	long BgL_arg1830z00_12610;

																	BgL_arg1829z00_12609 =
																		RGC_BUFFER_FORWARD(BgL_iportz00_12604);
																	BgL_arg1830z00_12610 =
																		RGC_BUFFER_BUFPOS(BgL_iportz00_12604);
																	{
																		long BgL_bufposz00_13154;
																		long BgL_forwardz00_13153;

																		BgL_forwardz00_13153 = BgL_arg1829z00_12609;
																		BgL_bufposz00_13154 = BgL_arg1830z00_12610;
																		BgL_bufposz00_12607 = BgL_bufposz00_13154;
																		BgL_forwardz00_12606 = BgL_forwardz00_13153;
																		goto BgL_statezd22zd21302z00_12598;
																	}
																}
															else
																{	/* Unsafe/http.scm 691 */
																	BgL_matchz00_12669 = BgL_newzd2matchzd2_12608;
																}
														}
													else
														{	/* Unsafe/http.scm 691 */
															int BgL_curz00_12611;

															BgL_curz00_12611 =
																RGC_BUFFER_GET_CHAR(BgL_iportz00_12604,
																BgL_forwardz00_12606);
															{	/* Unsafe/http.scm 691 */

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

																		BgL_arg1832z00_12612 =
																			(1L + BgL_forwardz00_12606);
																		{	/* Unsafe/http.scm 691 */
																			long BgL_newzd2matchzd2_12613;

																			RGC_STOP_MATCH(BgL_iportz00_12604,
																				BgL_arg1832z00_12612);
																			BgL_newzd2matchzd2_12613 = 0L;
																			BgL_matchz00_12669 =
																				BgL_newzd2matchzd2_12613;
																	}}
																else
																	{	/* Unsafe/http.scm 691 */
																		bool_t BgL_test5964z00_13161;

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

																			if (((long) (BgL_curz00_12611) >= 48L))
																				{	/* Unsafe/http.scm 691 */
																					BgL_test5965z00_13162 =
																						((long) (BgL_curz00_12611) < 58L);
																				}
																			else
																				{	/* Unsafe/http.scm 691 */
																					BgL_test5965z00_13162 = ((bool_t) 0);
																				}
																			if (BgL_test5965z00_13162)
																				{	/* Unsafe/http.scm 691 */
																					BgL_test5964z00_13161 = ((bool_t) 1);
																				}
																			else
																				{	/* Unsafe/http.scm 691 */
																					bool_t BgL_test5967z00_13168;

																					if (
																						((long) (BgL_curz00_12611) >= 65L))
																						{	/* Unsafe/http.scm 691 */
																							BgL_test5967z00_13168 =
																								(
																								(long) (BgL_curz00_12611) <
																								71L);
																						}
																					else
																						{	/* Unsafe/http.scm 691 */
																							BgL_test5967z00_13168 =
																								((bool_t) 0);
																						}
																					if (BgL_test5967z00_13168)
																						{	/* Unsafe/http.scm 691 */
																							BgL_test5964z00_13161 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Unsafe/http.scm 691 */
																							if (
																								((long) (BgL_curz00_12611) >=
																									97L))
																								{	/* Unsafe/http.scm 691 */
																									BgL_test5964z00_13161 =
																										(
																										(long) (BgL_curz00_12611) <
																										103L);
																								}
																							else
																								{	/* Unsafe/http.scm 691 */
																									BgL_test5964z00_13161 =
																										((bool_t) 0);
																								}
																						}
																				}
																		}
																		if (BgL_test5964z00_13161)
																			{	/* Unsafe/http.scm 691 */
																				BgL_iportz00_12623 = BgL_iportz00_12604;
																				BgL_lastzd2matchzd2_12624 =
																					BgL_newzd2matchzd2_12608;
																				BgL_forwardz00_12625 =
																					(1L + BgL_forwardz00_12606);
																				BgL_bufposz00_12626 =
																					BgL_bufposz00_12607;
																			BgL_statezd25zd21305z00_12599:
																				if (
																					(BgL_forwardz00_12625 ==
																						BgL_bufposz00_12626))
																					{	/* Unsafe/http.scm 691 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_12623))
																							{	/* Unsafe/http.scm 691 */
																								long BgL_arg1848z00_12627;
																								long BgL_arg1850z00_12628;

																								BgL_arg1848z00_12627 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_12623);
																								BgL_arg1850z00_12628 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_12623);
																								{
																									long BgL_bufposz00_13186;
																									long BgL_forwardz00_13185;

																									BgL_forwardz00_13185 =
																										BgL_arg1848z00_12627;
																									BgL_bufposz00_13186 =
																										BgL_arg1850z00_12628;
																									BgL_bufposz00_12626 =
																										BgL_bufposz00_13186;
																									BgL_forwardz00_12625 =
																										BgL_forwardz00_13185;
																									goto
																										BgL_statezd25zd21305z00_12599;
																								}
																							}
																						else
																							{	/* Unsafe/http.scm 691 */
																								BgL_matchz00_12669 =
																									BgL_lastzd2matchzd2_12624;
																							}
																					}
																				else
																					{	/* Unsafe/http.scm 691 */
																						int BgL_curz00_12629;

																						BgL_curz00_12629 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_12623,
																							BgL_forwardz00_12625);
																						{	/* Unsafe/http.scm 691 */

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

																									BgL_arg1852z00_12630 =
																										(1L + BgL_forwardz00_12625);
																									{	/* Unsafe/http.scm 691 */
																										long
																											BgL_newzd2matchzd2_12631;
																										RGC_STOP_MATCH
																											(BgL_iportz00_12623,
																											BgL_arg1852z00_12630);
																										BgL_newzd2matchzd2_12631 =
																											0L;
																										BgL_matchz00_12669 =
																											BgL_newzd2matchzd2_12631;
																								}}
																							else
																								{	/* Unsafe/http.scm 691 */
																									bool_t BgL_test5973z00_13193;

																									{	/* Unsafe/http.scm 691 */
																										bool_t
																											BgL_test5974z00_13194;
																										if (((long)
																												(BgL_curz00_12629) >=
																												48L))
																											{	/* Unsafe/http.scm 691 */
																												BgL_test5974z00_13194 =
																													(
																													(long)
																													(BgL_curz00_12629) <
																													58L);
																											}
																										else
																											{	/* Unsafe/http.scm 691 */
																												BgL_test5974z00_13194 =
																													((bool_t) 0);
																											}
																										if (BgL_test5974z00_13194)
																											{	/* Unsafe/http.scm 691 */
																												BgL_test5973z00_13193 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Unsafe/http.scm 691 */
																												bool_t
																													BgL_test5976z00_13200;
																												if (((long)
																														(BgL_curz00_12629)
																														>= 65L))
																													{	/* Unsafe/http.scm 691 */
																														BgL_test5976z00_13200
																															=
																															((long)
																															(BgL_curz00_12629)
																															< 71L);
																													}
																												else
																													{	/* Unsafe/http.scm 691 */
																														BgL_test5976z00_13200
																															= ((bool_t) 0);
																													}
																												if (BgL_test5976z00_13200)
																													{	/* Unsafe/http.scm 691 */
																														BgL_test5973z00_13193
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Unsafe/http.scm 691 */
																														if (
																															((long)
																																(BgL_curz00_12629)
																																>= 97L))
																															{	/* Unsafe/http.scm 691 */
																																BgL_test5973z00_13193
																																	=
																																	((long)
																																	(BgL_curz00_12629)
																																	< 103L);
																															}
																														else
																															{	/* Unsafe/http.scm 691 */
																																BgL_test5973z00_13193
																																	=
																																	((bool_t) 0);
																															}
																													}
																											}
																									}
																									if (BgL_test5973z00_13193)
																										{
																											long BgL_forwardz00_13211;

																											BgL_forwardz00_13211 =
																												(1L +
																												BgL_forwardz00_12625);
																											BgL_forwardz00_12625 =
																												BgL_forwardz00_13211;
																											goto
																												BgL_statezd25zd21305z00_12599;
																										}
																									else
																										{	/* Unsafe/http.scm 691 */
																											if (
																												((long)
																													(BgL_curz00_12629) ==
																													13L))
																												{	/* Unsafe/http.scm 691 */
																													long
																														BgL_arg1864z00_12632;
																													BgL_arg1864z00_12632 =
																														(1L +
																														BgL_forwardz00_12625);
																													{
																														long
																															BgL_forwardz00_12634;
																														long
																															BgL_bufposz00_12635;
																														BgL_forwardz00_12634
																															=
																															BgL_arg1864z00_12632;
																														BgL_bufposz00_12635
																															=
																															BgL_bufposz00_12626;
																													BgL_statezd24zd21304z00_12633:
																														if (
																															(BgL_forwardz00_12634
																																==
																																BgL_bufposz00_12635))
																															{	/* Unsafe/http.scm 691 */
																																if (rgc_fill_buffer(BgL_iportz00_12623))
																																	{	/* Unsafe/http.scm 691 */
																																		long
																																			BgL_arg1886z00_12636;
																																		long
																																			BgL_arg1888z00_12637;
																																		BgL_arg1886z00_12636
																																			=
																																			RGC_BUFFER_FORWARD
																																			(BgL_iportz00_12623);
																																		BgL_arg1888z00_12637
																																			=
																																			RGC_BUFFER_BUFPOS
																																			(BgL_iportz00_12623);
																																		{
																																			long
																																				BgL_bufposz00_13224;
																																			long
																																				BgL_forwardz00_13223;
																																			BgL_forwardz00_13223
																																				=
																																				BgL_arg1886z00_12636;
																																			BgL_bufposz00_13224
																																				=
																																				BgL_arg1888z00_12637;
																																			BgL_bufposz00_12635
																																				=
																																				BgL_bufposz00_13224;
																																			BgL_forwardz00_12634
																																				=
																																				BgL_forwardz00_13223;
																																			goto
																																				BgL_statezd24zd21304z00_12633;
																																		}
																																	}
																																else
																																	{	/* Unsafe/http.scm 691 */
																																		BgL_matchz00_12669
																																			=
																																			BgL_lastzd2matchzd2_12624;
																																	}
																															}
																														else
																															{	/* Unsafe/http.scm 691 */
																																int
																																	BgL_curz00_12638;
																																BgL_curz00_12638
																																	=
																																	RGC_BUFFER_GET_CHAR
																																	(BgL_iportz00_12623,
																																	BgL_forwardz00_12634);
																																{	/* Unsafe/http.scm 691 */

																																	if (
																																		((long)
																																			(BgL_curz00_12638)
																																			== 10L))
																																		{	/* Unsafe/http.scm 691 */
																																			long
																																				BgL_arg1890z00_12639;
																																			BgL_arg1890z00_12639
																																				=
																																				(1L +
																																				BgL_forwardz00_12634);
																																			{	/* Unsafe/http.scm 691 */
																																				long
																																					BgL_newzd2matchzd2_12640;
																																				RGC_STOP_MATCH
																																					(BgL_iportz00_12623,
																																					BgL_arg1890z00_12639);
																																				BgL_newzd2matchzd2_12640
																																					= 1L;
																																				BgL_matchz00_12669
																																					=
																																					BgL_newzd2matchzd2_12640;
																																		}}
																																	else
																																		{	/* Unsafe/http.scm 691 */
																																			BgL_matchz00_12669
																																				=
																																				BgL_lastzd2matchzd2_12624;
																																		}
																																}
																															}
																													}
																												}
																											else
																												{	/* Unsafe/http.scm 691 */
																													bool_t
																														BgL_test5983z00_13231;
																													if (((long)
																															(BgL_curz00_12629)
																															== 9L))
																														{	/* Unsafe/http.scm 691 */
																															BgL_test5983z00_13231
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Unsafe/http.scm 691 */
																															BgL_test5983z00_13231
																																=
																																((long)
																																(BgL_curz00_12629)
																																== 32L);
																														}
																													if (BgL_test5983z00_13231)
																														{	/* Unsafe/http.scm 691 */
																															BgL_iportz00_12650
																																=
																																BgL_iportz00_12623;
																															BgL_lastzd2matchzd2_12651
																																=
																																BgL_lastzd2matchzd2_12624;
																															BgL_forwardz00_12652
																																=
																																(1L +
																																BgL_forwardz00_12625);
																															BgL_bufposz00_12653
																																=
																																BgL_bufposz00_12626;
																														BgL_statezd23zd21303z00_12601:
																															if (
																																(BgL_forwardz00_12652
																																	==
																																	BgL_bufposz00_12653))
																																{	/* Unsafe/http.scm 691 */
																																	if (rgc_fill_buffer(BgL_iportz00_12650))
																																		{	/* Unsafe/http.scm 691 */
																																			long
																																				BgL_arg1894z00_12654;
																																			long
																																				BgL_arg1895z00_12655;
																																			BgL_arg1894z00_12654
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_iportz00_12650);
																																			BgL_arg1895z00_12655
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_iportz00_12650);
																																			{
																																				long
																																					BgL_bufposz00_13244;
																																				long
																																					BgL_forwardz00_13243;
																																				BgL_forwardz00_13243
																																					=
																																					BgL_arg1894z00_12654;
																																				BgL_bufposz00_13244
																																					=
																																					BgL_arg1895z00_12655;
																																				BgL_bufposz00_12653
																																					=
																																					BgL_bufposz00_13244;
																																				BgL_forwardz00_12652
																																					=
																																					BgL_forwardz00_13243;
																																				goto
																																					BgL_statezd23zd21303z00_12601;
																																			}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 691 */
																																			BgL_matchz00_12669
																																				=
																																				BgL_lastzd2matchzd2_12651;
																																		}
																																}
																															else
																																{	/* Unsafe/http.scm 691 */
																																	int
																																		BgL_curz00_12656;
																																	BgL_curz00_12656
																																		=
																																		RGC_BUFFER_GET_CHAR
																																		(BgL_iportz00_12650,
																																		BgL_forwardz00_12652);
																																	{	/* Unsafe/http.scm 691 */

																																		if (
																																			((long)
																																				(BgL_curz00_12656)
																																				== 59L))
																																			{	/* Unsafe/http.scm 691 */
																																				long
																																					BgL_arg1897z00_12657;
																																				BgL_arg1897z00_12657
																																					=
																																					(1L +
																																					BgL_forwardz00_12652);
																																				{	/* Unsafe/http.scm 691 */
																																					long
																																						BgL_newzd2matchzd2_12658;
																																					RGC_STOP_MATCH
																																						(BgL_iportz00_12650,
																																						BgL_arg1897z00_12657);
																																					BgL_newzd2matchzd2_12658
																																						=
																																						0L;
																																					BgL_matchz00_12669
																																						=
																																						BgL_newzd2matchzd2_12658;
																																			}}
																																		else
																																			{	/* Unsafe/http.scm 691 */
																																				if (
																																					((long) (BgL_curz00_12656) == 13L))
																																					{	/* Unsafe/http.scm 691 */
																																						long
																																							BgL_arg1899z00_12659;
																																						BgL_arg1899z00_12659
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_12652);
																																						{
																																							long
																																								BgL_forwardz00_12661;
																																							long
																																								BgL_bufposz00_12662;
																																							BgL_forwardz00_12661
																																								=
																																								BgL_arg1899z00_12659;
																																							BgL_bufposz00_12662
																																								=
																																								BgL_bufposz00_12653;
																																						BgL_statezd24zd21304z00_12660:
																																							if ((BgL_forwardz00_12661 == BgL_bufposz00_12662))
																																								{	/* Unsafe/http.scm 691 */
																																									if (rgc_fill_buffer(BgL_iportz00_12650))
																																										{	/* Unsafe/http.scm 691 */
																																											long
																																												BgL_arg1886z00_12663;
																																											long
																																												BgL_arg1888z00_12664;
																																											BgL_arg1886z00_12663
																																												=
																																												RGC_BUFFER_FORWARD
																																												(BgL_iportz00_12650);
																																											BgL_arg1888z00_12664
																																												=
																																												RGC_BUFFER_BUFPOS
																																												(BgL_iportz00_12650);
																																											{
																																												long
																																													BgL_bufposz00_13262;
																																												long
																																													BgL_forwardz00_13261;
																																												BgL_forwardz00_13261
																																													=
																																													BgL_arg1886z00_12663;
																																												BgL_bufposz00_13262
																																													=
																																													BgL_arg1888z00_12664;
																																												BgL_bufposz00_12662
																																													=
																																													BgL_bufposz00_13262;
																																												BgL_forwardz00_12661
																																													=
																																													BgL_forwardz00_13261;
																																												goto
																																													BgL_statezd24zd21304z00_12660;
																																											}
																																										}
																																									else
																																										{	/* Unsafe/http.scm 691 */
																																											BgL_matchz00_12669
																																												=
																																												BgL_lastzd2matchzd2_12651;
																																										}
																																								}
																																							else
																																								{	/* Unsafe/http.scm 691 */
																																									int
																																										BgL_curz00_12665;
																																									BgL_curz00_12665
																																										=
																																										RGC_BUFFER_GET_CHAR
																																										(BgL_iportz00_12650,
																																										BgL_forwardz00_12661);
																																									{	/* Unsafe/http.scm 691 */

																																										if (((long) (BgL_curz00_12665) == 10L))
																																											{	/* Unsafe/http.scm 691 */
																																												long
																																													BgL_arg1890z00_12666;
																																												BgL_arg1890z00_12666
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_12661);
																																												{	/* Unsafe/http.scm 691 */
																																													long
																																														BgL_newzd2matchzd2_12667;
																																													RGC_STOP_MATCH
																																														(BgL_iportz00_12650,
																																														BgL_arg1890z00_12666);
																																													BgL_newzd2matchzd2_12667
																																														=
																																														1L;
																																													BgL_matchz00_12669
																																														=
																																														BgL_newzd2matchzd2_12667;
																																											}}
																																										else
																																											{	/* Unsafe/http.scm 691 */
																																												BgL_matchz00_12669
																																													=
																																													BgL_lastzd2matchzd2_12651;
																																											}
																																									}
																																								}
																																						}
																																					}
																																				else
																																					{	/* Unsafe/http.scm 691 */
																																						bool_t
																																							BgL_test5992z00_13269;
																																						if (
																																							((long) (BgL_curz00_12656) == 9L))
																																							{	/* Unsafe/http.scm 691 */
																																								BgL_test5992z00_13269
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Unsafe/http.scm 691 */
																																								BgL_test5992z00_13269
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_12656)
																																									==
																																									32L);
																																							}
																																						if (BgL_test5992z00_13269)
																																							{
																																								long
																																									BgL_forwardz00_13275;
																																								BgL_forwardz00_13275
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_12652);
																																								BgL_forwardz00_12652
																																									=
																																									BgL_forwardz00_13275;
																																								goto
																																									BgL_statezd23zd21303z00_12601;
																																							}
																																						else
																																							{	/* Unsafe/http.scm 691 */
																																								BgL_matchz00_12669
																																									=
																																									BgL_lastzd2matchzd2_12651;
																																							}
																																					}
																																			}
																																	}
																																}
																														}
																													else
																														{	/* Unsafe/http.scm 691 */
																															BgL_matchz00_12669
																																=
																																BgL_lastzd2matchzd2_12624;
																														}
																												}
																										}
																								}
																						}
																					}
																			}
																		else
																			{	/* Unsafe/http.scm 691 */
																				if (((long) (BgL_curz00_12611) == 13L))
																					{	/* Unsafe/http.scm 691 */
																						long BgL_arg1840z00_12614;

																						BgL_arg1840z00_12614 =
																							(1L + BgL_forwardz00_12606);
																						{
																							long BgL_forwardz00_12616;
																							long BgL_bufposz00_12617;

																							BgL_forwardz00_12616 =
																								BgL_arg1840z00_12614;
																							BgL_bufposz00_12617 =
																								BgL_bufposz00_12607;
																						BgL_statezd24zd21304z00_12615:
																							if (
																								(BgL_forwardz00_12616 ==
																									BgL_bufposz00_12617))
																								{	/* Unsafe/http.scm 691 */
																									if (rgc_fill_buffer
																										(BgL_iportz00_12604))
																										{	/* Unsafe/http.scm 691 */
																											long BgL_arg1886z00_12618;
																											long BgL_arg1888z00_12619;

																											BgL_arg1886z00_12618 =
																												RGC_BUFFER_FORWARD
																												(BgL_iportz00_12604);
																											BgL_arg1888z00_12619 =
																												RGC_BUFFER_BUFPOS
																												(BgL_iportz00_12604);
																											{
																												long
																													BgL_bufposz00_13290;
																												long
																													BgL_forwardz00_13289;
																												BgL_forwardz00_13289 =
																													BgL_arg1886z00_12618;
																												BgL_bufposz00_13290 =
																													BgL_arg1888z00_12619;
																												BgL_bufposz00_12617 =
																													BgL_bufposz00_13290;
																												BgL_forwardz00_12616 =
																													BgL_forwardz00_13289;
																												goto
																													BgL_statezd24zd21304z00_12615;
																											}
																										}
																									else
																										{	/* Unsafe/http.scm 691 */
																											BgL_matchz00_12669 =
																												BgL_newzd2matchzd2_12608;
																										}
																								}
																							else
																								{	/* Unsafe/http.scm 691 */
																									int BgL_curz00_12620;

																									BgL_curz00_12620 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_iportz00_12604,
																										BgL_forwardz00_12616);
																									{	/* Unsafe/http.scm 691 */

																										if (
																											((long) (BgL_curz00_12620)
																												== 10L))
																											{	/* Unsafe/http.scm 691 */
																												long
																													BgL_arg1890z00_12621;
																												BgL_arg1890z00_12621 =
																													(1L +
																													BgL_forwardz00_12616);
																												{	/* Unsafe/http.scm 691 */
																													long
																														BgL_newzd2matchzd2_12622;
																													RGC_STOP_MATCH
																														(BgL_iportz00_12604,
																														BgL_arg1890z00_12621);
																													BgL_newzd2matchzd2_12622
																														= 1L;
																													BgL_matchz00_12669 =
																														BgL_newzd2matchzd2_12622;
																											}}
																										else
																											{	/* Unsafe/http.scm 691 */
																												BgL_matchz00_12669 =
																													BgL_newzd2matchzd2_12608;
																											}
																									}
																								}
																						}
																					}
																				else
																					{	/* Unsafe/http.scm 691 */
																						bool_t BgL_test5998z00_13297;

																						if (
																							((long) (BgL_curz00_12611) == 9L))
																							{	/* Unsafe/http.scm 691 */
																								BgL_test5998z00_13297 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Unsafe/http.scm 691 */
																								BgL_test5998z00_13297 =
																									(
																									(long) (BgL_curz00_12611) ==
																									32L);
																							}
																						if (BgL_test5998z00_13297)
																							{
																								long BgL_bufposz00_13307;
																								long BgL_forwardz00_13305;
																								long BgL_lastzd2matchzd2_13304;
																								obj_t BgL_iportz00_13303;

																								BgL_iportz00_13303 =
																									BgL_iportz00_12604;
																								BgL_lastzd2matchzd2_13304 =
																									BgL_newzd2matchzd2_12608;
																								BgL_forwardz00_13305 =
																									(1L + BgL_forwardz00_12606);
																								BgL_bufposz00_13307 =
																									BgL_bufposz00_12607;
																								BgL_bufposz00_12653 =
																									BgL_bufposz00_13307;
																								BgL_forwardz00_12652 =
																									BgL_forwardz00_13305;
																								BgL_lastzd2matchzd2_12651 =
																									BgL_lastzd2matchzd2_13304;
																								BgL_iportz00_12650 =
																									BgL_iportz00_13303;
																								goto
																									BgL_statezd23zd21303z00_12601;
																							}
																						else
																							{	/* Unsafe/http.scm 691 */
																								BgL_matchz00_12669 =
																									BgL_newzd2matchzd2_12608;
																							}
																					}
																			}
																	}
															}
														}
												}
											}
										else
											{	/* Unsafe/http.scm 691 */
												long BgL_arg1880z00_12648;

												BgL_arg1880z00_12648 = (1L + BgL_forwardz00_12643);
												{	/* Unsafe/http.scm 691 */
													long BgL_newzd2matchzd2_12649;

													RGC_STOP_MATCH(BgL_iportz00_12641,
														BgL_arg1880z00_12648);
													BgL_newzd2matchzd2_12649 = 2L;
													BgL_matchz00_12669 = BgL_newzd2matchzd2_12649;
					}}}}}}
					RGC_SET_FILEPOS(BgL_iportz00_12384);
					switch (BgL_matchz00_12669)
						{
						case 2L:

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

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

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

										BgL_arg1989z00_12668 =
											RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12384);
										BgL_test6000z00_13312 = (BgL_arg1989z00_12668 == 0L);
									}
									if (BgL_test6000z00_13312)
										{	/* Unsafe/http.scm 691 */
											BgL_c1z00_12672 = BEOF;
										}
									else
										{	/* Unsafe/http.scm 691 */
											BgL_c1z00_12672 =
												BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_12384));
										}
								}
								{	/* Unsafe/http.scm 716 */
									obj_t BgL_c2z00_12673;

									BgL_c2z00_12673 =
										BGl_readzd2charzd2zz__r4_input_6_10_2z00
										(BgL_iportz00_12384);
									{	/* Unsafe/http.scm 717 */
										obj_t BgL_c3z00_12674;

										BgL_c3z00_12674 =
											BGl_readzd2charzd2zz__r4_input_6_10_2z00
											(BgL_iportz00_12384);
										{	/* Unsafe/http.scm 718 */
											obj_t BgL_c4z00_12675;

											BgL_c4z00_12675 =
												BGl_readzd2charzd2zz__r4_input_6_10_2z00
												(BgL_iportz00_12384);
											{	/* Unsafe/http.scm 719 */
												obj_t BgL_c5z00_12676;

												BgL_c5z00_12676 =
													BGl_readzd2charzd2zz__r4_input_6_10_2z00
													(BgL_iportz00_12384);
												{	/* Unsafe/http.scm 720 */

													{	/* Unsafe/http.scm 721 */
														BgL_z62iozd2parsezd2errorz62_bglt
															BgL_arg1996z00_12677;
														{	/* Unsafe/http.scm 721 */
															BgL_z62iozd2parsezd2errorz62_bglt
																BgL_new1315z00_12678;
															{	/* Unsafe/http.scm 721 */
																BgL_z62iozd2parsezd2errorz62_bglt
																	BgL_new1314z00_12679;
																BgL_new1314z00_12679 =
																	((BgL_z62iozd2parsezd2errorz62_bglt)
																	BOBJECT(GC_MALLOC(sizeof(struct
																				BgL_z62iozd2parsezd2errorz62_bgl))));
																{	/* Unsafe/http.scm 721 */
																	long BgL_arg2010z00_12680;

																	BgL_arg2010z00_12680 =
																		BGL_CLASS_NUM
																		(BGl_z62iozd2parsezd2errorz62zz__objectz00);
																	BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
																			BgL_new1314z00_12679),
																		BgL_arg2010z00_12680);
																}
																BgL_new1315z00_12678 = BgL_new1314z00_12679;
															}
															((((BgL_z62exceptionz62_bglt) COBJECT(
																			((BgL_z62exceptionz62_bglt)
																				BgL_new1315z00_12678)))->BgL_fnamez00) =
																((obj_t) BFALSE), BUNSPEC);
															((((BgL_z62exceptionz62_bglt)
																		COBJECT(((BgL_z62exceptionz62_bglt)
																				BgL_new1315z00_12678)))->
																	BgL_locationz00) = ((obj_t) BFALSE), BUNSPEC);
															{
																obj_t BgL_auxz00_13329;

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

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

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

																			BgL_classz00_12683 =
																				BGl_z62iozd2parsezd2errorz62zz__objectz00;
																			BgL_arg1998z00_12682 =
																				BGL_CLASS_ALL_FIELDS
																				(BgL_classz00_12683);
																		}
																		BgL_arg1997z00_12681 =
																			VECTOR_REF(BgL_arg1998z00_12682, 2L);
																	}
																	BgL_auxz00_13329 =
																		BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																		(BgL_arg1997z00_12681);
																}
																((((BgL_z62exceptionz62_bglt) COBJECT(
																				((BgL_z62exceptionz62_bglt)
																					BgL_new1315z00_12678)))->
																		BgL_stackz00) =
																	((obj_t) BgL_auxz00_13329), BUNSPEC);
															}
															((((BgL_z62errorz62_bglt) COBJECT(
																			((BgL_z62errorz62_bglt)
																				BgL_new1315z00_12678)))->BgL_procz00) =
																((obj_t) BGl_symbol5596z00zz__httpz00),
																BUNSPEC);
															((((BgL_z62errorz62_bglt)
																		COBJECT(((BgL_z62errorz62_bglt)
																				BgL_new1315z00_12678)))->BgL_msgz00) =
																((obj_t) BGl_string5598z00zz__httpz00),
																BUNSPEC);
															{
																obj_t BgL_auxz00_13339;

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

																	if (EOF_OBJECTP(BgL_c1z00_12672))
																		{	/* Unsafe/http.scm 724 */
																			BgL_test6001z00_13341 = ((bool_t) 1);
																		}
																	else
																		{	/* Unsafe/http.scm 724 */
																			if (EOF_OBJECTP(BgL_c2z00_12673))
																				{	/* Unsafe/http.scm 725 */
																					BgL_test6001z00_13341 = ((bool_t) 1);
																				}
																			else
																				{	/* Unsafe/http.scm 725 */
																					if (EOF_OBJECTP(BgL_c3z00_12674))
																						{	/* Unsafe/http.scm 726 */
																							BgL_test6001z00_13341 =
																								((bool_t) 1);
																						}
																					else
																						{	/* Unsafe/http.scm 726 */
																							if (EOF_OBJECTP(BgL_c4z00_12675))
																								{	/* Unsafe/http.scm 727 */
																									BgL_test6001z00_13341 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Unsafe/http.scm 727 */
																									BgL_test6001z00_13341 =
																										EOF_OBJECTP
																										(BgL_c5z00_12676);
																								}
																						}
																				}
																		}
																	if (BgL_test6001z00_13341)
																		{	/* Unsafe/http.scm 724 */
																			BgL_auxz00_13339 =
																				BGl_string5599z00zz__httpz00;
																		}
																	else
																		{	/* Unsafe/http.scm 730 */
																			obj_t BgL_arg2004z00_12684;

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

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

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

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

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

																								BgL_arg2009z00_12689 =
																									MAKE_YOUNG_PAIR
																									(BgL_c5z00_12676, BNIL);
																								BgL_arg2008z00_12688 =
																									MAKE_YOUNG_PAIR
																									(BgL_c4z00_12675,
																									BgL_arg2009z00_12689);
																							}
																							BgL_arg2007z00_12687 =
																								MAKE_YOUNG_PAIR(BgL_c3z00_12674,
																								BgL_arg2008z00_12688);
																						}
																						BgL_arg2006z00_12686 =
																							MAKE_YOUNG_PAIR(BgL_c2z00_12673,
																							BgL_arg2007z00_12687);
																					}
																					BgL_list2005z00_12685 =
																						MAKE_YOUNG_PAIR(BgL_c1z00_12672,
																						BgL_arg2006z00_12686);
																				}
																				BgL_arg2004z00_12684 =
																					BGl_listzd2ze3stringz31zz__r4_strings_6_7z00
																					(BgL_list2005z00_12685);
																			}
																			BgL_auxz00_13339 =
																				string_for_read(BgL_arg2004z00_12684);
																		}
																}
																((((BgL_z62errorz62_bglt) COBJECT(
																				((BgL_z62errorz62_bglt)
																					BgL_new1315z00_12678)))->BgL_objz00) =
																	((obj_t) BgL_auxz00_13339), BUNSPEC);
															}
															BgL_arg1996z00_12677 = BgL_new1315z00_12678;
														}
														return
															BGl_raisez00zz__errorz00(
															((obj_t) BgL_arg1996z00_12677));
													}
												}
											}
										}
									}
								}
							}
							break;
						case 1L:

							if (CBOOL(BgL_opz00_12385))
								{	/* Unsafe/http.scm 712 */
									obj_t BgL_arg2015z00_12690;

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

										BgL_arg1914z00_12691 =
											RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12384);
										BgL_arg2015z00_12690 =
											rgc_buffer_substring(BgL_iportz00_12384, 0L,
											BgL_arg1914z00_12691);
									}
									bgl_display_obj(BgL_arg2015z00_12690, BgL_opz00_12385);
								}
							else
								{	/* Unsafe/http.scm 712 */
									BFALSE;
								}
							{	/* Unsafe/http.scm 713 */
								long BgL_lz00_12692;

								BgL_lz00_12692 = RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12384);
								{	/* Unsafe/http.scm 714 */
									obj_t BgL_arg2016z00_12693;

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

										BgL_arg2018z00_12694 = (BgL_lz00_12692 - 2L);
										BgL_arg2016z00_12693 =
											BGl_thezd2substringze70z35zz__httpz00(BgL_iportz00_12384,
											(int) (0L), (int) (BgL_arg2018z00_12694));
									}
									{	/* Unsafe/http.scm 714 */
										long BgL_tmpz00_13371;

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

											BgL_tmpz00_13372 =
												BSTRING_TO_STRING(BgL_arg2016z00_12693);
											BgL_tmpz00_13371 = BGL_STRTOL(BgL_tmpz00_13372, 0L, 16L);
										}
										return BINT(BgL_tmpz00_13371);
									}
								}
							}
							break;
						case 0L:

							if (CBOOL(BgL_opz00_12385))
								{	/* Unsafe/http.scm 696 */
									obj_t BgL_arg2019z00_12695;

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

										BgL_arg1914z00_12696 =
											RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12384);
										BgL_arg2019z00_12695 =
											rgc_buffer_substring(BgL_iportz00_12384, 0L,
											BgL_arg1914z00_12696);
									}
									bgl_display_obj(BgL_arg2019z00_12695, BgL_opz00_12385);
								}
							else
								{	/* Unsafe/http.scm 696 */
									BFALSE;
								}
							{	/* Unsafe/http.scm 697 */
								long BgL_sza7za7_12697;

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

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

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

											BgL_arg2223z00_12700 =
												RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12384);
											BgL_arg2222z00_12699 = (BgL_arg2223z00_12700 - 1L);
										}
										BgL_arg2221z00_12698 =
											BGl_thezd2substringze70z35zz__httpz00(BgL_iportz00_12384,
											(int) (0L), (int) (BgL_arg2222z00_12699));
									}
									{	/* Unsafe/http.scm 697 */
										char *BgL_tmpz00_13386;

										BgL_tmpz00_13386 = BSTRING_TO_STRING(BgL_arg2221z00_12698);
										BgL_sza7za7_12697 = BGL_STRTOL(BgL_tmpz00_13386, 0L, 16L);
								}}
								{
									obj_t BgL_iportz00_12814;
									long BgL_lastzd2matchzd2_12815;
									long BgL_forwardz00_12816;
									long BgL_bufposz00_12817;
									obj_t BgL_iportz00_12807;
									long BgL_lastzd2matchzd2_12808;
									long BgL_forwardz00_12809;
									long BgL_bufposz00_12810;
									obj_t BgL_iportz00_12798;
									long BgL_lastzd2matchzd2_12799;
									long BgL_forwardz00_12800;
									long BgL_bufposz00_12801;
									obj_t BgL_iportz00_12791;
									long BgL_lastzd2matchzd2_12792;
									long BgL_forwardz00_12793;
									long BgL_bufposz00_12794;
									obj_t BgL_iportz00_12782;
									long BgL_lastzd2matchzd2_12783;
									long BgL_forwardz00_12784;
									long BgL_bufposz00_12785;
									obj_t BgL_iportz00_12775;
									long BgL_lastzd2matchzd2_12776;
									long BgL_forwardz00_12777;
									long BgL_bufposz00_12778;
									obj_t BgL_iportz00_12766;
									long BgL_lastzd2matchzd2_12767;
									long BgL_forwardz00_12768;
									long BgL_bufposz00_12769;
									obj_t BgL_iportz00_12759;
									long BgL_lastzd2matchzd2_12760;
									long BgL_forwardz00_12761;
									long BgL_bufposz00_12762;
									obj_t BgL_iportz00_12750;
									long BgL_lastzd2matchzd2_12751;
									long BgL_forwardz00_12752;
									long BgL_bufposz00_12753;
									obj_t BgL_iportz00_12743;
									long BgL_lastzd2matchzd2_12744;
									long BgL_forwardz00_12745;
									long BgL_bufposz00_12746;
									obj_t BgL_iportz00_12735;
									long BgL_lastzd2matchzd2_12736;
									long BgL_forwardz00_12737;
									long BgL_bufposz00_12738;

									RGC_START_MATCH(BgL_iportz00_12384);
									{	/* Unsafe/http.scm 700 */
										long BgL_matchz00_12714;

										{	/* Unsafe/http.scm 700 */
											long BgL_arg2219z00_12715;
											long BgL_arg2220z00_12716;

											BgL_arg2219z00_12715 =
												RGC_BUFFER_FORWARD(BgL_iportz00_12384);
											BgL_arg2220z00_12716 =
												RGC_BUFFER_BUFPOS(BgL_iportz00_12384);
											{
												long BgL_forwardz00_12718;
												long BgL_bufposz00_12719;

												BgL_forwardz00_12718 = BgL_arg2219z00_12715;
												BgL_bufposz00_12719 = BgL_arg2220z00_12716;
											BgL_statezd20zd21316z00_12717:
												if ((BgL_forwardz00_12718 == BgL_bufposz00_12719))
													{	/* Unsafe/http.scm 700 */
														if (rgc_fill_buffer(BgL_iportz00_12384))
															{	/* Unsafe/http.scm 700 */
																long BgL_arg2074z00_12720;
																long BgL_arg2076z00_12721;

																BgL_arg2074z00_12720 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_12384);
																BgL_arg2076z00_12721 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_12384);
																{
																	long BgL_bufposz00_13399;
																	long BgL_forwardz00_13398;

																	BgL_forwardz00_13398 = BgL_arg2074z00_12720;
																	BgL_bufposz00_13399 = BgL_arg2076z00_12721;
																	BgL_bufposz00_12719 = BgL_bufposz00_13399;
																	BgL_forwardz00_12718 = BgL_forwardz00_13398;
																	goto BgL_statezd20zd21316z00_12717;
																}
															}
														else
															{	/* Unsafe/http.scm 700 */
																BgL_matchz00_12714 = 1L;
															}
													}
												else
													{	/* Unsafe/http.scm 700 */
														int BgL_curz00_12722;

														BgL_curz00_12722 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_12384,
															BgL_forwardz00_12718);
														{	/* Unsafe/http.scm 700 */

															if (((long) (BgL_curz00_12722) == 13L))
																{	/* Unsafe/http.scm 700 */
																	BgL_iportz00_12814 = BgL_iportz00_12384;
																	BgL_lastzd2matchzd2_12815 = 1L;
																	BgL_forwardz00_12816 =
																		(1L + BgL_forwardz00_12718);
																	BgL_bufposz00_12817 = BgL_bufposz00_12719;
																BgL_statezd22zd21318z00_12713:
																	{	/* Unsafe/http.scm 700 */
																		long BgL_newzd2matchzd2_12818;

																		RGC_STOP_MATCH(BgL_iportz00_12814,
																			BgL_forwardz00_12816);
																		BgL_newzd2matchzd2_12818 = 1L;
																		if (
																			(BgL_forwardz00_12816 ==
																				BgL_bufposz00_12817))
																			{	/* Unsafe/http.scm 700 */
																				if (rgc_fill_buffer(BgL_iportz00_12814))
																					{	/* Unsafe/http.scm 700 */
																						long BgL_arg2023z00_12819;
																						long BgL_arg2024z00_12820;

																						BgL_arg2023z00_12819 =
																							RGC_BUFFER_FORWARD
																							(BgL_iportz00_12814);
																						BgL_arg2024z00_12820 =
																							RGC_BUFFER_BUFPOS
																							(BgL_iportz00_12814);
																						{
																							long BgL_bufposz00_13412;
																							long BgL_forwardz00_13411;

																							BgL_forwardz00_13411 =
																								BgL_arg2023z00_12819;
																							BgL_bufposz00_13412 =
																								BgL_arg2024z00_12820;
																							BgL_bufposz00_12817 =
																								BgL_bufposz00_13412;
																							BgL_forwardz00_12816 =
																								BgL_forwardz00_13411;
																							goto
																								BgL_statezd22zd21318z00_12713;
																						}
																					}
																				else
																					{	/* Unsafe/http.scm 700 */
																						BgL_matchz00_12714 =
																							BgL_newzd2matchzd2_12818;
																					}
																			}
																		else
																			{	/* Unsafe/http.scm 700 */
																				int BgL_curz00_12821;

																				BgL_curz00_12821 =
																					RGC_BUFFER_GET_CHAR
																					(BgL_iportz00_12814,
																					BgL_forwardz00_12816);
																				{	/* Unsafe/http.scm 700 */

																					if (
																						((long) (BgL_curz00_12821) == 10L))
																						{	/* Unsafe/http.scm 700 */
																							BgL_matchz00_12714 =
																								BgL_newzd2matchzd2_12818;
																						}
																					else
																						{	/* Unsafe/http.scm 700 */
																							BgL_iportz00_12743 =
																								BgL_iportz00_12814;
																							BgL_lastzd2matchzd2_12744 =
																								BgL_newzd2matchzd2_12818;
																							BgL_forwardz00_12745 =
																								(1L + BgL_forwardz00_12816);
																							BgL_bufposz00_12746 =
																								BgL_bufposz00_12817;
																						BgL_statezd23zd21319z00_12704:
																							if (
																								(BgL_forwardz00_12745 ==
																									BgL_bufposz00_12746))
																								{	/* Unsafe/http.scm 700 */
																									if (rgc_fill_buffer
																										(BgL_iportz00_12743))
																										{	/* Unsafe/http.scm 700 */
																											long BgL_arg2109z00_12747;
																											long BgL_arg2110z00_12748;

																											BgL_arg2109z00_12747 =
																												RGC_BUFFER_FORWARD
																												(BgL_iportz00_12743);
																											BgL_arg2110z00_12748 =
																												RGC_BUFFER_BUFPOS
																												(BgL_iportz00_12743);
																											{
																												long
																													BgL_bufposz00_13424;
																												long
																													BgL_forwardz00_13423;
																												BgL_forwardz00_13423 =
																													BgL_arg2109z00_12747;
																												BgL_bufposz00_13424 =
																													BgL_arg2110z00_12748;
																												BgL_bufposz00_12746 =
																													BgL_bufposz00_13424;
																												BgL_forwardz00_12745 =
																													BgL_forwardz00_13423;
																												goto
																													BgL_statezd23zd21319z00_12704;
																											}
																										}
																									else
																										{	/* Unsafe/http.scm 700 */
																											BgL_matchz00_12714 =
																												BgL_lastzd2matchzd2_12744;
																										}
																								}
																							else
																								{	/* Unsafe/http.scm 700 */
																									int BgL_curz00_12749;

																									BgL_curz00_12749 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_iportz00_12743,
																										BgL_forwardz00_12745);
																									{	/* Unsafe/http.scm 700 */

																										if (
																											((long) (BgL_curz00_12749)
																												== 13L))
																											{	/* Unsafe/http.scm 700 */
																												BgL_iportz00_12750 =
																													BgL_iportz00_12743;
																												BgL_lastzd2matchzd2_12751
																													=
																													BgL_lastzd2matchzd2_12744;
																												BgL_forwardz00_12752 =
																													(1L +
																													BgL_forwardz00_12745);
																												BgL_bufposz00_12753 =
																													BgL_bufposz00_12746;
																											BgL_statezd26zd21322z00_12705:
																												if (
																													(BgL_forwardz00_12752
																														==
																														BgL_bufposz00_12753))
																													{	/* Unsafe/http.scm 700 */
																														if (rgc_fill_buffer
																															(BgL_iportz00_12750))
																															{	/* Unsafe/http.scm 700 */
																																long
																																	BgL_arg2101z00_12754;
																																long
																																	BgL_arg2102z00_12755;
																																BgL_arg2101z00_12754
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_iportz00_12750);
																																BgL_arg2102z00_12755
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_iportz00_12750);
																																{
																																	long
																																		BgL_bufposz00_13436;
																																	long
																																		BgL_forwardz00_13435;
																																	BgL_forwardz00_13435
																																		=
																																		BgL_arg2101z00_12754;
																																	BgL_bufposz00_13436
																																		=
																																		BgL_arg2102z00_12755;
																																	BgL_bufposz00_12753
																																		=
																																		BgL_bufposz00_13436;
																																	BgL_forwardz00_12752
																																		=
																																		BgL_forwardz00_13435;
																																	goto
																																		BgL_statezd26zd21322z00_12705;
																																}
																															}
																														else
																															{	/* Unsafe/http.scm 700 */
																																BgL_matchz00_12714
																																	=
																																	BgL_lastzd2matchzd2_12751;
																															}
																													}
																												else
																													{	/* Unsafe/http.scm 700 */
																														int
																															BgL_curz00_12756;
																														BgL_curz00_12756 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_iportz00_12750,
																															BgL_forwardz00_12752);
																														{	/* Unsafe/http.scm 700 */

																															if (
																																((long)
																																	(BgL_curz00_12756)
																																	== 10L))
																																{	/* Unsafe/http.scm 700 */
																																	long
																																		BgL_arg2104z00_12757;
																																	BgL_arg2104z00_12757
																																		=
																																		(1L +
																																		BgL_forwardz00_12752);
																																	{	/* Unsafe/http.scm 700 */
																																		long
																																			BgL_newzd2matchzd2_12758;
																																		RGC_STOP_MATCH
																																			(BgL_iportz00_12750,
																																			BgL_arg2104z00_12757);
																																		BgL_newzd2matchzd2_12758
																																			= 0L;
																																		BgL_matchz00_12714
																																			=
																																			BgL_newzd2matchzd2_12758;
																																}}
																															else
																																{	/* Unsafe/http.scm 700 */
																																	BgL_iportz00_12759
																																		=
																																		BgL_iportz00_12750;
																																	BgL_lastzd2matchzd2_12760
																																		=
																																		BgL_lastzd2matchzd2_12751;
																																	BgL_forwardz00_12761
																																		=
																																		(1L +
																																		BgL_forwardz00_12752);
																																	BgL_bufposz00_12762
																																		=
																																		BgL_bufposz00_12753;
																																BgL_statezd27zd21323z00_12706:
																																	if (
																																		(BgL_forwardz00_12761
																																			==
																																			BgL_bufposz00_12762))
																																		{	/* Unsafe/http.scm 700 */
																																			if (rgc_fill_buffer(BgL_iportz00_12759))
																																				{	/* Unsafe/http.scm 700 */
																																					long
																																						BgL_arg2093z00_12763;
																																					long
																																						BgL_arg2094z00_12764;
																																					BgL_arg2093z00_12763
																																						=
																																						RGC_BUFFER_FORWARD
																																						(BgL_iportz00_12759);
																																					BgL_arg2094z00_12764
																																						=
																																						RGC_BUFFER_BUFPOS
																																						(BgL_iportz00_12759);
																																					{
																																						long
																																							BgL_bufposz00_13450;
																																						long
																																							BgL_forwardz00_13449;
																																						BgL_forwardz00_13449
																																							=
																																							BgL_arg2093z00_12763;
																																						BgL_bufposz00_13450
																																							=
																																							BgL_arg2094z00_12764;
																																						BgL_bufposz00_12762
																																							=
																																							BgL_bufposz00_13450;
																																						BgL_forwardz00_12761
																																							=
																																							BgL_forwardz00_13449;
																																						goto
																																							BgL_statezd27zd21323z00_12706;
																																					}
																																				}
																																			else
																																				{	/* Unsafe/http.scm 700 */
																																					BgL_matchz00_12714
																																						=
																																						BgL_lastzd2matchzd2_12760;
																																				}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 700 */
																																			int
																																				BgL_curz00_12765;
																																			BgL_curz00_12765
																																				=
																																				RGC_BUFFER_GET_CHAR
																																				(BgL_iportz00_12759,
																																				BgL_forwardz00_12761);
																																			{	/* Unsafe/http.scm 700 */

																																				if (
																																					((long) (BgL_curz00_12765) == 13L))
																																					{	/* Unsafe/http.scm 700 */
																																						BgL_iportz00_12782
																																							=
																																							BgL_iportz00_12759;
																																						BgL_lastzd2matchzd2_12783
																																							=
																																							BgL_lastzd2matchzd2_12760;
																																						BgL_forwardz00_12784
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_12761);
																																						BgL_bufposz00_12785
																																							=
																																							BgL_bufposz00_12762;
																																					BgL_statezd29zd21325z00_12709:
																																						if (
																																							(BgL_forwardz00_12784
																																								==
																																								BgL_bufposz00_12785))
																																							{	/* Unsafe/http.scm 700 */
																																								if (rgc_fill_buffer(BgL_iportz00_12782))
																																									{	/* Unsafe/http.scm 700 */
																																										long
																																											BgL_arg2058z00_12786;
																																										long
																																											BgL_arg2059z00_12787;
																																										BgL_arg2058z00_12786
																																											=
																																											RGC_BUFFER_FORWARD
																																											(BgL_iportz00_12782);
																																										BgL_arg2059z00_12787
																																											=
																																											RGC_BUFFER_BUFPOS
																																											(BgL_iportz00_12782);
																																										{
																																											long
																																												BgL_bufposz00_13462;
																																											long
																																												BgL_forwardz00_13461;
																																											BgL_forwardz00_13461
																																												=
																																												BgL_arg2058z00_12786;
																																											BgL_bufposz00_13462
																																												=
																																												BgL_arg2059z00_12787;
																																											BgL_bufposz00_12785
																																												=
																																												BgL_bufposz00_13462;
																																											BgL_forwardz00_12784
																																												=
																																												BgL_forwardz00_13461;
																																											goto
																																												BgL_statezd29zd21325z00_12709;
																																										}
																																									}
																																								else
																																									{	/* Unsafe/http.scm 700 */
																																										BgL_matchz00_12714
																																											=
																																											BgL_lastzd2matchzd2_12783;
																																									}
																																							}
																																						else
																																							{	/* Unsafe/http.scm 700 */
																																								int
																																									BgL_curz00_12788;
																																								BgL_curz00_12788
																																									=
																																									RGC_BUFFER_GET_CHAR
																																									(BgL_iportz00_12782,
																																									BgL_forwardz00_12784);
																																								{	/* Unsafe/http.scm 700 */

																																									if (((long) (BgL_curz00_12788) == 10L))
																																										{	/* Unsafe/http.scm 700 */
																																											long
																																												BgL_arg2061z00_12789;
																																											BgL_arg2061z00_12789
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_12784);
																																											{	/* Unsafe/http.scm 700 */
																																												long
																																													BgL_newzd2matchzd2_12790;
																																												RGC_STOP_MATCH
																																													(BgL_iportz00_12782,
																																													BgL_arg2061z00_12789);
																																												BgL_newzd2matchzd2_12790
																																													=
																																													0L;
																																												BgL_matchz00_12714
																																													=
																																													BgL_newzd2matchzd2_12790;
																																										}}
																																									else
																																										{
																																											long
																																												BgL_bufposz00_13473;
																																											long
																																												BgL_forwardz00_13471;
																																											long
																																												BgL_lastzd2matchzd2_13470;
																																											obj_t
																																												BgL_iportz00_13469;
																																											BgL_iportz00_13469
																																												=
																																												BgL_iportz00_12782;
																																											BgL_lastzd2matchzd2_13470
																																												=
																																												BgL_lastzd2matchzd2_12783;
																																											BgL_forwardz00_13471
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_12784);
																																											BgL_bufposz00_13473
																																												=
																																												BgL_bufposz00_12785;
																																											BgL_bufposz00_12762
																																												=
																																												BgL_bufposz00_13473;
																																											BgL_forwardz00_12761
																																												=
																																												BgL_forwardz00_13471;
																																											BgL_lastzd2matchzd2_12760
																																												=
																																												BgL_lastzd2matchzd2_13470;
																																											BgL_iportz00_12759
																																												=
																																												BgL_iportz00_13469;
																																											goto
																																												BgL_statezd27zd21323z00_12706;
																																										}
																																								}
																																							}
																																					}
																																				else
																																					{	/* Unsafe/http.scm 700 */
																																						BgL_iportz00_12791
																																							=
																																							BgL_iportz00_12759;
																																						BgL_lastzd2matchzd2_12792
																																							=
																																							BgL_lastzd2matchzd2_12760;
																																						BgL_forwardz00_12793
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_12761);
																																						BgL_bufposz00_12794
																																							=
																																							BgL_bufposz00_12762;
																																					BgL_statezd25zd21321z00_12710:
																																						if (
																																							(BgL_forwardz00_12793
																																								==
																																								BgL_bufposz00_12794))
																																							{	/* Unsafe/http.scm 700 */
																																								if (rgc_fill_buffer(BgL_iportz00_12791))
																																									{	/* Unsafe/http.scm 700 */
																																										long
																																											BgL_arg2050z00_12795;
																																										long
																																											BgL_arg2051z00_12796;
																																										BgL_arg2050z00_12795
																																											=
																																											RGC_BUFFER_FORWARD
																																											(BgL_iportz00_12791);
																																										BgL_arg2051z00_12796
																																											=
																																											RGC_BUFFER_BUFPOS
																																											(BgL_iportz00_12791);
																																										{
																																											long
																																												BgL_bufposz00_13482;
																																											long
																																												BgL_forwardz00_13481;
																																											BgL_forwardz00_13481
																																												=
																																												BgL_arg2050z00_12795;
																																											BgL_bufposz00_13482
																																												=
																																												BgL_arg2051z00_12796;
																																											BgL_bufposz00_12794
																																												=
																																												BgL_bufposz00_13482;
																																											BgL_forwardz00_12793
																																												=
																																												BgL_forwardz00_13481;
																																											goto
																																												BgL_statezd25zd21321z00_12710;
																																										}
																																									}
																																								else
																																									{	/* Unsafe/http.scm 700 */
																																										BgL_matchz00_12714
																																											=
																																											BgL_lastzd2matchzd2_12792;
																																									}
																																							}
																																						else
																																							{	/* Unsafe/http.scm 700 */
																																								int
																																									BgL_curz00_12797;
																																								BgL_curz00_12797
																																									=
																																									RGC_BUFFER_GET_CHAR
																																									(BgL_iportz00_12791,
																																									BgL_forwardz00_12793);
																																								{	/* Unsafe/http.scm 700 */

																																									if (((long) (BgL_curz00_12797) == 13L))
																																										{	/* Unsafe/http.scm 700 */
																																											BgL_iportz00_12766
																																												=
																																												BgL_iportz00_12791;
																																											BgL_lastzd2matchzd2_12767
																																												=
																																												BgL_lastzd2matchzd2_12792;
																																											BgL_forwardz00_12768
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_12793);
																																											BgL_bufposz00_12769
																																												=
																																												BgL_bufposz00_12794;
																																										BgL_statezd210zd21326z00_12707:
																																											if ((BgL_forwardz00_12768 == BgL_bufposz00_12769))
																																												{	/* Unsafe/http.scm 700 */
																																													if (rgc_fill_buffer(BgL_iportz00_12766))
																																														{	/* Unsafe/http.scm 700 */
																																															long
																																																BgL_arg2083z00_12770;
																																															long
																																																BgL_arg2085z00_12771;
																																															BgL_arg2083z00_12770
																																																=
																																																RGC_BUFFER_FORWARD
																																																(BgL_iportz00_12766);
																																															BgL_arg2085z00_12771
																																																=
																																																RGC_BUFFER_BUFPOS
																																																(BgL_iportz00_12766);
																																															{
																																																long
																																																	BgL_bufposz00_13494;
																																																long
																																																	BgL_forwardz00_13493;
																																																BgL_forwardz00_13493
																																																	=
																																																	BgL_arg2083z00_12770;
																																																BgL_bufposz00_13494
																																																	=
																																																	BgL_arg2085z00_12771;
																																																BgL_bufposz00_12769
																																																	=
																																																	BgL_bufposz00_13494;
																																																BgL_forwardz00_12768
																																																	=
																																																	BgL_forwardz00_13493;
																																																goto
																																																	BgL_statezd210zd21326z00_12707;
																																															}
																																														}
																																													else
																																														{	/* Unsafe/http.scm 700 */
																																															BgL_matchz00_12714
																																																=
																																																BgL_lastzd2matchzd2_12767;
																																														}
																																												}
																																											else
																																												{	/* Unsafe/http.scm 700 */
																																													int
																																														BgL_curz00_12772;
																																													BgL_curz00_12772
																																														=
																																														RGC_BUFFER_GET_CHAR
																																														(BgL_iportz00_12766,
																																														BgL_forwardz00_12768);
																																													{	/* Unsafe/http.scm 700 */

																																														if (((long) (BgL_curz00_12772) == 10L))
																																															{	/* Unsafe/http.scm 700 */
																																																long
																																																	BgL_arg2087z00_12773;
																																																BgL_arg2087z00_12773
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_12768);
																																																{	/* Unsafe/http.scm 700 */
																																																	long
																																																		BgL_newzd2matchzd2_12774;
																																																	RGC_STOP_MATCH
																																																		(BgL_iportz00_12766,
																																																		BgL_arg2087z00_12773);
																																																	BgL_newzd2matchzd2_12774
																																																		=
																																																		0L;
																																																	BgL_matchz00_12714
																																																		=
																																																		BgL_newzd2matchzd2_12774;
																																															}}
																																														else
																																															{	/* Unsafe/http.scm 700 */
																																																BgL_iportz00_12807
																																																	=
																																																	BgL_iportz00_12766;
																																																BgL_lastzd2matchzd2_12808
																																																	=
																																																	BgL_lastzd2matchzd2_12767;
																																																BgL_forwardz00_12809
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_12768);
																																																BgL_bufposz00_12810
																																																	=
																																																	BgL_bufposz00_12769;
																																															BgL_statezd211zd21327z00_12712:
																																																if ((BgL_forwardz00_12809 == BgL_bufposz00_12810))
																																																	{	/* Unsafe/http.scm 700 */
																																																		if (rgc_fill_buffer(BgL_iportz00_12807))
																																																			{	/* Unsafe/http.scm 700 */
																																																				long
																																																					BgL_arg2032z00_12811;
																																																				long
																																																					BgL_arg2033z00_12812;
																																																				BgL_arg2032z00_12811
																																																					=
																																																					RGC_BUFFER_FORWARD
																																																					(BgL_iportz00_12807);
																																																				BgL_arg2033z00_12812
																																																					=
																																																					RGC_BUFFER_BUFPOS
																																																					(BgL_iportz00_12807);
																																																				{
																																																					long
																																																						BgL_bufposz00_13508;
																																																					long
																																																						BgL_forwardz00_13507;
																																																					BgL_forwardz00_13507
																																																						=
																																																						BgL_arg2032z00_12811;
																																																					BgL_bufposz00_13508
																																																						=
																																																						BgL_arg2033z00_12812;
																																																					BgL_bufposz00_12810
																																																						=
																																																						BgL_bufposz00_13508;
																																																					BgL_forwardz00_12809
																																																						=
																																																						BgL_forwardz00_13507;
																																																					goto
																																																						BgL_statezd211zd21327z00_12712;
																																																				}
																																																			}
																																																		else
																																																			{	/* Unsafe/http.scm 700 */
																																																				BgL_matchz00_12714
																																																					=
																																																					BgL_lastzd2matchzd2_12808;
																																																			}
																																																	}
																																																else
																																																	{	/* Unsafe/http.scm 700 */
																																																		int
																																																			BgL_curz00_12813;
																																																		BgL_curz00_12813
																																																			=
																																																			RGC_BUFFER_GET_CHAR
																																																			(BgL_iportz00_12807,
																																																			BgL_forwardz00_12809);
																																																		{	/* Unsafe/http.scm 700 */

																																																			if (((long) (BgL_curz00_12813) == 13L))
																																																				{	/* Unsafe/http.scm 700 */
																																																					BgL_iportz00_12798
																																																						=
																																																						BgL_iportz00_12807;
																																																					BgL_lastzd2matchzd2_12799
																																																						=
																																																						BgL_lastzd2matchzd2_12808;
																																																					BgL_forwardz00_12800
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_12809);
																																																					BgL_bufposz00_12801
																																																						=
																																																						BgL_bufposz00_12810;
																																																				BgL_statezd212zd21328z00_12711:
																																																					if ((BgL_forwardz00_12800 == BgL_bufposz00_12801))
																																																						{	/* Unsafe/http.scm 700 */
																																																							if (rgc_fill_buffer(BgL_iportz00_12798))
																																																								{	/* Unsafe/http.scm 700 */
																																																									long
																																																										BgL_arg2041z00_12802;
																																																									long
																																																										BgL_arg2042z00_12803;
																																																									BgL_arg2041z00_12802
																																																										=
																																																										RGC_BUFFER_FORWARD
																																																										(BgL_iportz00_12798);
																																																									BgL_arg2042z00_12803
																																																										=
																																																										RGC_BUFFER_BUFPOS
																																																										(BgL_iportz00_12798);
																																																									{
																																																										long
																																																											BgL_bufposz00_13520;
																																																										long
																																																											BgL_forwardz00_13519;
																																																										BgL_forwardz00_13519
																																																											=
																																																											BgL_arg2041z00_12802;
																																																										BgL_bufposz00_13520
																																																											=
																																																											BgL_arg2042z00_12803;
																																																										BgL_bufposz00_12801
																																																											=
																																																											BgL_bufposz00_13520;
																																																										BgL_forwardz00_12800
																																																											=
																																																											BgL_forwardz00_13519;
																																																										goto
																																																											BgL_statezd212zd21328z00_12711;
																																																									}
																																																								}
																																																							else
																																																								{	/* Unsafe/http.scm 700 */
																																																									BgL_matchz00_12714
																																																										=
																																																										BgL_lastzd2matchzd2_12799;
																																																								}
																																																						}
																																																					else
																																																						{	/* Unsafe/http.scm 700 */
																																																							int
																																																								BgL_curz00_12804;
																																																							BgL_curz00_12804
																																																								=
																																																								RGC_BUFFER_GET_CHAR
																																																								(BgL_iportz00_12798,
																																																								BgL_forwardz00_12800);
																																																							{	/* Unsafe/http.scm 700 */

																																																								if (((long) (BgL_curz00_12804) == 10L))
																																																									{	/* Unsafe/http.scm 700 */
																																																										long
																																																											BgL_arg2044z00_12805;
																																																										BgL_arg2044z00_12805
																																																											=
																																																											(1L
																																																											+
																																																											BgL_forwardz00_12800);
																																																										{	/* Unsafe/http.scm 700 */
																																																											long
																																																												BgL_newzd2matchzd2_12806;
																																																											RGC_STOP_MATCH
																																																												(BgL_iportz00_12798,
																																																												BgL_arg2044z00_12805);
																																																											BgL_newzd2matchzd2_12806
																																																												=
																																																												0L;
																																																											BgL_matchz00_12714
																																																												=
																																																												BgL_newzd2matchzd2_12806;
																																																									}}
																																																								else
																																																									{
																																																										long
																																																											BgL_bufposz00_13531;
																																																										long
																																																											BgL_forwardz00_13529;
																																																										long
																																																											BgL_lastzd2matchzd2_13528;
																																																										obj_t
																																																											BgL_iportz00_13527;
																																																										BgL_iportz00_13527
																																																											=
																																																											BgL_iportz00_12798;
																																																										BgL_lastzd2matchzd2_13528
																																																											=
																																																											BgL_lastzd2matchzd2_12799;
																																																										BgL_forwardz00_13529
																																																											=
																																																											(1L
																																																											+
																																																											BgL_forwardz00_12800);
																																																										BgL_bufposz00_13531
																																																											=
																																																											BgL_bufposz00_12801;
																																																										BgL_bufposz00_12810
																																																											=
																																																											BgL_bufposz00_13531;
																																																										BgL_forwardz00_12809
																																																											=
																																																											BgL_forwardz00_13529;
																																																										BgL_lastzd2matchzd2_12808
																																																											=
																																																											BgL_lastzd2matchzd2_13528;
																																																										BgL_iportz00_12807
																																																											=
																																																											BgL_iportz00_13527;
																																																										goto
																																																											BgL_statezd211zd21327z00_12712;
																																																									}
																																																							}
																																																						}
																																																				}
																																																			else
																																																				{
																																																					long
																																																						BgL_bufposz00_13537;
																																																					long
																																																						BgL_forwardz00_13535;
																																																					long
																																																						BgL_lastzd2matchzd2_13534;
																																																					obj_t
																																																						BgL_iportz00_13533;
																																																					BgL_iportz00_13533
																																																						=
																																																						BgL_iportz00_12807;
																																																					BgL_lastzd2matchzd2_13534
																																																						=
																																																						BgL_lastzd2matchzd2_12808;
																																																					BgL_forwardz00_13535
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_12809);
																																																					BgL_bufposz00_13537
																																																						=
																																																						BgL_bufposz00_12810;
																																																					BgL_bufposz00_12794
																																																						=
																																																						BgL_bufposz00_13537;
																																																					BgL_forwardz00_12793
																																																						=
																																																						BgL_forwardz00_13535;
																																																					BgL_lastzd2matchzd2_12792
																																																						=
																																																						BgL_lastzd2matchzd2_13534;
																																																					BgL_iportz00_12791
																																																						=
																																																						BgL_iportz00_13533;
																																																					goto
																																																						BgL_statezd25zd21321z00_12710;
																																																				}
																																																		}
																																																	}
																																															}
																																													}
																																												}
																																										}
																																									else
																																										{
																																											long
																																												BgL_forwardz00_13540;
																																											BgL_forwardz00_13540
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_12793);
																																											BgL_forwardz00_12793
																																												=
																																												BgL_forwardz00_13540;
																																											goto
																																												BgL_statezd25zd21321z00_12710;
																																										}
																																								}
																																							}
																																					}
																																			}
																																		}
																																}
																														}
																													}
																											}
																										else
																											{
																												long
																													BgL_bufposz00_13549;
																												long
																													BgL_forwardz00_13547;
																												long
																													BgL_lastzd2matchzd2_13546;
																												obj_t
																													BgL_iportz00_13545;
																												BgL_iportz00_13545 =
																													BgL_iportz00_12743;
																												BgL_lastzd2matchzd2_13546
																													=
																													BgL_lastzd2matchzd2_12744;
																												BgL_forwardz00_13547 =
																													(1L +
																													BgL_forwardz00_12745);
																												BgL_bufposz00_13549 =
																													BgL_bufposz00_12746;
																												BgL_bufposz00_12794 =
																													BgL_bufposz00_13549;
																												BgL_forwardz00_12793 =
																													BgL_forwardz00_13547;
																												BgL_lastzd2matchzd2_12792
																													=
																													BgL_lastzd2matchzd2_13546;
																												BgL_iportz00_12791 =
																													BgL_iportz00_13545;
																												goto
																													BgL_statezd25zd21321z00_12710;
																											}
																									}
																								}
																						}
																				}
																			}
																	}
																}
															else
																{	/* Unsafe/http.scm 700 */
																	BgL_iportz00_12735 = BgL_iportz00_12384;
																	BgL_lastzd2matchzd2_12736 = 1L;
																	BgL_forwardz00_12737 =
																		(1L + BgL_forwardz00_12718);
																	BgL_bufposz00_12738 = BgL_bufposz00_12719;
																BgL_statezd21zd21317z00_12703:
																	{	/* Unsafe/http.scm 700 */
																		long BgL_newzd2matchzd2_12739;

																		RGC_STOP_MATCH(BgL_iportz00_12735,
																			BgL_forwardz00_12737);
																		BgL_newzd2matchzd2_12739 = 1L;
																		if (
																			(BgL_forwardz00_12737 ==
																				BgL_bufposz00_12738))
																			{	/* Unsafe/http.scm 700 */
																				if (rgc_fill_buffer(BgL_iportz00_12735))
																					{	/* Unsafe/http.scm 700 */
																						long BgL_arg2117z00_12740;
																						long BgL_arg2118z00_12741;

																						BgL_arg2117z00_12740 =
																							RGC_BUFFER_FORWARD
																							(BgL_iportz00_12735);
																						BgL_arg2118z00_12741 =
																							RGC_BUFFER_BUFPOS
																							(BgL_iportz00_12735);
																						{
																							long BgL_bufposz00_13560;
																							long BgL_forwardz00_13559;

																							BgL_forwardz00_13559 =
																								BgL_arg2117z00_12740;
																							BgL_bufposz00_13560 =
																								BgL_arg2118z00_12741;
																							BgL_bufposz00_12738 =
																								BgL_bufposz00_13560;
																							BgL_forwardz00_12737 =
																								BgL_forwardz00_13559;
																							goto
																								BgL_statezd21zd21317z00_12703;
																						}
																					}
																				else
																					{	/* Unsafe/http.scm 700 */
																						BgL_matchz00_12714 =
																							BgL_newzd2matchzd2_12739;
																					}
																			}
																		else
																			{	/* Unsafe/http.scm 700 */
																				int BgL_curz00_12742;

																				BgL_curz00_12742 =
																					RGC_BUFFER_GET_CHAR
																					(BgL_iportz00_12735,
																					BgL_forwardz00_12737);
																				{	/* Unsafe/http.scm 700 */

																					if (
																						((long) (BgL_curz00_12742) == 13L))
																						{
																							long BgL_bufposz00_13569;
																							long BgL_forwardz00_13567;
																							long BgL_lastzd2matchzd2_13566;
																							obj_t BgL_iportz00_13565;

																							BgL_iportz00_13565 =
																								BgL_iportz00_12735;
																							BgL_lastzd2matchzd2_13566 =
																								BgL_newzd2matchzd2_12739;
																							BgL_forwardz00_13567 =
																								(1L + BgL_forwardz00_12737);
																							BgL_bufposz00_13569 =
																								BgL_bufposz00_12738;
																							BgL_bufposz00_12769 =
																								BgL_bufposz00_13569;
																							BgL_forwardz00_12768 =
																								BgL_forwardz00_13567;
																							BgL_lastzd2matchzd2_12767 =
																								BgL_lastzd2matchzd2_13566;
																							BgL_iportz00_12766 =
																								BgL_iportz00_13565;
																							goto
																								BgL_statezd210zd21326z00_12707;
																						}
																					else
																						{	/* Unsafe/http.scm 700 */
																							BgL_iportz00_12775 =
																								BgL_iportz00_12735;
																							BgL_lastzd2matchzd2_12776 =
																								BgL_newzd2matchzd2_12739;
																							BgL_forwardz00_12777 =
																								(1L + BgL_forwardz00_12737);
																							BgL_bufposz00_12778 =
																								BgL_bufposz00_12738;
																						BgL_statezd213zd21329z00_12708:
																							if (
																								(BgL_forwardz00_12777 ==
																									BgL_bufposz00_12778))
																								{	/* Unsafe/http.scm 700 */
																									if (rgc_fill_buffer
																										(BgL_iportz00_12775))
																										{	/* Unsafe/http.scm 700 */
																											long BgL_arg2066z00_12779;
																											long BgL_arg2067z00_12780;

																											BgL_arg2066z00_12779 =
																												RGC_BUFFER_FORWARD
																												(BgL_iportz00_12775);
																											BgL_arg2067z00_12780 =
																												RGC_BUFFER_BUFPOS
																												(BgL_iportz00_12775);
																											{
																												long
																													BgL_bufposz00_13577;
																												long
																													BgL_forwardz00_13576;
																												BgL_forwardz00_13576 =
																													BgL_arg2066z00_12779;
																												BgL_bufposz00_13577 =
																													BgL_arg2067z00_12780;
																												BgL_bufposz00_12778 =
																													BgL_bufposz00_13577;
																												BgL_forwardz00_12777 =
																													BgL_forwardz00_13576;
																												goto
																													BgL_statezd213zd21329z00_12708;
																											}
																										}
																									else
																										{	/* Unsafe/http.scm 700 */
																											BgL_matchz00_12714 =
																												BgL_lastzd2matchzd2_12776;
																										}
																								}
																							else
																								{	/* Unsafe/http.scm 700 */
																									int BgL_curz00_12781;

																									BgL_curz00_12781 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_iportz00_12775,
																										BgL_forwardz00_12777);
																									{	/* Unsafe/http.scm 700 */

																										if (
																											((long) (BgL_curz00_12781)
																												== 13L))
																											{
																												long
																													BgL_bufposz00_13586;
																												long
																													BgL_forwardz00_13584;
																												long
																													BgL_lastzd2matchzd2_13583;
																												obj_t
																													BgL_iportz00_13582;
																												BgL_iportz00_13582 =
																													BgL_iportz00_12775;
																												BgL_lastzd2matchzd2_13583
																													=
																													BgL_lastzd2matchzd2_12776;
																												BgL_forwardz00_13584 =
																													(1L +
																													BgL_forwardz00_12777);
																												BgL_bufposz00_13586 =
																													BgL_bufposz00_12778;
																												BgL_bufposz00_12769 =
																													BgL_bufposz00_13586;
																												BgL_forwardz00_12768 =
																													BgL_forwardz00_13584;
																												BgL_lastzd2matchzd2_12767
																													=
																													BgL_lastzd2matchzd2_13583;
																												BgL_iportz00_12766 =
																													BgL_iportz00_13582;
																												goto
																													BgL_statezd210zd21326z00_12707;
																											}
																										else
																											{
																												long
																													BgL_forwardz00_13587;
																												BgL_forwardz00_13587 =
																													(1L +
																													BgL_forwardz00_12777);
																												BgL_forwardz00_12777 =
																													BgL_forwardz00_13587;
																												goto
																													BgL_statezd213zd21329z00_12708;
																											}
																									}
																								}
																						}
																				}
																			}
																	}
																}
														}
													}
											}
										}
										RGC_SET_FILEPOS(BgL_iportz00_12384);
										{

											switch (BgL_matchz00_12714)
												{
												case 1L:

													{	/* Unsafe/http.scm 704 */
														BgL_z62iozd2parsezd2errorz62_bglt
															BgL_arg2212z00_12724;
														{	/* Unsafe/http.scm 704 */
															BgL_z62iozd2parsezd2errorz62_bglt
																BgL_new1333z00_12725;
															{	/* Unsafe/http.scm 707 */
																BgL_z62iozd2parsezd2errorz62_bglt
																	BgL_new1332z00_12726;
																BgL_new1332z00_12726 =
																	((BgL_z62iozd2parsezd2errorz62_bglt)
																	BOBJECT(GC_MALLOC(sizeof(struct
																				BgL_z62iozd2parsezd2errorz62_bgl))));
																{	/* Unsafe/http.scm 707 */
																	long BgL_arg2217z00_12727;

																	BgL_arg2217z00_12727 =
																		BGL_CLASS_NUM
																		(BGl_z62iozd2parsezd2errorz62zz__objectz00);
																	BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
																			BgL_new1332z00_12726),
																		BgL_arg2217z00_12727);
																}
																BgL_new1333z00_12725 = BgL_new1332z00_12726;
															}
															((((BgL_z62exceptionz62_bglt) COBJECT(
																			((BgL_z62exceptionz62_bglt)
																				BgL_new1333z00_12725)))->BgL_fnamez00) =
																((obj_t) BFALSE), BUNSPEC);
															((((BgL_z62exceptionz62_bglt)
																		COBJECT(((BgL_z62exceptionz62_bglt)
																				BgL_new1333z00_12725)))->
																	BgL_locationz00) = ((obj_t) BFALSE), BUNSPEC);
															{
																obj_t BgL_auxz00_13600;

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

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

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

																			BgL_classz00_12730 =
																				BGl_z62iozd2parsezd2errorz62zz__objectz00;
																			BgL_arg2214z00_12729 =
																				BGL_CLASS_ALL_FIELDS
																				(BgL_classz00_12730);
																		}
																		BgL_arg2213z00_12728 =
																			VECTOR_REF(BgL_arg2214z00_12729, 2L);
																	}
																	BgL_auxz00_13600 =
																		BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																		(BgL_arg2213z00_12728);
																}
																((((BgL_z62exceptionz62_bglt) COBJECT(
																				((BgL_z62exceptionz62_bglt)
																					BgL_new1333z00_12725)))->
																		BgL_stackz00) =
																	((obj_t) BgL_auxz00_13600), BUNSPEC);
															}
															((((BgL_z62errorz62_bglt) COBJECT(
																			((BgL_z62errorz62_bglt)
																				BgL_new1333z00_12725)))->BgL_procz00) =
																((obj_t) BGl_symbol5596z00zz__httpz00),
																BUNSPEC);
															((((BgL_z62errorz62_bglt)
																		COBJECT(((BgL_z62errorz62_bglt)
																				BgL_new1333z00_12725)))->BgL_msgz00) =
																((obj_t) BGl_string5602z00zz__httpz00),
																BUNSPEC);
															{
																obj_t BgL_auxz00_13610;

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

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

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

																			BgL_arg2205z00_12734 =
																				RGC_BUFFER_MATCH_LENGTH
																				(BgL_iportz00_12384);
																			BgL_test6044z00_13612 =
																				(BgL_arg2205z00_12734 == 0L);
																		}
																		if (BgL_test6044z00_13612)
																			{	/* Unsafe/http.scm 700 */
																				BgL_arg2215z00_12731 = BEOF;
																			}
																		else
																			{	/* Unsafe/http.scm 700 */
																				BgL_arg2215z00_12731 =
																					BCHAR(RGC_BUFFER_CHARACTER
																					(BgL_iportz00_12384));
																			}
																	}
																	BgL_auxz00_13610 =
																		BGl_httpzd2parsezd2errorzd2msgzd2zz__httpz00
																		(BgL_arg2215z00_12731, BgL_iportz00_12384);
																}
																((((BgL_z62errorz62_bglt) COBJECT(
																				((BgL_z62errorz62_bglt)
																					BgL_new1333z00_12725)))->BgL_objz00) =
																	((obj_t) BgL_auxz00_13610), BUNSPEC);
															}
															BgL_arg2212z00_12724 = BgL_new1333z00_12725;
														}
														BGl_raisez00zz__errorz00(
															((obj_t) BgL_arg2212z00_12724));
													}
													break;
												case 0L:

													if (CBOOL(BgL_opz00_12385))
														{	/* Unsafe/http.scm 702 */
															obj_t BgL_arg2218z00_12732;

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

																BgL_arg2130z00_12733 =
																	RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12384);
																BgL_arg2218z00_12732 =
																	rgc_buffer_substring(BgL_iportz00_12384, 0L,
																	BgL_arg2130z00_12733);
															}
															bgl_display_obj(BgL_arg2218z00_12732,
																BgL_opz00_12385);
														}
													else
														{	/* Unsafe/http.scm 702 */
															BFALSE;
														}
													break;
												default:
													BGl_errorz00zz__errorz00(BGl_string5600z00zz__httpz00,
														BGl_string5601z00zz__httpz00,
														BINT(BgL_matchz00_12714));
												}
										}
									}
								}
								return BINT(BgL_sza7za7_12697);
							}
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string5600z00zz__httpz00,
								BGl_string5601z00zz__httpz00, BINT(BgL_matchz00_12669));
						}
				}
			}
		}

	}



/* the-substring~0 */
	obj_t BGl_thezd2substringze70z35zz__httpz00(obj_t BgL_iportz00_12532,
		int BgL_minz00_1933, int BgL_maxz00_1934)
	{
		{	/* Unsafe/http.scm 691 */
			if (((long) (BgL_maxz00_1934) < (long) (BgL_minz00_1933)))
				{	/* Unsafe/http.scm 691 */
					long BgL_arg1917z00_1937;

					BgL_arg1917z00_1937 = RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12532);
					{	/* Unsafe/http.scm 691 */
						long BgL_za72za7_9022;

						BgL_za72za7_9022 = (long) (BgL_maxz00_1934);
						BgL_maxz00_1934 = (int) ((BgL_arg1917z00_1937 + BgL_za72za7_9022));
				}}
			else
				{	/* Unsafe/http.scm 691 */
					BFALSE;
				}
			{	/* Unsafe/http.scm 691 */
				bool_t BgL_test6047z00_13641;

				if (((long) (BgL_minz00_1933) >= 0L))
					{	/* Unsafe/http.scm 691 */
						if (((long) (BgL_maxz00_1934) >= (long) (BgL_minz00_1933)))
							{	/* Unsafe/http.scm 691 */
								long BgL_arg1926z00_1948;

								BgL_arg1926z00_1948 =
									RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12532);
								BgL_test6047z00_13641 =
									((long) (BgL_maxz00_1934) <= BgL_arg1926z00_1948);
							}
						else
							{	/* Unsafe/http.scm 691 */
								BgL_test6047z00_13641 = ((bool_t) 0);
							}
					}
				else
					{	/* Unsafe/http.scm 691 */
						BgL_test6047z00_13641 = ((bool_t) 0);
					}
				if (BgL_test6047z00_13641)
					{	/* Unsafe/http.scm 691 */
						return
							rgc_buffer_substring(BgL_iportz00_12532,
							(long) (BgL_minz00_1933), (long) (BgL_maxz00_1934));
					}
				else
					{	/* Unsafe/http.scm 691 */
						obj_t BgL_arg1922z00_1942;
						obj_t BgL_arg1923z00_1943;

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

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

								BgL_arg1914z00_9032 =
									RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12532);
								BgL_arg1924z00_1944 =
									rgc_buffer_substring(BgL_iportz00_12532, 0L,
									BgL_arg1914z00_9032);
							}
							{	/* Unsafe/http.scm 691 */
								obj_t BgL_list1925z00_1945;

								BgL_list1925z00_1945 =
									MAKE_YOUNG_PAIR(BgL_arg1924z00_1944, BNIL);
								BgL_arg1922z00_1942 =
									BGl_formatz00zz__r4_output_6_10_3z00
									(BGl_string5603z00zz__httpz00, BgL_list1925z00_1945);
						}}
						BgL_arg1923z00_1943 =
							MAKE_YOUNG_PAIR(BINT(BgL_minz00_1933), BINT(BgL_maxz00_1934));
						return
							BGl_errorz00zz__errorz00(BGl_string5604z00zz__httpz00,
							BgL_arg1922z00_1942, BgL_arg1923z00_1943);
					}
			}
		}

	}



/* &<@anonymous:1593> */
	obj_t BGl_z62zc3z04anonymousza31593ze3ze5zz__httpz00(obj_t BgL_envz00_12386,
		obj_t BgL_iportz00_12387)
	{
		{	/* Unsafe/http.scm 333 */
			{
				obj_t BgL_iportz00_12947;
				long BgL_lastzd2matchzd2_12948;
				long BgL_forwardz00_12949;
				long BgL_bufposz00_12950;
				obj_t BgL_iportz00_12938;
				long BgL_lastzd2matchzd2_12939;
				long BgL_forwardz00_12940;
				long BgL_bufposz00_12941;
				obj_t BgL_iportz00_12928;
				long BgL_lastzd2matchzd2_12929;
				long BgL_forwardz00_12930;
				long BgL_bufposz00_12931;
				obj_t BgL_iportz00_12913;
				long BgL_lastzd2matchzd2_12914;
				long BgL_forwardz00_12915;
				long BgL_bufposz00_12916;
				obj_t BgL_iportz00_12904;
				long BgL_lastzd2matchzd2_12905;
				long BgL_forwardz00_12906;
				long BgL_bufposz00_12907;
				obj_t BgL_iportz00_12897;
				long BgL_lastzd2matchzd2_12898;
				long BgL_forwardz00_12899;
				long BgL_bufposz00_12900;
				obj_t BgL_iportz00_12889;
				long BgL_lastzd2matchzd2_12890;
				long BgL_forwardz00_12891;
				long BgL_bufposz00_12892;
				obj_t BgL_iportz00_12882;
				long BgL_lastzd2matchzd2_12883;
				long BgL_forwardz00_12884;
				long BgL_bufposz00_12885;
				obj_t BgL_iportz00_12868;
				long BgL_lastzd2matchzd2_12869;
				long BgL_forwardz00_12870;
				long BgL_bufposz00_12871;
				int BgL_minz00_12858;
				int BgL_maxz00_12859;

				RGC_START_MATCH(BgL_iportz00_12387);
				{	/* Unsafe/http.scm 333 */
					long BgL_matchz00_12835;

					{	/* Unsafe/http.scm 333 */
						long BgL_arg1823z00_12836;
						long BgL_arg1824z00_12837;

						BgL_arg1823z00_12836 = RGC_BUFFER_FORWARD(BgL_iportz00_12387);
						BgL_arg1824z00_12837 = RGC_BUFFER_BUFPOS(BgL_iportz00_12387);
						BgL_iportz00_12928 = BgL_iportz00_12387;
						BgL_lastzd2matchzd2_12929 = 1L;
						BgL_forwardz00_12930 = BgL_arg1823z00_12836;
						BgL_bufposz00_12931 = BgL_arg1824z00_12837;
					BgL_statezd20zd21082z00_12832:
						if ((BgL_forwardz00_12930 == BgL_bufposz00_12931))
							{	/* Unsafe/http.scm 333 */
								if (rgc_fill_buffer(BgL_iportz00_12928))
									{	/* Unsafe/http.scm 333 */
										long BgL_arg1617z00_12932;
										long BgL_arg1618z00_12933;

										BgL_arg1617z00_12932 =
											RGC_BUFFER_FORWARD(BgL_iportz00_12928);
										BgL_arg1618z00_12933 =
											RGC_BUFFER_BUFPOS(BgL_iportz00_12928);
										{
											long BgL_bufposz00_13673;
											long BgL_forwardz00_13672;

											BgL_forwardz00_13672 = BgL_arg1617z00_12932;
											BgL_bufposz00_13673 = BgL_arg1618z00_12933;
											BgL_bufposz00_12931 = BgL_bufposz00_13673;
											BgL_forwardz00_12930 = BgL_forwardz00_13672;
											goto BgL_statezd20zd21082z00_12832;
										}
									}
								else
									{	/* Unsafe/http.scm 333 */
										BgL_matchz00_12835 = BgL_lastzd2matchzd2_12929;
									}
							}
						else
							{	/* Unsafe/http.scm 333 */
								int BgL_curz00_12934;

								BgL_curz00_12934 =
									RGC_BUFFER_GET_CHAR(BgL_iportz00_12928, BgL_forwardz00_12930);
								{	/* Unsafe/http.scm 333 */

									if (((long) (BgL_curz00_12934) == 73L))
										{	/* Unsafe/http.scm 333 */
											BgL_iportz00_12913 = BgL_iportz00_12928;
											BgL_lastzd2matchzd2_12914 = BgL_lastzd2matchzd2_12929;
											BgL_forwardz00_12915 = (1L + BgL_forwardz00_12930);
											BgL_bufposz00_12916 = BgL_bufposz00_12931;
										BgL_statezd23zd21085z00_12831:
											{	/* Unsafe/http.scm 333 */
												long BgL_newzd2matchzd2_12917;

												RGC_STOP_MATCH(BgL_iportz00_12913,
													BgL_forwardz00_12915);
												BgL_newzd2matchzd2_12917 = 1L;
												if ((BgL_forwardz00_12915 == BgL_bufposz00_12916))
													{	/* Unsafe/http.scm 333 */
														if (rgc_fill_buffer(BgL_iportz00_12913))
															{	/* Unsafe/http.scm 333 */
																long BgL_arg1633z00_12918;
																long BgL_arg1634z00_12919;

																BgL_arg1633z00_12918 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_12913);
																BgL_arg1634z00_12919 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_12913);
																{
																	long BgL_bufposz00_13686;
																	long BgL_forwardz00_13685;

																	BgL_forwardz00_13685 = BgL_arg1633z00_12918;
																	BgL_bufposz00_13686 = BgL_arg1634z00_12919;
																	BgL_bufposz00_12916 = BgL_bufposz00_13686;
																	BgL_forwardz00_12915 = BgL_forwardz00_13685;
																	goto BgL_statezd23zd21085z00_12831;
																}
															}
														else
															{	/* Unsafe/http.scm 333 */
																BgL_matchz00_12835 = BgL_newzd2matchzd2_12917;
															}
													}
												else
													{	/* Unsafe/http.scm 333 */
														int BgL_curz00_12920;

														BgL_curz00_12920 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_12913,
															BgL_forwardz00_12915);
														{	/* Unsafe/http.scm 333 */

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

																	BgL_arg1636z00_12921 =
																		(1L + BgL_forwardz00_12915);
																	{
																		long BgL_forwardz00_12923;
																		long BgL_bufposz00_12924;

																		BgL_forwardz00_12923 = BgL_arg1636z00_12921;
																		BgL_bufposz00_12924 = BgL_bufposz00_12916;
																	BgL_statezd24zd21086z00_12922:
																		if (
																			(BgL_forwardz00_12923 ==
																				BgL_bufposz00_12924))
																			{	/* Unsafe/http.scm 333 */
																				if (rgc_fill_buffer(BgL_iportz00_12913))
																					{	/* Unsafe/http.scm 333 */
																						long BgL_arg1698z00_12925;
																						long BgL_arg1703z00_12926;

																						BgL_arg1698z00_12925 =
																							RGC_BUFFER_FORWARD
																							(BgL_iportz00_12913);
																						BgL_arg1703z00_12926 =
																							RGC_BUFFER_BUFPOS
																							(BgL_iportz00_12913);
																						{
																							long BgL_bufposz00_13699;
																							long BgL_forwardz00_13698;

																							BgL_forwardz00_13698 =
																								BgL_arg1698z00_12925;
																							BgL_bufposz00_13699 =
																								BgL_arg1703z00_12926;
																							BgL_bufposz00_12924 =
																								BgL_bufposz00_13699;
																							BgL_forwardz00_12923 =
																								BgL_forwardz00_13698;
																							goto
																								BgL_statezd24zd21086z00_12922;
																						}
																					}
																				else
																					{	/* Unsafe/http.scm 333 */
																						BgL_matchz00_12835 =
																							BgL_newzd2matchzd2_12917;
																					}
																			}
																		else
																			{	/* Unsafe/http.scm 333 */
																				int BgL_curz00_12927;

																				BgL_curz00_12927 =
																					RGC_BUFFER_GET_CHAR
																					(BgL_iportz00_12913,
																					BgL_forwardz00_12923);
																				{	/* Unsafe/http.scm 333 */

																					if (
																						((long) (BgL_curz00_12927) == 89L))
																						{	/* Unsafe/http.scm 333 */
																							BgL_iportz00_12868 =
																								BgL_iportz00_12913;
																							BgL_lastzd2matchzd2_12869 =
																								BgL_newzd2matchzd2_12917;
																							BgL_forwardz00_12870 =
																								(1L + BgL_forwardz00_12923);
																							BgL_bufposz00_12871 =
																								BgL_bufposz00_12924;
																						BgL_statezd26zd21088z00_12826:
																							if (
																								(BgL_forwardz00_12870 ==
																									BgL_bufposz00_12871))
																								{	/* Unsafe/http.scm 333 */
																									if (rgc_fill_buffer
																										(BgL_iportz00_12868))
																										{	/* Unsafe/http.scm 333 */
																											long BgL_arg1710z00_12872;
																											long BgL_arg1712z00_12873;

																											BgL_arg1710z00_12872 =
																												RGC_BUFFER_FORWARD
																												(BgL_iportz00_12868);
																											BgL_arg1712z00_12873 =
																												RGC_BUFFER_BUFPOS
																												(BgL_iportz00_12868);
																											if ((BgL_arg1710z00_12872
																													==
																													BgL_arg1712z00_12873))
																												{	/* Unsafe/http.scm 333 */
																													if (rgc_fill_buffer
																														(BgL_iportz00_12868))
																														{	/* Unsafe/http.scm 333 */
																															long
																																BgL_arg1710z00_12874;
																															long
																																BgL_arg1712z00_12875;
																															BgL_arg1710z00_12874
																																=
																																RGC_BUFFER_FORWARD
																																(BgL_iportz00_12868);
																															BgL_arg1712z00_12875
																																=
																																RGC_BUFFER_BUFPOS
																																(BgL_iportz00_12868);
																															{
																																long
																																	BgL_bufposz00_13717;
																																long
																																	BgL_forwardz00_13716;
																																BgL_forwardz00_13716
																																	=
																																	BgL_arg1710z00_12874;
																																BgL_bufposz00_13717
																																	=
																																	BgL_arg1712z00_12875;
																																BgL_bufposz00_12871
																																	=
																																	BgL_bufposz00_13717;
																																BgL_forwardz00_12870
																																	=
																																	BgL_forwardz00_13716;
																																goto
																																	BgL_statezd26zd21088z00_12826;
																															}
																														}
																													else
																														{	/* Unsafe/http.scm 333 */
																															BgL_matchz00_12835
																																=
																																BgL_lastzd2matchzd2_12869;
																														}
																												}
																											else
																												{	/* Unsafe/http.scm 333 */
																													int BgL_curz00_12876;

																													BgL_curz00_12876 =
																														RGC_BUFFER_GET_CHAR
																														(BgL_iportz00_12868,
																														BgL_arg1710z00_12872);
																													{	/* Unsafe/http.scm 333 */

																														if (
																															((long)
																																(BgL_curz00_12876)
																																== 32L))
																															{	/* Unsafe/http.scm 333 */
																																long
																																	BgL_arg1714z00_12877;
																																BgL_arg1714z00_12877
																																	=
																																	(1L +
																																	BgL_arg1710z00_12872);
																																{	/* Unsafe/http.scm 333 */
																																	long
																																		BgL_newzd2matchzd2_12878;
																																	RGC_STOP_MATCH
																																		(BgL_iportz00_12868,
																																		BgL_arg1714z00_12877);
																																	BgL_newzd2matchzd2_12878
																																		= 0L;
																																	BgL_matchz00_12835
																																		=
																																		BgL_newzd2matchzd2_12878;
																															}}
																														else
																															{	/* Unsafe/http.scm 333 */
																																BgL_matchz00_12835
																																	=
																																	BgL_lastzd2matchzd2_12869;
																															}
																													}
																												}
																										}
																									else
																										{	/* Unsafe/http.scm 333 */
																											BgL_matchz00_12835 =
																												BgL_lastzd2matchzd2_12869;
																										}
																								}
																							else
																								{	/* Unsafe/http.scm 333 */
																									int BgL_curz00_12879;

																									BgL_curz00_12879 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_iportz00_12868,
																										BgL_forwardz00_12870);
																									{	/* Unsafe/http.scm 333 */

																										if (
																											((long) (BgL_curz00_12879)
																												== 32L))
																											{	/* Unsafe/http.scm 333 */
																												long
																													BgL_arg1714z00_12880;
																												BgL_arg1714z00_12880 =
																													(1L +
																													BgL_forwardz00_12870);
																												{	/* Unsafe/http.scm 333 */
																													long
																														BgL_newzd2matchzd2_12881;
																													RGC_STOP_MATCH
																														(BgL_iportz00_12868,
																														BgL_arg1714z00_12880);
																													BgL_newzd2matchzd2_12881
																														= 0L;
																													BgL_matchz00_12835 =
																														BgL_newzd2matchzd2_12881;
																											}}
																										else
																											{	/* Unsafe/http.scm 333 */
																												BgL_matchz00_12835 =
																													BgL_lastzd2matchzd2_12869;
																											}
																									}
																								}
																						}
																					else
																						{	/* Unsafe/http.scm 333 */
																							BgL_matchz00_12835 =
																								BgL_newzd2matchzd2_12917;
																						}
																				}
																			}
																	}
																}
															else
																{	/* Unsafe/http.scm 333 */
																	BgL_matchz00_12835 = BgL_newzd2matchzd2_12917;
																}
														}
													}
											}
										}
									else
										{	/* Unsafe/http.scm 333 */
											bool_t BgL_test6065z00_13732;

											if (((long) (BgL_curz00_12934) == 72L))
												{	/* Unsafe/http.scm 333 */
													BgL_test6065z00_13732 = ((bool_t) 1);
												}
											else
												{	/* Unsafe/http.scm 333 */
													if (((long) (BgL_curz00_12934) == 80L))
														{	/* Unsafe/http.scm 333 */
															BgL_test6065z00_13732 = ((bool_t) 1);
														}
													else
														{	/* Unsafe/http.scm 333 */
															bool_t BgL_test6068z00_13739;

															if (((long) (BgL_curz00_12934) == 84L))
																{	/* Unsafe/http.scm 333 */
																	BgL_test6068z00_13739 = ((bool_t) 1);
																}
															else
																{	/* Unsafe/http.scm 333 */
																	BgL_test6068z00_13739 =
																		((long) (BgL_curz00_12934) == 83L);
																}
															if (BgL_test6068z00_13739)
																{	/* Unsafe/http.scm 333 */
																	BgL_test6065z00_13732 = ((bool_t) 1);
																}
															else
																{	/* Unsafe/http.scm 333 */
																	if (((long) (BgL_curz00_12934) == 104L))
																		{	/* Unsafe/http.scm 333 */
																			BgL_test6065z00_13732 = ((bool_t) 1);
																		}
																	else
																		{	/* Unsafe/http.scm 333 */
																			if (((long) (BgL_curz00_12934) == 112L))
																				{	/* Unsafe/http.scm 333 */
																					BgL_test6065z00_13732 = ((bool_t) 1);
																				}
																			else
																				{	/* Unsafe/http.scm 333 */
																					bool_t BgL__ortest_1095z00_12935;

																					BgL__ortest_1095z00_12935 =
																						((long) (BgL_curz00_12934) == 116L);
																					if (BgL__ortest_1095z00_12935)
																						{	/* Unsafe/http.scm 333 */
																							BgL_test6065z00_13732 =
																								BgL__ortest_1095z00_12935;
																						}
																					else
																						{	/* Unsafe/http.scm 333 */
																							BgL_test6065z00_13732 =
																								(
																								(long) (BgL_curz00_12934) ==
																								115L);
												}}}}}}
											if (BgL_test6065z00_13732)
												{	/* Unsafe/http.scm 333 */
													BgL_iportz00_12904 = BgL_iportz00_12928;
													BgL_lastzd2matchzd2_12905 = BgL_lastzd2matchzd2_12929;
													BgL_forwardz00_12906 = (1L + BgL_forwardz00_12930);
													BgL_bufposz00_12907 = BgL_bufposz00_12931;
												BgL_statezd22zd21084z00_12830:
													{	/* Unsafe/http.scm 333 */
														long BgL_newzd2matchzd2_12908;

														RGC_STOP_MATCH(BgL_iportz00_12904,
															BgL_forwardz00_12906);
														BgL_newzd2matchzd2_12908 = 1L;
														if ((BgL_forwardz00_12906 == BgL_bufposz00_12907))
															{	/* Unsafe/http.scm 333 */
																if (rgc_fill_buffer(BgL_iportz00_12904))
																	{	/* Unsafe/http.scm 333 */
																		long BgL_arg1642z00_12909;
																		long BgL_arg1643z00_12910;

																		BgL_arg1642z00_12909 =
																			RGC_BUFFER_FORWARD(BgL_iportz00_12904);
																		BgL_arg1643z00_12910 =
																			RGC_BUFFER_BUFPOS(BgL_iportz00_12904);
																		{
																			long BgL_bufposz00_13764;
																			long BgL_forwardz00_13763;

																			BgL_forwardz00_13763 =
																				BgL_arg1642z00_12909;
																			BgL_bufposz00_13764 =
																				BgL_arg1643z00_12910;
																			BgL_bufposz00_12907 = BgL_bufposz00_13764;
																			BgL_forwardz00_12906 =
																				BgL_forwardz00_13763;
																			goto BgL_statezd22zd21084z00_12830;
																		}
																	}
																else
																	{	/* Unsafe/http.scm 333 */
																		BgL_matchz00_12835 =
																			BgL_newzd2matchzd2_12908;
																	}
															}
														else
															{	/* Unsafe/http.scm 333 */
																int BgL_curz00_12911;

																BgL_curz00_12911 =
																	RGC_BUFFER_GET_CHAR(BgL_iportz00_12904,
																	BgL_forwardz00_12906);
																{	/* Unsafe/http.scm 333 */

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

																		if (((long) (BgL_curz00_12911) == 72L))
																			{	/* Unsafe/http.scm 333 */
																				BgL_test6075z00_13766 = ((bool_t) 1);
																			}
																		else
																			{	/* Unsafe/http.scm 333 */
																				if (((long) (BgL_curz00_12911) == 80L))
																					{	/* Unsafe/http.scm 333 */
																						BgL_test6075z00_13766 =
																							((bool_t) 1);
																					}
																				else
																					{	/* Unsafe/http.scm 333 */
																						bool_t BgL_test6078z00_13773;

																						if (
																							((long) (BgL_curz00_12911) ==
																								84L))
																							{	/* Unsafe/http.scm 333 */
																								BgL_test6078z00_13773 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Unsafe/http.scm 333 */
																								BgL_test6078z00_13773 =
																									(
																									(long) (BgL_curz00_12911) ==
																									83L);
																							}
																						if (BgL_test6078z00_13773)
																							{	/* Unsafe/http.scm 333 */
																								BgL_test6075z00_13766 =
																									((bool_t) 1);
																							}
																						else
																							{	/* Unsafe/http.scm 333 */
																								if (
																									((long) (BgL_curz00_12911) ==
																										104L))
																									{	/* Unsafe/http.scm 333 */
																										BgL_test6075z00_13766 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Unsafe/http.scm 333 */
																										if (
																											((long) (BgL_curz00_12911)
																												== 112L))
																											{	/* Unsafe/http.scm 333 */
																												BgL_test6075z00_13766 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Unsafe/http.scm 333 */
																												bool_t
																													BgL__ortest_1096z00_12912;
																												BgL__ortest_1096z00_12912
																													=
																													((long)
																													(BgL_curz00_12911) ==
																													116L);
																												if (BgL__ortest_1096z00_12912)
																													{	/* Unsafe/http.scm 333 */
																														BgL_test6075z00_13766
																															=
																															BgL__ortest_1096z00_12912;
																													}
																												else
																													{	/* Unsafe/http.scm 333 */
																														BgL_test6075z00_13766
																															=
																															((long)
																															(BgL_curz00_12911)
																															== 115L);
																			}}}}}}
																		if (BgL_test6075z00_13766)
																			{	/* Unsafe/http.scm 333 */
																				BgL_iportz00_12889 = BgL_iportz00_12904;
																				BgL_lastzd2matchzd2_12890 =
																					BgL_newzd2matchzd2_12908;
																				BgL_forwardz00_12891 =
																					(1L + BgL_forwardz00_12906);
																				BgL_bufposz00_12892 =
																					BgL_bufposz00_12907;
																			BgL_statezd29zd21091z00_12828:
																				if (
																					(BgL_forwardz00_12891 ==
																						BgL_bufposz00_12892))
																					{	/* Unsafe/http.scm 333 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_12889))
																							{	/* Unsafe/http.scm 333 */
																								long BgL_arg1668z00_12893;
																								long BgL_arg1669z00_12894;

																								BgL_arg1668z00_12893 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_12889);
																								BgL_arg1669z00_12894 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_12889);
																								{
																									long BgL_bufposz00_13797;
																									long BgL_forwardz00_13796;

																									BgL_forwardz00_13796 =
																										BgL_arg1668z00_12893;
																									BgL_bufposz00_13797 =
																										BgL_arg1669z00_12894;
																									BgL_bufposz00_12892 =
																										BgL_bufposz00_13797;
																									BgL_forwardz00_12891 =
																										BgL_forwardz00_13796;
																									goto
																										BgL_statezd29zd21091z00_12828;
																								}
																							}
																						else
																							{	/* Unsafe/http.scm 333 */
																								BgL_matchz00_12835 =
																									BgL_lastzd2matchzd2_12890;
																							}
																					}
																				else
																					{	/* Unsafe/http.scm 333 */
																						int BgL_curz00_12895;

																						BgL_curz00_12895 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_12889,
																							BgL_forwardz00_12891);
																						{	/* Unsafe/http.scm 333 */

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

																								if (
																									((long) (BgL_curz00_12895) ==
																										72L))
																									{	/* Unsafe/http.scm 333 */
																										BgL_test6085z00_13799 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Unsafe/http.scm 333 */
																										if (
																											((long) (BgL_curz00_12895)
																												== 80L))
																											{	/* Unsafe/http.scm 333 */
																												BgL_test6085z00_13799 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Unsafe/http.scm 333 */
																												bool_t
																													BgL_test6088z00_13806;
																												if (((long)
																														(BgL_curz00_12895)
																														== 84L))
																													{	/* Unsafe/http.scm 333 */
																														BgL_test6088z00_13806
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Unsafe/http.scm 333 */
																														BgL_test6088z00_13806
																															=
																															((long)
																															(BgL_curz00_12895)
																															== 83L);
																													}
																												if (BgL_test6088z00_13806)
																													{	/* Unsafe/http.scm 333 */
																														BgL_test6085z00_13799
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Unsafe/http.scm 333 */
																														if (
																															((long)
																																(BgL_curz00_12895)
																																== 104L))
																															{	/* Unsafe/http.scm 333 */
																																BgL_test6085z00_13799
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Unsafe/http.scm 333 */
																																if (
																																	((long)
																																		(BgL_curz00_12895)
																																		== 112L))
																																	{	/* Unsafe/http.scm 333 */
																																		BgL_test6085z00_13799
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Unsafe/http.scm 333 */
																																		bool_t
																																			BgL__ortest_1097z00_12896;
																																		BgL__ortest_1097z00_12896
																																			=
																																			((long)
																																			(BgL_curz00_12895)
																																			== 116L);
																																		if (BgL__ortest_1097z00_12896)
																																			{	/* Unsafe/http.scm 333 */
																																				BgL_test6085z00_13799
																																					=
																																					BgL__ortest_1097z00_12896;
																																			}
																																		else
																																			{	/* Unsafe/http.scm 333 */
																																				BgL_test6085z00_13799
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_12895)
																																					==
																																					115L);
																									}}}}}}
																								if (BgL_test6085z00_13799)
																									{
																										long BgL_forwardz00_13823;

																										BgL_forwardz00_13823 =
																											(1L +
																											BgL_forwardz00_12891);
																										BgL_forwardz00_12891 =
																											BgL_forwardz00_13823;
																										goto
																											BgL_statezd29zd21091z00_12828;
																									}
																								else
																									{	/* Unsafe/http.scm 333 */
																										if (
																											((long) (BgL_curz00_12895)
																												== 47L))
																											{	/* Unsafe/http.scm 333 */
																												BgL_iportz00_12897 =
																													BgL_iportz00_12889;
																												BgL_lastzd2matchzd2_12898
																													=
																													BgL_lastzd2matchzd2_12890;
																												BgL_forwardz00_12899 =
																													(1L +
																													BgL_forwardz00_12891);
																												BgL_bufposz00_12900 =
																													BgL_bufposz00_12892;
																											BgL_statezd28zd21090z00_12829:
																												if (
																													(BgL_forwardz00_12899
																														==
																														BgL_bufposz00_12900))
																													{	/* Unsafe/http.scm 333 */
																														if (rgc_fill_buffer
																															(BgL_iportz00_12897))
																															{	/* Unsafe/http.scm 333 */
																																long
																																	BgL_arg1658z00_12901;
																																long
																																	BgL_arg1659z00_12902;
																																BgL_arg1658z00_12901
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_iportz00_12897);
																																BgL_arg1659z00_12902
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_iportz00_12897);
																																{
																																	long
																																		BgL_bufposz00_13835;
																																	long
																																		BgL_forwardz00_13834;
																																	BgL_forwardz00_13834
																																		=
																																		BgL_arg1658z00_12901;
																																	BgL_bufposz00_13835
																																		=
																																		BgL_arg1659z00_12902;
																																	BgL_bufposz00_12900
																																		=
																																		BgL_bufposz00_13835;
																																	BgL_forwardz00_12899
																																		=
																																		BgL_forwardz00_13834;
																																	goto
																																		BgL_statezd28zd21090z00_12829;
																																}
																															}
																														else
																															{	/* Unsafe/http.scm 333 */
																																BgL_matchz00_12835
																																	=
																																	BgL_lastzd2matchzd2_12898;
																															}
																													}
																												else
																													{	/* Unsafe/http.scm 333 */
																														int
																															BgL_curz00_12903;
																														BgL_curz00_12903 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_iportz00_12897,
																															BgL_forwardz00_12899);
																														{	/* Unsafe/http.scm 333 */

																															{	/* Unsafe/http.scm 333 */
																																bool_t
																																	BgL_test6096z00_13837;
																																if (((long)
																																		(BgL_curz00_12903)
																																		>= 48L))
																																	{	/* Unsafe/http.scm 333 */
																																		BgL_test6096z00_13837
																																			=
																																			((long)
																																			(BgL_curz00_12903)
																																			< 58L);
																																	}
																																else
																																	{	/* Unsafe/http.scm 333 */
																																		BgL_test6096z00_13837
																																			=
																																			((bool_t)
																																			0);
																																	}
																																if (BgL_test6096z00_13837)
																																	{	/* Unsafe/http.scm 333 */
																																		BgL_iportz00_12882
																																			=
																																			BgL_iportz00_12897;
																																		BgL_lastzd2matchzd2_12883
																																			=
																																			BgL_lastzd2matchzd2_12898;
																																		BgL_forwardz00_12884
																																			=
																																			(1L +
																																			BgL_forwardz00_12899);
																																		BgL_bufposz00_12885
																																			=
																																			BgL_bufposz00_12900;
																																	BgL_statezd210zd21092z00_12827:
																																		if (
																																			(BgL_forwardz00_12884
																																				==
																																				BgL_bufposz00_12885))
																																			{	/* Unsafe/http.scm 333 */
																																				if (rgc_fill_buffer(BgL_iportz00_12882))
																																					{	/* Unsafe/http.scm 333 */
																																						long
																																							BgL_arg1685z00_12886;
																																						long
																																							BgL_arg1686z00_12887;
																																						BgL_arg1685z00_12886
																																							=
																																							RGC_BUFFER_FORWARD
																																							(BgL_iportz00_12882);
																																						BgL_arg1686z00_12887
																																							=
																																							RGC_BUFFER_BUFPOS
																																							(BgL_iportz00_12882);
																																						{
																																							long
																																								BgL_bufposz00_13850;
																																							long
																																								BgL_forwardz00_13849;
																																							BgL_forwardz00_13849
																																								=
																																								BgL_arg1685z00_12886;
																																							BgL_bufposz00_13850
																																								=
																																								BgL_arg1686z00_12887;
																																							BgL_bufposz00_12885
																																								=
																																								BgL_bufposz00_13850;
																																							BgL_forwardz00_12884
																																								=
																																								BgL_forwardz00_13849;
																																							goto
																																								BgL_statezd210zd21092z00_12827;
																																						}
																																					}
																																				else
																																					{	/* Unsafe/http.scm 333 */
																																						BgL_matchz00_12835
																																							=
																																							BgL_lastzd2matchzd2_12883;
																																					}
																																			}
																																		else
																																			{	/* Unsafe/http.scm 333 */
																																				int
																																					BgL_curz00_12888;
																																				BgL_curz00_12888
																																					=
																																					RGC_BUFFER_GET_CHAR
																																					(BgL_iportz00_12882,
																																					BgL_forwardz00_12884);
																																				{	/* Unsafe/http.scm 333 */

																																					{	/* Unsafe/http.scm 333 */
																																						bool_t
																																							BgL_test6100z00_13852;
																																						if (
																																							((long) (BgL_curz00_12888) >= 48L))
																																							{	/* Unsafe/http.scm 333 */
																																								BgL_test6100z00_13852
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_12888)
																																									<
																																									58L);
																																							}
																																						else
																																							{	/* Unsafe/http.scm 333 */
																																								BgL_test6100z00_13852
																																									=
																																									(
																																									(bool_t)
																																									0);
																																							}
																																						if (BgL_test6100z00_13852)
																																							{
																																								long
																																									BgL_forwardz00_13858;
																																								BgL_forwardz00_13858
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_12884);
																																								BgL_forwardz00_12884
																																									=
																																									BgL_forwardz00_13858;
																																								goto
																																									BgL_statezd210zd21092z00_12827;
																																							}
																																						else
																																							{	/* Unsafe/http.scm 333 */
																																								if (((long) (BgL_curz00_12888) == 46L))
																																									{	/* Unsafe/http.scm 333 */
																																										BgL_iportz00_12947
																																											=
																																											BgL_iportz00_12882;
																																										BgL_lastzd2matchzd2_12948
																																											=
																																											BgL_lastzd2matchzd2_12883;
																																										BgL_forwardz00_12949
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_12884);
																																										BgL_bufposz00_12950
																																											=
																																											BgL_bufposz00_12885;
																																									BgL_statezd211zd21093z00_12834:
																																										if ((BgL_forwardz00_12949 == BgL_bufposz00_12950))
																																											{	/* Unsafe/http.scm 333 */
																																												if (rgc_fill_buffer(BgL_iportz00_12947))
																																													{	/* Unsafe/http.scm 333 */
																																														long
																																															BgL_arg1597z00_12951;
																																														long
																																															BgL_arg1598z00_12952;
																																														BgL_arg1597z00_12951
																																															=
																																															RGC_BUFFER_FORWARD
																																															(BgL_iportz00_12947);
																																														BgL_arg1598z00_12952
																																															=
																																															RGC_BUFFER_BUFPOS
																																															(BgL_iportz00_12947);
																																														{
																																															long
																																																BgL_bufposz00_13870;
																																															long
																																																BgL_forwardz00_13869;
																																															BgL_forwardz00_13869
																																																=
																																																BgL_arg1597z00_12951;
																																															BgL_bufposz00_13870
																																																=
																																																BgL_arg1598z00_12952;
																																															BgL_bufposz00_12950
																																																=
																																																BgL_bufposz00_13870;
																																															BgL_forwardz00_12949
																																																=
																																																BgL_forwardz00_13869;
																																															goto
																																																BgL_statezd211zd21093z00_12834;
																																														}
																																													}
																																												else
																																													{	/* Unsafe/http.scm 333 */
																																														BgL_matchz00_12835
																																															=
																																															BgL_lastzd2matchzd2_12948;
																																													}
																																											}
																																										else
																																											{	/* Unsafe/http.scm 333 */
																																												int
																																													BgL_curz00_12953;
																																												BgL_curz00_12953
																																													=
																																													RGC_BUFFER_GET_CHAR
																																													(BgL_iportz00_12947,
																																													BgL_forwardz00_12949);
																																												{	/* Unsafe/http.scm 333 */

																																													{	/* Unsafe/http.scm 333 */
																																														bool_t
																																															BgL_test6105z00_13872;
																																														if (((long) (BgL_curz00_12953) >= 48L))
																																															{	/* Unsafe/http.scm 333 */
																																																BgL_test6105z00_13872
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_12953)
																																																	<
																																																	58L);
																																															}
																																														else
																																															{	/* Unsafe/http.scm 333 */
																																																BgL_test6105z00_13872
																																																	=
																																																	(
																																																	(bool_t)
																																																	0);
																																															}
																																														if (BgL_test6105z00_13872)
																																															{	/* Unsafe/http.scm 333 */
																																																BgL_iportz00_12938
																																																	=
																																																	BgL_iportz00_12947;
																																																BgL_lastzd2matchzd2_12939
																																																	=
																																																	BgL_lastzd2matchzd2_12948;
																																																BgL_forwardz00_12940
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_12949);
																																																BgL_bufposz00_12941
																																																	=
																																																	BgL_bufposz00_12950;
																																															BgL_statezd212zd21094z00_12833:
																																																if ((BgL_forwardz00_12940 == BgL_bufposz00_12941))
																																																	{	/* Unsafe/http.scm 333 */
																																																		if (rgc_fill_buffer(BgL_iportz00_12938))
																																																			{	/* Unsafe/http.scm 333 */
																																																				long
																																																					BgL_arg1606z00_12942;
																																																				long
																																																					BgL_arg1607z00_12943;
																																																				BgL_arg1606z00_12942
																																																					=
																																																					RGC_BUFFER_FORWARD
																																																					(BgL_iportz00_12938);
																																																				BgL_arg1607z00_12943
																																																					=
																																																					RGC_BUFFER_BUFPOS
																																																					(BgL_iportz00_12938);
																																																				{
																																																					long
																																																						BgL_bufposz00_13885;
																																																					long
																																																						BgL_forwardz00_13884;
																																																					BgL_forwardz00_13884
																																																						=
																																																						BgL_arg1606z00_12942;
																																																					BgL_bufposz00_13885
																																																						=
																																																						BgL_arg1607z00_12943;
																																																					BgL_bufposz00_12941
																																																						=
																																																						BgL_bufposz00_13885;
																																																					BgL_forwardz00_12940
																																																						=
																																																						BgL_forwardz00_13884;
																																																					goto
																																																						BgL_statezd212zd21094z00_12833;
																																																				}
																																																			}
																																																		else
																																																			{	/* Unsafe/http.scm 333 */
																																																				BgL_matchz00_12835
																																																					=
																																																					BgL_lastzd2matchzd2_12939;
																																																			}
																																																	}
																																																else
																																																	{	/* Unsafe/http.scm 333 */
																																																		int
																																																			BgL_curz00_12944;
																																																		BgL_curz00_12944
																																																			=
																																																			RGC_BUFFER_GET_CHAR
																																																			(BgL_iportz00_12938,
																																																			BgL_forwardz00_12940);
																																																		{	/* Unsafe/http.scm 333 */

																																																			{	/* Unsafe/http.scm 333 */
																																																				bool_t
																																																					BgL_test6109z00_13887;
																																																				if (((long) (BgL_curz00_12944) >= 48L))
																																																					{	/* Unsafe/http.scm 333 */
																																																						BgL_test6109z00_13887
																																																							=
																																																							(
																																																							(long)
																																																							(BgL_curz00_12944)
																																																							<
																																																							58L);
																																																					}
																																																				else
																																																					{	/* Unsafe/http.scm 333 */
																																																						BgL_test6109z00_13887
																																																							=
																																																							(
																																																							(bool_t)
																																																							0);
																																																					}
																																																				if (BgL_test6109z00_13887)
																																																					{
																																																						long
																																																							BgL_forwardz00_13893;
																																																						BgL_forwardz00_13893
																																																							=
																																																							(1L
																																																							+
																																																							BgL_forwardz00_12940);
																																																						BgL_forwardz00_12940
																																																							=
																																																							BgL_forwardz00_13893;
																																																						goto
																																																							BgL_statezd212zd21094z00_12833;
																																																					}
																																																				else
																																																					{	/* Unsafe/http.scm 333 */
																																																						if (((long) (BgL_curz00_12944) == 32L))
																																																							{	/* Unsafe/http.scm 333 */
																																																								long
																																																									BgL_arg1613z00_12945;
																																																								BgL_arg1613z00_12945
																																																									=
																																																									(1L
																																																									+
																																																									BgL_forwardz00_12940);
																																																								{	/* Unsafe/http.scm 333 */
																																																									long
																																																										BgL_newzd2matchzd2_12946;
																																																									RGC_STOP_MATCH
																																																										(BgL_iportz00_12938,
																																																										BgL_arg1613z00_12945);
																																																									BgL_newzd2matchzd2_12946
																																																										=
																																																										0L;
																																																									BgL_matchz00_12835
																																																										=
																																																										BgL_newzd2matchzd2_12946;
																																																							}}
																																																						else
																																																							{	/* Unsafe/http.scm 333 */
																																																								BgL_matchz00_12835
																																																									=
																																																									BgL_lastzd2matchzd2_12939;
																																																							}
																																																					}
																																																			}
																																																		}
																																																	}
																																															}
																																														else
																																															{	/* Unsafe/http.scm 333 */
																																																BgL_matchz00_12835
																																																	=
																																																	BgL_lastzd2matchzd2_12948;
																																															}
																																													}
																																												}
																																											}
																																									}
																																								else
																																									{	/* Unsafe/http.scm 333 */
																																										BgL_matchz00_12835
																																											=
																																											BgL_lastzd2matchzd2_12883;
																																									}
																																							}
																																					}
																																				}
																																			}
																																	}
																																else
																																	{	/* Unsafe/http.scm 333 */
																																		BgL_matchz00_12835
																																			=
																																			BgL_lastzd2matchzd2_12898;
																																	}
																															}
																														}
																													}
																											}
																										else
																											{	/* Unsafe/http.scm 333 */
																												BgL_matchz00_12835 =
																													BgL_lastzd2matchzd2_12890;
																											}
																									}
																							}
																						}
																					}
																			}
																		else
																			{	/* Unsafe/http.scm 333 */
																				if (((long) (BgL_curz00_12911) == 47L))
																					{
																						long BgL_bufposz00_13912;
																						long BgL_forwardz00_13910;
																						long BgL_lastzd2matchzd2_13909;
																						obj_t BgL_iportz00_13908;

																						BgL_iportz00_13908 =
																							BgL_iportz00_12904;
																						BgL_lastzd2matchzd2_13909 =
																							BgL_newzd2matchzd2_12908;
																						BgL_forwardz00_13910 =
																							(1L + BgL_forwardz00_12906);
																						BgL_bufposz00_13912 =
																							BgL_bufposz00_12907;
																						BgL_bufposz00_12900 =
																							BgL_bufposz00_13912;
																						BgL_forwardz00_12899 =
																							BgL_forwardz00_13910;
																						BgL_lastzd2matchzd2_12898 =
																							BgL_lastzd2matchzd2_13909;
																						BgL_iportz00_12897 =
																							BgL_iportz00_13908;
																						goto BgL_statezd28zd21090z00_12829;
																					}
																				else
																					{	/* Unsafe/http.scm 333 */
																						BgL_matchz00_12835 =
																							BgL_newzd2matchzd2_12908;
																					}
																			}
																	}
																}
															}
													}
												}
											else
												{	/* Unsafe/http.scm 333 */
													long BgL_arg1629z00_12936;

													BgL_arg1629z00_12936 = (1L + BgL_forwardz00_12930);
													{	/* Unsafe/http.scm 333 */
														long BgL_newzd2matchzd2_12937;

														RGC_STOP_MATCH(BgL_iportz00_12928,
															BgL_arg1629z00_12936);
														BgL_newzd2matchzd2_12937 = 1L;
														BgL_matchz00_12835 = BgL_newzd2matchzd2_12937;
					}}}}}}
					RGC_SET_FILEPOS(BgL_iportz00_12387);
					switch (BgL_matchz00_12835)
						{
						case 1L:

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

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

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

										BgL_arg1798z00_12857 =
											RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12387);
										BgL_test6113z00_13917 = (BgL_arg1798z00_12857 == 0L);
									}
									if (BgL_test6113z00_13917)
										{	/* Unsafe/http.scm 333 */
											BgL_cz00_12838 = BEOF;
										}
									else
										{	/* Unsafe/http.scm 333 */
											BgL_cz00_12838 =
												BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_12387));
										}
								}
								{	/* Unsafe/http.scm 347 */
									BgL_z62iozd2parsezd2errorz62_bglt BgL_arg1805z00_12839;

									if (EOF_OBJECTP(BgL_cz00_12838))
										{	/* Unsafe/http.scm 348 */
											BgL_z62iozd2parsezd2errorz62_bglt BgL_new1101z00_12840;

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

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

													BgL_arg1809z00_12842 =
														BGL_CLASS_NUM
														(BGl_z62iozd2parsezd2errorz62zz__objectz00);
													BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
															BgL_new1100z00_12841), BgL_arg1809z00_12842);
												}
												BgL_new1101z00_12840 = BgL_new1100z00_12841;
											}
											((((BgL_z62exceptionz62_bglt) COBJECT(
															((BgL_z62exceptionz62_bglt)
																BgL_new1101z00_12840)))->BgL_fnamez00) =
												((obj_t) BFALSE), BUNSPEC);
											((((BgL_z62exceptionz62_bglt)
														COBJECT(((BgL_z62exceptionz62_bglt)
																BgL_new1101z00_12840)))->BgL_locationz00) =
												((obj_t) BFALSE), BUNSPEC);
											{
												obj_t BgL_auxz00_13932;

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

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

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

															BgL_classz00_12845 =
																BGl_z62iozd2parsezd2errorz62zz__objectz00;
															BgL_arg1808z00_12844 =
																BGL_CLASS_ALL_FIELDS(BgL_classz00_12845);
														}
														BgL_arg1807z00_12843 =
															VECTOR_REF(BgL_arg1808z00_12844, 2L);
													}
													BgL_auxz00_13932 =
														BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
														(BgL_arg1807z00_12843);
												}
												((((BgL_z62exceptionz62_bglt) COBJECT(
																((BgL_z62exceptionz62_bglt)
																	BgL_new1101z00_12840)))->BgL_stackz00) =
													((obj_t) BgL_auxz00_13932), BUNSPEC);
											}
											((((BgL_z62errorz62_bglt) COBJECT(
															((BgL_z62errorz62_bglt) BgL_new1101z00_12840)))->
													BgL_procz00) =
												((obj_t) BGl_string5605z00zz__httpz00), BUNSPEC);
											((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
																BgL_new1101z00_12840)))->BgL_msgz00) =
												((obj_t) BGl_string5606z00zz__httpz00), BUNSPEC);
											((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
																BgL_new1101z00_12840)))->BgL_objz00) =
												((obj_t) BgL_iportz00_12387), BUNSPEC);
											BgL_arg1805z00_12839 = BgL_new1101z00_12840;
										}
									else
										{	/* Unsafe/http.scm 352 */
											BgL_z62iozd2parsezd2errorz62_bglt BgL_new1103z00_12846;

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

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

													BgL_arg1816z00_12848 =
														BGL_CLASS_NUM
														(BGl_z62iozd2parsezd2errorz62zz__objectz00);
													BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
															BgL_new1102z00_12847), BgL_arg1816z00_12848);
												}
												BgL_new1103z00_12846 = BgL_new1102z00_12847;
											}
											((((BgL_z62exceptionz62_bglt) COBJECT(
															((BgL_z62exceptionz62_bglt)
																BgL_new1103z00_12846)))->BgL_fnamez00) =
												((obj_t) BFALSE), BUNSPEC);
											((((BgL_z62exceptionz62_bglt)
														COBJECT(((BgL_z62exceptionz62_bglt)
																BgL_new1103z00_12846)))->BgL_locationz00) =
												((obj_t) BFALSE), BUNSPEC);
											{
												obj_t BgL_auxz00_13952;

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

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

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

															BgL_classz00_12851 =
																BGl_z62iozd2parsezd2errorz62zz__objectz00;
															BgL_arg1812z00_12850 =
																BGL_CLASS_ALL_FIELDS(BgL_classz00_12851);
														}
														BgL_arg1810z00_12849 =
															VECTOR_REF(BgL_arg1812z00_12850, 2L);
													}
													BgL_auxz00_13952 =
														BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
														(BgL_arg1810z00_12849);
												}
												((((BgL_z62exceptionz62_bglt) COBJECT(
																((BgL_z62exceptionz62_bglt)
																	BgL_new1103z00_12846)))->BgL_stackz00) =
													((obj_t) BgL_auxz00_13952), BUNSPEC);
											}
											((((BgL_z62errorz62_bglt) COBJECT(
															((BgL_z62errorz62_bglt) BgL_new1103z00_12846)))->
													BgL_procz00) =
												((obj_t) BGl_string5605z00zz__httpz00), BUNSPEC);
											((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
																BgL_new1103z00_12846)))->BgL_msgz00) =
												((obj_t) BGl_string5607z00zz__httpz00), BUNSPEC);
											((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
																BgL_new1103z00_12846)))->BgL_objz00) =
												((obj_t)
													BGl_httpzd2parsezd2errorzd2msgzd2zz__httpz00
													(BgL_cz00_12838, BgL_iportz00_12387)), BUNSPEC);
											BgL_arg1805z00_12839 = BgL_new1103z00_12846;
										}
									return
										BGl_raisez00zz__errorz00(((obj_t) BgL_arg1805z00_12839));
								}
							}
							break;
						case 0L:

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

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

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

										BgL_arg1822z00_12854 =
											RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12387);
										BgL_arg1821z00_12853 = (BgL_arg1822z00_12854 - 1L);
									}
									BgL_minz00_12858 = (int) (0L);
									BgL_maxz00_12859 = (int) (BgL_arg1821z00_12853);
									if (((long) (BgL_maxz00_12859) < (long) (BgL_minz00_12858)))
										{	/* Unsafe/http.scm 333 */
											long BgL_arg1725z00_12860;

											BgL_arg1725z00_12860 =
												RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12387);
											{	/* Unsafe/http.scm 333 */
												long BgL_za72za7_12861;

												BgL_za72za7_12861 = (long) (BgL_maxz00_12859);
												BgL_maxz00_12859 =
													(int) ((BgL_arg1725z00_12860 + BgL_za72za7_12861));
										}}
									else
										{	/* Unsafe/http.scm 333 */
											BFALSE;
										}
									{	/* Unsafe/http.scm 333 */
										bool_t BgL_test6116z00_13977;

										if (((long) (BgL_minz00_12858) >= 0L))
											{	/* Unsafe/http.scm 333 */
												if (
													((long) (BgL_maxz00_12859) >=
														(long) (BgL_minz00_12858)))
													{	/* Unsafe/http.scm 333 */
														long BgL_arg1735z00_12862;

														BgL_arg1735z00_12862 =
															RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12387);
														BgL_test6116z00_13977 =
															(
															(long) (BgL_maxz00_12859) <=
															BgL_arg1735z00_12862);
													}
												else
													{	/* Unsafe/http.scm 333 */
														BgL_test6116z00_13977 = ((bool_t) 0);
													}
											}
										else
											{	/* Unsafe/http.scm 333 */
												BgL_test6116z00_13977 = ((bool_t) 0);
											}
										if (BgL_test6116z00_13977)
											{	/* Unsafe/http.scm 333 */
												BgL_httpz00_12852 =
													rgc_buffer_substring(BgL_iportz00_12387,
													(long) (BgL_minz00_12858), (long) (BgL_maxz00_12859));
											}
										else
											{	/* Unsafe/http.scm 333 */
												obj_t BgL_arg1731z00_12863;
												obj_t BgL_arg1732z00_12864;

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

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

														BgL_arg1722z00_12866 =
															RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12387);
														BgL_arg1733z00_12865 =
															rgc_buffer_substring(BgL_iportz00_12387, 0L,
															BgL_arg1722z00_12866);
													}
													{	/* Unsafe/http.scm 333 */
														obj_t BgL_list1734z00_12867;

														BgL_list1734z00_12867 =
															MAKE_YOUNG_PAIR(BgL_arg1733z00_12865, BNIL);
														BgL_arg1731z00_12863 =
															BGl_formatz00zz__r4_output_6_10_3z00
															(BGl_string5603z00zz__httpz00,
															BgL_list1734z00_12867);
												}}
												BgL_arg1732z00_12864 =
													MAKE_YOUNG_PAIR(BINT(BgL_minz00_12858),
													BINT(BgL_maxz00_12859));
												BgL_httpz00_12852 =
													BGl_errorz00zz__errorz00(BGl_string5604z00zz__httpz00,
													BgL_arg1731z00_12863, BgL_arg1732z00_12864);
								}}}
								{	/* Unsafe/http.scm 341 */
									obj_t BgL_codez00_12855;

									BgL_codez00_12855 =
										BGl_httpzd2readzd2fixnumz00zz__httpz00(BgL_iportz00_12387);
									BGl_httpzd2skipzd2blankz00zz__httpz00(BgL_iportz00_12387);
									{	/* Unsafe/http.scm 343 */
										obj_t BgL_val2_1412z00_12856;

										BgL_val2_1412z00_12856 =
											BGl_httpzd2readzd2linez00zz__httpz00(BgL_iportz00_12387);
										{	/* Unsafe/http.scm 343 */
											int BgL_tmpz00_14004;

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

											BgL_tmpz00_14007 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_14007, BgL_codez00_12855);
										}
										{	/* Unsafe/http.scm 343 */
											int BgL_tmpz00_14010;

											BgL_tmpz00_14010 = (int) (2L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_14010,
												BgL_val2_1412z00_12856);
										}
										return BgL_httpz00_12852;
									}
								}
							}
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string5600z00zz__httpz00,
								BGl_string5601z00zz__httpz00, BINT(BgL_matchz00_12835));
						}
				}
			}
		}

	}



/* _http */
	obj_t BGl__httpz00zz__httpz00(obj_t BgL_env1473z00_24,
		obj_t BgL_opt1472z00_23)
	{
		{	/* Unsafe/http.scm 106 */
			{	/* Unsafe/http.scm 106 */

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

					BgL_argsz00_2511 = BNIL;
					{	/* Unsafe/http.scm 106 */
						obj_t BgL_authoriza7ationza7_2512;

						BgL_authoriza7ationza7_2512 = BFALSE;
						{	/* Unsafe/http.scm 106 */
							obj_t BgL_bodyz00_2513;

							BgL_bodyz00_2513 = BFALSE;
							{	/* Unsafe/http.scm 106 */
								obj_t BgL_connectionz00_2514;

								BgL_connectionz00_2514 = BUNSPEC;
								{	/* Unsafe/http.scm 106 */
									obj_t BgL_contentzd2typezd2_2515;

									BgL_contentzd2typezd2_2515 = BFALSE;
									{	/* Unsafe/http.scm 120 */
										obj_t BgL_headerz00_2516;

										BgL_headerz00_2516 = BGl_list5608z00zz__httpz00;
										{	/* Unsafe/http.scm 106 */
											obj_t BgL_hostz00_2517;

											BgL_hostz00_2517 = BGl_string5613z00zz__httpz00;
											{	/* Unsafe/http.scm 106 */
												obj_t BgL_httpzd2versionzd2_2518;

												BgL_httpzd2versionzd2_2518 =
													BGl_string5614z00zz__httpz00;
												{	/* Unsafe/http.scm 106 */
													obj_t BgL_inz00_2519;

													BgL_inz00_2519 = BFALSE;
													{	/* Unsafe/http.scm 106 */
														obj_t BgL_loginz00_2520;

														BgL_loginz00_2520 = BFALSE;
														{	/* Unsafe/http.scm 111 */
															obj_t BgL_methodz00_2521;

															BgL_methodz00_2521 = BGl_symbol5615z00zz__httpz00;
															{	/* Unsafe/http.scm 106 */
																obj_t BgL_outz00_2522;

																BgL_outz00_2522 = BFALSE;
																{	/* Unsafe/http.scm 106 */
																	obj_t BgL_passwordz00_2523;

																	BgL_passwordz00_2523 = BFALSE;
																	{	/* Unsafe/http.scm 106 */
																		obj_t BgL_pathz00_2524;

																		BgL_pathz00_2524 =
																			BGl_string5617z00zz__httpz00;
																		{	/* Unsafe/http.scm 106 */
																			obj_t BgL_portz00_2525;

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

																				BgL_protocolz00_2526 =
																					BGl_symbol5618z00zz__httpz00;
																				{	/* Unsafe/http.scm 106 */
																					obj_t BgL_proxyz00_2527;

																					BgL_proxyz00_2527 = BFALSE;
																					{	/* Unsafe/http.scm 106 */
																						obj_t BgL_socketz00_2528;

																						BgL_socketz00_2528 = BFALSE;
																						{	/* Unsafe/http.scm 106 */
																							obj_t BgL_timeoutz00_2529;

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

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

																									{
																										long BgL_iz00_2531;

																										BgL_iz00_2531 = 0L;
																									BgL_check1476z00_2532:
																										if (
																											(BgL_iz00_2531 ==
																												VECTOR_LENGTH
																												(BgL_opt1472z00_23)))
																											{	/* Unsafe/http.scm 106 */
																												BNIL;
																											}
																										else
																											{	/* Unsafe/http.scm 106 */
																												bool_t
																													BgL_test6120z00_14021;
																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_arg2234z00_2538;
																													BgL_arg2234z00_2538 =
																														VECTOR_REF
																														(BgL_opt1472z00_23,
																														BgL_iz00_2531);
																													BgL_test6120z00_14021
																														=
																														CBOOL
																														(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																														(BgL_arg2234z00_2538,
																															BGl_list5620z00zz__httpz00));
																												}
																												if (BgL_test6120z00_14021)
																													{
																														long BgL_iz00_14025;

																														BgL_iz00_14025 =
																															(BgL_iz00_2531 +
																															2L);
																														BgL_iz00_2531 =
																															BgL_iz00_14025;
																														goto
																															BgL_check1476z00_2532;
																													}
																												else
																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_arg2233z00_2537;
																														BgL_arg2233z00_2537
																															=
																															VECTOR_REF
																															(BgL_opt1472z00_23,
																															BgL_iz00_2531);
																														BGl_errorz00zz__errorz00
																															(BGl_symbol5618z00zz__httpz00,
																															BGl_string5661z00zz__httpz00,
																															BgL_arg2233z00_2537);
																													}
																											}
																									}
																									{	/* Unsafe/http.scm 106 */
																										obj_t BgL_index1478z00_2539;

																										{
																											long BgL_iz00_9264;

																											BgL_iz00_9264 = 0L;
																										BgL_search1475z00_9263:
																											if (
																												(BgL_iz00_9264 ==
																													VECTOR_LENGTH
																													(BgL_opt1472z00_23)))
																												{	/* Unsafe/http.scm 106 */
																													BgL_index1478z00_2539
																														= BINT(-1L);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													if (
																														(BgL_iz00_9264 ==
																															(VECTOR_LENGTH
																																(BgL_opt1472z00_23)
																																- 1L)))
																														{	/* Unsafe/http.scm 106 */
																															BgL_index1478z00_2539
																																=
																																BGl_errorz00zz__errorz00
																																(BGl_symbol5618z00zz__httpz00,
																																BGl_string5662z00zz__httpz00,
																																BINT
																																(VECTOR_LENGTH
																																	(BgL_opt1472z00_23)));
																														}
																													else
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_vz00_9274;
																															BgL_vz00_9274 =
																																VECTOR_REF
																																(BgL_opt1472z00_23,
																																BgL_iz00_9264);
																															if ((BgL_vz00_9274
																																	==
																																	BGl_keyword5621z00zz__httpz00))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_index1478z00_2539
																																		=
																																		BINT(
																																		(BgL_iz00_9264
																																			+ 1L));
																																}
																															else
																																{
																																	long
																																		BgL_iz00_14045;
																																	BgL_iz00_14045
																																		=
																																		(BgL_iz00_9264
																																		+ 2L);
																																	BgL_iz00_9264
																																		=
																																		BgL_iz00_14045;
																																	goto
																																		BgL_search1475z00_9263;
																																}
																														}
																												}
																										}
																										{	/* Unsafe/http.scm 106 */
																											bool_t
																												BgL_test6124z00_14047;
																											{	/* Unsafe/http.scm 106 */
																												long BgL_n1z00_9278;

																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_tmpz00_14048;
																													if (INTEGERP
																														(BgL_index1478z00_2539))
																														{	/* Unsafe/http.scm 106 */
																															BgL_tmpz00_14048 =
																																BgL_index1478z00_2539;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14051;
																															BgL_auxz00_14051 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string5663z00zz__httpz00,
																																BINT(3541L),
																																BGl_string5664z00zz__httpz00,
																																BGl_string5665z00zz__httpz00,
																																BgL_index1478z00_2539);
																															FAILURE
																																(BgL_auxz00_14051,
																																BFALSE, BFALSE);
																														}
																													BgL_n1z00_9278 =
																														(long)
																														CINT
																														(BgL_tmpz00_14048);
																												}
																												BgL_test6124z00_14047 =
																													(BgL_n1z00_9278 >=
																													0L);
																											}
																											if (BgL_test6124z00_14047)
																												{
																													long BgL_auxz00_14057;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14058;
																														if (INTEGERP
																															(BgL_index1478z00_2539))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14058
																																	=
																																	BgL_index1478z00_2539;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14061;
																																BgL_auxz00_14061
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5663z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5664z00zz__httpz00,
																																	BGl_string5665z00zz__httpz00,
																																	BgL_index1478z00_2539);
																																FAILURE
																																	(BgL_auxz00_14061,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_auxz00_14057 =
																															(long)
																															CINT
																															(BgL_tmpz00_14058);
																													}
																													BgL_argsz00_2511 =
																														VECTOR_REF
																														(BgL_opt1472z00_23,
																														BgL_auxz00_14057);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													BFALSE;
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 106 */
																										obj_t BgL_index1479z00_2541;

																										{
																											long BgL_iz00_9280;

																											BgL_iz00_9280 = 0L;
																										BgL_search1475z00_9279:
																											if (
																												(BgL_iz00_9280 ==
																													VECTOR_LENGTH
																													(BgL_opt1472z00_23)))
																												{	/* Unsafe/http.scm 106 */
																													BgL_index1479z00_2541
																														= BINT(-1L);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													if (
																														(BgL_iz00_9280 ==
																															(VECTOR_LENGTH
																																(BgL_opt1472z00_23)
																																- 1L)))
																														{	/* Unsafe/http.scm 106 */
																															BgL_index1479z00_2541
																																=
																																BGl_errorz00zz__errorz00
																																(BGl_symbol5618z00zz__httpz00,
																																BGl_string5662z00zz__httpz00,
																																BINT
																																(VECTOR_LENGTH
																																	(BgL_opt1472z00_23)));
																														}
																													else
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_vz00_9290;
																															BgL_vz00_9290 =
																																VECTOR_REF
																																(BgL_opt1472z00_23,
																																BgL_iz00_9280);
																															if ((BgL_vz00_9290
																																	==
																																	BGl_keyword5623z00zz__httpz00))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_index1479z00_2541
																																		=
																																		BINT(
																																		(BgL_iz00_9280
																																			+ 1L));
																																}
																															else
																																{
																																	long
																																		BgL_iz00_14083;
																																	BgL_iz00_14083
																																		=
																																		(BgL_iz00_9280
																																		+ 2L);
																																	BgL_iz00_9280
																																		=
																																		BgL_iz00_14083;
																																	goto
																																		BgL_search1475z00_9279;
																																}
																														}
																												}
																										}
																										{	/* Unsafe/http.scm 106 */
																											bool_t
																												BgL_test6130z00_14085;
																											{	/* Unsafe/http.scm 106 */
																												long BgL_n1z00_9294;

																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_tmpz00_14086;
																													if (INTEGERP
																														(BgL_index1479z00_2541))
																														{	/* Unsafe/http.scm 106 */
																															BgL_tmpz00_14086 =
																																BgL_index1479z00_2541;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14089;
																															BgL_auxz00_14089 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string5663z00zz__httpz00,
																																BINT(3541L),
																																BGl_string5664z00zz__httpz00,
																																BGl_string5665z00zz__httpz00,
																																BgL_index1479z00_2541);
																															FAILURE
																																(BgL_auxz00_14089,
																																BFALSE, BFALSE);
																														}
																													BgL_n1z00_9294 =
																														(long)
																														CINT
																														(BgL_tmpz00_14086);
																												}
																												BgL_test6130z00_14085 =
																													(BgL_n1z00_9294 >=
																													0L);
																											}
																											if (BgL_test6130z00_14085)
																												{
																													long BgL_auxz00_14095;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14096;
																														if (INTEGERP
																															(BgL_index1479z00_2541))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14096
																																	=
																																	BgL_index1479z00_2541;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14099;
																																BgL_auxz00_14099
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5663z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5664z00zz__httpz00,
																																	BGl_string5665z00zz__httpz00,
																																	BgL_index1479z00_2541);
																																FAILURE
																																	(BgL_auxz00_14099,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_auxz00_14095 =
																															(long)
																															CINT
																															(BgL_tmpz00_14096);
																													}
																													BgL_authoriza7ationza7_2512
																														=
																														VECTOR_REF
																														(BgL_opt1472z00_23,
																														BgL_auxz00_14095);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													BFALSE;
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 106 */
																										obj_t BgL_index1480z00_2543;

																										{
																											long BgL_iz00_9296;

																											BgL_iz00_9296 = 0L;
																										BgL_search1475z00_9295:
																											if (
																												(BgL_iz00_9296 ==
																													VECTOR_LENGTH
																													(BgL_opt1472z00_23)))
																												{	/* Unsafe/http.scm 106 */
																													BgL_index1480z00_2543
																														= BINT(-1L);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													if (
																														(BgL_iz00_9296 ==
																															(VECTOR_LENGTH
																																(BgL_opt1472z00_23)
																																- 1L)))
																														{	/* Unsafe/http.scm 106 */
																															BgL_index1480z00_2543
																																=
																																BGl_errorz00zz__errorz00
																																(BGl_symbol5618z00zz__httpz00,
																																BGl_string5662z00zz__httpz00,
																																BINT
																																(VECTOR_LENGTH
																																	(BgL_opt1472z00_23)));
																														}
																													else
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_vz00_9306;
																															BgL_vz00_9306 =
																																VECTOR_REF
																																(BgL_opt1472z00_23,
																																BgL_iz00_9296);
																															if ((BgL_vz00_9306
																																	==
																																	BGl_keyword5625z00zz__httpz00))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_index1480z00_2543
																																		=
																																		BINT(
																																		(BgL_iz00_9296
																																			+ 1L));
																																}
																															else
																																{
																																	long
																																		BgL_iz00_14121;
																																	BgL_iz00_14121
																																		=
																																		(BgL_iz00_9296
																																		+ 2L);
																																	BgL_iz00_9296
																																		=
																																		BgL_iz00_14121;
																																	goto
																																		BgL_search1475z00_9295;
																																}
																														}
																												}
																										}
																										{	/* Unsafe/http.scm 106 */
																											bool_t
																												BgL_test6136z00_14123;
																											{	/* Unsafe/http.scm 106 */
																												long BgL_n1z00_9310;

																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_tmpz00_14124;
																													if (INTEGERP
																														(BgL_index1480z00_2543))
																														{	/* Unsafe/http.scm 106 */
																															BgL_tmpz00_14124 =
																																BgL_index1480z00_2543;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14127;
																															BgL_auxz00_14127 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string5663z00zz__httpz00,
																																BINT(3541L),
																																BGl_string5664z00zz__httpz00,
																																BGl_string5665z00zz__httpz00,
																																BgL_index1480z00_2543);
																															FAILURE
																																(BgL_auxz00_14127,
																																BFALSE, BFALSE);
																														}
																													BgL_n1z00_9310 =
																														(long)
																														CINT
																														(BgL_tmpz00_14124);
																												}
																												BgL_test6136z00_14123 =
																													(BgL_n1z00_9310 >=
																													0L);
																											}
																											if (BgL_test6136z00_14123)
																												{
																													long BgL_auxz00_14133;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14134;
																														if (INTEGERP
																															(BgL_index1480z00_2543))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14134
																																	=
																																	BgL_index1480z00_2543;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14137;
																																BgL_auxz00_14137
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5663z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5664z00zz__httpz00,
																																	BGl_string5665z00zz__httpz00,
																																	BgL_index1480z00_2543);
																																FAILURE
																																	(BgL_auxz00_14137,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_auxz00_14133 =
																															(long)
																															CINT
																															(BgL_tmpz00_14134);
																													}
																													BgL_bodyz00_2513 =
																														VECTOR_REF
																														(BgL_opt1472z00_23,
																														BgL_auxz00_14133);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													BFALSE;
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 106 */
																										obj_t BgL_index1481z00_2545;

																										{
																											long BgL_iz00_9312;

																											BgL_iz00_9312 = 0L;
																										BgL_search1475z00_9311:
																											if (
																												(BgL_iz00_9312 ==
																													VECTOR_LENGTH
																													(BgL_opt1472z00_23)))
																												{	/* Unsafe/http.scm 106 */
																													BgL_index1481z00_2545
																														= BINT(-1L);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													if (
																														(BgL_iz00_9312 ==
																															(VECTOR_LENGTH
																																(BgL_opt1472z00_23)
																																- 1L)))
																														{	/* Unsafe/http.scm 106 */
																															BgL_index1481z00_2545
																																=
																																BGl_errorz00zz__errorz00
																																(BGl_symbol5618z00zz__httpz00,
																																BGl_string5662z00zz__httpz00,
																																BINT
																																(VECTOR_LENGTH
																																	(BgL_opt1472z00_23)));
																														}
																													else
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_vz00_9322;
																															BgL_vz00_9322 =
																																VECTOR_REF
																																(BgL_opt1472z00_23,
																																BgL_iz00_9312);
																															if ((BgL_vz00_9322
																																	==
																																	BGl_keyword5627z00zz__httpz00))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_index1481z00_2545
																																		=
																																		BINT(
																																		(BgL_iz00_9312
																																			+ 1L));
																																}
																															else
																																{
																																	long
																																		BgL_iz00_14159;
																																	BgL_iz00_14159
																																		=
																																		(BgL_iz00_9312
																																		+ 2L);
																																	BgL_iz00_9312
																																		=
																																		BgL_iz00_14159;
																																	goto
																																		BgL_search1475z00_9311;
																																}
																														}
																												}
																										}
																										{	/* Unsafe/http.scm 106 */
																											bool_t
																												BgL_test6142z00_14161;
																											{	/* Unsafe/http.scm 106 */
																												long BgL_n1z00_9326;

																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_tmpz00_14162;
																													if (INTEGERP
																														(BgL_index1481z00_2545))
																														{	/* Unsafe/http.scm 106 */
																															BgL_tmpz00_14162 =
																																BgL_index1481z00_2545;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14165;
																															BgL_auxz00_14165 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string5663z00zz__httpz00,
																																BINT(3541L),
																																BGl_string5664z00zz__httpz00,
																																BGl_string5665z00zz__httpz00,
																																BgL_index1481z00_2545);
																															FAILURE
																																(BgL_auxz00_14165,
																																BFALSE, BFALSE);
																														}
																													BgL_n1z00_9326 =
																														(long)
																														CINT
																														(BgL_tmpz00_14162);
																												}
																												BgL_test6142z00_14161 =
																													(BgL_n1z00_9326 >=
																													0L);
																											}
																											if (BgL_test6142z00_14161)
																												{
																													long BgL_auxz00_14171;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14172;
																														if (INTEGERP
																															(BgL_index1481z00_2545))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14172
																																	=
																																	BgL_index1481z00_2545;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14175;
																																BgL_auxz00_14175
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5663z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5664z00zz__httpz00,
																																	BGl_string5665z00zz__httpz00,
																																	BgL_index1481z00_2545);
																																FAILURE
																																	(BgL_auxz00_14175,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_auxz00_14171 =
																															(long)
																															CINT
																															(BgL_tmpz00_14172);
																													}
																													BgL_connectionz00_2514
																														=
																														VECTOR_REF
																														(BgL_opt1472z00_23,
																														BgL_auxz00_14171);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													BFALSE;
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 106 */
																										obj_t BgL_index1482z00_2547;

																										{
																											long BgL_iz00_9328;

																											BgL_iz00_9328 = 0L;
																										BgL_search1475z00_9327:
																											if (
																												(BgL_iz00_9328 ==
																													VECTOR_LENGTH
																													(BgL_opt1472z00_23)))
																												{	/* Unsafe/http.scm 106 */
																													BgL_index1482z00_2547
																														= BINT(-1L);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													if (
																														(BgL_iz00_9328 ==
																															(VECTOR_LENGTH
																																(BgL_opt1472z00_23)
																																- 1L)))
																														{	/* Unsafe/http.scm 106 */
																															BgL_index1482z00_2547
																																=
																																BGl_errorz00zz__errorz00
																																(BGl_symbol5618z00zz__httpz00,
																																BGl_string5662z00zz__httpz00,
																																BINT
																																(VECTOR_LENGTH
																																	(BgL_opt1472z00_23)));
																														}
																													else
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_vz00_9338;
																															BgL_vz00_9338 =
																																VECTOR_REF
																																(BgL_opt1472z00_23,
																																BgL_iz00_9328);
																															if ((BgL_vz00_9338
																																	==
																																	BGl_keyword5629z00zz__httpz00))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_index1482z00_2547
																																		=
																																		BINT(
																																		(BgL_iz00_9328
																																			+ 1L));
																																}
																															else
																																{
																																	long
																																		BgL_iz00_14197;
																																	BgL_iz00_14197
																																		=
																																		(BgL_iz00_9328
																																		+ 2L);
																																	BgL_iz00_9328
																																		=
																																		BgL_iz00_14197;
																																	goto
																																		BgL_search1475z00_9327;
																																}
																														}
																												}
																										}
																										{	/* Unsafe/http.scm 106 */
																											bool_t
																												BgL_test6148z00_14199;
																											{	/* Unsafe/http.scm 106 */
																												long BgL_n1z00_9342;

																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_tmpz00_14200;
																													if (INTEGERP
																														(BgL_index1482z00_2547))
																														{	/* Unsafe/http.scm 106 */
																															BgL_tmpz00_14200 =
																																BgL_index1482z00_2547;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14203;
																															BgL_auxz00_14203 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string5663z00zz__httpz00,
																																BINT(3541L),
																																BGl_string5664z00zz__httpz00,
																																BGl_string5665z00zz__httpz00,
																																BgL_index1482z00_2547);
																															FAILURE
																																(BgL_auxz00_14203,
																																BFALSE, BFALSE);
																														}
																													BgL_n1z00_9342 =
																														(long)
																														CINT
																														(BgL_tmpz00_14200);
																												}
																												BgL_test6148z00_14199 =
																													(BgL_n1z00_9342 >=
																													0L);
																											}
																											if (BgL_test6148z00_14199)
																												{
																													long BgL_auxz00_14209;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14210;
																														if (INTEGERP
																															(BgL_index1482z00_2547))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14210
																																	=
																																	BgL_index1482z00_2547;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14213;
																																BgL_auxz00_14213
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5663z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5664z00zz__httpz00,
																																	BGl_string5665z00zz__httpz00,
																																	BgL_index1482z00_2547);
																																FAILURE
																																	(BgL_auxz00_14213,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_auxz00_14209 =
																															(long)
																															CINT
																															(BgL_tmpz00_14210);
																													}
																													BgL_contentzd2typezd2_2515
																														=
																														VECTOR_REF
																														(BgL_opt1472z00_23,
																														BgL_auxz00_14209);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													BFALSE;
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 106 */
																										obj_t BgL_index1483z00_2549;

																										{
																											long BgL_iz00_9344;

																											BgL_iz00_9344 = 0L;
																										BgL_search1475z00_9343:
																											if (
																												(BgL_iz00_9344 ==
																													VECTOR_LENGTH
																													(BgL_opt1472z00_23)))
																												{	/* Unsafe/http.scm 106 */
																													BgL_index1483z00_2549
																														= BINT(-1L);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													if (
																														(BgL_iz00_9344 ==
																															(VECTOR_LENGTH
																																(BgL_opt1472z00_23)
																																- 1L)))
																														{	/* Unsafe/http.scm 106 */
																															BgL_index1483z00_2549
																																=
																																BGl_errorz00zz__errorz00
																																(BGl_symbol5618z00zz__httpz00,
																																BGl_string5662z00zz__httpz00,
																																BINT
																																(VECTOR_LENGTH
																																	(BgL_opt1472z00_23)));
																														}
																													else
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_vz00_9354;
																															BgL_vz00_9354 =
																																VECTOR_REF
																																(BgL_opt1472z00_23,
																																BgL_iz00_9344);
																															if ((BgL_vz00_9354
																																	==
																																	BGl_keyword5631z00zz__httpz00))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_index1483z00_2549
																																		=
																																		BINT(
																																		(BgL_iz00_9344
																																			+ 1L));
																																}
																															else
																																{
																																	long
																																		BgL_iz00_14235;
																																	BgL_iz00_14235
																																		=
																																		(BgL_iz00_9344
																																		+ 2L);
																																	BgL_iz00_9344
																																		=
																																		BgL_iz00_14235;
																																	goto
																																		BgL_search1475z00_9343;
																																}
																														}
																												}
																										}
																										{	/* Unsafe/http.scm 106 */
																											bool_t
																												BgL_test6154z00_14237;
																											{	/* Unsafe/http.scm 106 */
																												long BgL_n1z00_9358;

																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_tmpz00_14238;
																													if (INTEGERP
																														(BgL_index1483z00_2549))
																														{	/* Unsafe/http.scm 106 */
																															BgL_tmpz00_14238 =
																																BgL_index1483z00_2549;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14241;
																															BgL_auxz00_14241 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string5663z00zz__httpz00,
																																BINT(3541L),
																																BGl_string5664z00zz__httpz00,
																																BGl_string5665z00zz__httpz00,
																																BgL_index1483z00_2549);
																															FAILURE
																																(BgL_auxz00_14241,
																																BFALSE, BFALSE);
																														}
																													BgL_n1z00_9358 =
																														(long)
																														CINT
																														(BgL_tmpz00_14238);
																												}
																												BgL_test6154z00_14237 =
																													(BgL_n1z00_9358 >=
																													0L);
																											}
																											if (BgL_test6154z00_14237)
																												{
																													long BgL_auxz00_14247;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14248;
																														if (INTEGERP
																															(BgL_index1483z00_2549))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14248
																																	=
																																	BgL_index1483z00_2549;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14251;
																																BgL_auxz00_14251
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5663z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5664z00zz__httpz00,
																																	BGl_string5665z00zz__httpz00,
																																	BgL_index1483z00_2549);
																																FAILURE
																																	(BgL_auxz00_14251,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_auxz00_14247 =
																															(long)
																															CINT
																															(BgL_tmpz00_14248);
																													}
																													BgL_headerz00_2516 =
																														VECTOR_REF
																														(BgL_opt1472z00_23,
																														BgL_auxz00_14247);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													BFALSE;
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 106 */
																										obj_t BgL_index1484z00_2551;

																										{
																											long BgL_iz00_9360;

																											BgL_iz00_9360 = 0L;
																										BgL_search1475z00_9359:
																											if (
																												(BgL_iz00_9360 ==
																													VECTOR_LENGTH
																													(BgL_opt1472z00_23)))
																												{	/* Unsafe/http.scm 106 */
																													BgL_index1484z00_2551
																														= BINT(-1L);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													if (
																														(BgL_iz00_9360 ==
																															(VECTOR_LENGTH
																																(BgL_opt1472z00_23)
																																- 1L)))
																														{	/* Unsafe/http.scm 106 */
																															BgL_index1484z00_2551
																																=
																																BGl_errorz00zz__errorz00
																																(BGl_symbol5618z00zz__httpz00,
																																BGl_string5662z00zz__httpz00,
																																BINT
																																(VECTOR_LENGTH
																																	(BgL_opt1472z00_23)));
																														}
																													else
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_vz00_9370;
																															BgL_vz00_9370 =
																																VECTOR_REF
																																(BgL_opt1472z00_23,
																																BgL_iz00_9360);
																															if ((BgL_vz00_9370
																																	==
																																	BGl_keyword5633z00zz__httpz00))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_index1484z00_2551
																																		=
																																		BINT(
																																		(BgL_iz00_9360
																																			+ 1L));
																																}
																															else
																																{
																																	long
																																		BgL_iz00_14273;
																																	BgL_iz00_14273
																																		=
																																		(BgL_iz00_9360
																																		+ 2L);
																																	BgL_iz00_9360
																																		=
																																		BgL_iz00_14273;
																																	goto
																																		BgL_search1475z00_9359;
																																}
																														}
																												}
																										}
																										{	/* Unsafe/http.scm 106 */
																											bool_t
																												BgL_test6160z00_14275;
																											{	/* Unsafe/http.scm 106 */
																												long BgL_n1z00_9374;

																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_tmpz00_14276;
																													if (INTEGERP
																														(BgL_index1484z00_2551))
																														{	/* Unsafe/http.scm 106 */
																															BgL_tmpz00_14276 =
																																BgL_index1484z00_2551;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14279;
																															BgL_auxz00_14279 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string5663z00zz__httpz00,
																																BINT(3541L),
																																BGl_string5664z00zz__httpz00,
																																BGl_string5665z00zz__httpz00,
																																BgL_index1484z00_2551);
																															FAILURE
																																(BgL_auxz00_14279,
																																BFALSE, BFALSE);
																														}
																													BgL_n1z00_9374 =
																														(long)
																														CINT
																														(BgL_tmpz00_14276);
																												}
																												BgL_test6160z00_14275 =
																													(BgL_n1z00_9374 >=
																													0L);
																											}
																											if (BgL_test6160z00_14275)
																												{
																													long BgL_auxz00_14285;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14286;
																														if (INTEGERP
																															(BgL_index1484z00_2551))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14286
																																	=
																																	BgL_index1484z00_2551;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14289;
																																BgL_auxz00_14289
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5663z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5664z00zz__httpz00,
																																	BGl_string5665z00zz__httpz00,
																																	BgL_index1484z00_2551);
																																FAILURE
																																	(BgL_auxz00_14289,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_auxz00_14285 =
																															(long)
																															CINT
																															(BgL_tmpz00_14286);
																													}
																													BgL_hostz00_2517 =
																														VECTOR_REF
																														(BgL_opt1472z00_23,
																														BgL_auxz00_14285);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													BFALSE;
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 106 */
																										obj_t BgL_index1485z00_2553;

																										{
																											long BgL_iz00_9376;

																											BgL_iz00_9376 = 0L;
																										BgL_search1475z00_9375:
																											if (
																												(BgL_iz00_9376 ==
																													VECTOR_LENGTH
																													(BgL_opt1472z00_23)))
																												{	/* Unsafe/http.scm 106 */
																													BgL_index1485z00_2553
																														= BINT(-1L);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													if (
																														(BgL_iz00_9376 ==
																															(VECTOR_LENGTH
																																(BgL_opt1472z00_23)
																																- 1L)))
																														{	/* Unsafe/http.scm 106 */
																															BgL_index1485z00_2553
																																=
																																BGl_errorz00zz__errorz00
																																(BGl_symbol5618z00zz__httpz00,
																																BGl_string5662z00zz__httpz00,
																																BINT
																																(VECTOR_LENGTH
																																	(BgL_opt1472z00_23)));
																														}
																													else
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_vz00_9386;
																															BgL_vz00_9386 =
																																VECTOR_REF
																																(BgL_opt1472z00_23,
																																BgL_iz00_9376);
																															if ((BgL_vz00_9386
																																	==
																																	BGl_keyword5635z00zz__httpz00))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_index1485z00_2553
																																		=
																																		BINT(
																																		(BgL_iz00_9376
																																			+ 1L));
																																}
																															else
																																{
																																	long
																																		BgL_iz00_14311;
																																	BgL_iz00_14311
																																		=
																																		(BgL_iz00_9376
																																		+ 2L);
																																	BgL_iz00_9376
																																		=
																																		BgL_iz00_14311;
																																	goto
																																		BgL_search1475z00_9375;
																																}
																														}
																												}
																										}
																										{	/* Unsafe/http.scm 106 */
																											bool_t
																												BgL_test6166z00_14313;
																											{	/* Unsafe/http.scm 106 */
																												long BgL_n1z00_9390;

																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_tmpz00_14314;
																													if (INTEGERP
																														(BgL_index1485z00_2553))
																														{	/* Unsafe/http.scm 106 */
																															BgL_tmpz00_14314 =
																																BgL_index1485z00_2553;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14317;
																															BgL_auxz00_14317 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string5663z00zz__httpz00,
																																BINT(3541L),
																																BGl_string5664z00zz__httpz00,
																																BGl_string5665z00zz__httpz00,
																																BgL_index1485z00_2553);
																															FAILURE
																																(BgL_auxz00_14317,
																																BFALSE, BFALSE);
																														}
																													BgL_n1z00_9390 =
																														(long)
																														CINT
																														(BgL_tmpz00_14314);
																												}
																												BgL_test6166z00_14313 =
																													(BgL_n1z00_9390 >=
																													0L);
																											}
																											if (BgL_test6166z00_14313)
																												{
																													long BgL_auxz00_14323;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14324;
																														if (INTEGERP
																															(BgL_index1485z00_2553))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14324
																																	=
																																	BgL_index1485z00_2553;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14327;
																																BgL_auxz00_14327
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5663z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5664z00zz__httpz00,
																																	BGl_string5665z00zz__httpz00,
																																	BgL_index1485z00_2553);
																																FAILURE
																																	(BgL_auxz00_14327,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_auxz00_14323 =
																															(long)
																															CINT
																															(BgL_tmpz00_14324);
																													}
																													BgL_httpzd2versionzd2_2518
																														=
																														VECTOR_REF
																														(BgL_opt1472z00_23,
																														BgL_auxz00_14323);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													BFALSE;
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 106 */
																										obj_t BgL_index1486z00_2555;

																										{
																											long BgL_iz00_9392;

																											BgL_iz00_9392 = 0L;
																										BgL_search1475z00_9391:
																											if (
																												(BgL_iz00_9392 ==
																													VECTOR_LENGTH
																													(BgL_opt1472z00_23)))
																												{	/* Unsafe/http.scm 106 */
																													BgL_index1486z00_2555
																														= BINT(-1L);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													if (
																														(BgL_iz00_9392 ==
																															(VECTOR_LENGTH
																																(BgL_opt1472z00_23)
																																- 1L)))
																														{	/* Unsafe/http.scm 106 */
																															BgL_index1486z00_2555
																																=
																																BGl_errorz00zz__errorz00
																																(BGl_symbol5618z00zz__httpz00,
																																BGl_string5662z00zz__httpz00,
																																BINT
																																(VECTOR_LENGTH
																																	(BgL_opt1472z00_23)));
																														}
																													else
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_vz00_9402;
																															BgL_vz00_9402 =
																																VECTOR_REF
																																(BgL_opt1472z00_23,
																																BgL_iz00_9392);
																															if ((BgL_vz00_9402
																																	==
																																	BGl_keyword5637z00zz__httpz00))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_index1486z00_2555
																																		=
																																		BINT(
																																		(BgL_iz00_9392
																																			+ 1L));
																																}
																															else
																																{
																																	long
																																		BgL_iz00_14349;
																																	BgL_iz00_14349
																																		=
																																		(BgL_iz00_9392
																																		+ 2L);
																																	BgL_iz00_9392
																																		=
																																		BgL_iz00_14349;
																																	goto
																																		BgL_search1475z00_9391;
																																}
																														}
																												}
																										}
																										{	/* Unsafe/http.scm 106 */
																											bool_t
																												BgL_test6172z00_14351;
																											{	/* Unsafe/http.scm 106 */
																												long BgL_n1z00_9406;

																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_tmpz00_14352;
																													if (INTEGERP
																														(BgL_index1486z00_2555))
																														{	/* Unsafe/http.scm 106 */
																															BgL_tmpz00_14352 =
																																BgL_index1486z00_2555;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14355;
																															BgL_auxz00_14355 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string5663z00zz__httpz00,
																																BINT(3541L),
																																BGl_string5664z00zz__httpz00,
																																BGl_string5665z00zz__httpz00,
																																BgL_index1486z00_2555);
																															FAILURE
																																(BgL_auxz00_14355,
																																BFALSE, BFALSE);
																														}
																													BgL_n1z00_9406 =
																														(long)
																														CINT
																														(BgL_tmpz00_14352);
																												}
																												BgL_test6172z00_14351 =
																													(BgL_n1z00_9406 >=
																													0L);
																											}
																											if (BgL_test6172z00_14351)
																												{
																													long BgL_auxz00_14361;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14362;
																														if (INTEGERP
																															(BgL_index1486z00_2555))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14362
																																	=
																																	BgL_index1486z00_2555;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14365;
																																BgL_auxz00_14365
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5663z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5664z00zz__httpz00,
																																	BGl_string5665z00zz__httpz00,
																																	BgL_index1486z00_2555);
																																FAILURE
																																	(BgL_auxz00_14365,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_auxz00_14361 =
																															(long)
																															CINT
																															(BgL_tmpz00_14362);
																													}
																													BgL_inz00_2519 =
																														VECTOR_REF
																														(BgL_opt1472z00_23,
																														BgL_auxz00_14361);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													BFALSE;
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 106 */
																										obj_t BgL_index1487z00_2557;

																										{
																											long BgL_iz00_9408;

																											BgL_iz00_9408 = 0L;
																										BgL_search1475z00_9407:
																											if (
																												(BgL_iz00_9408 ==
																													VECTOR_LENGTH
																													(BgL_opt1472z00_23)))
																												{	/* Unsafe/http.scm 106 */
																													BgL_index1487z00_2557
																														= BINT(-1L);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													if (
																														(BgL_iz00_9408 ==
																															(VECTOR_LENGTH
																																(BgL_opt1472z00_23)
																																- 1L)))
																														{	/* Unsafe/http.scm 106 */
																															BgL_index1487z00_2557
																																=
																																BGl_errorz00zz__errorz00
																																(BGl_symbol5618z00zz__httpz00,
																																BGl_string5662z00zz__httpz00,
																																BINT
																																(VECTOR_LENGTH
																																	(BgL_opt1472z00_23)));
																														}
																													else
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_vz00_9418;
																															BgL_vz00_9418 =
																																VECTOR_REF
																																(BgL_opt1472z00_23,
																																BgL_iz00_9408);
																															if ((BgL_vz00_9418
																																	==
																																	BGl_keyword5639z00zz__httpz00))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_index1487z00_2557
																																		=
																																		BINT(
																																		(BgL_iz00_9408
																																			+ 1L));
																																}
																															else
																																{
																																	long
																																		BgL_iz00_14387;
																																	BgL_iz00_14387
																																		=
																																		(BgL_iz00_9408
																																		+ 2L);
																																	BgL_iz00_9408
																																		=
																																		BgL_iz00_14387;
																																	goto
																																		BgL_search1475z00_9407;
																																}
																														}
																												}
																										}
																										{	/* Unsafe/http.scm 106 */
																											bool_t
																												BgL_test6178z00_14389;
																											{	/* Unsafe/http.scm 106 */
																												long BgL_n1z00_9422;

																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_tmpz00_14390;
																													if (INTEGERP
																														(BgL_index1487z00_2557))
																														{	/* Unsafe/http.scm 106 */
																															BgL_tmpz00_14390 =
																																BgL_index1487z00_2557;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14393;
																															BgL_auxz00_14393 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string5663z00zz__httpz00,
																																BINT(3541L),
																																BGl_string5664z00zz__httpz00,
																																BGl_string5665z00zz__httpz00,
																																BgL_index1487z00_2557);
																															FAILURE
																																(BgL_auxz00_14393,
																																BFALSE, BFALSE);
																														}
																													BgL_n1z00_9422 =
																														(long)
																														CINT
																														(BgL_tmpz00_14390);
																												}
																												BgL_test6178z00_14389 =
																													(BgL_n1z00_9422 >=
																													0L);
																											}
																											if (BgL_test6178z00_14389)
																												{
																													long BgL_auxz00_14399;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14400;
																														if (INTEGERP
																															(BgL_index1487z00_2557))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14400
																																	=
																																	BgL_index1487z00_2557;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14403;
																																BgL_auxz00_14403
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5663z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5664z00zz__httpz00,
																																	BGl_string5665z00zz__httpz00,
																																	BgL_index1487z00_2557);
																																FAILURE
																																	(BgL_auxz00_14403,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_auxz00_14399 =
																															(long)
																															CINT
																															(BgL_tmpz00_14400);
																													}
																													BgL_loginz00_2520 =
																														VECTOR_REF
																														(BgL_opt1472z00_23,
																														BgL_auxz00_14399);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													BFALSE;
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 106 */
																										obj_t BgL_index1488z00_2559;

																										{
																											long BgL_iz00_9424;

																											BgL_iz00_9424 = 0L;
																										BgL_search1475z00_9423:
																											if (
																												(BgL_iz00_9424 ==
																													VECTOR_LENGTH
																													(BgL_opt1472z00_23)))
																												{	/* Unsafe/http.scm 106 */
																													BgL_index1488z00_2559
																														= BINT(-1L);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													if (
																														(BgL_iz00_9424 ==
																															(VECTOR_LENGTH
																																(BgL_opt1472z00_23)
																																- 1L)))
																														{	/* Unsafe/http.scm 106 */
																															BgL_index1488z00_2559
																																=
																																BGl_errorz00zz__errorz00
																																(BGl_symbol5618z00zz__httpz00,
																																BGl_string5662z00zz__httpz00,
																																BINT
																																(VECTOR_LENGTH
																																	(BgL_opt1472z00_23)));
																														}
																													else
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_vz00_9434;
																															BgL_vz00_9434 =
																																VECTOR_REF
																																(BgL_opt1472z00_23,
																																BgL_iz00_9424);
																															if ((BgL_vz00_9434
																																	==
																																	BGl_keyword5641z00zz__httpz00))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_index1488z00_2559
																																		=
																																		BINT(
																																		(BgL_iz00_9424
																																			+ 1L));
																																}
																															else
																																{
																																	long
																																		BgL_iz00_14425;
																																	BgL_iz00_14425
																																		=
																																		(BgL_iz00_9424
																																		+ 2L);
																																	BgL_iz00_9424
																																		=
																																		BgL_iz00_14425;
																																	goto
																																		BgL_search1475z00_9423;
																																}
																														}
																												}
																										}
																										{	/* Unsafe/http.scm 106 */
																											bool_t
																												BgL_test6184z00_14427;
																											{	/* Unsafe/http.scm 106 */
																												long BgL_n1z00_9438;

																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_tmpz00_14428;
																													if (INTEGERP
																														(BgL_index1488z00_2559))
																														{	/* Unsafe/http.scm 106 */
																															BgL_tmpz00_14428 =
																																BgL_index1488z00_2559;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14431;
																															BgL_auxz00_14431 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string5663z00zz__httpz00,
																																BINT(3541L),
																																BGl_string5664z00zz__httpz00,
																																BGl_string5665z00zz__httpz00,
																																BgL_index1488z00_2559);
																															FAILURE
																																(BgL_auxz00_14431,
																																BFALSE, BFALSE);
																														}
																													BgL_n1z00_9438 =
																														(long)
																														CINT
																														(BgL_tmpz00_14428);
																												}
																												BgL_test6184z00_14427 =
																													(BgL_n1z00_9438 >=
																													0L);
																											}
																											if (BgL_test6184z00_14427)
																												{
																													long BgL_auxz00_14437;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14438;
																														if (INTEGERP
																															(BgL_index1488z00_2559))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14438
																																	=
																																	BgL_index1488z00_2559;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14441;
																																BgL_auxz00_14441
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5663z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5664z00zz__httpz00,
																																	BGl_string5665z00zz__httpz00,
																																	BgL_index1488z00_2559);
																																FAILURE
																																	(BgL_auxz00_14441,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_auxz00_14437 =
																															(long)
																															CINT
																															(BgL_tmpz00_14438);
																													}
																													BgL_methodz00_2521 =
																														VECTOR_REF
																														(BgL_opt1472z00_23,
																														BgL_auxz00_14437);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													BFALSE;
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 106 */
																										obj_t BgL_index1489z00_2561;

																										{
																											long BgL_iz00_9440;

																											BgL_iz00_9440 = 0L;
																										BgL_search1475z00_9439:
																											if (
																												(BgL_iz00_9440 ==
																													VECTOR_LENGTH
																													(BgL_opt1472z00_23)))
																												{	/* Unsafe/http.scm 106 */
																													BgL_index1489z00_2561
																														= BINT(-1L);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													if (
																														(BgL_iz00_9440 ==
																															(VECTOR_LENGTH
																																(BgL_opt1472z00_23)
																																- 1L)))
																														{	/* Unsafe/http.scm 106 */
																															BgL_index1489z00_2561
																																=
																																BGl_errorz00zz__errorz00
																																(BGl_symbol5618z00zz__httpz00,
																																BGl_string5662z00zz__httpz00,
																																BINT
																																(VECTOR_LENGTH
																																	(BgL_opt1472z00_23)));
																														}
																													else
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_vz00_9450;
																															BgL_vz00_9450 =
																																VECTOR_REF
																																(BgL_opt1472z00_23,
																																BgL_iz00_9440);
																															if ((BgL_vz00_9450
																																	==
																																	BGl_keyword5643z00zz__httpz00))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_index1489z00_2561
																																		=
																																		BINT(
																																		(BgL_iz00_9440
																																			+ 1L));
																																}
																															else
																																{
																																	long
																																		BgL_iz00_14463;
																																	BgL_iz00_14463
																																		=
																																		(BgL_iz00_9440
																																		+ 2L);
																																	BgL_iz00_9440
																																		=
																																		BgL_iz00_14463;
																																	goto
																																		BgL_search1475z00_9439;
																																}
																														}
																												}
																										}
																										{	/* Unsafe/http.scm 106 */
																											bool_t
																												BgL_test6190z00_14465;
																											{	/* Unsafe/http.scm 106 */
																												long BgL_n1z00_9454;

																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_tmpz00_14466;
																													if (INTEGERP
																														(BgL_index1489z00_2561))
																														{	/* Unsafe/http.scm 106 */
																															BgL_tmpz00_14466 =
																																BgL_index1489z00_2561;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14469;
																															BgL_auxz00_14469 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string5663z00zz__httpz00,
																																BINT(3541L),
																																BGl_string5664z00zz__httpz00,
																																BGl_string5665z00zz__httpz00,
																																BgL_index1489z00_2561);
																															FAILURE
																																(BgL_auxz00_14469,
																																BFALSE, BFALSE);
																														}
																													BgL_n1z00_9454 =
																														(long)
																														CINT
																														(BgL_tmpz00_14466);
																												}
																												BgL_test6190z00_14465 =
																													(BgL_n1z00_9454 >=
																													0L);
																											}
																											if (BgL_test6190z00_14465)
																												{
																													long BgL_auxz00_14475;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14476;
																														if (INTEGERP
																															(BgL_index1489z00_2561))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14476
																																	=
																																	BgL_index1489z00_2561;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14479;
																																BgL_auxz00_14479
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5663z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5664z00zz__httpz00,
																																	BGl_string5665z00zz__httpz00,
																																	BgL_index1489z00_2561);
																																FAILURE
																																	(BgL_auxz00_14479,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_auxz00_14475 =
																															(long)
																															CINT
																															(BgL_tmpz00_14476);
																													}
																													BgL_outz00_2522 =
																														VECTOR_REF
																														(BgL_opt1472z00_23,
																														BgL_auxz00_14475);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													BFALSE;
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 106 */
																										obj_t BgL_index1490z00_2563;

																										{
																											long BgL_iz00_9456;

																											BgL_iz00_9456 = 0L;
																										BgL_search1475z00_9455:
																											if (
																												(BgL_iz00_9456 ==
																													VECTOR_LENGTH
																													(BgL_opt1472z00_23)))
																												{	/* Unsafe/http.scm 106 */
																													BgL_index1490z00_2563
																														= BINT(-1L);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													if (
																														(BgL_iz00_9456 ==
																															(VECTOR_LENGTH
																																(BgL_opt1472z00_23)
																																- 1L)))
																														{	/* Unsafe/http.scm 106 */
																															BgL_index1490z00_2563
																																=
																																BGl_errorz00zz__errorz00
																																(BGl_symbol5618z00zz__httpz00,
																																BGl_string5662z00zz__httpz00,
																																BINT
																																(VECTOR_LENGTH
																																	(BgL_opt1472z00_23)));
																														}
																													else
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_vz00_9466;
																															BgL_vz00_9466 =
																																VECTOR_REF
																																(BgL_opt1472z00_23,
																																BgL_iz00_9456);
																															if ((BgL_vz00_9466
																																	==
																																	BGl_keyword5645z00zz__httpz00))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_index1490z00_2563
																																		=
																																		BINT(
																																		(BgL_iz00_9456
																																			+ 1L));
																																}
																															else
																																{
																																	long
																																		BgL_iz00_14501;
																																	BgL_iz00_14501
																																		=
																																		(BgL_iz00_9456
																																		+ 2L);
																																	BgL_iz00_9456
																																		=
																																		BgL_iz00_14501;
																																	goto
																																		BgL_search1475z00_9455;
																																}
																														}
																												}
																										}
																										{	/* Unsafe/http.scm 106 */
																											bool_t
																												BgL_test6196z00_14503;
																											{	/* Unsafe/http.scm 106 */
																												long BgL_n1z00_9470;

																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_tmpz00_14504;
																													if (INTEGERP
																														(BgL_index1490z00_2563))
																														{	/* Unsafe/http.scm 106 */
																															BgL_tmpz00_14504 =
																																BgL_index1490z00_2563;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14507;
																															BgL_auxz00_14507 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string5663z00zz__httpz00,
																																BINT(3541L),
																																BGl_string5664z00zz__httpz00,
																																BGl_string5665z00zz__httpz00,
																																BgL_index1490z00_2563);
																															FAILURE
																																(BgL_auxz00_14507,
																																BFALSE, BFALSE);
																														}
																													BgL_n1z00_9470 =
																														(long)
																														CINT
																														(BgL_tmpz00_14504);
																												}
																												BgL_test6196z00_14503 =
																													(BgL_n1z00_9470 >=
																													0L);
																											}
																											if (BgL_test6196z00_14503)
																												{
																													long BgL_auxz00_14513;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14514;
																														if (INTEGERP
																															(BgL_index1490z00_2563))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14514
																																	=
																																	BgL_index1490z00_2563;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14517;
																																BgL_auxz00_14517
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5663z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5664z00zz__httpz00,
																																	BGl_string5665z00zz__httpz00,
																																	BgL_index1490z00_2563);
																																FAILURE
																																	(BgL_auxz00_14517,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_auxz00_14513 =
																															(long)
																															CINT
																															(BgL_tmpz00_14514);
																													}
																													BgL_passwordz00_2523 =
																														VECTOR_REF
																														(BgL_opt1472z00_23,
																														BgL_auxz00_14513);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													BFALSE;
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 106 */
																										obj_t BgL_index1491z00_2565;

																										{
																											long BgL_iz00_9472;

																											BgL_iz00_9472 = 0L;
																										BgL_search1475z00_9471:
																											if (
																												(BgL_iz00_9472 ==
																													VECTOR_LENGTH
																													(BgL_opt1472z00_23)))
																												{	/* Unsafe/http.scm 106 */
																													BgL_index1491z00_2565
																														= BINT(-1L);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													if (
																														(BgL_iz00_9472 ==
																															(VECTOR_LENGTH
																																(BgL_opt1472z00_23)
																																- 1L)))
																														{	/* Unsafe/http.scm 106 */
																															BgL_index1491z00_2565
																																=
																																BGl_errorz00zz__errorz00
																																(BGl_symbol5618z00zz__httpz00,
																																BGl_string5662z00zz__httpz00,
																																BINT
																																(VECTOR_LENGTH
																																	(BgL_opt1472z00_23)));
																														}
																													else
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_vz00_9482;
																															BgL_vz00_9482 =
																																VECTOR_REF
																																(BgL_opt1472z00_23,
																																BgL_iz00_9472);
																															if ((BgL_vz00_9482
																																	==
																																	BGl_keyword5647z00zz__httpz00))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_index1491z00_2565
																																		=
																																		BINT(
																																		(BgL_iz00_9472
																																			+ 1L));
																																}
																															else
																																{
																																	long
																																		BgL_iz00_14539;
																																	BgL_iz00_14539
																																		=
																																		(BgL_iz00_9472
																																		+ 2L);
																																	BgL_iz00_9472
																																		=
																																		BgL_iz00_14539;
																																	goto
																																		BgL_search1475z00_9471;
																																}
																														}
																												}
																										}
																										{	/* Unsafe/http.scm 106 */
																											bool_t
																												BgL_test6202z00_14541;
																											{	/* Unsafe/http.scm 106 */
																												long BgL_n1z00_9486;

																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_tmpz00_14542;
																													if (INTEGERP
																														(BgL_index1491z00_2565))
																														{	/* Unsafe/http.scm 106 */
																															BgL_tmpz00_14542 =
																																BgL_index1491z00_2565;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14545;
																															BgL_auxz00_14545 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string5663z00zz__httpz00,
																																BINT(3541L),
																																BGl_string5664z00zz__httpz00,
																																BGl_string5665z00zz__httpz00,
																																BgL_index1491z00_2565);
																															FAILURE
																																(BgL_auxz00_14545,
																																BFALSE, BFALSE);
																														}
																													BgL_n1z00_9486 =
																														(long)
																														CINT
																														(BgL_tmpz00_14542);
																												}
																												BgL_test6202z00_14541 =
																													(BgL_n1z00_9486 >=
																													0L);
																											}
																											if (BgL_test6202z00_14541)
																												{
																													long BgL_auxz00_14551;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14552;
																														if (INTEGERP
																															(BgL_index1491z00_2565))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14552
																																	=
																																	BgL_index1491z00_2565;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14555;
																																BgL_auxz00_14555
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5663z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5664z00zz__httpz00,
																																	BGl_string5665z00zz__httpz00,
																																	BgL_index1491z00_2565);
																																FAILURE
																																	(BgL_auxz00_14555,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_auxz00_14551 =
																															(long)
																															CINT
																															(BgL_tmpz00_14552);
																													}
																													BgL_pathz00_2524 =
																														VECTOR_REF
																														(BgL_opt1472z00_23,
																														BgL_auxz00_14551);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													BFALSE;
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 106 */
																										obj_t BgL_index1492z00_2567;

																										{
																											long BgL_iz00_9488;

																											BgL_iz00_9488 = 0L;
																										BgL_search1475z00_9487:
																											if (
																												(BgL_iz00_9488 ==
																													VECTOR_LENGTH
																													(BgL_opt1472z00_23)))
																												{	/* Unsafe/http.scm 106 */
																													BgL_index1492z00_2567
																														= BINT(-1L);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													if (
																														(BgL_iz00_9488 ==
																															(VECTOR_LENGTH
																																(BgL_opt1472z00_23)
																																- 1L)))
																														{	/* Unsafe/http.scm 106 */
																															BgL_index1492z00_2567
																																=
																																BGl_errorz00zz__errorz00
																																(BGl_symbol5618z00zz__httpz00,
																																BGl_string5662z00zz__httpz00,
																																BINT
																																(VECTOR_LENGTH
																																	(BgL_opt1472z00_23)));
																														}
																													else
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_vz00_9498;
																															BgL_vz00_9498 =
																																VECTOR_REF
																																(BgL_opt1472z00_23,
																																BgL_iz00_9488);
																															if ((BgL_vz00_9498
																																	==
																																	BGl_keyword5649z00zz__httpz00))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_index1492z00_2567
																																		=
																																		BINT(
																																		(BgL_iz00_9488
																																			+ 1L));
																																}
																															else
																																{
																																	long
																																		BgL_iz00_14577;
																																	BgL_iz00_14577
																																		=
																																		(BgL_iz00_9488
																																		+ 2L);
																																	BgL_iz00_9488
																																		=
																																		BgL_iz00_14577;
																																	goto
																																		BgL_search1475z00_9487;
																																}
																														}
																												}
																										}
																										{	/* Unsafe/http.scm 106 */
																											bool_t
																												BgL_test6208z00_14579;
																											{	/* Unsafe/http.scm 106 */
																												long BgL_n1z00_9502;

																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_tmpz00_14580;
																													if (INTEGERP
																														(BgL_index1492z00_2567))
																														{	/* Unsafe/http.scm 106 */
																															BgL_tmpz00_14580 =
																																BgL_index1492z00_2567;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14583;
																															BgL_auxz00_14583 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string5663z00zz__httpz00,
																																BINT(3541L),
																																BGl_string5664z00zz__httpz00,
																																BGl_string5665z00zz__httpz00,
																																BgL_index1492z00_2567);
																															FAILURE
																																(BgL_auxz00_14583,
																																BFALSE, BFALSE);
																														}
																													BgL_n1z00_9502 =
																														(long)
																														CINT
																														(BgL_tmpz00_14580);
																												}
																												BgL_test6208z00_14579 =
																													(BgL_n1z00_9502 >=
																													0L);
																											}
																											if (BgL_test6208z00_14579)
																												{
																													long BgL_auxz00_14589;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14590;
																														if (INTEGERP
																															(BgL_index1492z00_2567))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14590
																																	=
																																	BgL_index1492z00_2567;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14593;
																																BgL_auxz00_14593
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5663z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5664z00zz__httpz00,
																																	BGl_string5665z00zz__httpz00,
																																	BgL_index1492z00_2567);
																																FAILURE
																																	(BgL_auxz00_14593,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_auxz00_14589 =
																															(long)
																															CINT
																															(BgL_tmpz00_14590);
																													}
																													BgL_portz00_2525 =
																														VECTOR_REF
																														(BgL_opt1472z00_23,
																														BgL_auxz00_14589);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													BFALSE;
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 106 */
																										obj_t BgL_index1493z00_2569;

																										{
																											long BgL_iz00_9504;

																											BgL_iz00_9504 = 0L;
																										BgL_search1475z00_9503:
																											if (
																												(BgL_iz00_9504 ==
																													VECTOR_LENGTH
																													(BgL_opt1472z00_23)))
																												{	/* Unsafe/http.scm 106 */
																													BgL_index1493z00_2569
																														= BINT(-1L);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													if (
																														(BgL_iz00_9504 ==
																															(VECTOR_LENGTH
																																(BgL_opt1472z00_23)
																																- 1L)))
																														{	/* Unsafe/http.scm 106 */
																															BgL_index1493z00_2569
																																=
																																BGl_errorz00zz__errorz00
																																(BGl_symbol5618z00zz__httpz00,
																																BGl_string5662z00zz__httpz00,
																																BINT
																																(VECTOR_LENGTH
																																	(BgL_opt1472z00_23)));
																														}
																													else
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_vz00_9514;
																															BgL_vz00_9514 =
																																VECTOR_REF
																																(BgL_opt1472z00_23,
																																BgL_iz00_9504);
																															if ((BgL_vz00_9514
																																	==
																																	BGl_keyword5651z00zz__httpz00))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_index1493z00_2569
																																		=
																																		BINT(
																																		(BgL_iz00_9504
																																			+ 1L));
																																}
																															else
																																{
																																	long
																																		BgL_iz00_14615;
																																	BgL_iz00_14615
																																		=
																																		(BgL_iz00_9504
																																		+ 2L);
																																	BgL_iz00_9504
																																		=
																																		BgL_iz00_14615;
																																	goto
																																		BgL_search1475z00_9503;
																																}
																														}
																												}
																										}
																										{	/* Unsafe/http.scm 106 */
																											bool_t
																												BgL_test6214z00_14617;
																											{	/* Unsafe/http.scm 106 */
																												long BgL_n1z00_9518;

																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_tmpz00_14618;
																													if (INTEGERP
																														(BgL_index1493z00_2569))
																														{	/* Unsafe/http.scm 106 */
																															BgL_tmpz00_14618 =
																																BgL_index1493z00_2569;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14621;
																															BgL_auxz00_14621 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string5663z00zz__httpz00,
																																BINT(3541L),
																																BGl_string5664z00zz__httpz00,
																																BGl_string5665z00zz__httpz00,
																																BgL_index1493z00_2569);
																															FAILURE
																																(BgL_auxz00_14621,
																																BFALSE, BFALSE);
																														}
																													BgL_n1z00_9518 =
																														(long)
																														CINT
																														(BgL_tmpz00_14618);
																												}
																												BgL_test6214z00_14617 =
																													(BgL_n1z00_9518 >=
																													0L);
																											}
																											if (BgL_test6214z00_14617)
																												{
																													long BgL_auxz00_14627;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14628;
																														if (INTEGERP
																															(BgL_index1493z00_2569))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14628
																																	=
																																	BgL_index1493z00_2569;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14631;
																																BgL_auxz00_14631
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5663z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5664z00zz__httpz00,
																																	BGl_string5665z00zz__httpz00,
																																	BgL_index1493z00_2569);
																																FAILURE
																																	(BgL_auxz00_14631,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_auxz00_14627 =
																															(long)
																															CINT
																															(BgL_tmpz00_14628);
																													}
																													BgL_protocolz00_2526 =
																														VECTOR_REF
																														(BgL_opt1472z00_23,
																														BgL_auxz00_14627);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													BFALSE;
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 106 */
																										obj_t BgL_index1494z00_2571;

																										{
																											long BgL_iz00_9520;

																											BgL_iz00_9520 = 0L;
																										BgL_search1475z00_9519:
																											if (
																												(BgL_iz00_9520 ==
																													VECTOR_LENGTH
																													(BgL_opt1472z00_23)))
																												{	/* Unsafe/http.scm 106 */
																													BgL_index1494z00_2571
																														= BINT(-1L);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													if (
																														(BgL_iz00_9520 ==
																															(VECTOR_LENGTH
																																(BgL_opt1472z00_23)
																																- 1L)))
																														{	/* Unsafe/http.scm 106 */
																															BgL_index1494z00_2571
																																=
																																BGl_errorz00zz__errorz00
																																(BGl_symbol5618z00zz__httpz00,
																																BGl_string5662z00zz__httpz00,
																																BINT
																																(VECTOR_LENGTH
																																	(BgL_opt1472z00_23)));
																														}
																													else
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_vz00_9530;
																															BgL_vz00_9530 =
																																VECTOR_REF
																																(BgL_opt1472z00_23,
																																BgL_iz00_9520);
																															if ((BgL_vz00_9530
																																	==
																																	BGl_keyword5653z00zz__httpz00))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_index1494z00_2571
																																		=
																																		BINT(
																																		(BgL_iz00_9520
																																			+ 1L));
																																}
																															else
																																{
																																	long
																																		BgL_iz00_14653;
																																	BgL_iz00_14653
																																		=
																																		(BgL_iz00_9520
																																		+ 2L);
																																	BgL_iz00_9520
																																		=
																																		BgL_iz00_14653;
																																	goto
																																		BgL_search1475z00_9519;
																																}
																														}
																												}
																										}
																										{	/* Unsafe/http.scm 106 */
																											bool_t
																												BgL_test6220z00_14655;
																											{	/* Unsafe/http.scm 106 */
																												long BgL_n1z00_9534;

																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_tmpz00_14656;
																													if (INTEGERP
																														(BgL_index1494z00_2571))
																														{	/* Unsafe/http.scm 106 */
																															BgL_tmpz00_14656 =
																																BgL_index1494z00_2571;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14659;
																															BgL_auxz00_14659 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string5663z00zz__httpz00,
																																BINT(3541L),
																																BGl_string5664z00zz__httpz00,
																																BGl_string5665z00zz__httpz00,
																																BgL_index1494z00_2571);
																															FAILURE
																																(BgL_auxz00_14659,
																																BFALSE, BFALSE);
																														}
																													BgL_n1z00_9534 =
																														(long)
																														CINT
																														(BgL_tmpz00_14656);
																												}
																												BgL_test6220z00_14655 =
																													(BgL_n1z00_9534 >=
																													0L);
																											}
																											if (BgL_test6220z00_14655)
																												{
																													long BgL_auxz00_14665;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14666;
																														if (INTEGERP
																															(BgL_index1494z00_2571))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14666
																																	=
																																	BgL_index1494z00_2571;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14669;
																																BgL_auxz00_14669
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5663z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5664z00zz__httpz00,
																																	BGl_string5665z00zz__httpz00,
																																	BgL_index1494z00_2571);
																																FAILURE
																																	(BgL_auxz00_14669,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_auxz00_14665 =
																															(long)
																															CINT
																															(BgL_tmpz00_14666);
																													}
																													BgL_proxyz00_2527 =
																														VECTOR_REF
																														(BgL_opt1472z00_23,
																														BgL_auxz00_14665);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													BFALSE;
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 106 */
																										obj_t BgL_index1495z00_2573;

																										{
																											long BgL_iz00_9536;

																											BgL_iz00_9536 = 0L;
																										BgL_search1475z00_9535:
																											if (
																												(BgL_iz00_9536 ==
																													VECTOR_LENGTH
																													(BgL_opt1472z00_23)))
																												{	/* Unsafe/http.scm 106 */
																													BgL_index1495z00_2573
																														= BINT(-1L);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													if (
																														(BgL_iz00_9536 ==
																															(VECTOR_LENGTH
																																(BgL_opt1472z00_23)
																																- 1L)))
																														{	/* Unsafe/http.scm 106 */
																															BgL_index1495z00_2573
																																=
																																BGl_errorz00zz__errorz00
																																(BGl_symbol5618z00zz__httpz00,
																																BGl_string5662z00zz__httpz00,
																																BINT
																																(VECTOR_LENGTH
																																	(BgL_opt1472z00_23)));
																														}
																													else
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_vz00_9546;
																															BgL_vz00_9546 =
																																VECTOR_REF
																																(BgL_opt1472z00_23,
																																BgL_iz00_9536);
																															if ((BgL_vz00_9546
																																	==
																																	BGl_keyword5655z00zz__httpz00))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_index1495z00_2573
																																		=
																																		BINT(
																																		(BgL_iz00_9536
																																			+ 1L));
																																}
																															else
																																{
																																	long
																																		BgL_iz00_14691;
																																	BgL_iz00_14691
																																		=
																																		(BgL_iz00_9536
																																		+ 2L);
																																	BgL_iz00_9536
																																		=
																																		BgL_iz00_14691;
																																	goto
																																		BgL_search1475z00_9535;
																																}
																														}
																												}
																										}
																										{	/* Unsafe/http.scm 106 */
																											bool_t
																												BgL_test6226z00_14693;
																											{	/* Unsafe/http.scm 106 */
																												long BgL_n1z00_9550;

																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_tmpz00_14694;
																													if (INTEGERP
																														(BgL_index1495z00_2573))
																														{	/* Unsafe/http.scm 106 */
																															BgL_tmpz00_14694 =
																																BgL_index1495z00_2573;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14697;
																															BgL_auxz00_14697 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string5663z00zz__httpz00,
																																BINT(3541L),
																																BGl_string5664z00zz__httpz00,
																																BGl_string5665z00zz__httpz00,
																																BgL_index1495z00_2573);
																															FAILURE
																																(BgL_auxz00_14697,
																																BFALSE, BFALSE);
																														}
																													BgL_n1z00_9550 =
																														(long)
																														CINT
																														(BgL_tmpz00_14694);
																												}
																												BgL_test6226z00_14693 =
																													(BgL_n1z00_9550 >=
																													0L);
																											}
																											if (BgL_test6226z00_14693)
																												{
																													long BgL_auxz00_14703;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14704;
																														if (INTEGERP
																															(BgL_index1495z00_2573))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14704
																																	=
																																	BgL_index1495z00_2573;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14707;
																																BgL_auxz00_14707
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5663z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5664z00zz__httpz00,
																																	BGl_string5665z00zz__httpz00,
																																	BgL_index1495z00_2573);
																																FAILURE
																																	(BgL_auxz00_14707,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_auxz00_14703 =
																															(long)
																															CINT
																															(BgL_tmpz00_14704);
																													}
																													BgL_socketz00_2528 =
																														VECTOR_REF
																														(BgL_opt1472z00_23,
																														BgL_auxz00_14703);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													BFALSE;
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 106 */
																										obj_t BgL_index1496z00_2575;

																										{
																											long BgL_iz00_9552;

																											BgL_iz00_9552 = 0L;
																										BgL_search1475z00_9551:
																											if (
																												(BgL_iz00_9552 ==
																													VECTOR_LENGTH
																													(BgL_opt1472z00_23)))
																												{	/* Unsafe/http.scm 106 */
																													BgL_index1496z00_2575
																														= BINT(-1L);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													if (
																														(BgL_iz00_9552 ==
																															(VECTOR_LENGTH
																																(BgL_opt1472z00_23)
																																- 1L)))
																														{	/* Unsafe/http.scm 106 */
																															BgL_index1496z00_2575
																																=
																																BGl_errorz00zz__errorz00
																																(BGl_symbol5618z00zz__httpz00,
																																BGl_string5662z00zz__httpz00,
																																BINT
																																(VECTOR_LENGTH
																																	(BgL_opt1472z00_23)));
																														}
																													else
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_vz00_9562;
																															BgL_vz00_9562 =
																																VECTOR_REF
																																(BgL_opt1472z00_23,
																																BgL_iz00_9552);
																															if ((BgL_vz00_9562
																																	==
																																	BGl_keyword5657z00zz__httpz00))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_index1496z00_2575
																																		=
																																		BINT(
																																		(BgL_iz00_9552
																																			+ 1L));
																																}
																															else
																																{
																																	long
																																		BgL_iz00_14729;
																																	BgL_iz00_14729
																																		=
																																		(BgL_iz00_9552
																																		+ 2L);
																																	BgL_iz00_9552
																																		=
																																		BgL_iz00_14729;
																																	goto
																																		BgL_search1475z00_9551;
																																}
																														}
																												}
																										}
																										{	/* Unsafe/http.scm 106 */
																											bool_t
																												BgL_test6232z00_14731;
																											{	/* Unsafe/http.scm 106 */
																												long BgL_n1z00_9566;

																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_tmpz00_14732;
																													if (INTEGERP
																														(BgL_index1496z00_2575))
																														{	/* Unsafe/http.scm 106 */
																															BgL_tmpz00_14732 =
																																BgL_index1496z00_2575;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14735;
																															BgL_auxz00_14735 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string5663z00zz__httpz00,
																																BINT(3541L),
																																BGl_string5664z00zz__httpz00,
																																BGl_string5665z00zz__httpz00,
																																BgL_index1496z00_2575);
																															FAILURE
																																(BgL_auxz00_14735,
																																BFALSE, BFALSE);
																														}
																													BgL_n1z00_9566 =
																														(long)
																														CINT
																														(BgL_tmpz00_14732);
																												}
																												BgL_test6232z00_14731 =
																													(BgL_n1z00_9566 >=
																													0L);
																											}
																											if (BgL_test6232z00_14731)
																												{
																													long BgL_auxz00_14741;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14742;
																														if (INTEGERP
																															(BgL_index1496z00_2575))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14742
																																	=
																																	BgL_index1496z00_2575;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14745;
																																BgL_auxz00_14745
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5663z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5664z00zz__httpz00,
																																	BGl_string5665z00zz__httpz00,
																																	BgL_index1496z00_2575);
																																FAILURE
																																	(BgL_auxz00_14745,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_auxz00_14741 =
																															(long)
																															CINT
																															(BgL_tmpz00_14742);
																													}
																													BgL_timeoutz00_2529 =
																														VECTOR_REF
																														(BgL_opt1472z00_23,
																														BgL_auxz00_14741);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													BFALSE;
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 106 */
																										obj_t BgL_index1497z00_2577;

																										{
																											long BgL_iz00_9568;

																											BgL_iz00_9568 = 0L;
																										BgL_search1475z00_9567:
																											if (
																												(BgL_iz00_9568 ==
																													VECTOR_LENGTH
																													(BgL_opt1472z00_23)))
																												{	/* Unsafe/http.scm 106 */
																													BgL_index1497z00_2577
																														= BINT(-1L);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													if (
																														(BgL_iz00_9568 ==
																															(VECTOR_LENGTH
																																(BgL_opt1472z00_23)
																																- 1L)))
																														{	/* Unsafe/http.scm 106 */
																															BgL_index1497z00_2577
																																=
																																BGl_errorz00zz__errorz00
																																(BGl_symbol5618z00zz__httpz00,
																																BGl_string5662z00zz__httpz00,
																																BINT
																																(VECTOR_LENGTH
																																	(BgL_opt1472z00_23)));
																														}
																													else
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_vz00_9578;
																															BgL_vz00_9578 =
																																VECTOR_REF
																																(BgL_opt1472z00_23,
																																BgL_iz00_9568);
																															if ((BgL_vz00_9578
																																	==
																																	BGl_keyword5659z00zz__httpz00))
																																{	/* Unsafe/http.scm 106 */
																																	BgL_index1497z00_2577
																																		=
																																		BINT(
																																		(BgL_iz00_9568
																																			+ 1L));
																																}
																															else
																																{
																																	long
																																		BgL_iz00_14767;
																																	BgL_iz00_14767
																																		=
																																		(BgL_iz00_9568
																																		+ 2L);
																																	BgL_iz00_9568
																																		=
																																		BgL_iz00_14767;
																																	goto
																																		BgL_search1475z00_9567;
																																}
																														}
																												}
																										}
																										{	/* Unsafe/http.scm 106 */
																											bool_t
																												BgL_test6238z00_14769;
																											{	/* Unsafe/http.scm 106 */
																												long BgL_n1z00_9582;

																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_tmpz00_14770;
																													if (INTEGERP
																														(BgL_index1497z00_2577))
																														{	/* Unsafe/http.scm 106 */
																															BgL_tmpz00_14770 =
																																BgL_index1497z00_2577;
																														}
																													else
																														{
																															obj_t
																																BgL_auxz00_14773;
																															BgL_auxz00_14773 =
																																BGl_typezd2errorzd2zz__errorz00
																																(BGl_string5663z00zz__httpz00,
																																BINT(3541L),
																																BGl_string5664z00zz__httpz00,
																																BGl_string5665z00zz__httpz00,
																																BgL_index1497z00_2577);
																															FAILURE
																																(BgL_auxz00_14773,
																																BFALSE, BFALSE);
																														}
																													BgL_n1z00_9582 =
																														(long)
																														CINT
																														(BgL_tmpz00_14770);
																												}
																												BgL_test6238z00_14769 =
																													(BgL_n1z00_9582 >=
																													0L);
																											}
																											if (BgL_test6238z00_14769)
																												{
																													long BgL_auxz00_14779;

																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_tmpz00_14780;
																														if (INTEGERP
																															(BgL_index1497z00_2577))
																															{	/* Unsafe/http.scm 106 */
																																BgL_tmpz00_14780
																																	=
																																	BgL_index1497z00_2577;
																															}
																														else
																															{
																																obj_t
																																	BgL_auxz00_14783;
																																BgL_auxz00_14783
																																	=
																																	BGl_typezd2errorzd2zz__errorz00
																																	(BGl_string5663z00zz__httpz00,
																																	BINT(3541L),
																																	BGl_string5664z00zz__httpz00,
																																	BGl_string5665z00zz__httpz00,
																																	BgL_index1497z00_2577);
																																FAILURE
																																	(BgL_auxz00_14783,
																																	BFALSE,
																																	BFALSE);
																															}
																														BgL_auxz00_14779 =
																															(long)
																															CINT
																															(BgL_tmpz00_14780);
																													}
																													BgL_usernamez00_2530 =
																														VECTOR_REF
																														(BgL_opt1472z00_23,
																														BgL_auxz00_14779);
																												}
																											else
																												{	/* Unsafe/http.scm 106 */
																													BFALSE;
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 106 */
																										obj_t BgL_argsz00_2579;

																										BgL_argsz00_2579 =
																											BgL_argsz00_2511;
																										{	/* Unsafe/http.scm 106 */
																											obj_t
																												BgL_authoriza7ationza7_2580;
																											BgL_authoriza7ationza7_2580
																												=
																												BgL_authoriza7ationza7_2512;
																											{	/* Unsafe/http.scm 106 */
																												obj_t BgL_bodyz00_2581;

																												BgL_bodyz00_2581 =
																													BgL_bodyz00_2513;
																												{	/* Unsafe/http.scm 106 */
																													obj_t
																														BgL_connectionz00_2582;
																													BgL_connectionz00_2582
																														=
																														BgL_connectionz00_2514;
																													{	/* Unsafe/http.scm 106 */
																														obj_t
																															BgL_contentzd2typezd2_2583;
																														BgL_contentzd2typezd2_2583
																															=
																															BgL_contentzd2typezd2_2515;
																														{	/* Unsafe/http.scm 106 */
																															obj_t
																																BgL_headerz00_2584;
																															BgL_headerz00_2584
																																=
																																BgL_headerz00_2516;
																															{	/* Unsafe/http.scm 106 */
																																obj_t
																																	BgL_hostz00_2585;
																																BgL_hostz00_2585
																																	=
																																	BgL_hostz00_2517;
																																{	/* Unsafe/http.scm 106 */
																																	obj_t
																																		BgL_httpzd2versionzd2_2586;
																																	BgL_httpzd2versionzd2_2586
																																		=
																																		BgL_httpzd2versionzd2_2518;
																																	{	/* Unsafe/http.scm 106 */
																																		obj_t
																																			BgL_inz00_2587;
																																		BgL_inz00_2587
																																			=
																																			BgL_inz00_2519;
																																		{	/* Unsafe/http.scm 106 */
																																			obj_t
																																				BgL_loginz00_2588;
																																			BgL_loginz00_2588
																																				=
																																				BgL_loginz00_2520;
																																			{	/* Unsafe/http.scm 106 */
																																				obj_t
																																					BgL_methodz00_2589;
																																				BgL_methodz00_2589
																																					=
																																					BgL_methodz00_2521;
																																				{	/* Unsafe/http.scm 106 */
																																					obj_t
																																						BgL_outz00_2590;
																																					BgL_outz00_2590
																																						=
																																						BgL_outz00_2522;
																																					{	/* Unsafe/http.scm 106 */
																																						obj_t
																																							BgL_passwordz00_2591;
																																						BgL_passwordz00_2591
																																							=
																																							BgL_passwordz00_2523;
																																						{	/* Unsafe/http.scm 106 */
																																							obj_t
																																								BgL_pathz00_2592;
																																							BgL_pathz00_2592
																																								=
																																								BgL_pathz00_2524;
																																							{	/* Unsafe/http.scm 106 */
																																								obj_t
																																									BgL_portz00_2593;
																																								BgL_portz00_2593
																																									=
																																									BgL_portz00_2525;
																																								{	/* Unsafe/http.scm 106 */
																																									obj_t
																																										BgL_protocolz00_2594;
																																									BgL_protocolz00_2594
																																										=
																																										BgL_protocolz00_2526;
																																									{	/* Unsafe/http.scm 106 */
																																										obj_t
																																											BgL_proxyz00_2595;
																																										BgL_proxyz00_2595
																																											=
																																											BgL_proxyz00_2527;
																																										{	/* Unsafe/http.scm 106 */
																																											obj_t
																																												BgL_socketz00_2596;
																																											BgL_socketz00_2596
																																												=
																																												BgL_socketz00_2528;
																																											{	/* Unsafe/http.scm 106 */
																																												obj_t
																																													BgL_timeoutz00_2597;
																																												BgL_timeoutz00_2597
																																													=
																																													BgL_timeoutz00_2529;
																																												return
																																													BGl_httpz00zz__httpz00
																																													(BgL_argsz00_2579,
																																													BgL_authoriza7ationza7_2580,
																																													BgL_bodyz00_2581,
																																													BgL_connectionz00_2582,
																																													BgL_contentzd2typezd2_2583,
																																													BgL_headerz00_2584,
																																													BgL_hostz00_2585,
																																													BgL_httpzd2versionzd2_2586,
																																													BgL_inz00_2587,
																																													BgL_loginz00_2588,
																																													BgL_methodz00_2589,
																																													BgL_outz00_2590,
																																													BgL_passwordz00_2591,
																																													BgL_pathz00_2592,
																																													BgL_portz00_2593,
																																													BgL_protocolz00_2594,
																																													BgL_proxyz00_2595,
																																													BgL_socketz00_2596,
																																													BgL_timeoutz00_2597,
																																													BgL_usernamez00_2530);
																																											}
																																										}
																																									}
																																								}
																																							}
																																						}
																																					}
																																				}
																																			}
																																		}
																																	}
																																}
																															}
																														}
																													}
																												}
																											}
																										}
																									}
																								}
																							}
																						}
																					}
																				}
																			}
																		}
																	}
																}
															}
														}
													}
												}
											}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* 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_test6242z00_14794;

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

								if (CBOOL(BgL_hostz00_9))
									{	/* Unsafe/http.scm 129 */
										BgL_test6245z00_14799 = CBOOL(BgL_portz00_17);
									}
								else
									{	/* Unsafe/http.scm 129 */
										BgL_test6245z00_14799 = ((bool_t) 0);
									}
								if (BgL_test6245z00_14799)
									{	/* Unsafe/http.scm 129 */
										BFALSE;
									}
								else
									{	/* Unsafe/http.scm 129 */
										BGl_errorz00zz__errorz00(BGl_string5619z00zz__httpz00,
											BGl_string5666z00zz__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_string5619z00zz__httpz00,
												BGl_string5667z00zz__httpz00, BgL_outz00_14);
										}
								}
							else
								{	/* Unsafe/http.scm 134 */
									BGl_errorz00zz__errorz00(BGl_string5619z00zz__httpz00,
										BGl_string5668z00zz__httpz00, BgL_inz00_11);
								}
						}
				}
			if (STRINGP(BgL_proxyz00_19))
				{	/* Unsafe/http.scm 140 */
					obj_t BgL_outz00_9587;

					BgL_outz00_9587 = BgL_outz00_14;
					{	/* Unsafe/http.scm 302 */
						obj_t BgL_arg2373z00_9588;

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

							BgL_arg2374z00_9589 =
								SYMBOL_TO_STRING(((obj_t) BgL_methodz00_13));
							BgL_arg2373z00_9588 =
								BGl_stringzd2upcasezd2zz__r4_strings_6_7z00
								(BgL_arg2374z00_9589);
						}
						bgl_display_obj(BgL_arg2373z00_9588, BgL_outz00_9587);
					}
					{	/* Unsafe/http.scm 303 */
						obj_t BgL_tmpz00_14819;

						BgL_tmpz00_14819 = ((obj_t) BgL_outz00_9587);
						bgl_display_string(BGl_string5669z00zz__httpz00, BgL_tmpz00_14819);
					}
					bgl_display_obj(BgL_hostz00_9, BgL_outz00_9587);
					{	/* Unsafe/http.scm 303 */
						obj_t BgL_tmpz00_14823;

						BgL_tmpz00_14823 = ((obj_t) BgL_outz00_9587);
						bgl_display_string(BGl_string5670z00zz__httpz00, BgL_tmpz00_14823);
					}
					bgl_display_obj(BgL_portz00_17, BgL_outz00_9587);
					bgl_display_obj(BgL_pathz00_16, BgL_outz00_9587);
					{	/* Unsafe/http.scm 303 */
						obj_t BgL_tmpz00_14828;

						BgL_tmpz00_14828 = ((obj_t) BgL_outz00_9587);
						bgl_display_string(BGl_string5671z00zz__httpz00, BgL_tmpz00_14828);
					}
					bgl_display_obj(BgL_httpzd2versionzd2_10, BgL_outz00_9587);
					{	/* Unsafe/http.scm 303 */
						obj_t BgL_tmpz00_14832;

						BgL_tmpz00_14832 = ((obj_t) BgL_outz00_9587);
						bgl_display_string(BGl_string5672z00zz__httpz00, BgL_tmpz00_14832);
					}
				}
			else
				{	/* Unsafe/http.scm 141 */
					obj_t BgL_outz00_9599;

					BgL_outz00_9599 = BgL_outz00_14;
					{	/* Unsafe/http.scm 309 */
						obj_t BgL_arg2375z00_9600;

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

							BgL_arg2377z00_9601 =
								SYMBOL_TO_STRING(((obj_t) BgL_methodz00_13));
							BgL_arg2375z00_9600 =
								BGl_stringzd2upcasezd2zz__r4_strings_6_7z00
								(BgL_arg2377z00_9601);
						}
						bgl_display_obj(BgL_arg2375z00_9600, BgL_outz00_9599);
					}
					{	/* Unsafe/http.scm 310 */
						obj_t BgL_tmpz00_14839;

						BgL_tmpz00_14839 = ((obj_t) BgL_outz00_9599);
						bgl_display_string(BGl_string5671z00zz__httpz00, BgL_tmpz00_14839);
					}
					bgl_display_obj(BgL_pathz00_16, BgL_outz00_9599);
					{	/* Unsafe/http.scm 310 */
						obj_t BgL_tmpz00_14843;

						BgL_tmpz00_14843 = ((obj_t) BgL_outz00_9599);
						bgl_display_string(BGl_string5671z00zz__httpz00, BgL_tmpz00_14843);
					}
					bgl_display_obj(BgL_httpzd2versionzd2_10, BgL_outz00_9599);
					{	/* Unsafe/http.scm 310 */
						obj_t BgL_tmpz00_14847;

						BgL_tmpz00_14847 = ((obj_t) BgL_outz00_9599);
						bgl_display_string(BGl_string5672z00zz__httpz00, BgL_tmpz00_14847);
					}
				}
			{	/* Unsafe/http.scm 143 */
				bool_t BgL_test6250z00_14850;

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

					if (((long) CINT(BgL_portz00_17) == 80L))
						{	/* Unsafe/http.scm 143 */
							BgL_test6251z00_14851 =
								(BgL_protocolz00_18 == BGl_symbol5618z00zz__httpz00);
						}
					else
						{	/* Unsafe/http.scm 143 */
							BgL_test6251z00_14851 = ((bool_t) 0);
						}
					if (BgL_test6251z00_14851)
						{	/* Unsafe/http.scm 143 */
							BgL_test6250z00_14850 = ((bool_t) 1);
						}
					else
						{	/* Unsafe/http.scm 143 */
							if (((long) CINT(BgL_portz00_17) == 443L))
								{	/* Unsafe/http.scm 144 */
									BgL_test6250z00_14850 =
										(BgL_protocolz00_18 == BGl_symbol5673z00zz__httpz00);
								}
							else
								{	/* Unsafe/http.scm 144 */
									BgL_test6250z00_14850 = ((bool_t) 0);
								}
						}
				}
				if (BgL_test6250z00_14850)
					{	/* Unsafe/http.scm 143 */
						bgl_display_string(BGl_string5675z00zz__httpz00, BgL_outz00_14);
						bgl_display_obj(BgL_hostz00_9, BgL_outz00_14);
						bgl_display_string(BGl_string5672z00zz__httpz00, BgL_outz00_14);
					}
				else
					{	/* Unsafe/http.scm 143 */
						bgl_display_string(BGl_string5675z00zz__httpz00, BgL_outz00_14);
						bgl_display_obj(BgL_hostz00_9, BgL_outz00_14);
						bgl_display_string(BGl_string5670z00zz__httpz00, BgL_outz00_14);
						bgl_display_obj(BgL_portz00_17, BgL_outz00_14);
						bgl_display_string(BGl_string5672z00zz__httpz00, BgL_outz00_14);
					}
			}
			{
				obj_t BgL_l1400z00_2618;

				BgL_l1400z00_2618 = BgL_headerz00_8;
			BgL_zc3z04anonymousza32267ze3z87_2619:
				if (PAIRP(BgL_l1400z00_2618))
					{	/* Unsafe/http.scm 148 */
						{	/* Unsafe/http.scm 149 */
							obj_t BgL_hz00_2621;

							BgL_hz00_2621 = CAR(BgL_l1400z00_2618);
							{	/* Unsafe/http.scm 149 */
								obj_t BgL_arg2269z00_2622;

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

									BgL_arg2270z00_2623 = CAR(((obj_t) BgL_hz00_2621));
									{	/* Unsafe/http.scm 149 */
										obj_t BgL_arg5330z00_9624;

										BgL_arg5330z00_9624 =
											KEYWORD_TO_STRING(((obj_t) BgL_arg2270z00_2623));
										BgL_arg2269z00_2622 =
											BGl_stringzd2copyzd2zz__r4_strings_6_7z00
											(BgL_arg5330z00_9624);
									}
								}
								bgl_display_obj(BgL_arg2269z00_2622, BgL_outz00_14);
							}
							bgl_display_string(BGl_string5676z00zz__httpz00, BgL_outz00_14);
							{	/* Unsafe/http.scm 150 */
								obj_t BgL_arg2271z00_2624;

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

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

										BgL_tmpz00_14879 = CDR(((obj_t) BgL_hz00_2621));
										BgL_test6255z00_14878 = PAIRP(BgL_tmpz00_14879);
									}
									if (BgL_test6255z00_14878)
										{	/* Unsafe/http.scm 150 */
											obj_t BgL_pairz00_9631;

											BgL_pairz00_9631 = CDR(((obj_t) BgL_hz00_2621));
											BgL_arg2271z00_2624 = CAR(BgL_pairz00_9631);
										}
									else
										{	/* Unsafe/http.scm 150 */
											BgL_arg2271z00_2624 = CDR(((obj_t) BgL_hz00_2621));
										}
								}
								bgl_display_obj(BgL_arg2271z00_2624, BgL_outz00_14);
							}
							bgl_display_string(BGl_string5672z00zz__httpz00, BgL_outz00_14);
						}
						{
							obj_t BgL_l1400z00_14890;

							BgL_l1400z00_14890 = CDR(BgL_l1400z00_2618);
							BgL_l1400z00_2618 = BgL_l1400z00_14890;
							goto BgL_zc3z04anonymousza32267ze3z87_2619;
						}
					}
				else
					{	/* Unsafe/http.scm 148 */
						((bool_t) 1);
					}
			}
			if (STRINGP(BgL_loginz00_12))
				{	/* Unsafe/http.scm 156 */
					obj_t BgL_outz00_9636;

					BgL_outz00_9636 = BgL_outz00_14;
					{	/* Unsafe/http.scm 316 */
						obj_t BgL_uinfoz00_9637;

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

							BgL_tmpz00_14896 = ((obj_t) BgL_outz00_9636);
							bgl_display_string(BGl_string5677z00zz__httpz00,
								BgL_tmpz00_14896);
						}
						bgl_display_obj(BgL_uinfoz00_9637, BgL_outz00_9636);
						{	/* Unsafe/http.scm 317 */
							obj_t BgL_tmpz00_14900;

							BgL_tmpz00_14900 = ((obj_t) BgL_outz00_9636);
							bgl_display_string(BGl_string5672z00zz__httpz00,
								BgL_tmpz00_14900);
						}
					}
				}
			else
				{	/* Unsafe/http.scm 155 */
					if (STRINGP(BgL_authoriza7ationza7_4))
						{	/* Unsafe/http.scm 157 */
							bgl_display_string(BGl_string5678z00zz__httpz00, BgL_outz00_14);
							bgl_display_obj(BgL_authoriza7ationza7_4, BgL_outz00_14);
							bgl_display_string(BGl_string5672z00zz__httpz00, BgL_outz00_14);
						}
					else
						{	/* Unsafe/http.scm 159 */
							bool_t BgL_test6258z00_14908;

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

									BgL_arg2280z00_2634 =
										string_append_3(BgL_usernamez00_22,
										BGl_string5670z00zz__httpz00, BgL_passwordz00_15);
									{	/* Unsafe/http.scm 160 */
										obj_t BgL_outz00_9646;

										BgL_outz00_9646 = BgL_outz00_14;
										{	/* Unsafe/http.scm 316 */
											obj_t BgL_uinfoz00_9647;

											BgL_uinfoz00_9647 =
												BGl_base64zd2encodezd2zz__base64z00(BgL_arg2280z00_2634,
												BINT(-1L));
											{	/* Unsafe/http.scm 317 */
												obj_t BgL_tmpz00_14915;

												BgL_tmpz00_14915 = ((obj_t) BgL_outz00_9646);
												bgl_display_string(BGl_string5677z00zz__httpz00,
													BgL_tmpz00_14915);
											}
											bgl_display_obj(BgL_uinfoz00_9647, BgL_outz00_9646);
											{	/* Unsafe/http.scm 317 */
												obj_t BgL_tmpz00_14919;

												BgL_tmpz00_14919 = ((obj_t) BgL_outz00_9646);
												bgl_display_string(BGl_string5672z00zz__httpz00,
													BgL_tmpz00_14919);
											}
										}
									}
								}
							else
								{	/* Unsafe/http.scm 159 */
									BFALSE;
								}
						}
				}
			if (STRINGP(BgL_connectionz00_6))
				{	/* Unsafe/http.scm 162 */
					bgl_display_string(BGl_string5679z00zz__httpz00, BgL_outz00_14);
					bgl_display_obj(BgL_connectionz00_6, BgL_outz00_14);
					bgl_display_string(BGl_string5672z00zz__httpz00, BgL_outz00_14);
				}
			else
				{	/* Unsafe/http.scm 162 */
					BFALSE;
				}
			{	/* Unsafe/http.scm 165 */
				bool_t BgL_test6261z00_14927;

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

					if ((BgL_methodz00_13 == BGl_symbol5680z00zz__httpz00))
						{	/* Unsafe/http.scm 165 */
							BgL_test6262z00_14928 = ((bool_t) 1);
						}
					else
						{	/* Unsafe/http.scm 165 */
							BgL_test6262z00_14928 =
								(BgL_methodz00_13 == BGl_symbol5682z00zz__httpz00);
						}
					if (BgL_test6262z00_14928)
						{	/* Unsafe/http.scm 166 */
							bool_t BgL__ortest_1080z00_2682;

							BgL__ortest_1080z00_2682 =
								(BgL_contentzd2typezd2_7 == BGl_symbol5684z00zz__httpz00);
							if (BgL__ortest_1080z00_2682)
								{	/* Unsafe/http.scm 166 */
									BgL_test6261z00_14927 = BgL__ortest_1080z00_2682;
								}
							else
								{	/* Unsafe/http.scm 166 */
									BgL_test6261z00_14927 = PAIRP(BgL_argsz00_3);
								}
						}
					else
						{	/* Unsafe/http.scm 165 */
							BgL_test6261z00_14927 = ((bool_t) 0);
						}
				}
				if (BgL_test6261z00_14927)
					{	/* Unsafe/http.scm 165 */
						if ((BgL_contentzd2typezd2_7 == BGl_symbol5684z00zz__httpz00))
							{	/* Unsafe/http.scm 171 */
								obj_t BgL_boundaryz00_2640;

								BgL_boundaryz00_2640 =
									BGl_generatezd2httpzd2boundaryz00zz__httpz00();
								{	/* Unsafe/http.scm 171 */
									obj_t BgL_contentz00_2641;

									BgL_contentz00_2641 =
										BGl_makezd2httpzd2postzd2bodyzd2zz__httpz00
										(BgL_boundaryz00_2640, BgL_argsz00_3);
									{	/* Unsafe/http.scm 172 */
										obj_t BgL_contentzd2lengthzd2_2642;

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

											if (NULLP(BgL_contentz00_2641))
												{	/* Unsafe/http.scm 173 */
													BgL_runner2297z00_2668 = BNIL;
												}
											else
												{	/* Unsafe/http.scm 173 */
													obj_t BgL_head1404z00_2654;

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

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

															BgL_stringz00_9657 =
																CAR(((obj_t) BgL_contentz00_2641));
															BgL_arg2295z00_2666 =
																STRING_LENGTH(BgL_stringz00_9657);
														}
														BgL_head1404z00_2654 =
															MAKE_YOUNG_PAIR(BINT(BgL_arg2295z00_2666), BNIL);
													}
													{	/* Unsafe/http.scm 173 */
														obj_t BgL_g1407z00_2655;

														BgL_g1407z00_2655 =
															CDR(((obj_t) BgL_contentz00_2641));
														{
															obj_t BgL_l1402z00_9678;
															obj_t BgL_tail1405z00_9679;

															BgL_l1402z00_9678 = BgL_g1407z00_2655;
															BgL_tail1405z00_9679 = BgL_head1404z00_2654;
														BgL_zc3z04anonymousza32290ze3z87_9677:
															if (NULLP(BgL_l1402z00_9678))
																{	/* Unsafe/http.scm 173 */
																	BgL_runner2297z00_2668 = BgL_head1404z00_2654;
																}
															else
																{	/* Unsafe/http.scm 173 */
																	obj_t BgL_newtail1406z00_9686;

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

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

																			BgL_stringz00_9691 =
																				CAR(((obj_t) BgL_l1402z00_9678));
																			BgL_arg2293z00_9687 =
																				STRING_LENGTH(BgL_stringz00_9691);
																		}
																		BgL_newtail1406z00_9686 =
																			MAKE_YOUNG_PAIR(BINT(BgL_arg2293z00_9687),
																			BNIL);
																	}
																	SET_CDR(BgL_tail1405z00_9679,
																		BgL_newtail1406z00_9686);
																	{	/* Unsafe/http.scm 173 */
																		obj_t BgL_arg2292z00_9689;

																		BgL_arg2292z00_9689 =
																			CDR(((obj_t) BgL_l1402z00_9678));
																		{
																			obj_t BgL_tail1405z00_14959;
																			obj_t BgL_l1402z00_14958;

																			BgL_l1402z00_14958 = BgL_arg2292z00_9689;
																			BgL_tail1405z00_14959 =
																				BgL_newtail1406z00_9686;
																			BgL_tail1405z00_9679 =
																				BgL_tail1405z00_14959;
																			BgL_l1402z00_9678 = BgL_l1402z00_14958;
																			goto
																				BgL_zc3z04anonymousza32290ze3z87_9677;
																		}
																	}
																}
														}
													}
												}
											BgL_contentzd2lengthzd2_2642 =
												BGl_zb2zb2zz__r4_numbers_6_5z00(BgL_runner2297z00_2668);
										}
										{	/* Unsafe/http.scm 173 */

											bgl_display_string(BGl_string5686z00zz__httpz00,
												BgL_outz00_14);
											bgl_display_obj(BgL_contentzd2lengthzd2_2642,
												BgL_outz00_14);
											bgl_display_string(BGl_string5672z00zz__httpz00,
												BgL_outz00_14);
											bgl_display_string(BGl_string5687z00zz__httpz00,
												BgL_outz00_14);
											{	/* Unsafe/http.scm 176 */
												obj_t BgL_arg2284z00_2643;

												BgL_arg2284z00_2643 =
													c_substring(BgL_boundaryz00_2640, 2L,
													STRING_LENGTH(BgL_boundaryz00_2640));
												bgl_display_obj(BgL_arg2284z00_2643, BgL_outz00_14);
											}
											bgl_display_string(BGl_string5672z00zz__httpz00,
												BgL_outz00_14);
											bgl_display_string(BGl_string5672z00zz__httpz00,
												BgL_outz00_14);
											{
												obj_t BgL_l1408z00_9722;

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

													BgL_l1408z00_9722 = BgL_contentz00_2641;
												BgL_zc3z04anonymousza32286ze3z87_9721:
													if (PAIRP(BgL_l1408z00_9722))
														{	/* Unsafe/http.scm 178 */
															{	/* Unsafe/http.scm 178 */
																obj_t BgL_oz00_9727;

																BgL_oz00_9727 = CAR(BgL_l1408z00_9722);
																{	/* Unsafe/http.scm 178 */
																	obj_t BgL_portz00_9731;

																	BgL_portz00_9731 = BgL_outz00_14;
																	{	/* Unsafe/http.scm 178 */
																		obj_t BgL_tmpz00_14974;

																		BgL_tmpz00_14974 = ((obj_t) BgL_oz00_9727);
																		bgl_display_string(BgL_tmpz00_14974,
																			BgL_portz00_9731);
																	}
																}
															}
															{
																obj_t BgL_l1408z00_14977;

																BgL_l1408z00_14977 = CDR(BgL_l1408z00_9722);
																BgL_l1408z00_9722 = BgL_l1408z00_14977;
																goto BgL_zc3z04anonymousza32286ze3z87_9721;
															}
														}
													else
														{	/* Unsafe/http.scm 178 */
															BgL_tmpz00_14970 = ((bool_t) 1);
														}
													BBOOL(BgL_tmpz00_14970);
												}
											}
										}
									}
								}
							}
						else
							{	/* Unsafe/http.scm 180 */
								obj_t BgL_contentz00_2669;
								obj_t BgL_ctz00_2670;

								BgL_contentz00_2669 =
									BGl_xzd2wwwzd2formzd2urlencodezd2zz__urlz00(BgL_argsz00_3);
								if (CBOOL(BgL_contentzd2typezd2_7))
									{	/* Unsafe/http.scm 181 */
										BgL_ctz00_2670 = BgL_contentzd2typezd2_7;
									}
								else
									{	/* Unsafe/http.scm 181 */
										BgL_ctz00_2670 = BGl_string5688z00zz__httpz00;
									}
								bgl_display_string(BGl_string5689z00zz__httpz00, BgL_outz00_14);
								bgl_display_obj(BgL_ctz00_2670, BgL_outz00_14);
								bgl_display_string(BGl_string5672z00zz__httpz00, BgL_outz00_14);
								bgl_display_string(BGl_string5686z00zz__httpz00, BgL_outz00_14);
								{	/* Unsafe/http.scm 183 */
									long BgL_arg2298z00_2671;

									BgL_arg2298z00_2671 = STRING_LENGTH(BgL_contentz00_2669);
									bgl_display_obj(BINT(BgL_arg2298z00_2671), BgL_outz00_14);
								}
								bgl_display_string(BGl_string5672z00zz__httpz00, BgL_outz00_14);
								bgl_display_string(BGl_string5672z00zz__httpz00, BgL_outz00_14);
								bgl_display_obj(BgL_contentz00_2669, BgL_outz00_14);
								bgl_display_string(BGl_string5672z00zz__httpz00, BgL_outz00_14);
					}}
				else
					{	/* Unsafe/http.scm 165 */
						if (STRINGP(BgL_bodyz00_5))
							{	/* Unsafe/http.scm 187 */
								bgl_display_string(BGl_string5686z00zz__httpz00, BgL_outz00_14);
								{	/* Unsafe/http.scm 189 */
									long BgL_arg2300z00_2674;

									BgL_arg2300z00_2674 = STRING_LENGTH(BgL_bodyz00_5);
									bgl_display_obj(BINT(BgL_arg2300z00_2674), BgL_outz00_14);
								}
								bgl_display_string(BGl_string5672z00zz__httpz00, BgL_outz00_14);
								bgl_display_string(BGl_string5672z00zz__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_string5672z00zz__httpz00,
											BgL_outz00_14);
										{	/* Unsafe/http.scm 195 */
											obj_t BgL_g2303z00_2677;

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

												BINT(BGl_sendzd2charszd2zz__r4_input_6_10_2z00
													(BgL_bodyz00_5, BgL_g2303z00_2677, BINT(-1L),
														BINT(-1L)));
											}
										}
									}
								else
									{	/* Unsafe/http.scm 192 */
										if (PROCEDUREP(BgL_bodyz00_5))
											{	/* Unsafe/http.scm 196 */
												bgl_display_string(BGl_string5672z00zz__httpz00,
													BgL_outz00_14);
												(VA_PROCEDUREP(BgL_bodyz00_5) ? ((obj_t(*)(obj_t,
																...))
														PROCEDURE_ENTRY(BgL_bodyz00_5)) (BgL_bodyz00_5,
														BgL_outz00_14, BEOA) : ((obj_t(*)(obj_t,
																obj_t))
														PROCEDURE_ENTRY(BgL_bodyz00_5)) (BgL_bodyz00_5,
														BgL_outz00_14));
											}
										else
											{	/* Unsafe/http.scm 196 */
												bgl_display_string(BGl_string5672z00zz__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_2684;

					{	/* Ieee/string.scm 219 */

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

								BgL_arg2306z00_2685 =
									c_substring(BgL_proxyz00_27,
									((long) CINT(BgL_iz00_2684) + 1L),
									STRING_LENGTH(BgL_proxyz00_27));
								{	/* Unsafe/http.scm 214 */
									long BgL_tmpz00_15032;

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

										BgL_tmpz00_15033 = BSTRING_TO_STRING(BgL_arg2306z00_2685);
										BgL_tmpz00_15032 = BGL_STRTOL(BgL_tmpz00_15033, 0L, 10L);
									}
									BgL_portz00_26 = BINT(BgL_tmpz00_15032);
						}}}
					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_2693;

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

								BgL_domainz00_2694 = BGl_symbol5690z00zz__httpz00;
								BgL_sz00_2693 =
									BGl_makezd2clientzd2socketz00zz__socketz00(BgL_hostz00_25,
									CINT(BgL_portz00_26), BgL_domainz00_2694, BTRUE, BTRUE,
									BgL_timeoutz00_28);
							}
							return BgL_sz00_2693;
						}
					else
						{	/* Unsafe/http.scm 222 */
							return
								BGl_bigloozd2typezd2errorz00zz__errorz00
								(BGl_symbol5618z00zz__httpz00, BGl_string5692z00zz__httpz00,
								BgL_portz00_26);
						}
				}
			else
				{	/* Unsafe/http.scm 220 */
					return
						BGl_bigloozd2typezd2errorz00zz__errorz00
						(BGl_symbol5618z00zz__httpz00, BGl_string5693z00zz__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_list5694z00zz__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_12531,
		obj_t BgL_argsz00_2722)
	{
		{	/* Unsafe/http.scm 267 */
			if (NULLP(BgL_argsz00_2722))
				{	/* Unsafe/http.scm 269 */
					obj_t BgL_list2334z00_2725;

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

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

							BgL_arg2336z00_2727 =
								MAKE_YOUNG_PAIR(BGl_string5672z00zz__httpz00, BNIL);
							BgL_arg2335z00_2726 =
								MAKE_YOUNG_PAIR(BGl_string5695z00zz__httpz00,
								BgL_arg2336z00_2727);
						}
						BgL_list2334z00_2725 =
							MAKE_YOUNG_PAIR(BgL_boundaryz00_12531, BgL_arg2335z00_2726);
					}
					return BgL_list2334z00_2725;
				}
			else
				{	/* Unsafe/http.scm 270 */
					obj_t BgL_az00_2728;

					BgL_az00_2728 = CAR(((obj_t) BgL_argsz00_2722));
					{	/* Unsafe/http.scm 270 */
						obj_t BgL_bodyz00_2729;

						{	/* Unsafe/http.scm 271 */
							obj_t BgL_arg2358z00_2750;
							obj_t BgL_arg2359z00_2751;

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

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

									BgL_pairz00_9776 = CDR(((obj_t) BgL_az00_2728));
									BgL_arg2360z00_2752 = CAR(BgL_pairz00_9776);
								}
								if (STRINGP(BgL_arg2360z00_2752))
									{	/* Unsafe/http.scm 261 */
										BgL_arg2358z00_2750 = BgL_arg2360z00_2752;
									}
								else
									{	/* Unsafe/http.scm 263 */
										obj_t BgL_zc3z04anonymousza32367ze3z87_12388;

										BgL_zc3z04anonymousza32367ze3z87_12388 =
											MAKE_FX_PROCEDURE
											(BGl_z62zc3z04anonymousza32367ze3ze5zz__httpz00,
											(int) (1L), (int) (1L));
										PROCEDURE_SET(BgL_zc3z04anonymousza32367ze3z87_12388,
											(int) (0L), BgL_arg2360z00_2752);
										BgL_arg2358z00_2750 =
											BGl_callzd2withzd2outputzd2stringzd2zz__r4_ports_6_10_1z00
											(BgL_zc3z04anonymousza32367ze3z87_12388);
							}}
							{	/* Unsafe/http.scm 272 */
								obj_t BgL_arg2362z00_2753;

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

									BgL_arg2363z00_2754 = CDR(((obj_t) BgL_argsz00_2722));
									BgL_arg2362z00_2753 =
										BGl_loopze70ze7zz__httpz00(BgL_boundaryz00_12531,
										BgL_arg2363z00_2754);
								}
								BgL_arg2359z00_2751 =
									MAKE_YOUNG_PAIR(BGl_string5672z00zz__httpz00,
									BgL_arg2362z00_2753);
							}
							BgL_bodyz00_2729 =
								MAKE_YOUNG_PAIR(BgL_arg2358z00_2750, BgL_arg2359z00_2751);
						}
						{	/* Unsafe/http.scm 271 */
							obj_t BgL_hdz00_2730;

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

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

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

										BgL_pairz00_9784 = CDR(((obj_t) BgL_az00_2728));
										BgL_tmpz00_15073 = CDR(BgL_pairz00_9784);
									}
									BgL_test6280z00_15072 = PAIRP(BgL_tmpz00_15073);
								}
								if (BgL_test6280z00_15072)
									{	/* Unsafe/http.scm 274 */
										obj_t BgL_arg2355z00_2747;
										obj_t BgL_arg2356z00_2748;

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

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

												BgL_pairz00_9789 = CDR(((obj_t) BgL_az00_2728));
												BgL_pairz00_9790 = CDR(BgL_pairz00_9789);
											}
											BgL_arg2355z00_2747 = CAR(BgL_pairz00_9790);
										}
										BgL_arg2356z00_2748 =
											MAKE_YOUNG_PAIR(BGl_string5696z00zz__httpz00,
											BgL_bodyz00_2729);
										BgL_hdz00_2730 =
											MAKE_YOUNG_PAIR(BgL_arg2355z00_2747, BgL_arg2356z00_2748);
									}
								else
									{	/* Unsafe/http.scm 273 */
										BgL_hdz00_2730 =
											MAKE_YOUNG_PAIR(BGl_string5672z00zz__httpz00,
											BgL_bodyz00_2729);
									}
							}
							{	/* Unsafe/http.scm 273 */
								obj_t BgL_dispz00_2731;

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

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

										BgL_tmpz00_15086 = CAR(((obj_t) BgL_az00_2728));
										BgL_test6281z00_15085 = PAIRP(BgL_tmpz00_15086);
									}
									if (BgL_test6281z00_15085)
										{	/* Unsafe/http.scm 278 */
											obj_t BgL_arg2340z00_2735;

											{	/* Unsafe/http.scm 278 */
												obj_t BgL_arg2341z00_2736;
												obj_t BgL_arg2342z00_2737;

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

													BgL_pairz00_9795 = CAR(((obj_t) BgL_az00_2728));
													BgL_arg2341z00_2736 = CAR(BgL_pairz00_9795);
												}
												{	/* Unsafe/http.scm 278 */
													obj_t BgL_arg2344z00_2738;

													{	/* Unsafe/http.scm 278 */
														obj_t BgL_arg2345z00_2739;
														obj_t BgL_arg2346z00_2740;

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

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

																BgL_pairz00_9800 = CAR(((obj_t) BgL_az00_2728));
																BgL_pairz00_9801 = CDR(BgL_pairz00_9800);
															}
															BgL_arg2345z00_2739 = CAR(BgL_pairz00_9801);
														}
														BgL_arg2346z00_2740 =
															MAKE_YOUNG_PAIR(BGl_string5672z00zz__httpz00,
															BgL_hdz00_2730);
														BgL_arg2344z00_2738 =
															MAKE_YOUNG_PAIR(BgL_arg2345z00_2739,
															BgL_arg2346z00_2740);
													}
													BgL_arg2342z00_2737 =
														MAKE_YOUNG_PAIR(BGl_string5697z00zz__httpz00,
														BgL_arg2344z00_2738);
												}
												BgL_arg2340z00_2735 =
													MAKE_YOUNG_PAIR(BgL_arg2341z00_2736,
													BgL_arg2342z00_2737);
											}
											BgL_dispz00_2731 =
												MAKE_YOUNG_PAIR(BGl_string5698z00zz__httpz00,
												BgL_arg2340z00_2735);
										}
									else
										{	/* Unsafe/http.scm 281 */
											obj_t BgL_arg2348z00_2741;

											{	/* Unsafe/http.scm 281 */
												obj_t BgL_arg2349z00_2742;
												obj_t BgL_arg2351z00_2743;

												BgL_arg2349z00_2742 = CAR(((obj_t) BgL_az00_2728));
												BgL_arg2351z00_2743 =
													MAKE_YOUNG_PAIR(BGl_string5699z00zz__httpz00,
													BgL_hdz00_2730);
												BgL_arg2348z00_2741 =
													MAKE_YOUNG_PAIR(BgL_arg2349z00_2742,
													BgL_arg2351z00_2743);
											}
											BgL_dispz00_2731 =
												MAKE_YOUNG_PAIR(BGl_string5698z00zz__httpz00,
												BgL_arg2348z00_2741);
										}
								}
								{	/* Unsafe/http.scm 276 */

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

										BgL_arg2337z00_2732 =
											MAKE_YOUNG_PAIR(BGl_string5672z00zz__httpz00,
											BgL_dispz00_2731);
										return MAKE_YOUNG_PAIR(BgL_boundaryz00_12531,
											BgL_arg2337z00_2732);
									}
								}
							}
						}
					}
				}
		}

	}



/* &<@anonymous:2367> */
	obj_t BGl_z62zc3z04anonymousza32367ze3ze5zz__httpz00(obj_t BgL_envz00_12389,
		obj_t BgL_pz00_12391)
	{
		{	/* Unsafe/http.scm 263 */
			return
				bgl_display_obj(PROCEDURE_REF(BgL_envz00_12389,
					(int) (0L)), BgL_pz00_12391);
		}

	}



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

				BgL_sz00_2764 = make_string(22L, ((unsigned char) '-'));
				{
					long BgL_iz00_9813;

					BgL_iz00_9813 = 2L;
				BgL_loopz00_9812:
					if ((BgL_iz00_9813 < 22L))
						{	/* Unsafe/http.scm 293 */
							long BgL_numz00_9816;

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

								BgL_arg5347z00_9818 = rand();
								BgL_numz00_9816 =
									BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(
									(long) (BgL_arg5347z00_9818), 16L);
							}
							{	/* Unsafe/http.scm 294 */
								unsigned char BgL_tmpz00_15118;

								BgL_tmpz00_15118 =
									STRING_REF(BGl_string5700z00zz__httpz00, BgL_numz00_9816);
								STRING_SET(BgL_sz00_2764, BgL_iz00_9813, BgL_tmpz00_15118);
							}
							{
								long BgL_iz00_15121;

								BgL_iz00_15121 = (BgL_iz00_9813 + 1L);
								BgL_iz00_9813 = BgL_iz00_15121;
								goto BgL_loopz00_9812;
							}
						}
					else
						{	/* Unsafe/http.scm 292 */
							((bool_t) 0);
						}
				}
				return BgL_sz00_2764;
			}
		}

	}



/* 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_2780;

					BgL_linez00_2780 =
						BGl_httpzd2readzd2linez00zz__httpz00(BgL_portz00_48);
					{	/* Unsafe/http.scm 326 */
						obj_t BgL_arg2380z00_2781;

						{	/* Unsafe/http.scm 326 */
							obj_t BgL_arg2381z00_2782;
							obj_t BgL_arg2382z00_2783;

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

								BgL_list2388z00_2788 = MAKE_YOUNG_PAIR(BgL_cz00_47, BNIL);
								BgL_arg2381z00_2782 =
									BGl_listzd2ze3stringz31zz__r4_strings_6_7z00
									(BgL_list2388z00_2788);
							}
							if (STRINGP(BgL_linez00_2780))
								{	/* Unsafe/http.scm 326 */
									BgL_arg2382z00_2783 = BgL_linez00_2780;
								}
							else
								{	/* Unsafe/http.scm 326 */
									BgL_arg2382z00_2783 = BGl_string5701z00zz__httpz00;
								}
							{	/* Unsafe/http.scm 326 */
								obj_t BgL_list2383z00_2784;

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

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

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

											BgL_arg2387z00_2787 =
												MAKE_YOUNG_PAIR(BgL_arg2382z00_2783, BNIL);
											BgL_arg2385z00_2786 =
												MAKE_YOUNG_PAIR(BGl_string5702z00zz__httpz00,
												BgL_arg2387z00_2787);
										}
										BgL_arg2384z00_2785 =
											MAKE_YOUNG_PAIR(BgL_arg2381z00_2782, BgL_arg2385z00_2786);
									}
									BgL_list2383z00_2784 =
										MAKE_YOUNG_PAIR(BGl_string5703z00zz__httpz00,
										BgL_arg2384z00_2785);
								}
								BgL_arg2380z00_2781 =
									BGl_stringzd2appendzd2zz__r4_strings_6_7z00
									(BgL_list2383z00_2784);
							}
						}
						return string_for_read(BgL_arg2380z00_2781);
					}
				}
			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_z62zc3z04anonymousza31593ze3ze5zz__httpz00
				(BGl_statuszd2linezd2grammarz00zz__httpz00, BgL_ipz00_49);
		}

	}



/* &http-parse-status-line */
	obj_t BGl_z62httpzd2parsezd2statuszd2linezb0zz__httpz00(obj_t
		BgL_envz00_12392, obj_t BgL_ipz00_12393)
	{
		{	/* Unsafe/http.scm 364 */
			{	/* Unsafe/http.scm 365 */
				obj_t BgL_auxz00_15140;

				if (INPUT_PORTP(BgL_ipz00_12393))
					{	/* Unsafe/http.scm 365 */
						BgL_auxz00_15140 = BgL_ipz00_12393;
					}
				else
					{
						obj_t BgL_auxz00_15143;

						BgL_auxz00_15143 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5663z00zz__httpz00,
							BINT(13486L), BGl_string5704z00zz__httpz00,
							BGl_string5705z00zz__httpz00, BgL_ipz00_12393);
						FAILURE(BgL_auxz00_15143, BFALSE, BFALSE);
					}
				return BGl_httpzd2parsezd2statuszd2linezd2zz__httpz00(BgL_auxz00_15140);
			}
		}

	}



/* http-read-line */
	BGL_EXPORTED_DEF obj_t BGl_httpzd2readzd2linez00zz__httpz00(obj_t BgL_pz00_50)
	{
		{	/* Unsafe/http.scm 370 */
			{
				obj_t BgL_iportz00_2882;
				long BgL_lastzd2matchzd2_2883;
				long BgL_forwardz00_2884;
				long BgL_bufposz00_2885;
				obj_t BgL_iportz00_2847;
				long BgL_lastzd2matchzd2_2848;
				long BgL_forwardz00_2849;
				long BgL_bufposz00_2850;
				obj_t BgL_iportz00_2825;
				long BgL_lastzd2matchzd2_2826;
				long BgL_forwardz00_2827;
				long BgL_bufposz00_2828;

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

					{	/* Unsafe/http.scm 371 */
						long BgL_arg2524z00_3024;
						long BgL_arg2527z00_3025;

						BgL_arg2524z00_3024 = RGC_BUFFER_FORWARD(BgL_pz00_50);
						BgL_arg2527z00_3025 = RGC_BUFFER_BUFPOS(BgL_pz00_50);
						{
							long BgL_forwardz00_9935;
							long BgL_bufposz00_9936;

							BgL_forwardz00_9935 = BgL_arg2524z00_3024;
							BgL_bufposz00_9936 = BgL_arg2527z00_3025;
						BgL_statezd20zd21104z00_9934:
							if ((BgL_forwardz00_9935 == BgL_bufposz00_9936))
								{	/* Unsafe/http.scm 371 */
									if (rgc_fill_buffer(BgL_pz00_50))
										{	/* Unsafe/http.scm 371 */
											long BgL_arg2414z00_9942;
											long BgL_arg2415z00_9943;

											BgL_arg2414z00_9942 = RGC_BUFFER_FORWARD(BgL_pz00_50);
											BgL_arg2415z00_9943 = RGC_BUFFER_BUFPOS(BgL_pz00_50);
											{
												long BgL_bufposz00_15158;
												long BgL_forwardz00_15157;

												BgL_forwardz00_15157 = BgL_arg2414z00_9942;
												BgL_bufposz00_15158 = BgL_arg2415z00_9943;
												BgL_bufposz00_9936 = BgL_bufposz00_15158;
												BgL_forwardz00_9935 = BgL_forwardz00_15157;
												goto BgL_statezd20zd21104z00_9934;
											}
										}
									else
										{	/* Unsafe/http.scm 371 */
											BgL_matchz00_3017 = 1L;
										}
								}
							else
								{	/* Unsafe/http.scm 371 */
									int BgL_curz00_9946;

									BgL_curz00_9946 =
										RGC_BUFFER_GET_CHAR(BgL_pz00_50, BgL_forwardz00_9935);
									{	/* Unsafe/http.scm 371 */

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

												BgL_arg2417z00_9951 = (1L + BgL_forwardz00_9935);
												{	/* Unsafe/http.scm 371 */
													long BgL_newzd2matchzd2_9953;

													RGC_STOP_MATCH(BgL_pz00_50, BgL_arg2417z00_9951);
													BgL_newzd2matchzd2_9953 = 1L;
													BgL_matchz00_3017 = BgL_newzd2matchzd2_9953;
											}}
										else
											{	/* Unsafe/http.scm 371 */
												BgL_iportz00_2847 = BgL_pz00_50;
												BgL_lastzd2matchzd2_2848 = 1L;
												BgL_forwardz00_2849 = (1L + BgL_forwardz00_9935);
												BgL_bufposz00_2850 = BgL_bufposz00_9936;
											BgL_zc3z04anonymousza32401ze3z87_2851:
												{	/* Unsafe/http.scm 371 */
													long BgL_newzd2matchzd2_2852;

													RGC_STOP_MATCH(BgL_iportz00_2847,
														BgL_forwardz00_2849);
													BgL_newzd2matchzd2_2852 = 0L;
													if ((BgL_forwardz00_2849 == BgL_bufposz00_2850))
														{	/* Unsafe/http.scm 371 */
															if (rgc_fill_buffer(BgL_iportz00_2847))
																{	/* Unsafe/http.scm 371 */
																	long BgL_arg2404z00_2855;
																	long BgL_arg2405z00_2856;

																	BgL_arg2404z00_2855 =
																		RGC_BUFFER_FORWARD(BgL_iportz00_2847);
																	BgL_arg2405z00_2856 =
																		RGC_BUFFER_BUFPOS(BgL_iportz00_2847);
																	{
																		long BgL_bufposz00_15173;
																		long BgL_forwardz00_15172;

																		BgL_forwardz00_15172 = BgL_arg2404z00_2855;
																		BgL_bufposz00_15173 = BgL_arg2405z00_2856;
																		BgL_bufposz00_2850 = BgL_bufposz00_15173;
																		BgL_forwardz00_2849 = BgL_forwardz00_15172;
																		goto BgL_zc3z04anonymousza32401ze3z87_2851;
																	}
																}
															else
																{	/* Unsafe/http.scm 371 */
																	BgL_matchz00_3017 = BgL_newzd2matchzd2_2852;
																}
														}
													else
														{	/* Unsafe/http.scm 371 */
															int BgL_curz00_2857;

															BgL_curz00_2857 =
																RGC_BUFFER_GET_CHAR(BgL_iportz00_2847,
																BgL_forwardz00_2849);
															{	/* Unsafe/http.scm 371 */

																if (((long) (BgL_curz00_2857) == 13L))
																	{	/* Unsafe/http.scm 371 */
																		BgL_iportz00_2825 = BgL_iportz00_2847;
																		BgL_lastzd2matchzd2_2826 =
																			BgL_newzd2matchzd2_2852;
																		BgL_forwardz00_2827 =
																			(1L + BgL_forwardz00_2849);
																		BgL_bufposz00_2828 = BgL_bufposz00_2850;
																	BgL_zc3z04anonymousza32390ze3z87_2829:
																		{	/* Unsafe/http.scm 371 */
																			long BgL_newzd2matchzd2_2830;

																			RGC_STOP_MATCH(BgL_iportz00_2825,
																				BgL_forwardz00_2827);
																			BgL_newzd2matchzd2_2830 = 0L;
																			if (
																				(BgL_forwardz00_2827 ==
																					BgL_bufposz00_2828))
																				{	/* Unsafe/http.scm 371 */
																					if (rgc_fill_buffer
																						(BgL_iportz00_2825))
																						{	/* Unsafe/http.scm 371 */
																							long BgL_arg2393z00_2833;
																							long BgL_arg2394z00_2834;

																							BgL_arg2393z00_2833 =
																								RGC_BUFFER_FORWARD
																								(BgL_iportz00_2825);
																							BgL_arg2394z00_2834 =
																								RGC_BUFFER_BUFPOS
																								(BgL_iportz00_2825);
																							{
																								long BgL_bufposz00_15186;
																								long BgL_forwardz00_15185;

																								BgL_forwardz00_15185 =
																									BgL_arg2393z00_2833;
																								BgL_bufposz00_15186 =
																									BgL_arg2394z00_2834;
																								BgL_bufposz00_2828 =
																									BgL_bufposz00_15186;
																								BgL_forwardz00_2827 =
																									BgL_forwardz00_15185;
																								goto
																									BgL_zc3z04anonymousza32390ze3z87_2829;
																							}
																						}
																					else
																						{	/* Unsafe/http.scm 371 */
																							BgL_matchz00_3017 =
																								BgL_newzd2matchzd2_2830;
																						}
																				}
																			else
																				{	/* Unsafe/http.scm 371 */
																					int BgL_curz00_2835;

																					BgL_curz00_2835 =
																						RGC_BUFFER_GET_CHAR
																						(BgL_iportz00_2825,
																						BgL_forwardz00_2827);
																					{	/* Unsafe/http.scm 371 */

																						if (
																							((long) (BgL_curz00_2835) == 13L))
																							{
																								long BgL_forwardz00_15192;
																								long BgL_lastzd2matchzd2_15191;

																								BgL_lastzd2matchzd2_15191 =
																									BgL_newzd2matchzd2_2830;
																								BgL_forwardz00_15192 =
																									(1L + BgL_forwardz00_2827);
																								BgL_forwardz00_2827 =
																									BgL_forwardz00_15192;
																								BgL_lastzd2matchzd2_2826 =
																									BgL_lastzd2matchzd2_15191;
																								goto
																									BgL_zc3z04anonymousza32390ze3z87_2829;
																							}
																						else
																							{	/* Unsafe/http.scm 371 */
																								if (
																									((long) (BgL_curz00_2835) ==
																										10L))
																									{	/* Unsafe/http.scm 371 */
																										long BgL_arg2398z00_2839;

																										BgL_arg2398z00_2839 =
																											(1L +
																											BgL_forwardz00_2827);
																										{	/* Unsafe/http.scm 371 */
																											long
																												BgL_newzd2matchzd2_9866;
																											RGC_STOP_MATCH
																												(BgL_iportz00_2825,
																												BgL_arg2398z00_2839);
																											BgL_newzd2matchzd2_9866 =
																												0L;
																											BgL_matchz00_3017 =
																												BgL_newzd2matchzd2_9866;
																									}}
																								else
																									{	/* Unsafe/http.scm 371 */
																										BgL_iportz00_2882 =
																											BgL_iportz00_2825;
																										BgL_lastzd2matchzd2_2883 =
																											BgL_newzd2matchzd2_2830;
																										BgL_forwardz00_2884 =
																											(1L +
																											BgL_forwardz00_2827);
																										BgL_bufposz00_2885 =
																											BgL_bufposz00_2828;
																									BgL_zc3z04anonymousza32420ze3z87_2886:
																										{	/* Unsafe/http.scm 371 */
																											long
																												BgL_newzd2matchzd2_2887;
																											RGC_STOP_MATCH
																												(BgL_iportz00_2882,
																												BgL_forwardz00_2884);
																											BgL_newzd2matchzd2_2887 =
																												0L;
																											if ((BgL_forwardz00_2884
																													==
																													BgL_bufposz00_2885))
																												{	/* Unsafe/http.scm 371 */
																													if (rgc_fill_buffer
																														(BgL_iportz00_2882))
																														{	/* Unsafe/http.scm 371 */
																															long
																																BgL_arg2423z00_2890;
																															long
																																BgL_arg2425z00_2891;
																															BgL_arg2423z00_2890
																																=
																																RGC_BUFFER_FORWARD
																																(BgL_iportz00_2882);
																															BgL_arg2425z00_2891
																																=
																																RGC_BUFFER_BUFPOS
																																(BgL_iportz00_2882);
																															{
																																long
																																	BgL_bufposz00_15207;
																																long
																																	BgL_forwardz00_15206;
																																BgL_forwardz00_15206
																																	=
																																	BgL_arg2423z00_2890;
																																BgL_bufposz00_15207
																																	=
																																	BgL_arg2425z00_2891;
																																BgL_bufposz00_2885
																																	=
																																	BgL_bufposz00_15207;
																																BgL_forwardz00_2884
																																	=
																																	BgL_forwardz00_15206;
																																goto
																																	BgL_zc3z04anonymousza32420ze3z87_2886;
																															}
																														}
																													else
																														{	/* Unsafe/http.scm 371 */
																															BgL_matchz00_3017
																																=
																																BgL_newzd2matchzd2_2887;
																														}
																												}
																											else
																												{	/* Unsafe/http.scm 371 */
																													int BgL_curz00_2892;

																													BgL_curz00_2892 =
																														RGC_BUFFER_GET_CHAR
																														(BgL_iportz00_2882,
																														BgL_forwardz00_2884);
																													{	/* Unsafe/http.scm 371 */

																														if (
																															((long)
																																(BgL_curz00_2892)
																																== 13L))
																															{
																																long
																																	BgL_bufposz00_15216;
																																long
																																	BgL_forwardz00_15214;
																																long
																																	BgL_lastzd2matchzd2_15213;
																																obj_t
																																	BgL_iportz00_15212;
																																BgL_iportz00_15212
																																	=
																																	BgL_iportz00_2882;
																																BgL_lastzd2matchzd2_15213
																																	=
																																	BgL_newzd2matchzd2_2887;
																																BgL_forwardz00_15214
																																	=
																																	(1L +
																																	BgL_forwardz00_2884);
																																BgL_bufposz00_15216
																																	=
																																	BgL_bufposz00_2885;
																																BgL_bufposz00_2828
																																	=
																																	BgL_bufposz00_15216;
																																BgL_forwardz00_2827
																																	=
																																	BgL_forwardz00_15214;
																																BgL_lastzd2matchzd2_2826
																																	=
																																	BgL_lastzd2matchzd2_15213;
																																BgL_iportz00_2825
																																	=
																																	BgL_iportz00_15212;
																																goto
																																	BgL_zc3z04anonymousza32390ze3z87_2829;
																															}
																														else
																															{	/* Unsafe/http.scm 371 */
																																if (
																																	((long)
																																		(BgL_curz00_2892)
																																		== 10L))
																																	{	/* Unsafe/http.scm 371 */
																																		long
																																			BgL_arg2429z00_2896;
																																		BgL_arg2429z00_2896
																																			=
																																			(1L +
																																			BgL_forwardz00_2884);
																																		{	/* Unsafe/http.scm 371 */
																																			long
																																				BgL_newzd2matchzd2_9919;
																																			RGC_STOP_MATCH
																																				(BgL_iportz00_2882,
																																				BgL_arg2429z00_2896);
																																			BgL_newzd2matchzd2_9919
																																				= 0L;
																																			BgL_matchz00_3017
																																				=
																																				BgL_newzd2matchzd2_9919;
																																	}}
																																else
																																	{
																																		long
																																			BgL_forwardz00_15223;
																																		long
																																			BgL_lastzd2matchzd2_15222;
																																		BgL_lastzd2matchzd2_15222
																																			=
																																			BgL_newzd2matchzd2_2887;
																																		BgL_forwardz00_15223
																																			=
																																			(1L +
																																			BgL_forwardz00_2884);
																																		BgL_forwardz00_2884
																																			=
																																			BgL_forwardz00_15223;
																																		BgL_lastzd2matchzd2_2883
																																			=
																																			BgL_lastzd2matchzd2_15222;
																																		goto
																																			BgL_zc3z04anonymousza32420ze3z87_2886;
																																	}
																															}
																													}
																												}
																										}
																									}
																							}
																					}
																				}
																		}
																	}
																else
																	{	/* Unsafe/http.scm 371 */
																		if (((long) (BgL_curz00_2857) == 10L))
																			{	/* Unsafe/http.scm 371 */
																				long BgL_arg2409z00_2861;

																				BgL_arg2409z00_2861 =
																					(1L + BgL_forwardz00_2849);
																				{	/* Unsafe/http.scm 371 */
																					long BgL_newzd2matchzd2_9886;

																					RGC_STOP_MATCH(BgL_iportz00_2847,
																						BgL_arg2409z00_2861);
																					BgL_newzd2matchzd2_9886 = 0L;
																					BgL_matchz00_3017 =
																						BgL_newzd2matchzd2_9886;
																			}}
																		else
																			{
																				long BgL_bufposz00_15236;
																				long BgL_forwardz00_15234;
																				long BgL_lastzd2matchzd2_15233;
																				obj_t BgL_iportz00_15232;

																				BgL_iportz00_15232 = BgL_iportz00_2847;
																				BgL_lastzd2matchzd2_15233 =
																					BgL_newzd2matchzd2_2852;
																				BgL_forwardz00_15234 =
																					(1L + BgL_forwardz00_2849);
																				BgL_bufposz00_15236 =
																					BgL_bufposz00_2850;
																				BgL_bufposz00_2885 =
																					BgL_bufposz00_15236;
																				BgL_forwardz00_2884 =
																					BgL_forwardz00_15234;
																				BgL_lastzd2matchzd2_2883 =
																					BgL_lastzd2matchzd2_15233;
																				BgL_iportz00_2882 = BgL_iportz00_15232;
																				goto
																					BgL_zc3z04anonymousza32420ze3z87_2886;
																			}
																	}
															}
														}
												}
											}
									}
								}
						}
					}
					RGC_SET_FILEPOS(BgL_pz00_50);
					{

						switch (BgL_matchz00_3017)
							{
							case 1L:

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

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

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

											BgL_arg2516z00_3007 =
												RGC_BUFFER_MATCH_LENGTH(BgL_pz00_50);
											BgL_test6301z00_15239 = (BgL_arg2516z00_3007 == 0L);
										}
										if (BgL_test6301z00_15239)
											{	/* Unsafe/http.scm 371 */
												BgL_cz00_3022 = BEOF;
											}
										else
											{	/* Unsafe/http.scm 371 */
												BgL_cz00_3022 =
													BCHAR(RGC_BUFFER_CHARACTER(BgL_pz00_50));
											}
									}
									if (EOF_OBJECTP(BgL_cz00_3022))
										{	/* Unsafe/http.scm 376 */
											return BgL_cz00_3022;
										}
									else
										{	/* Unsafe/http.scm 371 */
											long BgL_arg2437z00_9959;

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

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

									BgL_arg2437z00_9963 = RGC_BUFFER_MATCH_LENGTH(BgL_pz00_50);
									return
										rgc_buffer_substring(BgL_pz00_50, 0L, BgL_arg2437z00_9963);
								}
								break;
							default:
								return
									BGl_errorz00zz__errorz00(BGl_string5600z00zz__httpz00,
									BGl_string5601z00zz__httpz00, BINT(BgL_matchz00_3017));
							}
					}
				}
			}
		}

	}



/* &http-read-line */
	obj_t BGl_z62httpzd2readzd2linez62zz__httpz00(obj_t BgL_envz00_12394,
		obj_t BgL_pz00_12395)
	{
		{	/* Unsafe/http.scm 370 */
			{	/* Unsafe/http.scm 371 */
				obj_t BgL_auxz00_15253;

				if (INPUT_PORTP(BgL_pz00_12395))
					{	/* Unsafe/http.scm 371 */
						BgL_auxz00_15253 = BgL_pz00_12395;
					}
				else
					{
						obj_t BgL_auxz00_15256;

						BgL_auxz00_15256 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5663z00zz__httpz00,
							BINT(13773L), BGl_string5706z00zz__httpz00,
							BGl_string5705z00zz__httpz00, BgL_pz00_12395);
						FAILURE(BgL_auxz00_15256, BFALSE, BFALSE);
					}
				return BGl_httpzd2readzd2linez00zz__httpz00(BgL_auxz00_15253);
			}
		}

	}



/* http-skip-blank */
	obj_t BGl_httpzd2skipzd2blankz00zz__httpz00(obj_t BgL_pz00_51)
	{
		{	/* Unsafe/http.scm 384 */
			{
				obj_t BgL_iportz00_3128;
				long BgL_lastzd2matchzd2_3129;
				long BgL_forwardz00_3130;
				long BgL_bufposz00_3131;
				obj_t BgL_iportz00_3113;
				long BgL_lastzd2matchzd2_3114;
				long BgL_forwardz00_3115;
				long BgL_bufposz00_3116;
				obj_t BgL_iportz00_3092;
				long BgL_lastzd2matchzd2_3093;
				long BgL_forwardz00_3094;
				long BgL_bufposz00_3095;

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

					{	/* Unsafe/http.scm 385 */
						long BgL_arg2666z00_3275;
						long BgL_arg2667z00_3276;

						BgL_arg2666z00_3275 = RGC_BUFFER_FORWARD(BgL_pz00_51);
						BgL_arg2667z00_3276 = RGC_BUFFER_BUFPOS(BgL_pz00_51);
						BgL_iportz00_3092 = BgL_pz00_51;
						BgL_lastzd2matchzd2_3093 = 1L;
						BgL_forwardz00_3094 = BgL_arg2666z00_3275;
						BgL_bufposz00_3095 = BgL_arg2667z00_3276;
					BgL_zc3z04anonymousza32528ze3z87_3096:
						if ((BgL_forwardz00_3094 == BgL_bufposz00_3095))
							{	/* Unsafe/http.scm 385 */
								if (rgc_fill_buffer(BgL_iportz00_3092))
									{	/* Unsafe/http.scm 385 */
										long BgL_arg2531z00_3099;
										long BgL_arg2532z00_3100;

										BgL_arg2531z00_3099 = RGC_BUFFER_FORWARD(BgL_iportz00_3092);
										BgL_arg2532z00_3100 = RGC_BUFFER_BUFPOS(BgL_iportz00_3092);
										{
											long BgL_bufposz00_15271;
											long BgL_forwardz00_15270;

											BgL_forwardz00_15270 = BgL_arg2531z00_3099;
											BgL_bufposz00_15271 = BgL_arg2532z00_3100;
											BgL_bufposz00_3095 = BgL_bufposz00_15271;
											BgL_forwardz00_3094 = BgL_forwardz00_15270;
											goto BgL_zc3z04anonymousza32528ze3z87_3096;
										}
									}
								else
									{	/* Unsafe/http.scm 385 */
										BgL_matchz00_3262 = BgL_lastzd2matchzd2_3093;
									}
							}
						else
							{	/* Unsafe/http.scm 385 */
								int BgL_curz00_3101;

								BgL_curz00_3101 =
									RGC_BUFFER_GET_CHAR(BgL_iportz00_3092, BgL_forwardz00_3094);
								{	/* Unsafe/http.scm 385 */

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

										if (((long) (BgL_curz00_3101) == 9L))
											{	/* Unsafe/http.scm 385 */
												BgL_test6306z00_15273 = ((bool_t) 1);
											}
										else
											{	/* Unsafe/http.scm 385 */
												BgL_test6306z00_15273 =
													((long) (BgL_curz00_3101) == 32L);
											}
										if (BgL_test6306z00_15273)
											{	/* Unsafe/http.scm 385 */
												BgL_iportz00_3113 = BgL_iportz00_3092;
												BgL_lastzd2matchzd2_3114 = BgL_lastzd2matchzd2_3093;
												BgL_forwardz00_3115 = (1L + BgL_forwardz00_3094);
												BgL_bufposz00_3116 = BgL_bufposz00_3095;
											BgL_zc3z04anonymousza32539ze3z87_3117:
												{	/* Unsafe/http.scm 385 */
													long BgL_newzd2matchzd2_3118;

													RGC_STOP_MATCH(BgL_iportz00_3113,
														BgL_forwardz00_3115);
													BgL_newzd2matchzd2_3118 = 0L;
													if ((BgL_forwardz00_3115 == BgL_bufposz00_3116))
														{	/* Unsafe/http.scm 385 */
															if (rgc_fill_buffer(BgL_iportz00_3113))
																{	/* Unsafe/http.scm 385 */
																	long BgL_arg2545z00_3121;
																	long BgL_arg2546z00_3122;

																	BgL_arg2545z00_3121 =
																		RGC_BUFFER_FORWARD(BgL_iportz00_3113);
																	BgL_arg2546z00_3122 =
																		RGC_BUFFER_BUFPOS(BgL_iportz00_3113);
																	{
																		long BgL_bufposz00_15287;
																		long BgL_forwardz00_15286;

																		BgL_forwardz00_15286 = BgL_arg2545z00_3121;
																		BgL_bufposz00_15287 = BgL_arg2546z00_3122;
																		BgL_bufposz00_3116 = BgL_bufposz00_15287;
																		BgL_forwardz00_3115 = BgL_forwardz00_15286;
																		goto BgL_zc3z04anonymousza32539ze3z87_3117;
																	}
																}
															else
																{	/* Unsafe/http.scm 385 */
																	BgL_matchz00_3262 = BgL_newzd2matchzd2_3118;
																}
														}
													else
														{	/* Unsafe/http.scm 385 */
															int BgL_curz00_3123;

															BgL_curz00_3123 =
																RGC_BUFFER_GET_CHAR(BgL_iportz00_3113,
																BgL_forwardz00_3115);
															{	/* Unsafe/http.scm 385 */

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

																	if (((long) (BgL_curz00_3123) == 9L))
																		{	/* Unsafe/http.scm 385 */
																			BgL_test6310z00_15289 = ((bool_t) 1);
																		}
																	else
																		{	/* Unsafe/http.scm 385 */
																			BgL_test6310z00_15289 =
																				((long) (BgL_curz00_3123) == 32L);
																		}
																	if (BgL_test6310z00_15289)
																		{	/* Unsafe/http.scm 385 */
																			BgL_iportz00_3128 = BgL_iportz00_3113;
																			BgL_lastzd2matchzd2_3129 =
																				BgL_newzd2matchzd2_3118;
																			BgL_forwardz00_3130 =
																				(1L + BgL_forwardz00_3115);
																			BgL_bufposz00_3131 = BgL_bufposz00_3116;
																		BgL_zc3z04anonymousza32550ze3z87_3132:
																			{	/* Unsafe/http.scm 385 */
																				long BgL_newzd2matchzd2_3133;

																				RGC_STOP_MATCH(BgL_iportz00_3128,
																					BgL_forwardz00_3130);
																				BgL_newzd2matchzd2_3133 = 0L;
																				if (
																					(BgL_forwardz00_3130 ==
																						BgL_bufposz00_3131))
																					{	/* Unsafe/http.scm 385 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_3128))
																							{	/* Unsafe/http.scm 385 */
																								long BgL_arg2553z00_3136;
																								long BgL_arg2554z00_3137;

																								BgL_arg2553z00_3136 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_3128);
																								BgL_arg2554z00_3137 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_3128);
																								{
																									long BgL_bufposz00_15303;
																									long BgL_forwardz00_15302;

																									BgL_forwardz00_15302 =
																										BgL_arg2553z00_3136;
																									BgL_bufposz00_15303 =
																										BgL_arg2554z00_3137;
																									BgL_bufposz00_3131 =
																										BgL_bufposz00_15303;
																									BgL_forwardz00_3130 =
																										BgL_forwardz00_15302;
																									goto
																										BgL_zc3z04anonymousza32550ze3z87_3132;
																								}
																							}
																						else
																							{	/* Unsafe/http.scm 385 */
																								BgL_matchz00_3262 =
																									BgL_newzd2matchzd2_3133;
																							}
																					}
																				else
																					{	/* Unsafe/http.scm 385 */
																						int BgL_curz00_3138;

																						BgL_curz00_3138 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_3128,
																							BgL_forwardz00_3130);
																						{	/* Unsafe/http.scm 385 */

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

																								if (
																									((long) (BgL_curz00_3138) ==
																										9L))
																									{	/* Unsafe/http.scm 385 */
																										BgL_test6314z00_15305 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Unsafe/http.scm 385 */
																										BgL_test6314z00_15305 =
																											(
																											(long) (BgL_curz00_3138)
																											== 32L);
																									}
																								if (BgL_test6314z00_15305)
																									{
																										long BgL_forwardz00_15312;
																										long
																											BgL_lastzd2matchzd2_15311;
																										BgL_lastzd2matchzd2_15311 =
																											BgL_newzd2matchzd2_3133;
																										BgL_forwardz00_15312 =
																											(1L +
																											BgL_forwardz00_3130);
																										BgL_forwardz00_3130 =
																											BgL_forwardz00_15312;
																										BgL_lastzd2matchzd2_3129 =
																											BgL_lastzd2matchzd2_15311;
																										goto
																											BgL_zc3z04anonymousza32550ze3z87_3132;
																									}
																								else
																									{	/* Unsafe/http.scm 385 */
																										BgL_matchz00_3262 =
																											BgL_newzd2matchzd2_3133;
																									}
																							}
																						}
																					}
																			}
																		}
																	else
																		{	/* Unsafe/http.scm 385 */
																			BgL_matchz00_3262 =
																				BgL_newzd2matchzd2_3118;
																		}
																}
															}
														}
												}
											}
										else
											{	/* Unsafe/http.scm 385 */
												long BgL_arg2537z00_3105;

												BgL_arg2537z00_3105 = (1L + BgL_forwardz00_3094);
												{	/* Unsafe/http.scm 385 */
													long BgL_newzd2matchzd2_9978;

													RGC_STOP_MATCH(BgL_iportz00_3092,
														BgL_arg2537z00_3105);
													BgL_newzd2matchzd2_9978 = 1L;
													BgL_matchz00_3262 = BgL_newzd2matchzd2_9978;
					}}}}}}
					RGC_SET_FILEPOS(BgL_pz00_51);
					{

						switch (BgL_matchz00_3262)
							{
							case 1L:

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

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

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

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

												BgL_arg2665z00_3274 =
													BGL_CLASS_NUM
													(BGl_z62iozd2parsezd2errorz62zz__objectz00);
												BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
														BgL_new1120z00_3273), BgL_arg2665z00_3274);
											}
											BgL_new1122z00_3268 = BgL_new1120z00_3273;
										}
										((((BgL_z62exceptionz62_bglt) COBJECT(
														((BgL_z62exceptionz62_bglt) BgL_new1122z00_3268)))->
												BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
										((((BgL_z62exceptionz62_bglt)
													COBJECT(((BgL_z62exceptionz62_bglt)
															BgL_new1122z00_3268)))->BgL_locationz00) =
											((obj_t) BFALSE), BUNSPEC);
										{
											obj_t BgL_auxz00_15327;

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

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

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

														BgL_classz00_10018 =
															BGl_z62iozd2parsezd2errorz62zz__objectz00;
														BgL_arg2660z00_3270 =
															BGL_CLASS_ALL_FIELDS(BgL_classz00_10018);
													}
													BgL_arg2658z00_3269 =
														VECTOR_REF(BgL_arg2660z00_3270, 2L);
												}
												BgL_auxz00_15327 =
													BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
													(BgL_arg2658z00_3269);
											}
											((((BgL_z62exceptionz62_bglt) COBJECT(
															((BgL_z62exceptionz62_bglt)
																BgL_new1122z00_3268)))->BgL_stackz00) =
												((obj_t) BgL_auxz00_15327), BUNSPEC);
										}
										((((BgL_z62errorz62_bglt) COBJECT(
														((BgL_z62errorz62_bglt) BgL_new1122z00_3268)))->
												BgL_procz00) =
											((obj_t) BGl_string5619z00zz__httpz00), BUNSPEC);
										((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
															BgL_new1122z00_3268)))->BgL_msgz00) =
											((obj_t) BGl_string5707z00zz__httpz00), BUNSPEC);
										{
											obj_t BgL_auxz00_15337;

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

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

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

														BgL_arg2650z00_3252 =
															RGC_BUFFER_MATCH_LENGTH(BgL_pz00_51);
														BgL_test6316z00_15339 = (BgL_arg2650z00_3252 == 0L);
													}
													if (BgL_test6316z00_15339)
														{	/* Unsafe/http.scm 385 */
															BgL_arg2663z00_3271 = BEOF;
														}
													else
														{	/* Unsafe/http.scm 385 */
															BgL_arg2663z00_3271 =
																BCHAR(RGC_BUFFER_CHARACTER(BgL_pz00_51));
														}
												}
												BgL_auxz00_15337 =
													BGl_httpzd2parsezd2errorzd2msgzd2zz__httpz00
													(BgL_arg2663z00_3271, BgL_pz00_51);
											}
											((((BgL_z62errorz62_bglt) COBJECT(
															((BgL_z62errorz62_bglt) BgL_new1122z00_3268)))->
													BgL_objz00) = ((obj_t) BgL_auxz00_15337), BUNSPEC);
										}
										BgL_arg2657z00_3267 = BgL_new1122z00_3268;
									}
									return
										BGl_raisez00zz__errorz00(((obj_t) BgL_arg2657z00_3267));
								}
								break;
							case 0L:

								return BUNSPEC;
								break;
							default:
								return
									BGl_errorz00zz__errorz00(BGl_string5600z00zz__httpz00,
									BGl_string5601z00zz__httpz00, BINT(BgL_matchz00_3262));
							}
					}
				}
			}
		}

	}



/* http-read-fixnum */
	obj_t BGl_httpzd2readzd2fixnumz00zz__httpz00(obj_t BgL_pz00_53)
	{
		{	/* Unsafe/http.scm 410 */
			{
				obj_t BgL_iportz00_3682;
				long BgL_lastzd2matchzd2_3683;
				long BgL_forwardz00_3684;
				long BgL_bufposz00_3685;
				obj_t BgL_iportz00_3667;
				long BgL_lastzd2matchzd2_3668;
				long BgL_forwardz00_3669;
				long BgL_bufposz00_3670;
				obj_t BgL_iportz00_3652;
				long BgL_lastzd2matchzd2_3653;
				long BgL_forwardz00_3654;
				long BgL_bufposz00_3655;
				obj_t BgL_iportz00_3637;
				long BgL_lastzd2matchzd2_3638;
				long BgL_forwardz00_3639;
				long BgL_bufposz00_3640;
				obj_t BgL_iportz00_3612;
				long BgL_lastzd2matchzd2_3613;
				long BgL_forwardz00_3614;
				long BgL_bufposz00_3615;

			BgL_zc3z04anonymousza32987ze3z87_3815:
				RGC_START_MATCH(BgL_pz00_53);
				{	/* Unsafe/http.scm 411 */
					long BgL_matchz00_3816;

					{	/* Unsafe/http.scm 411 */
						long BgL_arg3018z00_3829;
						long BgL_arg3019z00_3830;

						BgL_arg3018z00_3829 = RGC_BUFFER_FORWARD(BgL_pz00_53);
						BgL_arg3019z00_3830 = RGC_BUFFER_BUFPOS(BgL_pz00_53);
						BgL_iportz00_3612 = BgL_pz00_53;
						BgL_lastzd2matchzd2_3613 = 2L;
						BgL_forwardz00_3614 = BgL_arg3018z00_3829;
						BgL_bufposz00_3615 = BgL_arg3019z00_3830;
					BgL_zc3z04anonymousza32817ze3z87_3616:
						if ((BgL_forwardz00_3614 == BgL_bufposz00_3615))
							{	/* Unsafe/http.scm 411 */
								if (rgc_fill_buffer(BgL_iportz00_3612))
									{	/* Unsafe/http.scm 411 */
										long BgL_arg2827z00_3619;
										long BgL_arg2829z00_3620;

										BgL_arg2827z00_3619 = RGC_BUFFER_FORWARD(BgL_iportz00_3612);
										BgL_arg2829z00_3620 = RGC_BUFFER_BUFPOS(BgL_iportz00_3612);
										{
											long BgL_bufposz00_15361;
											long BgL_forwardz00_15360;

											BgL_forwardz00_15360 = BgL_arg2827z00_3619;
											BgL_bufposz00_15361 = BgL_arg2829z00_3620;
											BgL_bufposz00_3615 = BgL_bufposz00_15361;
											BgL_forwardz00_3614 = BgL_forwardz00_15360;
											goto BgL_zc3z04anonymousza32817ze3z87_3616;
										}
									}
								else
									{	/* Unsafe/http.scm 411 */
										BgL_matchz00_3816 = BgL_lastzd2matchzd2_3613;
									}
							}
						else
							{	/* Unsafe/http.scm 411 */
								int BgL_curz00_3621;

								BgL_curz00_3621 =
									RGC_BUFFER_GET_CHAR(BgL_iportz00_3612, BgL_forwardz00_3614);
								{	/* Unsafe/http.scm 411 */

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

										if (((long) (BgL_curz00_3621) >= 48L))
											{	/* Unsafe/http.scm 411 */
												BgL_test6319z00_15363 =
													((long) (BgL_curz00_3621) < 58L);
											}
										else
											{	/* Unsafe/http.scm 411 */
												BgL_test6319z00_15363 = ((bool_t) 0);
											}
										if (BgL_test6319z00_15363)
											{	/* Unsafe/http.scm 411 */
												BgL_iportz00_3652 = BgL_iportz00_3612;
												BgL_lastzd2matchzd2_3653 = BgL_lastzd2matchzd2_3613;
												BgL_forwardz00_3654 = (1L + BgL_forwardz00_3614);
												BgL_bufposz00_3655 = BgL_bufposz00_3615;
											BgL_zc3z04anonymousza32846ze3z87_3656:
												{	/* Unsafe/http.scm 411 */
													long BgL_newzd2matchzd2_3657;

													RGC_STOP_MATCH(BgL_iportz00_3652,
														BgL_forwardz00_3654);
													BgL_newzd2matchzd2_3657 = 0L;
													if ((BgL_forwardz00_3654 == BgL_bufposz00_3655))
														{	/* Unsafe/http.scm 411 */
															if (rgc_fill_buffer(BgL_iportz00_3652))
																{	/* Unsafe/http.scm 411 */
																	long BgL_arg2851z00_3660;
																	long BgL_arg2852z00_3661;

																	BgL_arg2851z00_3660 =
																		RGC_BUFFER_FORWARD(BgL_iportz00_3652);
																	BgL_arg2852z00_3661 =
																		RGC_BUFFER_BUFPOS(BgL_iportz00_3652);
																	{
																		long BgL_bufposz00_15377;
																		long BgL_forwardz00_15376;

																		BgL_forwardz00_15376 = BgL_arg2851z00_3660;
																		BgL_bufposz00_15377 = BgL_arg2852z00_3661;
																		BgL_bufposz00_3655 = BgL_bufposz00_15377;
																		BgL_forwardz00_3654 = BgL_forwardz00_15376;
																		goto BgL_zc3z04anonymousza32846ze3z87_3656;
																	}
																}
															else
																{	/* Unsafe/http.scm 411 */
																	BgL_matchz00_3816 = BgL_newzd2matchzd2_3657;
																}
														}
													else
														{	/* Unsafe/http.scm 411 */
															int BgL_curz00_3662;

															BgL_curz00_3662 =
																RGC_BUFFER_GET_CHAR(BgL_iportz00_3652,
																BgL_forwardz00_3654);
															{	/* Unsafe/http.scm 411 */

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

																	if (((long) (BgL_curz00_3662) >= 48L))
																		{	/* Unsafe/http.scm 411 */
																			BgL_test6323z00_15379 =
																				((long) (BgL_curz00_3662) < 58L);
																		}
																	else
																		{	/* Unsafe/http.scm 411 */
																			BgL_test6323z00_15379 = ((bool_t) 0);
																		}
																	if (BgL_test6323z00_15379)
																		{	/* Unsafe/http.scm 411 */
																			BgL_iportz00_3667 = BgL_iportz00_3652;
																			BgL_lastzd2matchzd2_3668 =
																				BgL_newzd2matchzd2_3657;
																			BgL_forwardz00_3669 =
																				(1L + BgL_forwardz00_3654);
																			BgL_bufposz00_3670 = BgL_bufposz00_3655;
																		BgL_zc3z04anonymousza32856ze3z87_3671:
																			{	/* Unsafe/http.scm 411 */
																				long BgL_newzd2matchzd2_3672;

																				RGC_STOP_MATCH(BgL_iportz00_3667,
																					BgL_forwardz00_3669);
																				BgL_newzd2matchzd2_3672 = 0L;
																				if (
																					(BgL_forwardz00_3669 ==
																						BgL_bufposz00_3670))
																					{	/* Unsafe/http.scm 411 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_3667))
																							{	/* Unsafe/http.scm 411 */
																								long BgL_arg2859z00_3675;
																								long BgL_arg2860z00_3676;

																								BgL_arg2859z00_3675 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_3667);
																								BgL_arg2860z00_3676 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_3667);
																								{
																									long BgL_bufposz00_15393;
																									long BgL_forwardz00_15392;

																									BgL_forwardz00_15392 =
																										BgL_arg2859z00_3675;
																									BgL_bufposz00_15393 =
																										BgL_arg2860z00_3676;
																									BgL_bufposz00_3670 =
																										BgL_bufposz00_15393;
																									BgL_forwardz00_3669 =
																										BgL_forwardz00_15392;
																									goto
																										BgL_zc3z04anonymousza32856ze3z87_3671;
																								}
																							}
																						else
																							{	/* Unsafe/http.scm 411 */
																								BgL_matchz00_3816 =
																									BgL_newzd2matchzd2_3672;
																							}
																					}
																				else
																					{	/* Unsafe/http.scm 411 */
																						int BgL_curz00_3677;

																						BgL_curz00_3677 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_3667,
																							BgL_forwardz00_3669);
																						{	/* Unsafe/http.scm 411 */

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

																								if (
																									((long) (BgL_curz00_3677) >=
																										48L))
																									{	/* Unsafe/http.scm 411 */
																										BgL_test6327z00_15395 =
																											(
																											(long) (BgL_curz00_3677) <
																											58L);
																									}
																								else
																									{	/* Unsafe/http.scm 411 */
																										BgL_test6327z00_15395 =
																											((bool_t) 0);
																									}
																								if (BgL_test6327z00_15395)
																									{
																										long BgL_forwardz00_15402;
																										long
																											BgL_lastzd2matchzd2_15401;
																										BgL_lastzd2matchzd2_15401 =
																											BgL_newzd2matchzd2_3672;
																										BgL_forwardz00_15402 =
																											(1L +
																											BgL_forwardz00_3669);
																										BgL_forwardz00_3669 =
																											BgL_forwardz00_15402;
																										BgL_lastzd2matchzd2_3668 =
																											BgL_lastzd2matchzd2_15401;
																										goto
																											BgL_zc3z04anonymousza32856ze3z87_3671;
																									}
																								else
																									{	/* Unsafe/http.scm 411 */
																										BgL_matchz00_3816 =
																											BgL_newzd2matchzd2_3672;
																									}
																							}
																						}
																					}
																			}
																		}
																	else
																		{	/* Unsafe/http.scm 411 */
																			BgL_matchz00_3816 =
																				BgL_newzd2matchzd2_3657;
																		}
																}
															}
														}
												}
											}
										else
											{	/* Unsafe/http.scm 411 */
												bool_t BgL_test6329z00_15406;

												if (((long) (BgL_curz00_3621) == 9L))
													{	/* Unsafe/http.scm 411 */
														BgL_test6329z00_15406 = ((bool_t) 1);
													}
												else
													{	/* Unsafe/http.scm 411 */
														BgL_test6329z00_15406 =
															((long) (BgL_curz00_3621) == 32L);
													}
												if (BgL_test6329z00_15406)
													{	/* Unsafe/http.scm 411 */
														BgL_iportz00_3637 = BgL_iportz00_3612;
														BgL_lastzd2matchzd2_3638 = BgL_lastzd2matchzd2_3613;
														BgL_forwardz00_3639 = (1L + BgL_forwardz00_3614);
														BgL_bufposz00_3640 = BgL_bufposz00_3615;
													BgL_zc3z04anonymousza32838ze3z87_3641:
														{	/* Unsafe/http.scm 411 */
															long BgL_newzd2matchzd2_3642;

															RGC_STOP_MATCH(BgL_iportz00_3637,
																BgL_forwardz00_3639);
															BgL_newzd2matchzd2_3642 = 1L;
															if ((BgL_forwardz00_3639 == BgL_bufposz00_3640))
																{	/* Unsafe/http.scm 411 */
																	if (rgc_fill_buffer(BgL_iportz00_3637))
																		{	/* Unsafe/http.scm 411 */
																			long BgL_arg2841z00_3645;
																			long BgL_arg2842z00_3646;

																			BgL_arg2841z00_3645 =
																				RGC_BUFFER_FORWARD(BgL_iportz00_3637);
																			BgL_arg2842z00_3646 =
																				RGC_BUFFER_BUFPOS(BgL_iportz00_3637);
																			{
																				long BgL_bufposz00_15420;
																				long BgL_forwardz00_15419;

																				BgL_forwardz00_15419 =
																					BgL_arg2841z00_3645;
																				BgL_bufposz00_15420 =
																					BgL_arg2842z00_3646;
																				BgL_bufposz00_3640 =
																					BgL_bufposz00_15420;
																				BgL_forwardz00_3639 =
																					BgL_forwardz00_15419;
																				goto
																					BgL_zc3z04anonymousza32838ze3z87_3641;
																			}
																		}
																	else
																		{	/* Unsafe/http.scm 411 */
																			BgL_matchz00_3816 =
																				BgL_newzd2matchzd2_3642;
																		}
																}
															else
																{	/* Unsafe/http.scm 411 */
																	int BgL_curz00_3647;

																	BgL_curz00_3647 =
																		RGC_BUFFER_GET_CHAR(BgL_iportz00_3637,
																		BgL_forwardz00_3639);
																	{	/* Unsafe/http.scm 411 */

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

																			if (((long) (BgL_curz00_3647) == 9L))
																				{	/* Unsafe/http.scm 411 */
																					BgL_test6333z00_15422 = ((bool_t) 1);
																				}
																			else
																				{	/* Unsafe/http.scm 411 */
																					BgL_test6333z00_15422 =
																						((long) (BgL_curz00_3647) == 32L);
																				}
																			if (BgL_test6333z00_15422)
																				{	/* Unsafe/http.scm 411 */
																					BgL_iportz00_3682 = BgL_iportz00_3637;
																					BgL_lastzd2matchzd2_3683 =
																						BgL_newzd2matchzd2_3642;
																					BgL_forwardz00_3684 =
																						(1L + BgL_forwardz00_3639);
																					BgL_bufposz00_3685 =
																						BgL_bufposz00_3640;
																				BgL_zc3z04anonymousza32864ze3z87_3686:
																					{	/* Unsafe/http.scm 411 */
																						long BgL_newzd2matchzd2_3687;

																						RGC_STOP_MATCH(BgL_iportz00_3682,
																							BgL_forwardz00_3684);
																						BgL_newzd2matchzd2_3687 = 1L;
																						if (
																							(BgL_forwardz00_3684 ==
																								BgL_bufposz00_3685))
																							{	/* Unsafe/http.scm 411 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_3682))
																									{	/* Unsafe/http.scm 411 */
																										long BgL_arg2868z00_3690;
																										long BgL_arg2870z00_3691;

																										BgL_arg2868z00_3690 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_3682);
																										BgL_arg2870z00_3691 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_3682);
																										{
																											long BgL_bufposz00_15436;
																											long BgL_forwardz00_15435;

																											BgL_forwardz00_15435 =
																												BgL_arg2868z00_3690;
																											BgL_bufposz00_15436 =
																												BgL_arg2870z00_3691;
																											BgL_bufposz00_3685 =
																												BgL_bufposz00_15436;
																											BgL_forwardz00_3684 =
																												BgL_forwardz00_15435;
																											goto
																												BgL_zc3z04anonymousza32864ze3z87_3686;
																										}
																									}
																								else
																									{	/* Unsafe/http.scm 411 */
																										BgL_matchz00_3816 =
																											BgL_newzd2matchzd2_3687;
																									}
																							}
																						else
																							{	/* Unsafe/http.scm 411 */
																								int BgL_curz00_3692;

																								BgL_curz00_3692 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_3682,
																									BgL_forwardz00_3684);
																								{	/* Unsafe/http.scm 411 */

																									{	/* Unsafe/http.scm 411 */
																										bool_t
																											BgL_test6337z00_15438;
																										if (((long)
																												(BgL_curz00_3692) ==
																												9L))
																											{	/* Unsafe/http.scm 411 */
																												BgL_test6337z00_15438 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Unsafe/http.scm 411 */
																												BgL_test6337z00_15438 =
																													(
																													(long)
																													(BgL_curz00_3692) ==
																													32L);
																											}
																										if (BgL_test6337z00_15438)
																											{
																												long
																													BgL_forwardz00_15445;
																												long
																													BgL_lastzd2matchzd2_15444;
																												BgL_lastzd2matchzd2_15444
																													=
																													BgL_newzd2matchzd2_3687;
																												BgL_forwardz00_15445 =
																													(1L +
																													BgL_forwardz00_3684);
																												BgL_forwardz00_3684 =
																													BgL_forwardz00_15445;
																												BgL_lastzd2matchzd2_3683
																													=
																													BgL_lastzd2matchzd2_15444;
																												goto
																													BgL_zc3z04anonymousza32864ze3z87_3686;
																											}
																										else
																											{	/* Unsafe/http.scm 411 */
																												BgL_matchz00_3816 =
																													BgL_newzd2matchzd2_3687;
																											}
																									}
																								}
																							}
																					}
																				}
																			else
																				{	/* Unsafe/http.scm 411 */
																					BgL_matchz00_3816 =
																						BgL_newzd2matchzd2_3642;
																				}
																		}
																	}
																}
														}
													}
												else
													{	/* Unsafe/http.scm 411 */
														long BgL_arg2836z00_3628;

														BgL_arg2836z00_3628 = (1L + BgL_forwardz00_3614);
														{	/* Unsafe/http.scm 411 */
															long BgL_newzd2matchzd2_10035;

															RGC_STOP_MATCH(BgL_iportz00_3612,
																BgL_arg2836z00_3628);
															BgL_newzd2matchzd2_10035 = 2L;
															BgL_matchz00_3816 = BgL_newzd2matchzd2_10035;
					}}}}}}}
					RGC_SET_FILEPOS(BgL_pz00_53);
					{

						switch (BgL_matchz00_3816)
							{
							case 2L:

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

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

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

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

												BgL_arg3015z00_3828 =
													BGL_CLASS_NUM
													(BGl_z62iozd2parsezd2errorz62zz__objectz00);
												BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
														BgL_new1141z00_3827), BgL_arg3015z00_3828);
											}
											BgL_new1142z00_3822 = BgL_new1141z00_3827;
										}
										((((BgL_z62exceptionz62_bglt) COBJECT(
														((BgL_z62exceptionz62_bglt) BgL_new1142z00_3822)))->
												BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
										((((BgL_z62exceptionz62_bglt)
													COBJECT(((BgL_z62exceptionz62_bglt)
															BgL_new1142z00_3822)))->BgL_locationz00) =
											((obj_t) BFALSE), BUNSPEC);
										{
											obj_t BgL_auxz00_15460;

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

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

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

														BgL_classz00_10100 =
															BGl_z62iozd2parsezd2errorz62zz__objectz00;
														BgL_arg2998z00_3824 =
															BGL_CLASS_ALL_FIELDS(BgL_classz00_10100);
													}
													BgL_arg2992z00_3823 =
														VECTOR_REF(BgL_arg2998z00_3824, 2L);
												}
												BgL_auxz00_15460 =
													BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
													(BgL_arg2992z00_3823);
											}
											((((BgL_z62exceptionz62_bglt) COBJECT(
															((BgL_z62exceptionz62_bglt)
																BgL_new1142z00_3822)))->BgL_stackz00) =
												((obj_t) BgL_auxz00_15460), BUNSPEC);
										}
										((((BgL_z62errorz62_bglt) COBJECT(
														((BgL_z62errorz62_bglt) BgL_new1142z00_3822)))->
												BgL_procz00) =
											((obj_t) BGl_string5619z00zz__httpz00), BUNSPEC);
										((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
															BgL_new1142z00_3822)))->BgL_msgz00) =
											((obj_t) BGl_string5708z00zz__httpz00), BUNSPEC);
										{
											obj_t BgL_auxz00_15470;

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

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

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

														BgL_arg2981z00_3806 =
															RGC_BUFFER_MATCH_LENGTH(BgL_pz00_53);
														BgL_test6339z00_15472 = (BgL_arg2981z00_3806 == 0L);
													}
													if (BgL_test6339z00_15472)
														{	/* Unsafe/http.scm 411 */
															BgL_arg3013z00_3825 = BEOF;
														}
													else
														{	/* Unsafe/http.scm 411 */
															BgL_arg3013z00_3825 =
																BCHAR(RGC_BUFFER_CHARACTER(BgL_pz00_53));
														}
												}
												BgL_auxz00_15470 =
													BGl_httpzd2parsezd2errorzd2msgzd2zz__httpz00
													(BgL_arg3013z00_3825, BgL_pz00_53);
											}
											((((BgL_z62errorz62_bglt) COBJECT(
															((BgL_z62errorz62_bglt) BgL_new1142z00_3822)))->
													BgL_objz00) = ((obj_t) BgL_auxz00_15470), BUNSPEC);
										}
										BgL_arg2991z00_3821 = BgL_new1142z00_3822;
									}
									return
										BGl_raisez00zz__errorz00(((obj_t) BgL_arg2991z00_3821));
								}
								break;
							case 1L:

								goto BgL_zc3z04anonymousza32987ze3z87_3815;
								break;
							case 0L:

								return BINT(rgc_buffer_fixnum(BgL_pz00_53));
								break;
							default:
								return
									BGl_errorz00zz__errorz00(BGl_string5600z00zz__httpz00,
									BGl_string5601z00zz__httpz00, BINT(BgL_matchz00_3816));
							}
					}
				}
			}
		}

	}



/* 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_6606;

				{
					obj_t BgL_iportz00_6037;

					{
						obj_t BgL_iportz00_5737;

						{
							obj_t BgL_iportz00_5332;

							{
								obj_t BgL_iportz00_4489;

								{
									obj_t BgL_iportz00_3876;
									obj_t BgL_poz00_3877;
									obj_t BgL_headerz00_3878;
									obj_t BgL_hostnamez00_3879;
									obj_t BgL_portz00_3880;
									obj_t BgL_contentzd2lengthzd2_3881;
									obj_t BgL_transferzd2encodingzd2_3882;
									obj_t BgL_authoriza7ationza7_3883;
									obj_t BgL_proxyzd2authoriza7ationz75_3884;
									obj_t BgL_connectionz00_3885;

									BgL_iportz00_3876 = BgL_pz00_54;
									BgL_poz00_3877 = BgL_poz00_55;
									BgL_headerz00_3878 = BNIL;
									BgL_hostnamez00_3879 = BFALSE;
									BgL_portz00_3880 = BFALSE;
									BgL_contentzd2lengthzd2_3881 = BGl_elong5728z00zz__httpz00;
									BgL_transferzd2encodingzd2_3882 = BFALSE;
									BgL_authoriza7ationza7_3883 = BFALSE;
									BgL_proxyzd2authoriza7ationz75_3884 = BFALSE;
									BgL_connectionz00_3885 = BFALSE;
									{
										obj_t BgL_iportz00_3943;
										long BgL_lastzd2matchzd2_3944;
										long BgL_forwardz00_3945;
										long BgL_bufposz00_3946;
										obj_t BgL_iportz00_3972;
										long BgL_lastzd2matchzd2_3973;
										long BgL_forwardz00_3974;
										long BgL_bufposz00_3975;
										obj_t BgL_iportz00_3993;
										long BgL_lastzd2matchzd2_3994;
										long BgL_forwardz00_3995;
										long BgL_bufposz00_3996;
										obj_t BgL_iportz00_4019;
										long BgL_lastzd2matchzd2_4020;
										long BgL_forwardz00_4021;
										long BgL_bufposz00_4022;
										obj_t BgL_iportz00_4040;
										long BgL_lastzd2matchzd2_4041;
										long BgL_forwardz00_4042;
										long BgL_bufposz00_4043;
										obj_t BgL_iportz00_4066;
										long BgL_lastzd2matchzd2_4067;
										long BgL_forwardz00_4068;
										long BgL_bufposz00_4069;
										obj_t BgL_iportz00_4099;
										long BgL_lastzd2matchzd2_4100;
										long BgL_forwardz00_4101;
										long BgL_bufposz00_4102;
										obj_t BgL_iportz00_4124;
										long BgL_lastzd2matchzd2_4125;
										long BgL_forwardz00_4126;
										long BgL_bufposz00_4127;
										obj_t BgL_iportz00_4143;
										long BgL_lastzd2matchzd2_4144;
										long BgL_forwardz00_4145;
										long BgL_bufposz00_4146;
										obj_t BgL_iportz00_4173;
										long BgL_lastzd2matchzd2_4174;
										long BgL_forwardz00_4175;
										long BgL_bufposz00_4176;
										obj_t BgL_iportz00_4203;
										long BgL_lastzd2matchzd2_4204;
										long BgL_forwardz00_4205;
										long BgL_bufposz00_4206;

									BgL_zc3z04anonymousza33376ze3z87_4352:
										RGC_START_MATCH(BgL_iportz00_3876);
										{	/* Unsafe/http.scm 506 */
											long BgL_matchz00_4353;

											{	/* Unsafe/http.scm 506 */
												long BgL_arg3450z00_4441;
												long BgL_arg3451z00_4442;

												BgL_arg3450z00_4441 =
													RGC_BUFFER_FORWARD(BgL_iportz00_3876);
												BgL_arg3451z00_4442 =
													RGC_BUFFER_BUFPOS(BgL_iportz00_3876);
												BgL_iportz00_3972 = BgL_iportz00_3876;
												BgL_lastzd2matchzd2_3973 = 2L;
												BgL_forwardz00_3974 = BgL_arg3450z00_4441;
												BgL_bufposz00_3975 = BgL_arg3451z00_4442;
											BgL_zc3z04anonymousza33048ze3z87_3976:
												if ((BgL_forwardz00_3974 == BgL_bufposz00_3975))
													{	/* Unsafe/http.scm 506 */
														if (rgc_fill_buffer(BgL_iportz00_3972))
															{	/* Unsafe/http.scm 506 */
																long BgL_arg3055z00_3979;
																long BgL_arg3056z00_3980;

																BgL_arg3055z00_3979 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_3972);
																BgL_arg3056z00_3980 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_3972);
																{
																	long BgL_bufposz00_15496;
																	long BgL_forwardz00_15495;

																	BgL_forwardz00_15495 = BgL_arg3055z00_3979;
																	BgL_bufposz00_15496 = BgL_arg3056z00_3980;
																	BgL_bufposz00_3975 = BgL_bufposz00_15496;
																	BgL_forwardz00_3974 = BgL_forwardz00_15495;
																	goto BgL_zc3z04anonymousza33048ze3z87_3976;
																}
															}
														else
															{	/* Unsafe/http.scm 506 */
																BgL_matchz00_4353 = BgL_lastzd2matchzd2_3973;
															}
													}
												else
													{	/* Unsafe/http.scm 506 */
														int BgL_curz00_3981;

														BgL_curz00_3981 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_3972,
															BgL_forwardz00_3974);
														{	/* Unsafe/http.scm 506 */

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

																	BgL_arg3071z00_3983 =
																		(1L + BgL_forwardz00_3974);
																	{	/* Unsafe/http.scm 506 */
																		long BgL_newzd2matchzd2_11274;

																		RGC_STOP_MATCH(BgL_iportz00_3972,
																			BgL_arg3071z00_3983);
																		BgL_newzd2matchzd2_11274 = 2L;
																		BgL_matchz00_4353 =
																			BgL_newzd2matchzd2_11274;
																}}
															else
																{	/* Unsafe/http.scm 506 */
																	if (((long) (BgL_curz00_3981) == 32L))
																		{	/* Unsafe/http.scm 506 */
																			BgL_iportz00_4173 = BgL_iportz00_3972;
																			BgL_lastzd2matchzd2_4174 =
																				BgL_lastzd2matchzd2_3973;
																			BgL_forwardz00_4175 =
																				(1L + BgL_forwardz00_3974);
																			BgL_bufposz00_4176 = BgL_bufposz00_3975;
																		BgL_zc3z04anonymousza33223ze3z87_4177:
																			{	/* Unsafe/http.scm 506 */
																				long BgL_newzd2matchzd2_4178;

																				RGC_STOP_MATCH(BgL_iportz00_4173,
																					BgL_forwardz00_4175);
																				BgL_newzd2matchzd2_4178 = 2L;
																				if (
																					(BgL_forwardz00_4175 ==
																						BgL_bufposz00_4176))
																					{	/* Unsafe/http.scm 506 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_4173))
																							{	/* Unsafe/http.scm 506 */
																								long BgL_arg3226z00_4181;
																								long BgL_arg3227z00_4182;

																								BgL_arg3226z00_4181 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_4173);
																								BgL_arg3227z00_4182 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_4173);
																								{
																									long BgL_bufposz00_15514;
																									long BgL_forwardz00_15513;

																									BgL_forwardz00_15513 =
																										BgL_arg3226z00_4181;
																									BgL_bufposz00_15514 =
																										BgL_arg3227z00_4182;
																									BgL_bufposz00_4176 =
																										BgL_bufposz00_15514;
																									BgL_forwardz00_4175 =
																										BgL_forwardz00_15513;
																									goto
																										BgL_zc3z04anonymousza33223ze3z87_4177;
																								}
																							}
																						else
																							{	/* Unsafe/http.scm 506 */
																								BgL_matchz00_4353 =
																									BgL_newzd2matchzd2_4178;
																							}
																					}
																				else
																					{	/* Unsafe/http.scm 506 */
																						int BgL_curz00_4183;

																						BgL_curz00_4183 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_4173,
																							BgL_forwardz00_4175);
																						{	/* Unsafe/http.scm 506 */

																							if (
																								((long) (BgL_curz00_4183) ==
																									13L))
																								{	/* Unsafe/http.scm 506 */
																									BgL_iportz00_4066 =
																										BgL_iportz00_4173;
																									BgL_lastzd2matchzd2_4067 =
																										BgL_newzd2matchzd2_4178;
																									BgL_forwardz00_4068 =
																										(1L + BgL_forwardz00_4175);
																									BgL_bufposz00_4069 =
																										BgL_bufposz00_4176;
																								BgL_zc3z04anonymousza33149ze3z87_4070:
																									if (
																										(BgL_forwardz00_4068 ==
																											BgL_bufposz00_4069))
																										{	/* Unsafe/http.scm 506 */
																											if (rgc_fill_buffer
																												(BgL_iportz00_4066))
																												{	/* Unsafe/http.scm 506 */
																													long
																														BgL_arg3154z00_4073;
																													long
																														BgL_arg3157z00_4074;
																													BgL_arg3154z00_4073 =
																														RGC_BUFFER_FORWARD
																														(BgL_iportz00_4066);
																													BgL_arg3157z00_4074 =
																														RGC_BUFFER_BUFPOS
																														(BgL_iportz00_4066);
																													{
																														long
																															BgL_bufposz00_15526;
																														long
																															BgL_forwardz00_15525;
																														BgL_forwardz00_15525
																															=
																															BgL_arg3154z00_4073;
																														BgL_bufposz00_15526
																															=
																															BgL_arg3157z00_4074;
																														BgL_bufposz00_4069 =
																															BgL_bufposz00_15526;
																														BgL_forwardz00_4068
																															=
																															BgL_forwardz00_15525;
																														goto
																															BgL_zc3z04anonymousza33149ze3z87_4070;
																													}
																												}
																											else
																												{	/* Unsafe/http.scm 506 */
																													BgL_matchz00_4353 =
																														BgL_lastzd2matchzd2_4067;
																												}
																										}
																									else
																										{	/* Unsafe/http.scm 506 */
																											int BgL_curz00_4075;

																											BgL_curz00_4075 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_iportz00_4066,
																												BgL_forwardz00_4068);
																											{	/* Unsafe/http.scm 506 */

																												if (
																													((long)
																														(BgL_curz00_4075) ==
																														58L))
																													{	/* Unsafe/http.scm 506 */
																														long
																															BgL_arg3159z00_4077;
																														BgL_arg3159z00_4077
																															=
																															(1L +
																															BgL_forwardz00_4068);
																														{	/* Unsafe/http.scm 506 */
																															long
																																BgL_newzd2matchzd2_11426;
																															RGC_STOP_MATCH
																																(BgL_iportz00_4066,
																																BgL_arg3159z00_4077);
																															BgL_newzd2matchzd2_11426
																																= 0L;
																															BgL_matchz00_4353
																																=
																																BgL_newzd2matchzd2_11426;
																													}}
																												else
																													{	/* Unsafe/http.scm 506 */
																														if (
																															((long)
																																(BgL_curz00_4075)
																																== 32L))
																															{	/* Unsafe/http.scm 506 */
																																long
																																	BgL_arg3161z00_4079;
																																BgL_arg3161z00_4079
																																	=
																																	(1L +
																																	BgL_forwardz00_4068);
																																{
																																	long
																																		BgL_forwardz00_11432;
																																	long
																																		BgL_bufposz00_11433;
																																	BgL_forwardz00_11432
																																		=
																																		BgL_arg3161z00_4079;
																																	BgL_bufposz00_11433
																																		=
																																		BgL_bufposz00_4069;
																																BgL_statezd213zd21266z00_11431:
																																	if (
																																		(BgL_forwardz00_11432
																																			==
																																			BgL_bufposz00_11433))
																																		{	/* Unsafe/http.scm 506 */
																																			if (rgc_fill_buffer(BgL_iportz00_4066))
																																				{	/* Unsafe/http.scm 506 */
																																					long
																																						BgL_arg3024z00_11436;
																																					long
																																						BgL_arg3025z00_11437;
																																					BgL_arg3024z00_11436
																																						=
																																						RGC_BUFFER_FORWARD
																																						(BgL_iportz00_4066);
																																					BgL_arg3025z00_11437
																																						=
																																						RGC_BUFFER_BUFPOS
																																						(BgL_iportz00_4066);
																																					{
																																						long
																																							BgL_bufposz00_15544;
																																						long
																																							BgL_forwardz00_15543;
																																						BgL_forwardz00_15543
																																							=
																																							BgL_arg3024z00_11436;
																																						BgL_bufposz00_15544
																																							=
																																							BgL_arg3025z00_11437;
																																						BgL_bufposz00_11433
																																							=
																																							BgL_bufposz00_15544;
																																						BgL_forwardz00_11432
																																							=
																																							BgL_forwardz00_15543;
																																						goto
																																							BgL_statezd213zd21266z00_11431;
																																					}
																																				}
																																			else
																																				{	/* Unsafe/http.scm 506 */
																																					BgL_matchz00_4353
																																						=
																																						BgL_lastzd2matchzd2_4067;
																																				}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 506 */
																																			int
																																				BgL_curz00_11438;
																																			BgL_curz00_11438
																																				=
																																				RGC_BUFFER_GET_CHAR
																																				(BgL_iportz00_4066,
																																				BgL_forwardz00_11432);
																																			{	/* Unsafe/http.scm 506 */

																																				if (
																																					((long) (BgL_curz00_11438) == 58L))
																																					{	/* Unsafe/http.scm 506 */
																																						BgL_matchz00_4353
																																							=
																																							BgL_lastzd2matchzd2_4067;
																																					}
																																				else
																																					{	/* Unsafe/http.scm 506 */
																																						BgL_iportz00_4203
																																							=
																																							BgL_iportz00_4066;
																																						BgL_lastzd2matchzd2_4204
																																							=
																																							BgL_lastzd2matchzd2_4067;
																																						BgL_forwardz00_4205
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_11432);
																																						BgL_bufposz00_4206
																																							=
																																							BgL_bufposz00_11433;
																																					BgL_zc3z04anonymousza33245ze3z87_4207:
																																						if (
																																							(BgL_forwardz00_4205
																																								==
																																								BgL_bufposz00_4206))
																																							{	/* Unsafe/http.scm 506 */
																																								if (rgc_fill_buffer(BgL_iportz00_4203))
																																									{	/* Unsafe/http.scm 506 */
																																										long
																																											BgL_arg3254z00_4210;
																																										long
																																											BgL_arg3255z00_4211;
																																										BgL_arg3254z00_4210
																																											=
																																											RGC_BUFFER_FORWARD
																																											(BgL_iportz00_4203);
																																										BgL_arg3255z00_4211
																																											=
																																											RGC_BUFFER_BUFPOS
																																											(BgL_iportz00_4203);
																																										{
																																											long
																																												BgL_bufposz00_15556;
																																											long
																																												BgL_forwardz00_15555;
																																											BgL_forwardz00_15555
																																												=
																																												BgL_arg3254z00_4210;
																																											BgL_bufposz00_15556
																																												=
																																												BgL_arg3255z00_4211;
																																											BgL_bufposz00_4206
																																												=
																																												BgL_bufposz00_15556;
																																											BgL_forwardz00_4205
																																												=
																																												BgL_forwardz00_15555;
																																											goto
																																												BgL_zc3z04anonymousza33245ze3z87_4207;
																																										}
																																									}
																																								else
																																									{	/* Unsafe/http.scm 506 */
																																										BgL_matchz00_4353
																																											=
																																											BgL_lastzd2matchzd2_4204;
																																									}
																																							}
																																						else
																																							{	/* Unsafe/http.scm 506 */
																																								int
																																									BgL_curz00_4212;
																																								BgL_curz00_4212
																																									=
																																									RGC_BUFFER_GET_CHAR
																																									(BgL_iportz00_4203,
																																									BgL_forwardz00_4205);
																																								{	/* Unsafe/http.scm 506 */

																																									if (((long) (BgL_curz00_4212) == 58L))
																																										{	/* Unsafe/http.scm 506 */
																																											long
																																												BgL_arg3258z00_4214;
																																											BgL_arg3258z00_4214
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_4205);
																																											{	/* Unsafe/http.scm 506 */
																																												long
																																													BgL_newzd2matchzd2_11633;
																																												RGC_STOP_MATCH
																																													(BgL_iportz00_4203,
																																													BgL_arg3258z00_4214);
																																												BgL_newzd2matchzd2_11633
																																													=
																																													0L;
																																												BgL_matchz00_4353
																																													=
																																													BgL_newzd2matchzd2_11633;
																																										}}
																																									else
																																										{	/* Unsafe/http.scm 506 */
																																											if (((long) (BgL_curz00_4212) == 32L))
																																												{	/* Unsafe/http.scm 506 */
																																													long
																																														BgL_arg3260z00_4216;
																																													BgL_arg3260z00_4216
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_4205);
																																													{
																																														long
																																															BgL_forwardz00_11639;
																																														long
																																															BgL_bufposz00_11640;
																																														BgL_forwardz00_11639
																																															=
																																															BgL_arg3260z00_4216;
																																														BgL_bufposz00_11640
																																															=
																																															BgL_bufposz00_4206;
																																													BgL_statezd213zd21266z00_11638:
																																														if ((BgL_forwardz00_11639 == BgL_bufposz00_11640))
																																															{	/* Unsafe/http.scm 506 */
																																																if (rgc_fill_buffer(BgL_iportz00_4203))
																																																	{	/* Unsafe/http.scm 506 */
																																																		long
																																																			BgL_arg3024z00_11643;
																																																		long
																																																			BgL_arg3025z00_11644;
																																																		BgL_arg3024z00_11643
																																																			=
																																																			RGC_BUFFER_FORWARD
																																																			(BgL_iportz00_4203);
																																																		BgL_arg3025z00_11644
																																																			=
																																																			RGC_BUFFER_BUFPOS
																																																			(BgL_iportz00_4203);
																																																		{
																																																			long
																																																				BgL_bufposz00_15574;
																																																			long
																																																				BgL_forwardz00_15573;
																																																			BgL_forwardz00_15573
																																																				=
																																																				BgL_arg3024z00_11643;
																																																			BgL_bufposz00_15574
																																																				=
																																																				BgL_arg3025z00_11644;
																																																			BgL_bufposz00_11640
																																																				=
																																																				BgL_bufposz00_15574;
																																																			BgL_forwardz00_11639
																																																				=
																																																				BgL_forwardz00_15573;
																																																			goto
																																																				BgL_statezd213zd21266z00_11638;
																																																		}
																																																	}
																																																else
																																																	{	/* Unsafe/http.scm 506 */
																																																		BgL_matchz00_4353
																																																			=
																																																			BgL_lastzd2matchzd2_4204;
																																																	}
																																															}
																																														else
																																															{	/* Unsafe/http.scm 506 */
																																																int
																																																	BgL_curz00_11645;
																																																BgL_curz00_11645
																																																	=
																																																	RGC_BUFFER_GET_CHAR
																																																	(BgL_iportz00_4203,
																																																	BgL_forwardz00_11639);
																																																{	/* Unsafe/http.scm 506 */

																																																	if (((long) (BgL_curz00_11645) == 58L))
																																																		{	/* Unsafe/http.scm 506 */
																																																			BgL_matchz00_4353
																																																				=
																																																				BgL_lastzd2matchzd2_4204;
																																																		}
																																																	else
																																																		{
																																																			long
																																																				BgL_bufposz00_15581;
																																																			long
																																																				BgL_forwardz00_15579;
																																																			BgL_forwardz00_15579
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_11639);
																																																			BgL_bufposz00_15581
																																																				=
																																																				BgL_bufposz00_11640;
																																																			BgL_bufposz00_4206
																																																				=
																																																				BgL_bufposz00_15581;
																																																			BgL_forwardz00_4205
																																																				=
																																																				BgL_forwardz00_15579;
																																																			goto
																																																				BgL_zc3z04anonymousza33245ze3z87_4207;
																																																		}
																																																}
																																															}
																																													}
																																												}
																																											else
																																												{	/* Unsafe/http.scm 506 */
																																													bool_t
																																														BgL_test6361z00_15582;
																																													{	/* Unsafe/http.scm 506 */
																																														bool_t
																																															BgL_test6362z00_15583;
																																														if (((long) (BgL_curz00_4212) == 10L))
																																															{	/* Unsafe/http.scm 506 */
																																																BgL_test6362z00_15583
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Unsafe/http.scm 506 */
																																																BgL_test6362z00_15583
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_4212)
																																																	==
																																																	9L);
																																															}
																																														if (BgL_test6362z00_15583)
																																															{	/* Unsafe/http.scm 506 */
																																																BgL_test6361z00_15582
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Unsafe/http.scm 506 */
																																																if (((long) (BgL_curz00_4212) == 13L))
																																																	{	/* Unsafe/http.scm 506 */
																																																		BgL_test6361z00_15582
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Unsafe/http.scm 506 */
																																																		if (((long) (BgL_curz00_4212) == 32L))
																																																			{	/* Unsafe/http.scm 506 */
																																																				BgL_test6361z00_15582
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Unsafe/http.scm 506 */
																																																				BgL_test6361z00_15582
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_4212)
																																																					==
																																																					58L);
																																													}}}}
																																													if (BgL_test6361z00_15582)
																																														{	/* Unsafe/http.scm 506 */
																																															BgL_matchz00_4353
																																																=
																																																BgL_lastzd2matchzd2_4204;
																																														}
																																													else
																																														{
																																															long
																																																BgL_forwardz00_15597;
																																															BgL_forwardz00_15597
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_4205);
																																															BgL_forwardz00_4205
																																																=
																																																BgL_forwardz00_15597;
																																															goto
																																																BgL_zc3z04anonymousza33245ze3z87_4207;
																																														}
																																												}
																																										}
																																								}
																																							}
																																					}
																																			}
																																		}
																																}
																															}
																														else
																															{	/* Unsafe/http.scm 506 */
																																if (
																																	((long)
																																		(BgL_curz00_4075)
																																		== 10L))
																																	{	/* Unsafe/http.scm 506 */
																																		long
																																			BgL_arg3163z00_4081;
																																		BgL_arg3163z00_4081
																																			=
																																			(1L +
																																			BgL_forwardz00_4068);
																																		{	/* Unsafe/http.scm 506 */
																																			long
																																				BgL_newzd2matchzd2_11452;
																																			RGC_STOP_MATCH
																																				(BgL_iportz00_4066,
																																				BgL_arg3163z00_4081);
																																			BgL_newzd2matchzd2_11452
																																				= 1L;
																																			BgL_matchz00_4353
																																				=
																																				BgL_newzd2matchzd2_11452;
																																	}}
																																else
																																	{	/* Unsafe/http.scm 506 */
																																		bool_t
																																			BgL_test6367z00_15605;
																																		{	/* Unsafe/http.scm 506 */
																																			bool_t
																																				BgL_test6368z00_15606;
																																			if ((
																																					(long)
																																					(BgL_curz00_4075)
																																					==
																																					10L))
																																				{	/* Unsafe/http.scm 506 */
																																					BgL_test6368z00_15606
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Unsafe/http.scm 506 */
																																					BgL_test6368z00_15606
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_4075)
																																						==
																																						9L);
																																				}
																																			if (BgL_test6368z00_15606)
																																				{	/* Unsafe/http.scm 506 */
																																					BgL_test6367z00_15605
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Unsafe/http.scm 506 */
																																					if (
																																						((long) (BgL_curz00_4075) == 13L))
																																						{	/* Unsafe/http.scm 506 */
																																							BgL_test6367z00_15605
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Unsafe/http.scm 506 */
																																							if (((long) (BgL_curz00_4075) == 32L))
																																								{	/* Unsafe/http.scm 506 */
																																									BgL_test6367z00_15605
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Unsafe/http.scm 506 */
																																									BgL_test6367z00_15605
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_4075)
																																										==
																																										58L);
																																		}}}}
																																		if (BgL_test6367z00_15605)
																																			{	/* Unsafe/http.scm 506 */
																																				BgL_matchz00_4353
																																					=
																																					BgL_lastzd2matchzd2_4067;
																																			}
																																		else
																																			{
																																				long
																																					BgL_bufposz00_15624;
																																				long
																																					BgL_forwardz00_15622;
																																				long
																																					BgL_lastzd2matchzd2_15621;
																																				obj_t
																																					BgL_iportz00_15620;
																																				BgL_iportz00_15620
																																					=
																																					BgL_iportz00_4066;
																																				BgL_lastzd2matchzd2_15621
																																					=
																																					BgL_lastzd2matchzd2_4067;
																																				BgL_forwardz00_15622
																																					=
																																					(1L +
																																					BgL_forwardz00_4068);
																																				BgL_bufposz00_15624
																																					=
																																					BgL_bufposz00_4069;
																																				BgL_bufposz00_4206
																																					=
																																					BgL_bufposz00_15624;
																																				BgL_forwardz00_4205
																																					=
																																					BgL_forwardz00_15622;
																																				BgL_lastzd2matchzd2_4204
																																					=
																																					BgL_lastzd2matchzd2_15621;
																																				BgL_iportz00_4203
																																					=
																																					BgL_iportz00_15620;
																																				goto
																																					BgL_zc3z04anonymousza33245ze3z87_4207;
																																			}
																																	}
																															}
																													}
																											}
																										}
																								}
																							else
																								{	/* Unsafe/http.scm 506 */
																									if (
																										((long) (BgL_curz00_4183) ==
																											10L))
																										{	/* Unsafe/http.scm 506 */
																											BgL_iportz00_4040 =
																												BgL_iportz00_4173;
																											BgL_lastzd2matchzd2_4041 =
																												BgL_newzd2matchzd2_4178;
																											BgL_forwardz00_4042 =
																												(1L +
																												BgL_forwardz00_4175);
																											BgL_bufposz00_4043 =
																												BgL_bufposz00_4176;
																										BgL_zc3z04anonymousza33132ze3z87_4044:
																											{	/* Unsafe/http.scm 506 */
																												long
																													BgL_newzd2matchzd2_4045;
																												RGC_STOP_MATCH
																													(BgL_iportz00_4040,
																													BgL_forwardz00_4042);
																												BgL_newzd2matchzd2_4045
																													= 1L;
																												if ((BgL_forwardz00_4042
																														==
																														BgL_bufposz00_4043))
																													{	/* Unsafe/http.scm 506 */
																														if (rgc_fill_buffer
																															(BgL_iportz00_4040))
																															{	/* Unsafe/http.scm 506 */
																																long
																																	BgL_arg3135z00_4048;
																																long
																																	BgL_arg3136z00_4049;
																																BgL_arg3135z00_4048
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_iportz00_4040);
																																BgL_arg3136z00_4049
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_iportz00_4040);
																																{
																																	long
																																		BgL_bufposz00_15637;
																																	long
																																		BgL_forwardz00_15636;
																																	BgL_forwardz00_15636
																																		=
																																		BgL_arg3135z00_4048;
																																	BgL_bufposz00_15637
																																		=
																																		BgL_arg3136z00_4049;
																																	BgL_bufposz00_4043
																																		=
																																		BgL_bufposz00_15637;
																																	BgL_forwardz00_4042
																																		=
																																		BgL_forwardz00_15636;
																																	goto
																																		BgL_zc3z04anonymousza33132ze3z87_4044;
																																}
																															}
																														else
																															{	/* Unsafe/http.scm 506 */
																																BgL_matchz00_4353
																																	=
																																	BgL_newzd2matchzd2_4045;
																															}
																													}
																												else
																													{	/* Unsafe/http.scm 506 */
																														int BgL_curz00_4050;

																														BgL_curz00_4050 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_iportz00_4040,
																															BgL_forwardz00_4042);
																														{	/* Unsafe/http.scm 506 */

																															if (
																																((long)
																																	(BgL_curz00_4050)
																																	== 58L))
																																{	/* Unsafe/http.scm 506 */
																																	long
																																		BgL_arg3138z00_4052;
																																	BgL_arg3138z00_4052
																																		=
																																		(1L +
																																		BgL_forwardz00_4042);
																																	{	/* Unsafe/http.scm 506 */
																																		long
																																			BgL_newzd2matchzd2_11387;
																																		RGC_STOP_MATCH
																																			(BgL_iportz00_4040,
																																			BgL_arg3138z00_4052);
																																		BgL_newzd2matchzd2_11387
																																			= 0L;
																																		BgL_matchz00_4353
																																			=
																																			BgL_newzd2matchzd2_11387;
																																}}
																															else
																																{	/* Unsafe/http.scm 506 */
																																	if (
																																		((long)
																																			(BgL_curz00_4050)
																																			== 32L))
																																		{	/* Unsafe/http.scm 506 */
																																			long
																																				BgL_arg3141z00_4054;
																																			BgL_arg3141z00_4054
																																				=
																																				(1L +
																																				BgL_forwardz00_4042);
																																			{
																																				long
																																					BgL_forwardz00_11393;
																																				long
																																					BgL_bufposz00_11394;
																																				BgL_forwardz00_11393
																																					=
																																					BgL_arg3141z00_4054;
																																				BgL_bufposz00_11394
																																					=
																																					BgL_bufposz00_4043;
																																			BgL_statezd213zd21266z00_11392:
																																				if (
																																					(BgL_forwardz00_11393
																																						==
																																						BgL_bufposz00_11394))
																																					{	/* Unsafe/http.scm 506 */
																																						if (rgc_fill_buffer(BgL_iportz00_4040))
																																							{	/* Unsafe/http.scm 506 */
																																								long
																																									BgL_arg3024z00_11397;
																																								long
																																									BgL_arg3025z00_11398;
																																								BgL_arg3024z00_11397
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_iportz00_4040);
																																								BgL_arg3025z00_11398
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_iportz00_4040);
																																								{
																																									long
																																										BgL_bufposz00_15655;
																																									long
																																										BgL_forwardz00_15654;
																																									BgL_forwardz00_15654
																																										=
																																										BgL_arg3024z00_11397;
																																									BgL_bufposz00_15655
																																										=
																																										BgL_arg3025z00_11398;
																																									BgL_bufposz00_11394
																																										=
																																										BgL_bufposz00_15655;
																																									BgL_forwardz00_11393
																																										=
																																										BgL_forwardz00_15654;
																																									goto
																																										BgL_statezd213zd21266z00_11392;
																																								}
																																							}
																																						else
																																							{	/* Unsafe/http.scm 506 */
																																								BgL_matchz00_4353
																																									=
																																									BgL_newzd2matchzd2_4045;
																																							}
																																					}
																																				else
																																					{	/* Unsafe/http.scm 506 */
																																						int
																																							BgL_curz00_11399;
																																						BgL_curz00_11399
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_iportz00_4040,
																																							BgL_forwardz00_11393);
																																						{	/* Unsafe/http.scm 506 */

																																							if (((long) (BgL_curz00_11399) == 58L))
																																								{	/* Unsafe/http.scm 506 */
																																									BgL_matchz00_4353
																																										=
																																										BgL_newzd2matchzd2_4045;
																																								}
																																							else
																																								{
																																									long
																																										BgL_bufposz00_15664;
																																									long
																																										BgL_forwardz00_15662;
																																									long
																																										BgL_lastzd2matchzd2_15661;
																																									obj_t
																																										BgL_iportz00_15660;
																																									BgL_iportz00_15660
																																										=
																																										BgL_iportz00_4040;
																																									BgL_lastzd2matchzd2_15661
																																										=
																																										BgL_newzd2matchzd2_4045;
																																									BgL_forwardz00_15662
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_11393);
																																									BgL_bufposz00_15664
																																										=
																																										BgL_bufposz00_11394;
																																									BgL_bufposz00_4206
																																										=
																																										BgL_bufposz00_15664;
																																									BgL_forwardz00_4205
																																										=
																																										BgL_forwardz00_15662;
																																									BgL_lastzd2matchzd2_4204
																																										=
																																										BgL_lastzd2matchzd2_15661;
																																									BgL_iportz00_4203
																																										=
																																										BgL_iportz00_15660;
																																									goto
																																										BgL_zc3z04anonymousza33245ze3z87_4207;
																																								}
																																						}
																																					}
																																			}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 506 */
																																			bool_t
																																				BgL_test6380z00_15665;
																																			{	/* Unsafe/http.scm 506 */
																																				bool_t
																																					BgL_test6381z00_15666;
																																				if ((
																																						(long)
																																						(BgL_curz00_4050)
																																						==
																																						10L))
																																					{	/* Unsafe/http.scm 506 */
																																						BgL_test6381z00_15666
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Unsafe/http.scm 506 */
																																						BgL_test6381z00_15666
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_4050)
																																							==
																																							9L);
																																					}
																																				if (BgL_test6381z00_15666)
																																					{	/* Unsafe/http.scm 506 */
																																						BgL_test6380z00_15665
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Unsafe/http.scm 506 */
																																						if (
																																							((long) (BgL_curz00_4050) == 13L))
																																							{	/* Unsafe/http.scm 506 */
																																								BgL_test6380z00_15665
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Unsafe/http.scm 506 */
																																								if (((long) (BgL_curz00_4050) == 32L))
																																									{	/* Unsafe/http.scm 506 */
																																										BgL_test6380z00_15665
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Unsafe/http.scm 506 */
																																										BgL_test6380z00_15665
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_4050)
																																											==
																																											58L);
																																			}}}}
																																			if (BgL_test6380z00_15665)
																																				{	/* Unsafe/http.scm 506 */
																																					BgL_matchz00_4353
																																						=
																																						BgL_newzd2matchzd2_4045;
																																				}
																																			else
																																				{
																																					long
																																						BgL_bufposz00_15684;
																																					long
																																						BgL_forwardz00_15682;
																																					long
																																						BgL_lastzd2matchzd2_15681;
																																					obj_t
																																						BgL_iportz00_15680;
																																					BgL_iportz00_15680
																																						=
																																						BgL_iportz00_4040;
																																					BgL_lastzd2matchzd2_15681
																																						=
																																						BgL_newzd2matchzd2_4045;
																																					BgL_forwardz00_15682
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_4042);
																																					BgL_bufposz00_15684
																																						=
																																						BgL_bufposz00_4043;
																																					BgL_bufposz00_4206
																																						=
																																						BgL_bufposz00_15684;
																																					BgL_forwardz00_4205
																																						=
																																						BgL_forwardz00_15682;
																																					BgL_lastzd2matchzd2_4204
																																						=
																																						BgL_lastzd2matchzd2_15681;
																																					BgL_iportz00_4203
																																						=
																																						BgL_iportz00_15680;
																																					goto
																																						BgL_zc3z04anonymousza33245ze3z87_4207;
																																				}
																																		}
																																}
																														}
																													}
																											}
																										}
																									else
																										{	/* Unsafe/http.scm 506 */
																											bool_t
																												BgL_test6385z00_15686;
																											if (((long)
																													(BgL_curz00_4183) ==
																													9L))
																												{	/* Unsafe/http.scm 506 */
																													BgL_test6385z00_15686
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Unsafe/http.scm 506 */
																													BgL_test6385z00_15686
																														=
																														((long)
																														(BgL_curz00_4183) ==
																														32L);
																												}
																											if (BgL_test6385z00_15686)
																												{	/* Unsafe/http.scm 506 */
																													BgL_iportz00_4019 =
																														BgL_iportz00_4173;
																													BgL_lastzd2matchzd2_4020
																														=
																														BgL_newzd2matchzd2_4178;
																													BgL_forwardz00_4021 =
																														(1L +
																														BgL_forwardz00_4175);
																													BgL_bufposz00_4022 =
																														BgL_bufposz00_4176;
																												BgL_zc3z04anonymousza33101ze3z87_4023:
																													if (
																														(BgL_forwardz00_4021
																															==
																															BgL_bufposz00_4022))
																														{	/* Unsafe/http.scm 506 */
																															if (rgc_fill_buffer(BgL_iportz00_4019))
																																{	/* Unsafe/http.scm 506 */
																																	long
																																		BgL_arg3104z00_4026;
																																	long
																																		BgL_arg3105z00_4027;
																																	BgL_arg3104z00_4026
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_iportz00_4019);
																																	BgL_arg3105z00_4027
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_iportz00_4019);
																																	{
																																		long
																																			BgL_bufposz00_15699;
																																		long
																																			BgL_forwardz00_15698;
																																		BgL_forwardz00_15698
																																			=
																																			BgL_arg3104z00_4026;
																																		BgL_bufposz00_15699
																																			=
																																			BgL_arg3105z00_4027;
																																		BgL_bufposz00_4022
																																			=
																																			BgL_bufposz00_15699;
																																		BgL_forwardz00_4021
																																			=
																																			BgL_forwardz00_15698;
																																		goto
																																			BgL_zc3z04anonymousza33101ze3z87_4023;
																																	}
																																}
																															else
																																{	/* Unsafe/http.scm 506 */
																																	BgL_matchz00_4353
																																		=
																																		BgL_lastzd2matchzd2_4020;
																																}
																														}
																													else
																														{	/* Unsafe/http.scm 506 */
																															int
																																BgL_curz00_4028;
																															BgL_curz00_4028 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_iportz00_4019,
																																BgL_forwardz00_4021);
																															{	/* Unsafe/http.scm 506 */

																																if (
																																	((long)
																																		(BgL_curz00_4028)
																																		== 58L))
																																	{	/* Unsafe/http.scm 506 */
																																		long
																																			BgL_arg3111z00_4030;
																																		BgL_arg3111z00_4030
																																			=
																																			(1L +
																																			BgL_forwardz00_4021);
																																		{	/* Unsafe/http.scm 506 */
																																			long
																																				BgL_newzd2matchzd2_11339;
																																			RGC_STOP_MATCH
																																				(BgL_iportz00_4019,
																																				BgL_arg3111z00_4030);
																																			BgL_newzd2matchzd2_11339
																																				= 0L;
																																			BgL_matchz00_4353
																																				=
																																				BgL_newzd2matchzd2_11339;
																																	}}
																																else
																																	{	/* Unsafe/http.scm 506 */
																																		if (
																																			((long)
																																				(BgL_curz00_4028)
																																				== 32L))
																																			{	/* Unsafe/http.scm 506 */
																																				BgL_iportz00_3943
																																					=
																																					BgL_iportz00_4019;
																																				BgL_lastzd2matchzd2_3944
																																					=
																																					BgL_lastzd2matchzd2_4020;
																																				BgL_forwardz00_3945
																																					=
																																					(1L +
																																					BgL_forwardz00_4021);
																																				BgL_bufposz00_3946
																																					=
																																					BgL_bufposz00_4022;
																																			BgL_zc3z04anonymousza33028ze3z87_3947:
																																				if (
																																					(BgL_forwardz00_3945
																																						==
																																						BgL_bufposz00_3946))
																																					{	/* Unsafe/http.scm 506 */
																																						if (rgc_fill_buffer(BgL_iportz00_3943))
																																							{	/* Unsafe/http.scm 506 */
																																								long
																																									BgL_arg3031z00_3950;
																																								long
																																									BgL_arg3032z00_3951;
																																								BgL_arg3031z00_3950
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_iportz00_3943);
																																								BgL_arg3032z00_3951
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_iportz00_3943);
																																								{
																																									long
																																										BgL_bufposz00_15716;
																																									long
																																										BgL_forwardz00_15715;
																																									BgL_forwardz00_15715
																																										=
																																										BgL_arg3031z00_3950;
																																									BgL_bufposz00_15716
																																										=
																																										BgL_arg3032z00_3951;
																																									BgL_bufposz00_3946
																																										=
																																										BgL_bufposz00_15716;
																																									BgL_forwardz00_3945
																																										=
																																										BgL_forwardz00_15715;
																																									goto
																																										BgL_zc3z04anonymousza33028ze3z87_3947;
																																								}
																																							}
																																						else
																																							{	/* Unsafe/http.scm 506 */
																																								BgL_matchz00_4353
																																									=
																																									BgL_lastzd2matchzd2_3944;
																																							}
																																					}
																																				else
																																					{	/* Unsafe/http.scm 506 */
																																						int
																																							BgL_curz00_3952;
																																						BgL_curz00_3952
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_iportz00_3943,
																																							BgL_forwardz00_3945);
																																						{	/* Unsafe/http.scm 506 */

																																							if (((long) (BgL_curz00_3952) == 13L))
																																								{
																																									long
																																										BgL_bufposz00_15725;
																																									long
																																										BgL_forwardz00_15723;
																																									long
																																										BgL_lastzd2matchzd2_15722;
																																									obj_t
																																										BgL_iportz00_15721;
																																									BgL_iportz00_15721
																																										=
																																										BgL_iportz00_3943;
																																									BgL_lastzd2matchzd2_15722
																																										=
																																										BgL_lastzd2matchzd2_3944;
																																									BgL_forwardz00_15723
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_3945);
																																									BgL_bufposz00_15725
																																										=
																																										BgL_bufposz00_3946;
																																									BgL_bufposz00_4069
																																										=
																																										BgL_bufposz00_15725;
																																									BgL_forwardz00_4068
																																										=
																																										BgL_forwardz00_15723;
																																									BgL_lastzd2matchzd2_4067
																																										=
																																										BgL_lastzd2matchzd2_15722;
																																									BgL_iportz00_4066
																																										=
																																										BgL_iportz00_15721;
																																									goto
																																										BgL_zc3z04anonymousza33149ze3z87_4070;
																																								}
																																							else
																																								{	/* Unsafe/http.scm 506 */
																																									if (((long) (BgL_curz00_3952) == 10L))
																																										{
																																											long
																																												BgL_bufposz00_15733;
																																											long
																																												BgL_forwardz00_15731;
																																											long
																																												BgL_lastzd2matchzd2_15730;
																																											obj_t
																																												BgL_iportz00_15729;
																																											BgL_iportz00_15729
																																												=
																																												BgL_iportz00_3943;
																																											BgL_lastzd2matchzd2_15730
																																												=
																																												BgL_lastzd2matchzd2_3944;
																																											BgL_forwardz00_15731
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_3945);
																																											BgL_bufposz00_15733
																																												=
																																												BgL_bufposz00_3946;
																																											BgL_bufposz00_4043
																																												=
																																												BgL_bufposz00_15733;
																																											BgL_forwardz00_4042
																																												=
																																												BgL_forwardz00_15731;
																																											BgL_lastzd2matchzd2_4041
																																												=
																																												BgL_lastzd2matchzd2_15730;
																																											BgL_iportz00_4040
																																												=
																																												BgL_iportz00_15729;
																																											goto
																																												BgL_zc3z04anonymousza33132ze3z87_4044;
																																										}
																																									else
																																										{	/* Unsafe/http.scm 506 */
																																											bool_t
																																												BgL_test6395z00_15734;
																																											if (((long) (BgL_curz00_3952) == 9L))
																																												{	/* Unsafe/http.scm 506 */
																																													BgL_test6395z00_15734
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Unsafe/http.scm 506 */
																																													BgL_test6395z00_15734
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_3952)
																																														==
																																														32L);
																																												}
																																											if (BgL_test6395z00_15734)
																																												{
																																													long
																																														BgL_bufposz00_15744;
																																													long
																																														BgL_forwardz00_15742;
																																													long
																																														BgL_lastzd2matchzd2_15741;
																																													obj_t
																																														BgL_iportz00_15740;
																																													BgL_iportz00_15740
																																														=
																																														BgL_iportz00_3943;
																																													BgL_lastzd2matchzd2_15741
																																														=
																																														BgL_lastzd2matchzd2_3944;
																																													BgL_forwardz00_15742
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_3945);
																																													BgL_bufposz00_15744
																																														=
																																														BgL_bufposz00_3946;
																																													BgL_bufposz00_4022
																																														=
																																														BgL_bufposz00_15744;
																																													BgL_forwardz00_4021
																																														=
																																														BgL_forwardz00_15742;
																																													BgL_lastzd2matchzd2_4020
																																														=
																																														BgL_lastzd2matchzd2_15741;
																																													BgL_iportz00_4019
																																														=
																																														BgL_iportz00_15740;
																																													goto
																																														BgL_zc3z04anonymousza33101ze3z87_4023;
																																												}
																																											else
																																												{	/* Unsafe/http.scm 506 */
																																													bool_t
																																														BgL_test6397z00_15745;
																																													{	/* Unsafe/http.scm 506 */
																																														bool_t
																																															BgL_test6398z00_15746;
																																														if (((long) (BgL_curz00_3952) == 10L))
																																															{	/* Unsafe/http.scm 506 */
																																																BgL_test6398z00_15746
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Unsafe/http.scm 506 */
																																																BgL_test6398z00_15746
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_3952)
																																																	==
																																																	9L);
																																															}
																																														if (BgL_test6398z00_15746)
																																															{	/* Unsafe/http.scm 506 */
																																																BgL_test6397z00_15745
																																																	=
																																																	(
																																																	(bool_t)
																																																	1);
																																															}
																																														else
																																															{	/* Unsafe/http.scm 506 */
																																																if (((long) (BgL_curz00_3952) == 13L))
																																																	{	/* Unsafe/http.scm 506 */
																																																		BgL_test6397z00_15745
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Unsafe/http.scm 506 */
																																																		if (((long) (BgL_curz00_3952) == 32L))
																																																			{	/* Unsafe/http.scm 506 */
																																																				BgL_test6397z00_15745
																																																					=
																																																					(
																																																					(bool_t)
																																																					1);
																																																			}
																																																		else
																																																			{	/* Unsafe/http.scm 506 */
																																																				BgL_test6397z00_15745
																																																					=
																																																					(
																																																					(long)
																																																					(BgL_curz00_3952)
																																																					==
																																																					58L);
																																													}}}}
																																													if (BgL_test6397z00_15745)
																																														{	/* Unsafe/http.scm 506 */
																																															BgL_matchz00_4353
																																																=
																																																BgL_lastzd2matchzd2_3944;
																																														}
																																													else
																																														{
																																															long
																																																BgL_bufposz00_15764;
																																															long
																																																BgL_forwardz00_15762;
																																															long
																																																BgL_lastzd2matchzd2_15761;
																																															obj_t
																																																BgL_iportz00_15760;
																																															BgL_iportz00_15760
																																																=
																																																BgL_iportz00_3943;
																																															BgL_lastzd2matchzd2_15761
																																																=
																																																BgL_lastzd2matchzd2_3944;
																																															BgL_forwardz00_15762
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_3945);
																																															BgL_bufposz00_15764
																																																=
																																																BgL_bufposz00_3946;
																																															BgL_bufposz00_4206
																																																=
																																																BgL_bufposz00_15764;
																																															BgL_forwardz00_4205
																																																=
																																																BgL_forwardz00_15762;
																																															BgL_lastzd2matchzd2_4204
																																																=
																																																BgL_lastzd2matchzd2_15761;
																																															BgL_iportz00_4203
																																																=
																																																BgL_iportz00_15760;
																																															goto
																																																BgL_zc3z04anonymousza33245ze3z87_4207;
																																														}
																																												}
																																										}
																																								}
																																						}
																																					}
																																			}
																																		else
																																			{	/* Unsafe/http.scm 506 */
																																				if (
																																					((long) (BgL_curz00_4028) == 13L))
																																					{	/* Unsafe/http.scm 506 */
																																						long
																																							BgL_arg3126z00_4034;
																																						BgL_arg3126z00_4034
																																							=
																																							(1L
																																							+
																																							BgL_forwardz00_4021);
																																						{
																																							long
																																								BgL_forwardz00_11347;
																																							long
																																								BgL_bufposz00_11348;
																																							BgL_forwardz00_11347
																																								=
																																								BgL_arg3126z00_4034;
																																							BgL_bufposz00_11348
																																								=
																																								BgL_bufposz00_4022;
																																						BgL_statezd216zd21269z00_11346:
																																							if ((BgL_forwardz00_11347 == BgL_bufposz00_11348))
																																								{	/* Unsafe/http.scm 506 */
																																									if (rgc_fill_buffer(BgL_iportz00_4019))
																																										{	/* Unsafe/http.scm 506 */
																																											long
																																												BgL_arg3219z00_11351;
																																											long
																																												BgL_arg3220z00_11352;
																																											BgL_arg3219z00_11351
																																												=
																																												RGC_BUFFER_FORWARD
																																												(BgL_iportz00_4019);
																																											BgL_arg3220z00_11352
																																												=
																																												RGC_BUFFER_BUFPOS
																																												(BgL_iportz00_4019);
																																											{
																																												long
																																													BgL_bufposz00_15777;
																																												long
																																													BgL_forwardz00_15776;
																																												BgL_forwardz00_15776
																																													=
																																													BgL_arg3219z00_11351;
																																												BgL_bufposz00_15777
																																													=
																																													BgL_arg3220z00_11352;
																																												BgL_bufposz00_11348
																																													=
																																													BgL_bufposz00_15777;
																																												BgL_forwardz00_11347
																																													=
																																													BgL_forwardz00_15776;
																																												goto
																																													BgL_statezd216zd21269z00_11346;
																																											}
																																										}
																																									else
																																										{	/* Unsafe/http.scm 506 */
																																											BgL_matchz00_4353
																																												=
																																												BgL_lastzd2matchzd2_4020;
																																										}
																																								}
																																							else
																																								{	/* Unsafe/http.scm 506 */
																																									int
																																										BgL_curz00_11353;
																																									BgL_curz00_11353
																																										=
																																										RGC_BUFFER_GET_CHAR
																																										(BgL_iportz00_4019,
																																										BgL_forwardz00_11347);
																																									{	/* Unsafe/http.scm 506 */

																																										if (((long) (BgL_curz00_11353) == 10L))
																																											{	/* Unsafe/http.scm 506 */
																																												long
																																													BgL_arg3222z00_11355;
																																												BgL_arg3222z00_11355
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_11347);
																																												{	/* Unsafe/http.scm 506 */
																																													long
																																														BgL_newzd2matchzd2_11365;
																																													RGC_STOP_MATCH
																																														(BgL_iportz00_4019,
																																														BgL_arg3222z00_11355);
																																													BgL_newzd2matchzd2_11365
																																														=
																																														1L;
																																													BgL_matchz00_4353
																																														=
																																														BgL_newzd2matchzd2_11365;
																																											}}
																																										else
																																											{	/* Unsafe/http.scm 506 */
																																												BgL_matchz00_4353
																																													=
																																													BgL_lastzd2matchzd2_4020;
																																											}
																																									}
																																								}
																																						}
																																					}
																																				else
																																					{	/* Unsafe/http.scm 506 */
																																						if (
																																							((long) (BgL_curz00_4028) == 10L))
																																							{	/* Unsafe/http.scm 506 */
																																								long
																																									BgL_arg3128z00_4036;
																																								BgL_arg3128z00_4036
																																									=
																																									(1L
																																									+
																																									BgL_forwardz00_4021);
																																								{	/* Unsafe/http.scm 506 */
																																									long
																																										BgL_newzd2matchzd2_11370;
																																									RGC_STOP_MATCH
																																										(BgL_iportz00_4019,
																																										BgL_arg3128z00_4036);
																																									BgL_newzd2matchzd2_11370
																																										=
																																										1L;
																																									BgL_matchz00_4353
																																										=
																																										BgL_newzd2matchzd2_11370;
																																							}}
																																						else
																																							{	/* Unsafe/http.scm 506 */
																																								if (((long) (BgL_curz00_4028) == 9L))
																																									{	/* Unsafe/http.scm 506 */
																																										BgL_iportz00_4143
																																											=
																																											BgL_iportz00_4019;
																																										BgL_lastzd2matchzd2_4144
																																											=
																																											BgL_lastzd2matchzd2_4020;
																																										BgL_forwardz00_4145
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_4021);
																																										BgL_bufposz00_4146
																																											=
																																											BgL_bufposz00_4022;
																																									BgL_zc3z04anonymousza33199ze3z87_4147:
																																										if ((BgL_forwardz00_4145 == BgL_bufposz00_4146))
																																											{	/* Unsafe/http.scm 506 */
																																												if (rgc_fill_buffer(BgL_iportz00_4143))
																																													{	/* Unsafe/http.scm 506 */
																																														long
																																															BgL_arg3205z00_4150;
																																														long
																																															BgL_arg3206z00_4151;
																																														BgL_arg3205z00_4150
																																															=
																																															RGC_BUFFER_FORWARD
																																															(BgL_iportz00_4143);
																																														BgL_arg3206z00_4151
																																															=
																																															RGC_BUFFER_BUFPOS
																																															(BgL_iportz00_4143);
																																														{
																																															long
																																																BgL_bufposz00_15799;
																																															long
																																																BgL_forwardz00_15798;
																																															BgL_forwardz00_15798
																																																=
																																																BgL_arg3205z00_4150;
																																															BgL_bufposz00_15799
																																																=
																																																BgL_arg3206z00_4151;
																																															BgL_bufposz00_4146
																																																=
																																																BgL_bufposz00_15799;
																																															BgL_forwardz00_4145
																																																=
																																																BgL_forwardz00_15798;
																																															goto
																																																BgL_zc3z04anonymousza33199ze3z87_4147;
																																														}
																																													}
																																												else
																																													{	/* Unsafe/http.scm 506 */
																																														BgL_matchz00_4353
																																															=
																																															BgL_lastzd2matchzd2_4144;
																																													}
																																											}
																																										else
																																											{	/* Unsafe/http.scm 506 */
																																												int
																																													BgL_curz00_4152;
																																												BgL_curz00_4152
																																													=
																																													RGC_BUFFER_GET_CHAR
																																													(BgL_iportz00_4143,
																																													BgL_forwardz00_4145);
																																												{	/* Unsafe/http.scm 506 */

																																													if (((long) (BgL_curz00_4152) == 13L))
																																														{	/* Unsafe/http.scm 506 */
																																															long
																																																BgL_arg3208z00_4154;
																																															BgL_arg3208z00_4154
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_4145);
																																															{
																																																long
																																																	BgL_forwardz00_11535;
																																																long
																																																	BgL_bufposz00_11536;
																																																BgL_forwardz00_11535
																																																	=
																																																	BgL_arg3208z00_4154;
																																																BgL_bufposz00_11536
																																																	=
																																																	BgL_bufposz00_4146;
																																															BgL_statezd216zd21269z00_11534:
																																																if ((BgL_forwardz00_11535 == BgL_bufposz00_11536))
																																																	{	/* Unsafe/http.scm 506 */
																																																		if (rgc_fill_buffer(BgL_iportz00_4143))
																																																			{	/* Unsafe/http.scm 506 */
																																																				long
																																																					BgL_arg3219z00_11539;
																																																				long
																																																					BgL_arg3220z00_11540;
																																																				BgL_arg3219z00_11539
																																																					=
																																																					RGC_BUFFER_FORWARD
																																																					(BgL_iportz00_4143);
																																																				BgL_arg3220z00_11540
																																																					=
																																																					RGC_BUFFER_BUFPOS
																																																					(BgL_iportz00_4143);
																																																				{
																																																					long
																																																						BgL_bufposz00_15812;
																																																					long
																																																						BgL_forwardz00_15811;
																																																					BgL_forwardz00_15811
																																																						=
																																																						BgL_arg3219z00_11539;
																																																					BgL_bufposz00_15812
																																																						=
																																																						BgL_arg3220z00_11540;
																																																					BgL_bufposz00_11536
																																																						=
																																																						BgL_bufposz00_15812;
																																																					BgL_forwardz00_11535
																																																						=
																																																						BgL_forwardz00_15811;
																																																					goto
																																																						BgL_statezd216zd21269z00_11534;
																																																				}
																																																			}
																																																		else
																																																			{	/* Unsafe/http.scm 506 */
																																																				BgL_matchz00_4353
																																																					=
																																																					BgL_lastzd2matchzd2_4144;
																																																			}
																																																	}
																																																else
																																																	{	/* Unsafe/http.scm 506 */
																																																		int
																																																			BgL_curz00_11541;
																																																		BgL_curz00_11541
																																																			=
																																																			RGC_BUFFER_GET_CHAR
																																																			(BgL_iportz00_4143,
																																																			BgL_forwardz00_11535);
																																																		{	/* Unsafe/http.scm 506 */

																																																			if (((long) (BgL_curz00_11541) == 10L))
																																																				{	/* Unsafe/http.scm 506 */
																																																					long
																																																						BgL_arg3222z00_11543;
																																																					BgL_arg3222z00_11543
																																																						=
																																																						(1L
																																																						+
																																																						BgL_forwardz00_11535);
																																																					{	/* Unsafe/http.scm 506 */
																																																						long
																																																							BgL_newzd2matchzd2_11553;
																																																						RGC_STOP_MATCH
																																																							(BgL_iportz00_4143,
																																																							BgL_arg3222z00_11543);
																																																						BgL_newzd2matchzd2_11553
																																																							=
																																																							1L;
																																																						BgL_matchz00_4353
																																																							=
																																																							BgL_newzd2matchzd2_11553;
																																																				}}
																																																			else
																																																				{	/* Unsafe/http.scm 506 */
																																																					BgL_matchz00_4353
																																																						=
																																																						BgL_lastzd2matchzd2_4144;
																																																				}
																																																		}
																																																	}
																																															}
																																														}
																																													else
																																														{	/* Unsafe/http.scm 506 */
																																															if (((long) (BgL_curz00_4152) == 10L))
																																																{	/* Unsafe/http.scm 506 */
																																																	long
																																																		BgL_arg3211z00_4156;
																																																	BgL_arg3211z00_4156
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_4145);
																																																	{	/* Unsafe/http.scm 506 */
																																																		long
																																																			BgL_newzd2matchzd2_11558;
																																																		RGC_STOP_MATCH
																																																			(BgL_iportz00_4143,
																																																			BgL_arg3211z00_4156);
																																																		BgL_newzd2matchzd2_11558
																																																			=
																																																			1L;
																																																		BgL_matchz00_4353
																																																			=
																																																			BgL_newzd2matchzd2_11558;
																																																}}
																																															else
																																																{	/* Unsafe/http.scm 506 */
																																																	bool_t
																																																		BgL_test6415z00_15824;
																																																	if (((long) (BgL_curz00_4152) == 9L))
																																																		{	/* Unsafe/http.scm 506 */
																																																			BgL_test6415z00_15824
																																																				=
																																																				(
																																																				(bool_t)
																																																				1);
																																																		}
																																																	else
																																																		{	/* Unsafe/http.scm 506 */
																																																			BgL_test6415z00_15824
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_4152)
																																																				==
																																																				32L);
																																																		}
																																																	if (BgL_test6415z00_15824)
																																																		{
																																																			long
																																																				BgL_forwardz00_15830;
																																																			BgL_forwardz00_15830
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_4145);
																																																			BgL_forwardz00_4145
																																																				=
																																																				BgL_forwardz00_15830;
																																																			goto
																																																				BgL_zc3z04anonymousza33199ze3z87_4147;
																																																		}
																																																	else
																																																		{	/* Unsafe/http.scm 506 */
																																																			BgL_matchz00_4353
																																																				=
																																																				BgL_lastzd2matchzd2_4144;
																																																		}
																																																}
																																														}
																																												}
																																											}
																																									}
																																								else
																																									{
																																										long
																																											BgL_bufposz00_15837;
																																										long
																																											BgL_forwardz00_15835;
																																										long
																																											BgL_lastzd2matchzd2_15834;
																																										obj_t
																																											BgL_iportz00_15833;
																																										BgL_iportz00_15833
																																											=
																																											BgL_iportz00_4019;
																																										BgL_lastzd2matchzd2_15834
																																											=
																																											BgL_lastzd2matchzd2_4020;
																																										BgL_forwardz00_15835
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_4021);
																																										BgL_bufposz00_15837
																																											=
																																											BgL_bufposz00_4022;
																																										BgL_bufposz00_4206
																																											=
																																											BgL_bufposz00_15837;
																																										BgL_forwardz00_4205
																																											=
																																											BgL_forwardz00_15835;
																																										BgL_lastzd2matchzd2_4204
																																											=
																																											BgL_lastzd2matchzd2_15834;
																																										BgL_iportz00_4203
																																											=
																																											BgL_iportz00_15833;
																																										goto
																																											BgL_zc3z04anonymousza33245ze3z87_4207;
																																									}
																																							}
																																					}
																																			}
																																	}
																															}
																														}
																												}
																											else
																												{	/* Unsafe/http.scm 506 */
																													bool_t
																														BgL_test6417z00_15839;
																													{	/* Unsafe/http.scm 506 */
																														bool_t
																															BgL_test6418z00_15840;
																														if (((long)
																																(BgL_curz00_4183)
																																== 10L))
																															{	/* Unsafe/http.scm 506 */
																																BgL_test6418z00_15840
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Unsafe/http.scm 506 */
																																BgL_test6418z00_15840
																																	=
																																	((long)
																																	(BgL_curz00_4183)
																																	== 9L);
																															}
																														if (BgL_test6418z00_15840)
																															{	/* Unsafe/http.scm 506 */
																																BgL_test6417z00_15839
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Unsafe/http.scm 506 */
																																if (
																																	((long)
																																		(BgL_curz00_4183)
																																		== 13L))
																																	{	/* Unsafe/http.scm 506 */
																																		BgL_test6417z00_15839
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Unsafe/http.scm 506 */
																																		if (
																																			((long)
																																				(BgL_curz00_4183)
																																				== 32L))
																																			{	/* Unsafe/http.scm 506 */
																																				BgL_test6417z00_15839
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Unsafe/http.scm 506 */
																																				BgL_test6417z00_15839
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_4183)
																																					==
																																					58L);
																													}}}}
																													if (BgL_test6417z00_15839)
																														{	/* Unsafe/http.scm 506 */
																															BgL_matchz00_4353
																																=
																																BgL_newzd2matchzd2_4178;
																														}
																													else
																														{
																															long
																																BgL_bufposz00_15858;
																															long
																																BgL_forwardz00_15856;
																															long
																																BgL_lastzd2matchzd2_15855;
																															obj_t
																																BgL_iportz00_15854;
																															BgL_iportz00_15854
																																=
																																BgL_iportz00_4173;
																															BgL_lastzd2matchzd2_15855
																																=
																																BgL_newzd2matchzd2_4178;
																															BgL_forwardz00_15856
																																=
																																(1L +
																																BgL_forwardz00_4175);
																															BgL_bufposz00_15858
																																=
																																BgL_bufposz00_4176;
																															BgL_bufposz00_4206
																																=
																																BgL_bufposz00_15858;
																															BgL_forwardz00_4205
																																=
																																BgL_forwardz00_15856;
																															BgL_lastzd2matchzd2_4204
																																=
																																BgL_lastzd2matchzd2_15855;
																															BgL_iportz00_4203
																																=
																																BgL_iportz00_15854;
																															goto
																																BgL_zc3z04anonymousza33245ze3z87_4207;
																														}
																												}
																										}
																								}
																						}
																					}
																			}
																		}
																	else
																		{	/* Unsafe/http.scm 506 */
																			if (((long) (BgL_curz00_3981) == 13L))
																				{	/* Unsafe/http.scm 506 */
																					BgL_iportz00_4124 = BgL_iportz00_3972;
																					BgL_lastzd2matchzd2_4125 =
																						BgL_lastzd2matchzd2_3973;
																					BgL_forwardz00_4126 =
																						(1L + BgL_forwardz00_3974);
																					BgL_bufposz00_4127 =
																						BgL_bufposz00_3975;
																				BgL_zc3z04anonymousza33189ze3z87_4128:
																					{	/* Unsafe/http.scm 506 */
																						long BgL_newzd2matchzd2_4129;

																						RGC_STOP_MATCH(BgL_iportz00_4124,
																							BgL_forwardz00_4126);
																						BgL_newzd2matchzd2_4129 = 2L;
																						if (
																							(BgL_forwardz00_4126 ==
																								BgL_bufposz00_4127))
																							{	/* Unsafe/http.scm 506 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_4124))
																									{	/* Unsafe/http.scm 506 */
																										long BgL_arg3193z00_4132;
																										long BgL_arg3194z00_4133;

																										BgL_arg3193z00_4132 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_4124);
																										BgL_arg3194z00_4133 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_4124);
																										{
																											long BgL_bufposz00_15871;
																											long BgL_forwardz00_15870;

																											BgL_forwardz00_15870 =
																												BgL_arg3193z00_4132;
																											BgL_bufposz00_15871 =
																												BgL_arg3194z00_4133;
																											BgL_bufposz00_4127 =
																												BgL_bufposz00_15871;
																											BgL_forwardz00_4126 =
																												BgL_forwardz00_15870;
																											goto
																												BgL_zc3z04anonymousza33189ze3z87_4128;
																										}
																									}
																								else
																									{	/* Unsafe/http.scm 506 */
																										BgL_matchz00_4353 =
																											BgL_newzd2matchzd2_4129;
																									}
																							}
																						else
																							{	/* Unsafe/http.scm 506 */
																								int BgL_curz00_4134;

																								BgL_curz00_4134 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_4124,
																									BgL_forwardz00_4126);
																								{	/* Unsafe/http.scm 506 */

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

																											BgL_arg3197z00_4136 =
																												(1L +
																												BgL_forwardz00_4126);
																											{	/* Unsafe/http.scm 506 */
																												long
																													BgL_newzd2matchzd2_11519;
																												RGC_STOP_MATCH
																													(BgL_iportz00_4124,
																													BgL_arg3197z00_4136);
																												BgL_newzd2matchzd2_11519
																													= 1L;
																												BgL_matchz00_4353 =
																													BgL_newzd2matchzd2_11519;
																										}}
																									else
																										{	/* Unsafe/http.scm 506 */
																											BgL_matchz00_4353 =
																												BgL_newzd2matchzd2_4129;
																										}
																								}
																							}
																					}
																				}
																			else
																				{	/* Unsafe/http.scm 506 */
																					if (((long) (BgL_curz00_3981) == 10L))
																						{	/* Unsafe/http.scm 506 */
																							long BgL_arg3079z00_3989;

																							BgL_arg3079z00_3989 =
																								(1L + BgL_forwardz00_3974);
																							{	/* Unsafe/http.scm 506 */
																								long BgL_newzd2matchzd2_11283;

																								RGC_STOP_MATCH
																									(BgL_iportz00_3972,
																									BgL_arg3079z00_3989);
																								BgL_newzd2matchzd2_11283 = 1L;
																								BgL_matchz00_4353 =
																									BgL_newzd2matchzd2_11283;
																						}}
																					else
																						{	/* Unsafe/http.scm 506 */
																							if (
																								((long) (BgL_curz00_3981) ==
																									9L))
																								{	/* Unsafe/http.scm 506 */
																									BgL_iportz00_4099 =
																										BgL_iportz00_3972;
																									BgL_lastzd2matchzd2_4100 =
																										BgL_lastzd2matchzd2_3973;
																									BgL_forwardz00_4101 =
																										(1L + BgL_forwardz00_3974);
																									BgL_bufposz00_4102 =
																										BgL_bufposz00_3975;
																								BgL_zc3z04anonymousza33171ze3z87_4103:
																									{	/* Unsafe/http.scm 506 */
																										long
																											BgL_newzd2matchzd2_4104;
																										RGC_STOP_MATCH
																											(BgL_iportz00_4099,
																											BgL_forwardz00_4101);
																										BgL_newzd2matchzd2_4104 =
																											2L;
																										if ((BgL_forwardz00_4101 ==
																												BgL_bufposz00_4102))
																											{	/* Unsafe/http.scm 506 */
																												if (rgc_fill_buffer
																													(BgL_iportz00_4099))
																													{	/* Unsafe/http.scm 506 */
																														long
																															BgL_arg3174z00_4107;
																														long
																															BgL_arg3176z00_4108;
																														BgL_arg3174z00_4107
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_iportz00_4099);
																														BgL_arg3176z00_4108
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_iportz00_4099);
																														{
																															long
																																BgL_bufposz00_15895;
																															long
																																BgL_forwardz00_15894;
																															BgL_forwardz00_15894
																																=
																																BgL_arg3174z00_4107;
																															BgL_bufposz00_15895
																																=
																																BgL_arg3176z00_4108;
																															BgL_bufposz00_4102
																																=
																																BgL_bufposz00_15895;
																															BgL_forwardz00_4101
																																=
																																BgL_forwardz00_15894;
																															goto
																																BgL_zc3z04anonymousza33171ze3z87_4103;
																														}
																													}
																												else
																													{	/* Unsafe/http.scm 506 */
																														BgL_matchz00_4353 =
																															BgL_newzd2matchzd2_4104;
																													}
																											}
																										else
																											{	/* Unsafe/http.scm 506 */
																												int BgL_curz00_4109;

																												BgL_curz00_4109 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_iportz00_4099,
																													BgL_forwardz00_4101);
																												{	/* Unsafe/http.scm 506 */

																													if (
																														((long)
																															(BgL_curz00_4109)
																															== 13L))
																														{	/* Unsafe/http.scm 506 */
																															long
																																BgL_arg3179z00_4111;
																															BgL_arg3179z00_4111
																																=
																																(1L +
																																BgL_forwardz00_4101);
																															{
																																long
																																	BgL_forwardz00_11476;
																																long
																																	BgL_bufposz00_11477;
																																BgL_forwardz00_11476
																																	=
																																	BgL_arg3179z00_4111;
																																BgL_bufposz00_11477
																																	=
																																	BgL_bufposz00_4102;
																															BgL_statezd216zd21269z00_11475:
																																if (
																																	(BgL_forwardz00_11476
																																		==
																																		BgL_bufposz00_11477))
																																	{	/* Unsafe/http.scm 506 */
																																		if (rgc_fill_buffer(BgL_iportz00_4099))
																																			{	/* Unsafe/http.scm 506 */
																																				long
																																					BgL_arg3219z00_11480;
																																				long
																																					BgL_arg3220z00_11481;
																																				BgL_arg3219z00_11480
																																					=
																																					RGC_BUFFER_FORWARD
																																					(BgL_iportz00_4099);
																																				BgL_arg3220z00_11481
																																					=
																																					RGC_BUFFER_BUFPOS
																																					(BgL_iportz00_4099);
																																				{
																																					long
																																						BgL_bufposz00_15908;
																																					long
																																						BgL_forwardz00_15907;
																																					BgL_forwardz00_15907
																																						=
																																						BgL_arg3219z00_11480;
																																					BgL_bufposz00_15908
																																						=
																																						BgL_arg3220z00_11481;
																																					BgL_bufposz00_11477
																																						=
																																						BgL_bufposz00_15908;
																																					BgL_forwardz00_11476
																																						=
																																						BgL_forwardz00_15907;
																																					goto
																																						BgL_statezd216zd21269z00_11475;
																																				}
																																			}
																																		else
																																			{	/* Unsafe/http.scm 506 */
																																				BgL_matchz00_4353
																																					=
																																					BgL_newzd2matchzd2_4104;
																																			}
																																	}
																																else
																																	{	/* Unsafe/http.scm 506 */
																																		int
																																			BgL_curz00_11482;
																																		BgL_curz00_11482
																																			=
																																			RGC_BUFFER_GET_CHAR
																																			(BgL_iportz00_4099,
																																			BgL_forwardz00_11476);
																																		{	/* Unsafe/http.scm 506 */

																																			if (
																																				((long)
																																					(BgL_curz00_11482)
																																					==
																																					10L))
																																				{	/* Unsafe/http.scm 506 */
																																					long
																																						BgL_arg3222z00_11484;
																																					BgL_arg3222z00_11484
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_11476);
																																					{	/* Unsafe/http.scm 506 */
																																						long
																																							BgL_newzd2matchzd2_11494;
																																						RGC_STOP_MATCH
																																							(BgL_iportz00_4099,
																																							BgL_arg3222z00_11484);
																																						BgL_newzd2matchzd2_11494
																																							=
																																							1L;
																																						BgL_matchz00_4353
																																							=
																																							BgL_newzd2matchzd2_11494;
																																				}}
																																			else
																																				{	/* Unsafe/http.scm 506 */
																																					BgL_matchz00_4353
																																						=
																																						BgL_newzd2matchzd2_4104;
																																				}
																																		}
																																	}
																															}
																														}
																													else
																														{	/* Unsafe/http.scm 506 */
																															if (
																																((long)
																																	(BgL_curz00_4109)
																																	== 10L))
																																{	/* Unsafe/http.scm 506 */
																																	long
																																		BgL_arg3181z00_4113;
																																	BgL_arg3181z00_4113
																																		=
																																		(1L +
																																		BgL_forwardz00_4101);
																																	{	/* Unsafe/http.scm 506 */
																																		long
																																			BgL_newzd2matchzd2_11499;
																																		RGC_STOP_MATCH
																																			(BgL_iportz00_4099,
																																			BgL_arg3181z00_4113);
																																		BgL_newzd2matchzd2_11499
																																			= 1L;
																																		BgL_matchz00_4353
																																			=
																																			BgL_newzd2matchzd2_11499;
																																}}
																															else
																																{	/* Unsafe/http.scm 506 */
																																	bool_t
																																		BgL_test6435z00_15920;
																																	if (((long)
																																			(BgL_curz00_4109)
																																			== 9L))
																																		{	/* Unsafe/http.scm 506 */
																																			BgL_test6435z00_15920
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Unsafe/http.scm 506 */
																																			BgL_test6435z00_15920
																																				=
																																				((long)
																																				(BgL_curz00_4109)
																																				== 32L);
																																		}
																																	if (BgL_test6435z00_15920)
																																		{
																																			long
																																				BgL_bufposz00_15930;
																																			long
																																				BgL_forwardz00_15928;
																																			long
																																				BgL_lastzd2matchzd2_15927;
																																			obj_t
																																				BgL_iportz00_15926;
																																			BgL_iportz00_15926
																																				=
																																				BgL_iportz00_4099;
																																			BgL_lastzd2matchzd2_15927
																																				=
																																				BgL_newzd2matchzd2_4104;
																																			BgL_forwardz00_15928
																																				=
																																				(1L +
																																				BgL_forwardz00_4101);
																																			BgL_bufposz00_15930
																																				=
																																				BgL_bufposz00_4102;
																																			BgL_bufposz00_4146
																																				=
																																				BgL_bufposz00_15930;
																																			BgL_forwardz00_4145
																																				=
																																				BgL_forwardz00_15928;
																																			BgL_lastzd2matchzd2_4144
																																				=
																																				BgL_lastzd2matchzd2_15927;
																																			BgL_iportz00_4143
																																				=
																																				BgL_iportz00_15926;
																																			goto
																																				BgL_zc3z04anonymousza33199ze3z87_4147;
																																		}
																																	else
																																		{	/* Unsafe/http.scm 506 */
																																			BgL_matchz00_4353
																																				=
																																				BgL_newzd2matchzd2_4104;
																																		}
																																}
																														}
																												}
																											}
																									}
																								}
																							else
																								{	/* Unsafe/http.scm 506 */
																									BgL_iportz00_3993 =
																										BgL_iportz00_3972;
																									BgL_lastzd2matchzd2_3994 =
																										BgL_lastzd2matchzd2_3973;
																									BgL_forwardz00_3995 =
																										(1L + BgL_forwardz00_3974);
																									BgL_bufposz00_3996 =
																										BgL_bufposz00_3975;
																								BgL_zc3z04anonymousza33085ze3z87_3997:
																									{	/* Unsafe/http.scm 506 */
																										long
																											BgL_newzd2matchzd2_3998;
																										RGC_STOP_MATCH
																											(BgL_iportz00_3993,
																											BgL_forwardz00_3995);
																										BgL_newzd2matchzd2_3998 =
																											2L;
																										if ((BgL_forwardz00_3995 ==
																												BgL_bufposz00_3996))
																											{	/* Unsafe/http.scm 506 */
																												if (rgc_fill_buffer
																													(BgL_iportz00_3993))
																													{	/* Unsafe/http.scm 506 */
																														long
																															BgL_arg3088z00_4001;
																														long
																															BgL_arg3089z00_4002;
																														BgL_arg3088z00_4001
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_iportz00_3993);
																														BgL_arg3089z00_4002
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_iportz00_3993);
																														{
																															long
																																BgL_bufposz00_15940;
																															long
																																BgL_forwardz00_15939;
																															BgL_forwardz00_15939
																																=
																																BgL_arg3088z00_4001;
																															BgL_bufposz00_15940
																																=
																																BgL_arg3089z00_4002;
																															BgL_bufposz00_3996
																																=
																																BgL_bufposz00_15940;
																															BgL_forwardz00_3995
																																=
																																BgL_forwardz00_15939;
																															goto
																																BgL_zc3z04anonymousza33085ze3z87_3997;
																														}
																													}
																												else
																													{	/* Unsafe/http.scm 506 */
																														BgL_matchz00_4353 =
																															BgL_newzd2matchzd2_3998;
																													}
																											}
																										else
																											{	/* Unsafe/http.scm 506 */
																												int BgL_curz00_4003;

																												BgL_curz00_4003 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_iportz00_3993,
																													BgL_forwardz00_3995);
																												{	/* Unsafe/http.scm 506 */

																													if (
																														((long)
																															(BgL_curz00_4003)
																															== 58L))
																														{	/* Unsafe/http.scm 506 */
																															long
																																BgL_arg3092z00_4005;
																															BgL_arg3092z00_4005
																																=
																																(1L +
																																BgL_forwardz00_3995);
																															{	/* Unsafe/http.scm 506 */
																																long
																																	BgL_newzd2matchzd2_11300;
																																RGC_STOP_MATCH
																																	(BgL_iportz00_3993,
																																	BgL_arg3092z00_4005);
																																BgL_newzd2matchzd2_11300
																																	= 0L;
																																BgL_matchz00_4353
																																	=
																																	BgL_newzd2matchzd2_11300;
																														}}
																													else
																														{	/* Unsafe/http.scm 506 */
																															if (
																																((long)
																																	(BgL_curz00_4003)
																																	== 32L))
																																{	/* Unsafe/http.scm 506 */
																																	long
																																		BgL_arg3094z00_4007;
																																	BgL_arg3094z00_4007
																																		=
																																		(1L +
																																		BgL_forwardz00_3995);
																																	{
																																		long
																																			BgL_forwardz00_11306;
																																		long
																																			BgL_bufposz00_11307;
																																		BgL_forwardz00_11306
																																			=
																																			BgL_arg3094z00_4007;
																																		BgL_bufposz00_11307
																																			=
																																			BgL_bufposz00_3996;
																																	BgL_statezd213zd21266z00_11305:
																																		if (
																																			(BgL_forwardz00_11306
																																				==
																																				BgL_bufposz00_11307))
																																			{	/* Unsafe/http.scm 506 */
																																				if (rgc_fill_buffer(BgL_iportz00_3993))
																																					{	/* Unsafe/http.scm 506 */
																																						long
																																							BgL_arg3024z00_11310;
																																						long
																																							BgL_arg3025z00_11311;
																																						BgL_arg3024z00_11310
																																							=
																																							RGC_BUFFER_FORWARD
																																							(BgL_iportz00_3993);
																																						BgL_arg3025z00_11311
																																							=
																																							RGC_BUFFER_BUFPOS
																																							(BgL_iportz00_3993);
																																						{
																																							long
																																								BgL_bufposz00_15958;
																																							long
																																								BgL_forwardz00_15957;
																																							BgL_forwardz00_15957
																																								=
																																								BgL_arg3024z00_11310;
																																							BgL_bufposz00_15958
																																								=
																																								BgL_arg3025z00_11311;
																																							BgL_bufposz00_11307
																																								=
																																								BgL_bufposz00_15958;
																																							BgL_forwardz00_11306
																																								=
																																								BgL_forwardz00_15957;
																																							goto
																																								BgL_statezd213zd21266z00_11305;
																																						}
																																					}
																																				else
																																					{	/* Unsafe/http.scm 506 */
																																						BgL_matchz00_4353
																																							=
																																							BgL_newzd2matchzd2_3998;
																																					}
																																			}
																																		else
																																			{	/* Unsafe/http.scm 506 */
																																				int
																																					BgL_curz00_11312;
																																				BgL_curz00_11312
																																					=
																																					RGC_BUFFER_GET_CHAR
																																					(BgL_iportz00_3993,
																																					BgL_forwardz00_11306);
																																				{	/* Unsafe/http.scm 506 */

																																					if (
																																						((long) (BgL_curz00_11312) == 58L))
																																						{	/* Unsafe/http.scm 506 */
																																							BgL_matchz00_4353
																																								=
																																								BgL_newzd2matchzd2_3998;
																																						}
																																					else
																																						{
																																							long
																																								BgL_bufposz00_15967;
																																							long
																																								BgL_forwardz00_15965;
																																							long
																																								BgL_lastzd2matchzd2_15964;
																																							obj_t
																																								BgL_iportz00_15963;
																																							BgL_iportz00_15963
																																								=
																																								BgL_iportz00_3993;
																																							BgL_lastzd2matchzd2_15964
																																								=
																																								BgL_newzd2matchzd2_3998;
																																							BgL_forwardz00_15965
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_11306);
																																							BgL_bufposz00_15967
																																								=
																																								BgL_bufposz00_11307;
																																							BgL_bufposz00_4206
																																								=
																																								BgL_bufposz00_15967;
																																							BgL_forwardz00_4205
																																								=
																																								BgL_forwardz00_15965;
																																							BgL_lastzd2matchzd2_4204
																																								=
																																								BgL_lastzd2matchzd2_15964;
																																							BgL_iportz00_4203
																																								=
																																								BgL_iportz00_15963;
																																							goto
																																								BgL_zc3z04anonymousza33245ze3z87_4207;
																																						}
																																				}
																																			}
																																	}
																																}
																															else
																																{	/* Unsafe/http.scm 506 */
																																	bool_t
																																		BgL_test6444z00_15968;
																																	{	/* Unsafe/http.scm 506 */
																																		bool_t
																																			BgL_test6445z00_15969;
																																		if (((long)
																																				(BgL_curz00_4003)
																																				== 10L))
																																			{	/* Unsafe/http.scm 506 */
																																				BgL_test6445z00_15969
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Unsafe/http.scm 506 */
																																				BgL_test6445z00_15969
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_4003)
																																					==
																																					9L);
																																			}
																																		if (BgL_test6445z00_15969)
																																			{	/* Unsafe/http.scm 506 */
																																				BgL_test6444z00_15968
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Unsafe/http.scm 506 */
																																				if (
																																					((long) (BgL_curz00_4003) == 13L))
																																					{	/* Unsafe/http.scm 506 */
																																						BgL_test6444z00_15968
																																							=
																																							(
																																							(bool_t)
																																							1);
																																					}
																																				else
																																					{	/* Unsafe/http.scm 506 */
																																						if (
																																							((long) (BgL_curz00_4003) == 32L))
																																							{	/* Unsafe/http.scm 506 */
																																								BgL_test6444z00_15968
																																									=
																																									(
																																									(bool_t)
																																									1);
																																							}
																																						else
																																							{	/* Unsafe/http.scm 506 */
																																								BgL_test6444z00_15968
																																									=
																																									(
																																									(long)
																																									(BgL_curz00_4003)
																																									==
																																									58L);
																																	}}}}
																																	if (BgL_test6444z00_15968)
																																		{	/* Unsafe/http.scm 506 */
																																			BgL_matchz00_4353
																																				=
																																				BgL_newzd2matchzd2_3998;
																																		}
																																	else
																																		{
																																			long
																																				BgL_bufposz00_15987;
																																			long
																																				BgL_forwardz00_15985;
																																			long
																																				BgL_lastzd2matchzd2_15984;
																																			obj_t
																																				BgL_iportz00_15983;
																																			BgL_iportz00_15983
																																				=
																																				BgL_iportz00_3993;
																																			BgL_lastzd2matchzd2_15984
																																				=
																																				BgL_newzd2matchzd2_3998;
																																			BgL_forwardz00_15985
																																				=
																																				(1L +
																																				BgL_forwardz00_3995);
																																			BgL_bufposz00_15987
																																				=
																																				BgL_bufposz00_3996;
																																			BgL_bufposz00_4206
																																				=
																																				BgL_bufposz00_15987;
																																			BgL_forwardz00_4205
																																				=
																																				BgL_forwardz00_15985;
																																			BgL_lastzd2matchzd2_4204
																																				=
																																				BgL_lastzd2matchzd2_15984;
																																			BgL_iportz00_4203
																																				=
																																				BgL_iportz00_15983;
																																			goto
																																				BgL_zc3z04anonymousza33245ze3z87_4207;
																																		}
																																}
																														}
																												}
																											}
																									}
																								}
																						}
																				}
																		}
																}
														}
													}
											}
											RGC_SET_FILEPOS(BgL_iportz00_3876);
											switch (BgL_matchz00_4353)
												{
												case 2L:

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

														BgL_cz00_4356 =
															BGl_thezd2failureze70z35zz__httpz00
															(BgL_iportz00_3876);
														if (EOF_OBJECTP(BgL_cz00_4356))
															{	/* Unsafe/http.scm 589 */
																obj_t BgL_val0_1425z00_4358;
																obj_t BgL_val1_1426z00_4359;
																obj_t BgL_val2_1427z00_4360;
																obj_t BgL_val3_1428z00_4361;
																obj_t BgL_val4_1429z00_4362;
																obj_t BgL_val5_1430z00_4363;
																obj_t BgL_val6_1431z00_4364;
																obj_t BgL_val7_1432z00_4365;

																BgL_val0_1425z00_4358 =
																	bgl_reverse_bang(BgL_headerz00_3878);
																BgL_val1_1426z00_4359 = BgL_hostnamez00_3879;
																BgL_val2_1427z00_4360 = BgL_portz00_3880;
																BgL_val3_1428z00_4361 =
																	BgL_contentzd2lengthzd2_3881;
																BgL_val4_1429z00_4362 =
																	BgL_transferzd2encodingzd2_3882;
																BgL_val5_1430z00_4363 =
																	BgL_authoriza7ationza7_3883;
																BgL_val6_1431z00_4364 =
																	BgL_proxyzd2authoriza7ationz75_3884;
																BgL_val7_1432z00_4365 = BgL_connectionz00_3885;
																{	/* Unsafe/http.scm 589 */
																	int BgL_tmpz00_15994;

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

																	BgL_tmpz00_15997 = (int) (1L);
																	BGL_MVALUES_VAL_SET(BgL_tmpz00_15997,
																		BgL_val1_1426z00_4359);
																}
																{	/* Unsafe/http.scm 589 */
																	int BgL_tmpz00_16000;

																	BgL_tmpz00_16000 = (int) (2L);
																	BGL_MVALUES_VAL_SET(BgL_tmpz00_16000,
																		BgL_val2_1427z00_4360);
																}
																{	/* Unsafe/http.scm 589 */
																	int BgL_tmpz00_16003;

																	BgL_tmpz00_16003 = (int) (3L);
																	BGL_MVALUES_VAL_SET(BgL_tmpz00_16003,
																		BgL_val3_1428z00_4361);
																}
																{	/* Unsafe/http.scm 589 */
																	int BgL_tmpz00_16006;

																	BgL_tmpz00_16006 = (int) (4L);
																	BGL_MVALUES_VAL_SET(BgL_tmpz00_16006,
																		BgL_val4_1429z00_4362);
																}
																{	/* Unsafe/http.scm 589 */
																	int BgL_tmpz00_16009;

																	BgL_tmpz00_16009 = (int) (5L);
																	BGL_MVALUES_VAL_SET(BgL_tmpz00_16009,
																		BgL_val5_1430z00_4363);
																}
																{	/* Unsafe/http.scm 589 */
																	int BgL_tmpz00_16012;

																	BgL_tmpz00_16012 = (int) (6L);
																	BGL_MVALUES_VAL_SET(BgL_tmpz00_16012,
																		BgL_val6_1431z00_4364);
																}
																{	/* Unsafe/http.scm 589 */
																	int BgL_tmpz00_16015;

																	BgL_tmpz00_16015 = (int) (7L);
																	BGL_MVALUES_VAL_SET(BgL_tmpz00_16015,
																		BgL_val7_1432z00_4365);
																}
																return BgL_val0_1425z00_4358;
															}
														else
															{	/* Unsafe/http.scm 597 */
																BgL_z62iozd2parsezd2errorz62_bglt
																	BgL_arg3380z00_4366;
																{	/* Unsafe/http.scm 597 */
																	BgL_z62iozd2parsezd2errorz62_bglt
																		BgL_new1275z00_4367;
																	{	/* Unsafe/http.scm 597 */
																		BgL_z62iozd2parsezd2errorz62_bglt
																			BgL_new1274z00_4383;
																		BgL_new1274z00_4383 =
																			((BgL_z62iozd2parsezd2errorz62_bglt)
																			BOBJECT(GC_MALLOC(sizeof(struct
																						BgL_z62iozd2parsezd2errorz62_bgl))));
																		{	/* Unsafe/http.scm 597 */
																			long BgL_arg3409z00_4384;

																			BgL_arg3409z00_4384 =
																				BGL_CLASS_NUM
																				(BGl_z62iozd2parsezd2errorz62zz__objectz00);
																			BGL_OBJECT_CLASS_NUM_SET((
																					(BgL_objectz00_bglt)
																					BgL_new1274z00_4383),
																				BgL_arg3409z00_4384);
																		}
																		BgL_new1275z00_4367 = BgL_new1274z00_4383;
																	}
																	((((BgL_z62exceptionz62_bglt) COBJECT(
																					((BgL_z62exceptionz62_bglt)
																						BgL_new1275z00_4367)))->
																			BgL_fnamez00) =
																		((obj_t) BFALSE), BUNSPEC);
																	((((BgL_z62exceptionz62_bglt)
																				COBJECT(((BgL_z62exceptionz62_bglt)
																						BgL_new1275z00_4367)))->
																			BgL_locationz00) =
																		((obj_t) BFALSE), BUNSPEC);
																	{
																		obj_t BgL_auxz00_16026;

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

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

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

																					BgL_classz00_11677 =
																						BGl_z62iozd2parsezd2errorz62zz__objectz00;
																					BgL_arg3382z00_4369 =
																						BGL_CLASS_ALL_FIELDS
																						(BgL_classz00_11677);
																				}
																				BgL_arg3381z00_4368 =
																					VECTOR_REF(BgL_arg3382z00_4369, 2L);
																			}
																			BgL_auxz00_16026 =
																				BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																				(BgL_arg3381z00_4368);
																		}
																		((((BgL_z62exceptionz62_bglt) COBJECT(
																						((BgL_z62exceptionz62_bglt)
																							BgL_new1275z00_4367)))->
																				BgL_stackz00) =
																			((obj_t) BgL_auxz00_16026), BUNSPEC);
																	}
																	((((BgL_z62errorz62_bglt) COBJECT(
																					((BgL_z62errorz62_bglt)
																						BgL_new1275z00_4367)))->
																			BgL_procz00) =
																		((obj_t) BGl_string5712z00zz__httpz00),
																		BUNSPEC);
																	{
																		obj_t BgL_auxz00_16034;

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

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

																				BgL_arg3394z00_4372 =
																					BGl_thezd2failureze70z35zz__httpz00
																					(BgL_iportz00_3876);
																				BgL_arg3391z00_4370 =
																					BGl_httpzd2parsezd2errorzd2msgzd2zz__httpz00
																					(BgL_arg3394z00_4372,
																					BgL_iportz00_3876);
																			}
																			{	/* Unsafe/http.scm 603 */
																				obj_t BgL_list3392z00_4371;

																				BgL_list3392z00_4371 =
																					MAKE_YOUNG_PAIR(BgL_arg3391z00_4370,
																					BNIL);
																				BgL_auxz00_16034 =
																					BGl_formatz00zz__r4_output_6_10_3z00
																					(BGl_string5713z00zz__httpz00,
																					BgL_list3392z00_4371);
																		}}
																		((((BgL_z62errorz62_bglt) COBJECT(
																						((BgL_z62errorz62_bglt)
																							BgL_new1275z00_4367)))->
																				BgL_msgz00) =
																			((obj_t) BgL_auxz00_16034), BUNSPEC);
																	}
																	{
																		obj_t BgL_auxz00_16041;

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

																			BgL_arg3397z00_4374 =
																				bgl_reverse_bang(BgL_headerz00_3878);
																			{	/* Unsafe/http.scm 598 */
																				obj_t BgL_list3398z00_4375;

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

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

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

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

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

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

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

																											BgL_arg3407z00_4382 =
																												MAKE_YOUNG_PAIR
																												(BgL_connectionz00_3885,
																												BNIL);
																											BgL_arg3406z00_4381 =
																												MAKE_YOUNG_PAIR
																												(BgL_proxyzd2authoriza7ationz75_3884,
																												BgL_arg3407z00_4382);
																										}
																										BgL_arg3404z00_4380 =
																											MAKE_YOUNG_PAIR
																											(BgL_authoriza7ationza7_3883,
																											BgL_arg3406z00_4381);
																									}
																									BgL_arg3403z00_4379 =
																										MAKE_YOUNG_PAIR
																										(BgL_transferzd2encodingzd2_3882,
																										BgL_arg3404z00_4380);
																								}
																								BgL_arg3402z00_4378 =
																									MAKE_YOUNG_PAIR
																									(BgL_contentzd2lengthzd2_3881,
																									BgL_arg3403z00_4379);
																							}
																							BgL_arg3401z00_4377 =
																								MAKE_YOUNG_PAIR
																								(BgL_portz00_3880,
																								BgL_arg3402z00_4378);
																						}
																						BgL_arg3400z00_4376 =
																							MAKE_YOUNG_PAIR
																							(BgL_hostnamez00_3879,
																							BgL_arg3401z00_4377);
																					}
																					BgL_list3398z00_4375 =
																						MAKE_YOUNG_PAIR(BgL_arg3397z00_4374,
																						BgL_arg3400z00_4376);
																				}
																				BgL_auxz00_16041 = BgL_list3398z00_4375;
																		}}
																		((((BgL_z62errorz62_bglt) COBJECT(
																						((BgL_z62errorz62_bglt)
																							BgL_new1275z00_4367)))->
																				BgL_objz00) =
																			((obj_t) BgL_auxz00_16041), BUNSPEC);
																	}
																	BgL_arg3380z00_4366 = BgL_new1275z00_4367;
																}
																return
																	BGl_raisez00zz__errorz00(
																	((obj_t) BgL_arg3380z00_4366));
															}
													}
													break;
												case 1L:

													{	/* Unsafe/http.scm 576 */
														obj_t BgL_val0_1433z00_4385;
														obj_t BgL_val1_1434z00_4386;
														obj_t BgL_val2_1435z00_4387;
														obj_t BgL_val3_1436z00_4388;
														obj_t BgL_val4_1437z00_4389;
														obj_t BgL_val5_1438z00_4390;
														obj_t BgL_val6_1439z00_4391;
														obj_t BgL_val7_1440z00_4392;

														BgL_val0_1433z00_4385 =
															bgl_reverse_bang(BgL_headerz00_3878);
														BgL_val1_1434z00_4386 = BgL_hostnamez00_3879;
														BgL_val2_1435z00_4387 = BgL_portz00_3880;
														BgL_val3_1436z00_4388 =
															BgL_contentzd2lengthzd2_3881;
														BgL_val4_1437z00_4389 =
															BgL_transferzd2encodingzd2_3882;
														BgL_val5_1438z00_4390 = BgL_authoriza7ationza7_3883;
														BgL_val6_1439z00_4391 =
															BgL_proxyzd2authoriza7ationz75_3884;
														BgL_val7_1440z00_4392 = BgL_connectionz00_3885;
														{	/* Unsafe/http.scm 576 */
															int BgL_tmpz00_16056;

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

															BgL_tmpz00_16059 = (int) (1L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_16059,
																BgL_val1_1434z00_4386);
														}
														{	/* Unsafe/http.scm 576 */
															int BgL_tmpz00_16062;

															BgL_tmpz00_16062 = (int) (2L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_16062,
																BgL_val2_1435z00_4387);
														}
														{	/* Unsafe/http.scm 576 */
															int BgL_tmpz00_16065;

															BgL_tmpz00_16065 = (int) (3L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_16065,
																BgL_val3_1436z00_4388);
														}
														{	/* Unsafe/http.scm 576 */
															int BgL_tmpz00_16068;

															BgL_tmpz00_16068 = (int) (4L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_16068,
																BgL_val4_1437z00_4389);
														}
														{	/* Unsafe/http.scm 576 */
															int BgL_tmpz00_16071;

															BgL_tmpz00_16071 = (int) (5L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_16071,
																BgL_val5_1438z00_4390);
														}
														{	/* Unsafe/http.scm 576 */
															int BgL_tmpz00_16074;

															BgL_tmpz00_16074 = (int) (6L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_16074,
																BgL_val6_1439z00_4391);
														}
														{	/* Unsafe/http.scm 576 */
															int BgL_tmpz00_16077;

															BgL_tmpz00_16077 = (int) (7L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_16077,
																BgL_val7_1440z00_4392);
														}
														return BgL_val0_1433z00_4385;
													}
													break;
												case 0L:

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

														BgL_kz00_4393 =
															rgc_buffer_downcase_keyword(BgL_iportz00_3876);
														{	/* Unsafe/http.scm 511 */

															if (
																(BgL_kz00_4393 ==
																	BGl_keyword5633z00zz__httpz00))
																{	/* Unsafe/http.scm 514 */
																	obj_t BgL_hz00_4396;

																	BgL_iportz00_6606 = BgL_iportz00_3876;
																	{
																		obj_t BgL_iportz00_6642;
																		long BgL_lastzd2matchzd2_6643;
																		long BgL_forwardz00_6644;
																		long BgL_bufposz00_6645;
																		obj_t BgL_iportz00_6663;
																		long BgL_lastzd2matchzd2_6664;
																		long BgL_forwardz00_6665;
																		long BgL_bufposz00_6666;
																		obj_t BgL_iportz00_6693;
																		long BgL_lastzd2matchzd2_6694;
																		long BgL_forwardz00_6695;
																		long BgL_bufposz00_6696;
																		obj_t BgL_iportz00_6708;
																		long BgL_lastzd2matchzd2_6709;
																		long BgL_forwardz00_6710;
																		long BgL_bufposz00_6711;
																		obj_t BgL_iportz00_6729;
																		long BgL_lastzd2matchzd2_6730;
																		long BgL_forwardz00_6731;
																		long BgL_bufposz00_6732;
																		int BgL_minz00_6765;
																		int BgL_maxz00_6766;

																	BgL_zc3z04anonymousza34646ze3z87_6871:
																		RGC_START_MATCH(BgL_iportz00_6606);
																		{	/* Unsafe/http.scm 445 */
																			long BgL_matchz00_6872;

																			{	/* Unsafe/http.scm 445 */
																				long BgL_arg4648z00_6882;
																				long BgL_arg4649z00_6883;

																				BgL_arg4648z00_6882 =
																					RGC_BUFFER_FORWARD(BgL_iportz00_6606);
																				BgL_arg4649z00_6883 =
																					RGC_BUFFER_BUFPOS(BgL_iportz00_6606);
																				BgL_iportz00_6642 = BgL_iportz00_6606;
																				BgL_lastzd2matchzd2_6643 = 3L;
																				BgL_forwardz00_6644 =
																					BgL_arg4648z00_6882;
																				BgL_bufposz00_6645 =
																					BgL_arg4649z00_6883;
																			BgL_zc3z04anonymousza34502ze3z87_6646:
																				if (
																					(BgL_forwardz00_6644 ==
																						BgL_bufposz00_6645))
																					{	/* Unsafe/http.scm 445 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_6642))
																							{	/* Unsafe/http.scm 445 */
																								long BgL_arg4505z00_6649;
																								long BgL_arg4506z00_6650;

																								BgL_arg4505z00_6649 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_6642);
																								BgL_arg4506z00_6650 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_6642);
																								{
																									long BgL_bufposz00_16093;
																									long BgL_forwardz00_16092;

																									BgL_forwardz00_16092 =
																										BgL_arg4505z00_6649;
																									BgL_bufposz00_16093 =
																										BgL_arg4506z00_6650;
																									BgL_bufposz00_6645 =
																										BgL_bufposz00_16093;
																									BgL_forwardz00_6644 =
																										BgL_forwardz00_16092;
																									goto
																										BgL_zc3z04anonymousza34502ze3z87_6646;
																								}
																							}
																						else
																							{	/* Unsafe/http.scm 445 */
																								BgL_matchz00_6872 =
																									BgL_lastzd2matchzd2_6643;
																							}
																					}
																				else
																					{	/* Unsafe/http.scm 445 */
																						int BgL_curz00_6651;

																						BgL_curz00_6651 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_6642,
																							BgL_forwardz00_6644);
																						{	/* Unsafe/http.scm 445 */

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

																								if (
																									((long) (BgL_curz00_6651) ==
																										10L))
																									{	/* Unsafe/http.scm 445 */
																										BgL_test6453z00_16095 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Unsafe/http.scm 445 */
																										if (
																											((long) (BgL_curz00_6651)
																												== 13L))
																											{	/* Unsafe/http.scm 445 */
																												BgL_test6453z00_16095 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Unsafe/http.scm 445 */
																												BgL_test6453z00_16095 =
																													(
																													(long)
																													(BgL_curz00_6651) ==
																													58L);
																									}}
																								if (BgL_test6453z00_16095)
																									{	/* Unsafe/http.scm 445 */
																										long BgL_arg4510z00_6655;

																										BgL_arg4510z00_6655 =
																											(1L +
																											BgL_forwardz00_6644);
																										{	/* Unsafe/http.scm 445 */
																											long
																												BgL_newzd2matchzd2_10255;
																											RGC_STOP_MATCH
																												(BgL_iportz00_6642,
																												BgL_arg4510z00_6655);
																											BgL_newzd2matchzd2_10255 =
																												3L;
																											BgL_matchz00_6872 =
																												BgL_newzd2matchzd2_10255;
																									}}
																								else
																									{	/* Unsafe/http.scm 445 */
																										bool_t
																											BgL_test6456z00_16106;
																										if (((long)
																												(BgL_curz00_6651) ==
																												9L))
																											{	/* Unsafe/http.scm 445 */
																												BgL_test6456z00_16106 =
																													((bool_t) 1);
																											}
																										else
																											{	/* Unsafe/http.scm 445 */
																												BgL_test6456z00_16106 =
																													(
																													(long)
																													(BgL_curz00_6651) ==
																													32L);
																											}
																										if (BgL_test6456z00_16106)
																											{	/* Unsafe/http.scm 445 */
																												BgL_iportz00_6693 =
																													BgL_iportz00_6642;
																												BgL_lastzd2matchzd2_6694
																													=
																													BgL_lastzd2matchzd2_6643;
																												BgL_forwardz00_6695 =
																													(1L +
																													BgL_forwardz00_6644);
																												BgL_bufposz00_6696 =
																													BgL_bufposz00_6645;
																											BgL_zc3z04anonymousza34529ze3z87_6697:
																												{	/* Unsafe/http.scm 445 */
																													long
																														BgL_newzd2matchzd2_6698;
																													RGC_STOP_MATCH
																														(BgL_iportz00_6693,
																														BgL_forwardz00_6695);
																													BgL_newzd2matchzd2_6698
																														= 2L;
																													if (
																														(BgL_forwardz00_6695
																															==
																															BgL_bufposz00_6696))
																														{	/* Unsafe/http.scm 445 */
																															if (rgc_fill_buffer(BgL_iportz00_6693))
																																{	/* Unsafe/http.scm 445 */
																																	long
																																		BgL_arg4532z00_6701;
																																	long
																																		BgL_arg4533z00_6702;
																																	BgL_arg4532z00_6701
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_iportz00_6693);
																																	BgL_arg4533z00_6702
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_iportz00_6693);
																																	{
																																		long
																																			BgL_bufposz00_16120;
																																		long
																																			BgL_forwardz00_16119;
																																		BgL_forwardz00_16119
																																			=
																																			BgL_arg4532z00_6701;
																																		BgL_bufposz00_16120
																																			=
																																			BgL_arg4533z00_6702;
																																		BgL_bufposz00_6696
																																			=
																																			BgL_bufposz00_16120;
																																		BgL_forwardz00_6695
																																			=
																																			BgL_forwardz00_16119;
																																		goto
																																			BgL_zc3z04anonymousza34529ze3z87_6697;
																																	}
																																}
																															else
																																{	/* Unsafe/http.scm 445 */
																																	BgL_matchz00_6872
																																		=
																																		BgL_newzd2matchzd2_6698;
																																}
																														}
																													else
																														{	/* Unsafe/http.scm 445 */
																															int
																																BgL_curz00_6703;
																															BgL_curz00_6703 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_iportz00_6693,
																																BgL_forwardz00_6695);
																															{	/* Unsafe/http.scm 445 */

																																{	/* Unsafe/http.scm 445 */
																																	bool_t
																																		BgL_test6460z00_16122;
																																	if (((long)
																																			(BgL_curz00_6703)
																																			== 9L))
																																		{	/* Unsafe/http.scm 445 */
																																			BgL_test6460z00_16122
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Unsafe/http.scm 445 */
																																			BgL_test6460z00_16122
																																				=
																																				((long)
																																				(BgL_curz00_6703)
																																				== 32L);
																																		}
																																	if (BgL_test6460z00_16122)
																																		{	/* Unsafe/http.scm 445 */
																																			BgL_iportz00_6708
																																				=
																																				BgL_iportz00_6693;
																																			BgL_lastzd2matchzd2_6709
																																				=
																																				BgL_newzd2matchzd2_6698;
																																			BgL_forwardz00_6710
																																				=
																																				(1L +
																																				BgL_forwardz00_6695);
																																			BgL_bufposz00_6711
																																				=
																																				BgL_bufposz00_6696;
																																		BgL_zc3z04anonymousza34537ze3z87_6712:
																																			{	/* Unsafe/http.scm 445 */
																																				long
																																					BgL_newzd2matchzd2_6713;
																																				RGC_STOP_MATCH
																																					(BgL_iportz00_6708,
																																					BgL_forwardz00_6710);
																																				BgL_newzd2matchzd2_6713
																																					= 2L;
																																				if (
																																					(BgL_forwardz00_6710
																																						==
																																						BgL_bufposz00_6711))
																																					{	/* Unsafe/http.scm 445 */
																																						if (rgc_fill_buffer(BgL_iportz00_6708))
																																							{	/* Unsafe/http.scm 445 */
																																								long
																																									BgL_arg4540z00_6716;
																																								long
																																									BgL_arg4541z00_6717;
																																								BgL_arg4540z00_6716
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_iportz00_6708);
																																								BgL_arg4541z00_6717
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_iportz00_6708);
																																								{
																																									long
																																										BgL_bufposz00_16136;
																																									long
																																										BgL_forwardz00_16135;
																																									BgL_forwardz00_16135
																																										=
																																										BgL_arg4540z00_6716;
																																									BgL_bufposz00_16136
																																										=
																																										BgL_arg4541z00_6717;
																																									BgL_bufposz00_6711
																																										=
																																										BgL_bufposz00_16136;
																																									BgL_forwardz00_6710
																																										=
																																										BgL_forwardz00_16135;
																																									goto
																																										BgL_zc3z04anonymousza34537ze3z87_6712;
																																								}
																																							}
																																						else
																																							{	/* Unsafe/http.scm 445 */
																																								BgL_matchz00_6872
																																									=
																																									BgL_newzd2matchzd2_6713;
																																							}
																																					}
																																				else
																																					{	/* Unsafe/http.scm 445 */
																																						int
																																							BgL_curz00_6718;
																																						BgL_curz00_6718
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_iportz00_6708,
																																							BgL_forwardz00_6710);
																																						{	/* Unsafe/http.scm 445 */

																																							{	/* Unsafe/http.scm 445 */
																																								bool_t
																																									BgL_test6464z00_16138;
																																								if (((long) (BgL_curz00_6718) == 9L))
																																									{	/* Unsafe/http.scm 445 */
																																										BgL_test6464z00_16138
																																											=
																																											(
																																											(bool_t)
																																											1);
																																									}
																																								else
																																									{	/* Unsafe/http.scm 445 */
																																										BgL_test6464z00_16138
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_6718)
																																											==
																																											32L);
																																									}
																																								if (BgL_test6464z00_16138)
																																									{
																																										long
																																											BgL_forwardz00_16145;
																																										long
																																											BgL_lastzd2matchzd2_16144;
																																										BgL_lastzd2matchzd2_16144
																																											=
																																											BgL_newzd2matchzd2_6713;
																																										BgL_forwardz00_16145
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_6710);
																																										BgL_forwardz00_6710
																																											=
																																											BgL_forwardz00_16145;
																																										BgL_lastzd2matchzd2_6709
																																											=
																																											BgL_lastzd2matchzd2_16144;
																																										goto
																																											BgL_zc3z04anonymousza34537ze3z87_6712;
																																									}
																																								else
																																									{	/* Unsafe/http.scm 445 */
																																										BgL_matchz00_6872
																																											=
																																											BgL_newzd2matchzd2_6713;
																																									}
																																							}
																																						}
																																					}
																																			}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 445 */
																																			BgL_matchz00_6872
																																				=
																																				BgL_newzd2matchzd2_6698;
																																		}
																																}
																															}
																														}
																												}
																											}
																										else
																											{	/* Unsafe/http.scm 445 */
																												BgL_iportz00_6729 =
																													BgL_iportz00_6642;
																												BgL_lastzd2matchzd2_6730
																													=
																													BgL_lastzd2matchzd2_6643;
																												BgL_forwardz00_6731 =
																													(1L +
																													BgL_forwardz00_6644);
																												BgL_bufposz00_6732 =
																													BgL_bufposz00_6645;
																											BgL_zc3z04anonymousza34546ze3z87_6733:
																												{	/* Unsafe/http.scm 445 */
																													long
																														BgL_newzd2matchzd2_6734;
																													RGC_STOP_MATCH
																														(BgL_iportz00_6729,
																														BgL_forwardz00_6731);
																													BgL_newzd2matchzd2_6734
																														= 1L;
																													if (
																														(BgL_forwardz00_6731
																															==
																															BgL_bufposz00_6732))
																														{	/* Unsafe/http.scm 445 */
																															if (rgc_fill_buffer(BgL_iportz00_6729))
																																{	/* Unsafe/http.scm 445 */
																																	long
																																		BgL_arg4549z00_6737;
																																	long
																																		BgL_arg4550z00_6738;
																																	BgL_arg4549z00_6737
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_iportz00_6729);
																																	BgL_arg4550z00_6738
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_iportz00_6729);
																																	{
																																		long
																																			BgL_bufposz00_16157;
																																		long
																																			BgL_forwardz00_16156;
																																		BgL_forwardz00_16156
																																			=
																																			BgL_arg4549z00_6737;
																																		BgL_bufposz00_16157
																																			=
																																			BgL_arg4550z00_6738;
																																		BgL_bufposz00_6732
																																			=
																																			BgL_bufposz00_16157;
																																		BgL_forwardz00_6731
																																			=
																																			BgL_forwardz00_16156;
																																		goto
																																			BgL_zc3z04anonymousza34546ze3z87_6733;
																																	}
																																}
																															else
																																{	/* Unsafe/http.scm 445 */
																																	BgL_matchz00_6872
																																		=
																																		BgL_newzd2matchzd2_6734;
																																}
																														}
																													else
																														{	/* Unsafe/http.scm 445 */
																															int
																																BgL_curz00_6739;
																															BgL_curz00_6739 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_iportz00_6729,
																																BgL_forwardz00_6731);
																															{	/* Unsafe/http.scm 445 */

																																if (
																																	((long)
																																		(BgL_curz00_6739)
																																		== 58L))
																																	{	/* Unsafe/http.scm 445 */
																																		long
																																			BgL_arg4552z00_6741;
																																		BgL_arg4552z00_6741
																																			=
																																			(1L +
																																			BgL_forwardz00_6731);
																																		{	/* Unsafe/http.scm 445 */
																																			long
																																				BgL_newzd2matchzd2_10323;
																																			RGC_STOP_MATCH
																																				(BgL_iportz00_6729,
																																				BgL_arg4552z00_6741);
																																			BgL_newzd2matchzd2_10323
																																				= 0L;
																																			BgL_matchz00_6872
																																				=
																																				BgL_newzd2matchzd2_10323;
																																	}}
																																else
																																	{	/* Unsafe/http.scm 445 */
																																		bool_t
																																			BgL_test6469z00_16164;
																																		{	/* Unsafe/http.scm 445 */
																																			bool_t
																																				BgL_test6470z00_16165;
																																			if ((
																																					(long)
																																					(BgL_curz00_6739)
																																					==
																																					10L))
																																				{	/* Unsafe/http.scm 445 */
																																					BgL_test6470z00_16165
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Unsafe/http.scm 445 */
																																					BgL_test6470z00_16165
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_6739)
																																						==
																																						9L);
																																				}
																																			if (BgL_test6470z00_16165)
																																				{	/* Unsafe/http.scm 445 */
																																					BgL_test6469z00_16164
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Unsafe/http.scm 445 */
																																					if (
																																						((long) (BgL_curz00_6739) == 13L))
																																						{	/* Unsafe/http.scm 445 */
																																							BgL_test6469z00_16164
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Unsafe/http.scm 445 */
																																							if (((long) (BgL_curz00_6739) == 32L))
																																								{	/* Unsafe/http.scm 445 */
																																									BgL_test6469z00_16164
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Unsafe/http.scm 445 */
																																									BgL_test6469z00_16164
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_6739)
																																										==
																																										58L);
																																		}}}}
																																		if (BgL_test6469z00_16164)
																																			{	/* Unsafe/http.scm 445 */
																																				BgL_matchz00_6872
																																					=
																																					BgL_newzd2matchzd2_6734;
																																			}
																																		else
																																			{	/* Unsafe/http.scm 445 */
																																				BgL_iportz00_6663
																																					=
																																					BgL_iportz00_6729;
																																				BgL_lastzd2matchzd2_6664
																																					=
																																					BgL_newzd2matchzd2_6734;
																																				BgL_forwardz00_6665
																																					=
																																					(1L +
																																					BgL_forwardz00_6731);
																																				BgL_bufposz00_6666
																																					=
																																					BgL_bufposz00_6732;
																																			BgL_zc3z04anonymousza34515ze3z87_6667:
																																				{	/* Unsafe/http.scm 445 */
																																					long
																																						BgL_newzd2matchzd2_6668;
																																					RGC_STOP_MATCH
																																						(BgL_iportz00_6663,
																																						BgL_forwardz00_6665);
																																					BgL_newzd2matchzd2_6668
																																						=
																																						1L;
																																					if (
																																						(BgL_forwardz00_6665
																																							==
																																							BgL_bufposz00_6666))
																																						{	/* Unsafe/http.scm 445 */
																																							if (rgc_fill_buffer(BgL_iportz00_6663))
																																								{	/* Unsafe/http.scm 445 */
																																									long
																																										BgL_arg4518z00_6671;
																																									long
																																										BgL_arg4519z00_6672;
																																									BgL_arg4518z00_6671
																																										=
																																										RGC_BUFFER_FORWARD
																																										(BgL_iportz00_6663);
																																									BgL_arg4519z00_6672
																																										=
																																										RGC_BUFFER_BUFPOS
																																										(BgL_iportz00_6663);
																																									{
																																										long
																																											BgL_bufposz00_16187;
																																										long
																																											BgL_forwardz00_16186;
																																										BgL_forwardz00_16186
																																											=
																																											BgL_arg4518z00_6671;
																																										BgL_bufposz00_16187
																																											=
																																											BgL_arg4519z00_6672;
																																										BgL_bufposz00_6666
																																											=
																																											BgL_bufposz00_16187;
																																										BgL_forwardz00_6665
																																											=
																																											BgL_forwardz00_16186;
																																										goto
																																											BgL_zc3z04anonymousza34515ze3z87_6667;
																																									}
																																								}
																																							else
																																								{	/* Unsafe/http.scm 445 */
																																									BgL_matchz00_6872
																																										=
																																										BgL_newzd2matchzd2_6668;
																																								}
																																						}
																																					else
																																						{	/* Unsafe/http.scm 445 */
																																							int
																																								BgL_curz00_6673;
																																							BgL_curz00_6673
																																								=
																																								RGC_BUFFER_GET_CHAR
																																								(BgL_iportz00_6663,
																																								BgL_forwardz00_6665);
																																							{	/* Unsafe/http.scm 445 */

																																								if (((long) (BgL_curz00_6673) == 58L))
																																									{	/* Unsafe/http.scm 445 */
																																										long
																																											BgL_arg4521z00_6675;
																																										BgL_arg4521z00_6675
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_6665);
																																										{	/* Unsafe/http.scm 445 */
																																											long
																																												BgL_newzd2matchzd2_10273;
																																											RGC_STOP_MATCH
																																												(BgL_iportz00_6663,
																																												BgL_arg4521z00_6675);
																																											BgL_newzd2matchzd2_10273
																																												=
																																												0L;
																																											BgL_matchz00_6872
																																												=
																																												BgL_newzd2matchzd2_10273;
																																									}}
																																								else
																																									{	/* Unsafe/http.scm 445 */
																																										bool_t
																																											BgL_test6477z00_16194;
																																										{	/* Unsafe/http.scm 445 */
																																											bool_t
																																												BgL_test6478z00_16195;
																																											if (((long) (BgL_curz00_6673) == 10L))
																																												{	/* Unsafe/http.scm 445 */
																																													BgL_test6478z00_16195
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Unsafe/http.scm 445 */
																																													BgL_test6478z00_16195
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_6673)
																																														==
																																														9L);
																																												}
																																											if (BgL_test6478z00_16195)
																																												{	/* Unsafe/http.scm 445 */
																																													BgL_test6477z00_16194
																																														=
																																														(
																																														(bool_t)
																																														1);
																																												}
																																											else
																																												{	/* Unsafe/http.scm 445 */
																																													if (((long) (BgL_curz00_6673) == 13L))
																																														{	/* Unsafe/http.scm 445 */
																																															BgL_test6477z00_16194
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Unsafe/http.scm 445 */
																																															if (((long) (BgL_curz00_6673) == 32L))
																																																{	/* Unsafe/http.scm 445 */
																																																	BgL_test6477z00_16194
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Unsafe/http.scm 445 */
																																																	BgL_test6477z00_16194
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_6673)
																																																		==
																																																		58L);
																																										}}}}
																																										if (BgL_test6477z00_16194)
																																											{	/* Unsafe/http.scm 445 */
																																												BgL_matchz00_6872
																																													=
																																													BgL_newzd2matchzd2_6668;
																																											}
																																										else
																																											{
																																												long
																																													BgL_forwardz00_16210;
																																												long
																																													BgL_lastzd2matchzd2_16209;
																																												BgL_lastzd2matchzd2_16209
																																													=
																																													BgL_newzd2matchzd2_6668;
																																												BgL_forwardz00_16210
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_6665);
																																												BgL_forwardz00_6665
																																													=
																																													BgL_forwardz00_16210;
																																												BgL_lastzd2matchzd2_6664
																																													=
																																													BgL_lastzd2matchzd2_16209;
																																												goto
																																													BgL_zc3z04anonymousza34515ze3z87_6667;
																																											}
																																									}
																																							}
																																						}
																																				}
																																			}
																																	}
																															}
																														}
																												}
																											}
																									}
																							}
																						}
																					}
																			}
																			RGC_SET_FILEPOS(BgL_iportz00_6606);
																			switch (BgL_matchz00_6872)
																				{
																				case 3L:

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

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

																							BgL_arg4640z00_6862 =
																								RGC_BUFFER_MATCH_LENGTH
																								(BgL_iportz00_6606);
																							BgL_test6482z00_16215 =
																								(BgL_arg4640z00_6862 == 0L);
																						}
																						if (BgL_test6482z00_16215)
																							{	/* Unsafe/http.scm 445 */
																								BgL_hz00_4396 = BEOF;
																							}
																						else
																							{	/* Unsafe/http.scm 445 */
																								BgL_hz00_4396 =
																									BCHAR(RGC_BUFFER_CHARACTER
																									(BgL_iportz00_6606));
																							}
																					}
																					break;
																				case 2L:

																					goto
																						BgL_zc3z04anonymousza34646ze3z87_6871;
																					break;
																				case 1L:

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

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

																							BgL_arg4566z00_10362 =
																								RGC_BUFFER_MATCH_LENGTH
																								(BgL_iportz00_6606);
																							BgL_val0_1421z00_6875 =
																								rgc_buffer_substring
																								(BgL_iportz00_6606, 0L,
																								BgL_arg4566z00_10362);
																						}
																						{	/* Unsafe/http.scm 451 */
																							int BgL_tmpz00_16222;

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

																							BgL_tmpz00_16225 = (int) (1L);
																							BGL_MVALUES_VAL_SET
																								(BgL_tmpz00_16225, BFALSE);
																						}
																						BgL_hz00_4396 =
																							BgL_val0_1421z00_6875;
																					} break;
																				case 0L:

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

																						BgL_minz00_6765 = (int) (0L);
																						BgL_maxz00_6766 = (int) (-1L);
																						if (
																							((long) (BgL_maxz00_6766) <
																								(long) (BgL_minz00_6765)))
																							{	/* Unsafe/http.scm 445 */
																								long BgL_arg4569z00_6769;

																								BgL_arg4569z00_6769 =
																									RGC_BUFFER_MATCH_LENGTH
																									(BgL_iportz00_6606);
																								{	/* Unsafe/http.scm 445 */
																									long BgL_za72za7_10340;

																									BgL_za72za7_10340 =
																										(long) (BgL_maxz00_6766);
																									BgL_maxz00_6766 =
																										(int) (
																										(BgL_arg4569z00_6769 +
																											BgL_za72za7_10340));
																							}}
																						else
																							{	/* Unsafe/http.scm 445 */
																								BFALSE;
																							}
																						{	/* Unsafe/http.scm 445 */
																							bool_t BgL_test6484z00_16236;

																							if (
																								((long) (BgL_minz00_6765) >=
																									0L))
																								{	/* Unsafe/http.scm 445 */
																									if (
																										((long) (BgL_maxz00_6766) >=
																											(long) (BgL_minz00_6765)))
																										{	/* Unsafe/http.scm 445 */
																											long BgL_arg4578z00_6780;

																											BgL_arg4578z00_6780 =
																												RGC_BUFFER_MATCH_LENGTH
																												(BgL_iportz00_6606);
																											BgL_test6484z00_16236 =
																												((long)
																												(BgL_maxz00_6766) <=
																												BgL_arg4578z00_6780);
																										}
																									else
																										{	/* Unsafe/http.scm 445 */
																											BgL_test6484z00_16236 =
																												((bool_t) 0);
																										}
																								}
																							else
																								{	/* Unsafe/http.scm 445 */
																									BgL_test6484z00_16236 =
																										((bool_t) 0);
																								}
																							if (BgL_test6484z00_16236)
																								{	/* Unsafe/http.scm 445 */
																									BgL_hz00_6877 =
																										rgc_buffer_substring
																										(BgL_iportz00_6606,
																										(long) (BgL_minz00_6765),
																										(long) (BgL_maxz00_6766));
																								}
																							else
																								{	/* Unsafe/http.scm 445 */
																									obj_t BgL_arg4574z00_6774;
																									obj_t BgL_arg4575z00_6775;

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

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

																											BgL_arg4566z00_10350 =
																												RGC_BUFFER_MATCH_LENGTH
																												(BgL_iportz00_6606);
																											BgL_arg4576z00_6776 =
																												rgc_buffer_substring
																												(BgL_iportz00_6606, 0L,
																												BgL_arg4566z00_10350);
																										}
																										{	/* Unsafe/http.scm 445 */
																											obj_t
																												BgL_list4577z00_6777;
																											BgL_list4577z00_6777 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg4576z00_6776,
																												BNIL);
																											BgL_arg4574z00_6774 =
																												BGl_formatz00zz__r4_output_6_10_3z00
																												(BGl_string5603z00zz__httpz00,
																												BgL_list4577z00_6777);
																									}}
																									BgL_arg4575z00_6775 =
																										MAKE_YOUNG_PAIR(BINT
																										(BgL_minz00_6765),
																										BINT(BgL_maxz00_6766));
																									BgL_hz00_6877 =
																										BGl_errorz00zz__errorz00
																										(BGl_string5604z00zz__httpz00,
																										BgL_arg4574z00_6774,
																										BgL_arg4575z00_6775);
																						}}
																						{	/* Unsafe/http.scm 447 */
																							obj_t BgL_pz00_6878;

																							BgL_pz00_6878 =
																								BGl_httpzd2readzd2fixnumz00zz__httpz00
																								(BgL_iportz00_6606);
																							{	/* Unsafe/http.scm 448 */

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

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

																									BgL_tmpz00_16264 = (int) (1L);
																									BGL_MVALUES_VAL_SET
																										(BgL_tmpz00_16264,
																										BgL_pz00_6878);
																								}
																								BgL_hz00_4396 = BgL_hz00_6877;
																					}}} break;
																				default:
																					BgL_hz00_4396 =
																						BGl_errorz00zz__errorz00
																						(BGl_string5600z00zz__httpz00,
																						BGl_string5601z00zz__httpz00,
																						BINT(BgL_matchz00_6872));
																				}
																		}
																	}
																	{	/* Unsafe/http.scm 515 */
																		obj_t BgL_pz00_4397;

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

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

																				BgL_tmpz00_16270 = (int) (1L);
																				BgL_tmpz00_11684 =
																					BGL_MVALUES_VAL(BgL_tmpz00_16270);
																			}
																			{	/* Unsafe/http.scm 516 */
																				int BgL_tmpz00_16273;

																				BgL_tmpz00_16273 = (int) (1L);
																				BGL_MVALUES_VAL_SET(BgL_tmpz00_16273,
																					BUNSPEC);
																			}
																			BgL_pz00_4397 = BgL_tmpz00_11684;
																		}
																		BgL_hostnamez00_3879 = BgL_hz00_4396;
																		BgL_portz00_3880 = BgL_pz00_4397;
																		BGl_crlfzd2grammarze70z35zz__httpz00
																			(BgL_iportz00_3876);
																		{	/* Unsafe/http.scm 519 */
																			obj_t BgL_hostz00_4399;

																			if (INTEGERP(BgL_pz00_4397))
																				{	/* Unsafe/http.scm 520 */
																					obj_t BgL_arg3414z00_4402;

																					{	/* Ieee/fixnum.scm 1000 */

																						BgL_arg3414z00_4402 =
																							BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00
																							((long) CINT(BgL_pz00_4397), 10L);
																					}
																					BgL_hostz00_4399 =
																						string_append_3(BgL_hz00_4396,
																						BGl_string5670z00zz__httpz00,
																						BgL_arg3414z00_4402);
																				}
																			else
																				{	/* Unsafe/http.scm 519 */
																					BgL_hostz00_4399 = BgL_hz00_4396;
																				}
																			{	/* Unsafe/http.scm 522 */
																				obj_t BgL_arg3412z00_4400;

																				BgL_arg3412z00_4400 =
																					MAKE_YOUNG_PAIR(BgL_kz00_4393,
																					BgL_hostz00_4399);
																				BgL_headerz00_3878 =
																					MAKE_YOUNG_PAIR(BgL_arg3412z00_4400,
																					BgL_headerz00_3878);
																			}
																			goto
																				BgL_zc3z04anonymousza33376ze3z87_4352;
																		}
																	}
																}
															else
																{	/* Unsafe/http.scm 512 */
																	if (
																		(BgL_kz00_4393 ==
																			BGl_keyword5714z00zz__httpz00))
																		{	/* Unsafe/http.scm 512 */
																			BgL_iportz00_6037 = BgL_iportz00_3876;
																			{
																				obj_t BgL_iportz00_6072;
																				long BgL_lastzd2matchzd2_6073;
																				long BgL_forwardz00_6074;
																				long BgL_bufposz00_6075;
																				obj_t BgL_iportz00_6097;
																				long BgL_lastzd2matchzd2_6098;
																				long BgL_forwardz00_6099;
																				long BgL_bufposz00_6100;
																				obj_t BgL_iportz00_6112;
																				long BgL_lastzd2matchzd2_6113;
																				long BgL_forwardz00_6114;
																				long BgL_bufposz00_6115;
																				obj_t BgL_iportz00_6127;
																				long BgL_lastzd2matchzd2_6128;
																				long BgL_forwardz00_6129;
																				long BgL_bufposz00_6130;
																				obj_t BgL_iportz00_6142;
																				long BgL_lastzd2matchzd2_6143;
																				long BgL_forwardz00_6144;
																				long BgL_bufposz00_6145;

																			BgL_zc3z04anonymousza34358ze3z87_6275:
																				RGC_START_MATCH(BgL_iportz00_6037);
																				{	/* Unsafe/http.scm 461 */
																					long BgL_matchz00_6276;

																					{	/* Unsafe/http.scm 461 */
																						long BgL_arg4360z00_6280;
																						long BgL_arg4361z00_6281;

																						BgL_arg4360z00_6280 =
																							RGC_BUFFER_FORWARD
																							(BgL_iportz00_6037);
																						BgL_arg4361z00_6281 =
																							RGC_BUFFER_BUFPOS
																							(BgL_iportz00_6037);
																						BgL_iportz00_6072 =
																							BgL_iportz00_6037;
																						BgL_lastzd2matchzd2_6073 = 2L;
																						BgL_forwardz00_6074 =
																							BgL_arg4360z00_6280;
																						BgL_bufposz00_6075 =
																							BgL_arg4361z00_6281;
																					BgL_zc3z04anonymousza34227ze3z87_6076:
																						if (
																							(BgL_forwardz00_6074 ==
																								BgL_bufposz00_6075))
																							{	/* Unsafe/http.scm 461 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_6072))
																									{	/* Unsafe/http.scm 461 */
																										long BgL_arg4230z00_6079;
																										long BgL_arg4231z00_6080;

																										BgL_arg4230z00_6079 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_6072);
																										BgL_arg4231z00_6080 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_6072);
																										{
																											long BgL_bufposz00_16296;
																											long BgL_forwardz00_16295;

																											BgL_forwardz00_16295 =
																												BgL_arg4230z00_6079;
																											BgL_bufposz00_16296 =
																												BgL_arg4231z00_6080;
																											BgL_bufposz00_6075 =
																												BgL_bufposz00_16296;
																											BgL_forwardz00_6074 =
																												BgL_forwardz00_16295;
																											goto
																												BgL_zc3z04anonymousza34227ze3z87_6076;
																										}
																									}
																								else
																									{	/* Unsafe/http.scm 461 */
																										BgL_matchz00_6276 =
																											BgL_lastzd2matchzd2_6073;
																									}
																							}
																						else
																							{	/* Unsafe/http.scm 461 */
																								int BgL_curz00_6081;

																								BgL_curz00_6081 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_6072,
																									BgL_forwardz00_6074);
																								{	/* Unsafe/http.scm 461 */

																									{	/* Unsafe/http.scm 461 */
																										bool_t
																											BgL_test6491z00_16298;
																										if (((long)
																												(BgL_curz00_6081) >=
																												48L))
																											{	/* Unsafe/http.scm 461 */
																												BgL_test6491z00_16298 =
																													(
																													(long)
																													(BgL_curz00_6081) <
																													58L);
																											}
																										else
																											{	/* Unsafe/http.scm 461 */
																												BgL_test6491z00_16298 =
																													((bool_t) 0);
																											}
																										if (BgL_test6491z00_16298)
																											{	/* Unsafe/http.scm 461 */
																												BgL_iportz00_6112 =
																													BgL_iportz00_6072;
																												BgL_lastzd2matchzd2_6113
																													=
																													BgL_lastzd2matchzd2_6073;
																												BgL_forwardz00_6114 =
																													(1L +
																													BgL_forwardz00_6074);
																												BgL_bufposz00_6115 =
																													BgL_bufposz00_6075;
																											BgL_zc3z04anonymousza34248ze3z87_6116:
																												{	/* Unsafe/http.scm 461 */
																													long
																														BgL_newzd2matchzd2_6117;
																													RGC_STOP_MATCH
																														(BgL_iportz00_6112,
																														BgL_forwardz00_6114);
																													BgL_newzd2matchzd2_6117
																														= 0L;
																													if (
																														(BgL_forwardz00_6114
																															==
																															BgL_bufposz00_6115))
																														{	/* Unsafe/http.scm 461 */
																															if (rgc_fill_buffer(BgL_iportz00_6112))
																																{	/* Unsafe/http.scm 461 */
																																	long
																																		BgL_arg4251z00_6120;
																																	long
																																		BgL_arg4252z00_6121;
																																	BgL_arg4251z00_6120
																																		=
																																		RGC_BUFFER_FORWARD
																																		(BgL_iportz00_6112);
																																	BgL_arg4252z00_6121
																																		=
																																		RGC_BUFFER_BUFPOS
																																		(BgL_iportz00_6112);
																																	{
																																		long
																																			BgL_bufposz00_16312;
																																		long
																																			BgL_forwardz00_16311;
																																		BgL_forwardz00_16311
																																			=
																																			BgL_arg4251z00_6120;
																																		BgL_bufposz00_16312
																																			=
																																			BgL_arg4252z00_6121;
																																		BgL_bufposz00_6115
																																			=
																																			BgL_bufposz00_16312;
																																		BgL_forwardz00_6114
																																			=
																																			BgL_forwardz00_16311;
																																		goto
																																			BgL_zc3z04anonymousza34248ze3z87_6116;
																																	}
																																}
																															else
																																{	/* Unsafe/http.scm 461 */
																																	BgL_matchz00_6276
																																		=
																																		BgL_newzd2matchzd2_6117;
																																}
																														}
																													else
																														{	/* Unsafe/http.scm 461 */
																															int
																																BgL_curz00_6122;
																															BgL_curz00_6122 =
																																RGC_BUFFER_GET_CHAR
																																(BgL_iportz00_6112,
																																BgL_forwardz00_6114);
																															{	/* Unsafe/http.scm 461 */

																																{	/* Unsafe/http.scm 461 */
																																	bool_t
																																		BgL_test6495z00_16314;
																																	if (((long)
																																			(BgL_curz00_6122)
																																			>= 48L))
																																		{	/* Unsafe/http.scm 461 */
																																			BgL_test6495z00_16314
																																				=
																																				((long)
																																				(BgL_curz00_6122)
																																				< 58L);
																																		}
																																	else
																																		{	/* Unsafe/http.scm 461 */
																																			BgL_test6495z00_16314
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																	if (BgL_test6495z00_16314)
																																		{	/* Unsafe/http.scm 461 */
																																			BgL_iportz00_6127
																																				=
																																				BgL_iportz00_6112;
																																			BgL_lastzd2matchzd2_6128
																																				=
																																				BgL_newzd2matchzd2_6117;
																																			BgL_forwardz00_6129
																																				=
																																				(1L +
																																				BgL_forwardz00_6114);
																																			BgL_bufposz00_6130
																																				=
																																				BgL_bufposz00_6115;
																																		BgL_zc3z04anonymousza34256ze3z87_6131:
																																			{	/* Unsafe/http.scm 461 */
																																				long
																																					BgL_newzd2matchzd2_6132;
																																				RGC_STOP_MATCH
																																					(BgL_iportz00_6127,
																																					BgL_forwardz00_6129);
																																				BgL_newzd2matchzd2_6132
																																					= 0L;
																																				if (
																																					(BgL_forwardz00_6129
																																						==
																																						BgL_bufposz00_6130))
																																					{	/* Unsafe/http.scm 461 */
																																						if (rgc_fill_buffer(BgL_iportz00_6127))
																																							{	/* Unsafe/http.scm 461 */
																																								long
																																									BgL_arg4259z00_6135;
																																								long
																																									BgL_arg4260z00_6136;
																																								BgL_arg4259z00_6135
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_iportz00_6127);
																																								BgL_arg4260z00_6136
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_iportz00_6127);
																																								{
																																									long
																																										BgL_bufposz00_16328;
																																									long
																																										BgL_forwardz00_16327;
																																									BgL_forwardz00_16327
																																										=
																																										BgL_arg4259z00_6135;
																																									BgL_bufposz00_16328
																																										=
																																										BgL_arg4260z00_6136;
																																									BgL_bufposz00_6130
																																										=
																																										BgL_bufposz00_16328;
																																									BgL_forwardz00_6129
																																										=
																																										BgL_forwardz00_16327;
																																									goto
																																										BgL_zc3z04anonymousza34256ze3z87_6131;
																																								}
																																							}
																																						else
																																							{	/* Unsafe/http.scm 461 */
																																								BgL_matchz00_6276
																																									=
																																									BgL_newzd2matchzd2_6132;
																																							}
																																					}
																																				else
																																					{	/* Unsafe/http.scm 461 */
																																						int
																																							BgL_curz00_6137;
																																						BgL_curz00_6137
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_iportz00_6127,
																																							BgL_forwardz00_6129);
																																						{	/* Unsafe/http.scm 461 */

																																							{	/* Unsafe/http.scm 461 */
																																								bool_t
																																									BgL_test6499z00_16330;
																																								if (((long) (BgL_curz00_6137) >= 48L))
																																									{	/* Unsafe/http.scm 461 */
																																										BgL_test6499z00_16330
																																											=
																																											(
																																											(long)
																																											(BgL_curz00_6137)
																																											<
																																											58L);
																																									}
																																								else
																																									{	/* Unsafe/http.scm 461 */
																																										BgL_test6499z00_16330
																																											=
																																											(
																																											(bool_t)
																																											0);
																																									}
																																								if (BgL_test6499z00_16330)
																																									{
																																										long
																																											BgL_forwardz00_16337;
																																										long
																																											BgL_lastzd2matchzd2_16336;
																																										BgL_lastzd2matchzd2_16336
																																											=
																																											BgL_newzd2matchzd2_6132;
																																										BgL_forwardz00_16337
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_6129);
																																										BgL_forwardz00_6129
																																											=
																																											BgL_forwardz00_16337;
																																										BgL_lastzd2matchzd2_6128
																																											=
																																											BgL_lastzd2matchzd2_16336;
																																										goto
																																											BgL_zc3z04anonymousza34256ze3z87_6131;
																																									}
																																								else
																																									{	/* Unsafe/http.scm 461 */
																																										BgL_matchz00_6276
																																											=
																																											BgL_newzd2matchzd2_6132;
																																									}
																																							}
																																						}
																																					}
																																			}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 461 */
																																			BgL_matchz00_6276
																																				=
																																				BgL_newzd2matchzd2_6117;
																																		}
																																}
																															}
																														}
																												}
																											}
																										else
																											{	/* Unsafe/http.scm 461 */
																												bool_t
																													BgL_test6501z00_16341;
																												if (((long)
																														(BgL_curz00_6081) ==
																														9L))
																													{	/* Unsafe/http.scm 461 */
																														BgL_test6501z00_16341
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Unsafe/http.scm 461 */
																														BgL_test6501z00_16341
																															=
																															((long)
																															(BgL_curz00_6081)
																															== 32L);
																													}
																												if (BgL_test6501z00_16341)
																													{	/* Unsafe/http.scm 461 */
																														BgL_iportz00_6097 =
																															BgL_iportz00_6072;
																														BgL_lastzd2matchzd2_6098
																															=
																															BgL_lastzd2matchzd2_6073;
																														BgL_forwardz00_6099
																															=
																															(1L +
																															BgL_forwardz00_6074);
																														BgL_bufposz00_6100 =
																															BgL_bufposz00_6075;
																													BgL_zc3z04anonymousza34240ze3z87_6101:
																														{	/* Unsafe/http.scm 461 */
																															long
																																BgL_newzd2matchzd2_6102;
																															RGC_STOP_MATCH
																																(BgL_iportz00_6097,
																																BgL_forwardz00_6099);
																															BgL_newzd2matchzd2_6102
																																= 1L;
																															if (
																																(BgL_forwardz00_6099
																																	==
																																	BgL_bufposz00_6100))
																																{	/* Unsafe/http.scm 461 */
																																	if (rgc_fill_buffer(BgL_iportz00_6097))
																																		{	/* Unsafe/http.scm 461 */
																																			long
																																				BgL_arg4243z00_6105;
																																			long
																																				BgL_arg4244z00_6106;
																																			BgL_arg4243z00_6105
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_iportz00_6097);
																																			BgL_arg4244z00_6106
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_iportz00_6097);
																																			{
																																				long
																																					BgL_bufposz00_16355;
																																				long
																																					BgL_forwardz00_16354;
																																				BgL_forwardz00_16354
																																					=
																																					BgL_arg4243z00_6105;
																																				BgL_bufposz00_16355
																																					=
																																					BgL_arg4244z00_6106;
																																				BgL_bufposz00_6100
																																					=
																																					BgL_bufposz00_16355;
																																				BgL_forwardz00_6099
																																					=
																																					BgL_forwardz00_16354;
																																				goto
																																					BgL_zc3z04anonymousza34240ze3z87_6101;
																																			}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 461 */
																																			BgL_matchz00_6276
																																				=
																																				BgL_newzd2matchzd2_6102;
																																		}
																																}
																															else
																																{	/* Unsafe/http.scm 461 */
																																	int
																																		BgL_curz00_6107;
																																	BgL_curz00_6107
																																		=
																																		RGC_BUFFER_GET_CHAR
																																		(BgL_iportz00_6097,
																																		BgL_forwardz00_6099);
																																	{	/* Unsafe/http.scm 461 */

																																		{	/* Unsafe/http.scm 461 */
																																			bool_t
																																				BgL_test6505z00_16357;
																																			if ((
																																					(long)
																																					(BgL_curz00_6107)
																																					==
																																					9L))
																																				{	/* Unsafe/http.scm 461 */
																																					BgL_test6505z00_16357
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Unsafe/http.scm 461 */
																																					BgL_test6505z00_16357
																																						=
																																						(
																																						(long)
																																						(BgL_curz00_6107)
																																						==
																																						32L);
																																				}
																																			if (BgL_test6505z00_16357)
																																				{	/* Unsafe/http.scm 461 */
																																					BgL_iportz00_6142
																																						=
																																						BgL_iportz00_6097;
																																					BgL_lastzd2matchzd2_6143
																																						=
																																						BgL_newzd2matchzd2_6102;
																																					BgL_forwardz00_6144
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_6099);
																																					BgL_bufposz00_6145
																																						=
																																						BgL_bufposz00_6100;
																																				BgL_zc3z04anonymousza34264ze3z87_6146:
																																					{	/* Unsafe/http.scm 461 */
																																						long
																																							BgL_newzd2matchzd2_6147;
																																						RGC_STOP_MATCH
																																							(BgL_iportz00_6142,
																																							BgL_forwardz00_6144);
																																						BgL_newzd2matchzd2_6147
																																							=
																																							1L;
																																						if (
																																							(BgL_forwardz00_6144
																																								==
																																								BgL_bufposz00_6145))
																																							{	/* Unsafe/http.scm 461 */
																																								if (rgc_fill_buffer(BgL_iportz00_6142))
																																									{	/* Unsafe/http.scm 461 */
																																										long
																																											BgL_arg4267z00_6150;
																																										long
																																											BgL_arg4268z00_6151;
																																										BgL_arg4267z00_6150
																																											=
																																											RGC_BUFFER_FORWARD
																																											(BgL_iportz00_6142);
																																										BgL_arg4268z00_6151
																																											=
																																											RGC_BUFFER_BUFPOS
																																											(BgL_iportz00_6142);
																																										{
																																											long
																																												BgL_bufposz00_16371;
																																											long
																																												BgL_forwardz00_16370;
																																											BgL_forwardz00_16370
																																												=
																																												BgL_arg4267z00_6150;
																																											BgL_bufposz00_16371
																																												=
																																												BgL_arg4268z00_6151;
																																											BgL_bufposz00_6145
																																												=
																																												BgL_bufposz00_16371;
																																											BgL_forwardz00_6144
																																												=
																																												BgL_forwardz00_16370;
																																											goto
																																												BgL_zc3z04anonymousza34264ze3z87_6146;
																																										}
																																									}
																																								else
																																									{	/* Unsafe/http.scm 461 */
																																										BgL_matchz00_6276
																																											=
																																											BgL_newzd2matchzd2_6147;
																																									}
																																							}
																																						else
																																							{	/* Unsafe/http.scm 461 */
																																								int
																																									BgL_curz00_6152;
																																								BgL_curz00_6152
																																									=
																																									RGC_BUFFER_GET_CHAR
																																									(BgL_iportz00_6142,
																																									BgL_forwardz00_6144);
																																								{	/* Unsafe/http.scm 461 */

																																									{	/* Unsafe/http.scm 461 */
																																										bool_t
																																											BgL_test6509z00_16373;
																																										if (((long) (BgL_curz00_6152) == 9L))
																																											{	/* Unsafe/http.scm 461 */
																																												BgL_test6509z00_16373
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Unsafe/http.scm 461 */
																																												BgL_test6509z00_16373
																																													=
																																													(
																																													(long)
																																													(BgL_curz00_6152)
																																													==
																																													32L);
																																											}
																																										if (BgL_test6509z00_16373)
																																											{
																																												long
																																													BgL_forwardz00_16380;
																																												long
																																													BgL_lastzd2matchzd2_16379;
																																												BgL_lastzd2matchzd2_16379
																																													=
																																													BgL_newzd2matchzd2_6147;
																																												BgL_forwardz00_16380
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_6144);
																																												BgL_forwardz00_6144
																																													=
																																													BgL_forwardz00_16380;
																																												BgL_lastzd2matchzd2_6143
																																													=
																																													BgL_lastzd2matchzd2_16379;
																																												goto
																																													BgL_zc3z04anonymousza34264ze3z87_6146;
																																											}
																																										else
																																											{	/* Unsafe/http.scm 461 */
																																												BgL_matchz00_6276
																																													=
																																													BgL_newzd2matchzd2_6147;
																																											}
																																									}
																																								}
																																							}
																																					}
																																				}
																																			else
																																				{	/* Unsafe/http.scm 461 */
																																					BgL_matchz00_6276
																																						=
																																						BgL_newzd2matchzd2_6102;
																																				}
																																		}
																																	}
																																}
																														}
																													}
																												else
																													{	/* Unsafe/http.scm 461 */
																														long
																															BgL_arg4238z00_6088;
																														BgL_arg4238z00_6088
																															=
																															(1L +
																															BgL_forwardz00_6074);
																														{	/* Unsafe/http.scm 461 */
																															long
																																BgL_newzd2matchzd2_10381;
																															RGC_STOP_MATCH
																																(BgL_iportz00_6072,
																																BgL_arg4238z00_6088);
																															BgL_newzd2matchzd2_10381
																																= 2L;
																															BgL_matchz00_6276
																																=
																																BgL_newzd2matchzd2_10381;
																					}}}}}}}
																					RGC_SET_FILEPOS(BgL_iportz00_6037);
																					switch (BgL_matchz00_6276)
																						{
																						case 2L:

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

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

																									BgL_arg4352z00_6266 =
																										RGC_BUFFER_MATCH_LENGTH
																										(BgL_iportz00_6037);
																									BgL_test6511z00_16387 =
																										(BgL_arg4352z00_6266 == 0L);
																								}
																								if (BgL_test6511z00_16387)
																									{	/* Unsafe/http.scm 461 */
																										BgL_contentzd2lengthzd2_3881
																											= BEOF;
																									}
																								else
																									{	/* Unsafe/http.scm 461 */
																										BgL_contentzd2lengthzd2_3881
																											=
																											BCHAR(RGC_BUFFER_CHARACTER
																											(BgL_iportz00_6037));
																									}
																							}
																							break;
																						case 1L:

																							goto
																								BgL_zc3z04anonymousza34358ze3z87_6275;
																							break;
																						case 0L:

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

																								BgL_arg4359z00_6279 =
																									rgc_buffer_fixnum
																									(BgL_iportz00_6037);
																								{	/* Unsafe/http.scm 462 */
																									long BgL_tmpz00_16393;

																									BgL_tmpz00_16393 =
																										(long)
																										(BgL_arg4359z00_6279);
																									BgL_contentzd2lengthzd2_3881 =
																										make_belong
																										(BgL_tmpz00_16393);
																							}} break;
																						default:
																							BgL_contentzd2lengthzd2_3881 =
																								BGl_errorz00zz__errorz00
																								(BGl_string5600z00zz__httpz00,
																								BGl_string5601z00zz__httpz00,
																								BINT(BgL_matchz00_6276));
																						}
																				}
																			}
																			BgL_iportz00_4489 = BgL_iportz00_3876;
																			{
																				obj_t BgL_iportz00_4525;
																				long BgL_lastzd2matchzd2_4526;
																				long BgL_forwardz00_4527;
																				long BgL_bufposz00_4528;
																				obj_t BgL_iportz00_4541;
																				long BgL_lastzd2matchzd2_4542;
																				long BgL_forwardz00_4543;
																				long BgL_bufposz00_4544;
																				obj_t BgL_iportz00_4562;
																				long BgL_lastzd2matchzd2_4563;
																				long BgL_forwardz00_4564;
																				long BgL_bufposz00_4565;
																				obj_t BgL_iportz00_4575;
																				long BgL_lastzd2matchzd2_4576;
																				long BgL_forwardz00_4577;
																				long BgL_bufposz00_4578;

																				RGC_START_MATCH(BgL_iportz00_4489);
																				{	/* Unsafe/http.scm 499 */
																					long BgL_matchz00_4727;

																					{	/* Unsafe/http.scm 499 */
																						long BgL_arg3600z00_4730;
																						long BgL_arg3602z00_4731;

																						BgL_arg3600z00_4730 =
																							RGC_BUFFER_FORWARD
																							(BgL_iportz00_4489);
																						BgL_arg3602z00_4731 =
																							RGC_BUFFER_BUFPOS
																							(BgL_iportz00_4489);
																						BgL_iportz00_4575 =
																							BgL_iportz00_4489;
																						BgL_lastzd2matchzd2_4576 = 1L;
																						BgL_forwardz00_4577 =
																							BgL_arg3600z00_4730;
																						BgL_bufposz00_4578 =
																							BgL_arg3602z00_4731;
																					BgL_zc3z04anonymousza33484ze3z87_4579:
																						if (
																							(BgL_forwardz00_4577 ==
																								BgL_bufposz00_4578))
																							{	/* Unsafe/http.scm 499 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_4575))
																									{	/* Unsafe/http.scm 499 */
																										long BgL_arg3487z00_4582;
																										long BgL_arg3488z00_4583;

																										BgL_arg3487z00_4582 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_4575);
																										BgL_arg3488z00_4583 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_4575);
																										{
																											long BgL_bufposz00_16409;
																											long BgL_forwardz00_16408;

																											BgL_forwardz00_16408 =
																												BgL_arg3487z00_4582;
																											BgL_bufposz00_16409 =
																												BgL_arg3488z00_4583;
																											BgL_bufposz00_4578 =
																												BgL_bufposz00_16409;
																											BgL_forwardz00_4577 =
																												BgL_forwardz00_16408;
																											goto
																												BgL_zc3z04anonymousza33484ze3z87_4579;
																										}
																									}
																								else
																									{	/* Unsafe/http.scm 499 */
																										BgL_matchz00_4727 =
																											BgL_lastzd2matchzd2_4576;
																									}
																							}
																						else
																							{	/* Unsafe/http.scm 499 */
																								int BgL_curz00_4584;

																								BgL_curz00_4584 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_4575,
																									BgL_forwardz00_4577);
																								{	/* Unsafe/http.scm 499 */

																									if (
																										((long) (BgL_curz00_4584) ==
																											13L))
																										{	/* Unsafe/http.scm 499 */
																											BgL_iportz00_4562 =
																												BgL_iportz00_4575;
																											BgL_lastzd2matchzd2_4563 =
																												BgL_lastzd2matchzd2_4576;
																											BgL_forwardz00_4564 =
																												(1L +
																												BgL_forwardz00_4577);
																											BgL_bufposz00_4565 =
																												BgL_bufposz00_4578;
																										BgL_zc3z04anonymousza33476ze3z87_4566:
																											{	/* Unsafe/http.scm 499 */
																												long
																													BgL_newzd2matchzd2_4567;
																												RGC_STOP_MATCH
																													(BgL_iportz00_4562,
																													BgL_forwardz00_4564);
																												BgL_newzd2matchzd2_4567
																													= 1L;
																												if ((BgL_forwardz00_4564
																														==
																														BgL_bufposz00_4565))
																													{	/* Unsafe/http.scm 499 */
																														if (rgc_fill_buffer
																															(BgL_iportz00_4562))
																															{	/* Unsafe/http.scm 499 */
																																long
																																	BgL_arg3479z00_4570;
																																long
																																	BgL_arg3480z00_4571;
																																BgL_arg3479z00_4570
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_iportz00_4562);
																																BgL_arg3480z00_4571
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_iportz00_4562);
																																{
																																	long
																																		BgL_bufposz00_16422;
																																	long
																																		BgL_forwardz00_16421;
																																	BgL_forwardz00_16421
																																		=
																																		BgL_arg3479z00_4570;
																																	BgL_bufposz00_16422
																																		=
																																		BgL_arg3480z00_4571;
																																	BgL_bufposz00_4565
																																		=
																																		BgL_bufposz00_16422;
																																	BgL_forwardz00_4564
																																		=
																																		BgL_forwardz00_16421;
																																	goto
																																		BgL_zc3z04anonymousza33476ze3z87_4566;
																																}
																															}
																														else
																															{	/* Unsafe/http.scm 499 */
																																BgL_matchz00_4727
																																	=
																																	BgL_newzd2matchzd2_4567;
																															}
																													}
																												else
																													{	/* Unsafe/http.scm 499 */
																														int BgL_curz00_4572;

																														BgL_curz00_4572 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_iportz00_4562,
																															BgL_forwardz00_4564);
																														{	/* Unsafe/http.scm 499 */

																															if (
																																((long)
																																	(BgL_curz00_4572)
																																	== 10L))
																																{	/* Unsafe/http.scm 499 */
																																	long
																																		BgL_arg3483z00_4574;
																																	BgL_arg3483z00_4574
																																		=
																																		(1L +
																																		BgL_forwardz00_4564);
																																	{	/* Unsafe/http.scm 499 */
																																		long
																																			BgL_newzd2matchzd2_11150;
																																		RGC_STOP_MATCH
																																			(BgL_iportz00_4562,
																																			BgL_arg3483z00_4574);
																																		BgL_newzd2matchzd2_11150
																																			= 0L;
																																		BgL_matchz00_4727
																																			=
																																			BgL_newzd2matchzd2_11150;
																																}}
																															else
																																{	/* Unsafe/http.scm 499 */
																																	BgL_matchz00_4727
																																		=
																																		BgL_newzd2matchzd2_4567;
																																}
																														}
																													}
																											}
																										}
																									else
																										{	/* Unsafe/http.scm 499 */
																											if (
																												((long)
																													(BgL_curz00_4584) ==
																													10L))
																												{	/* Unsafe/http.scm 499 */
																													long
																														BgL_arg3492z00_4588;
																													BgL_arg3492z00_4588 =
																														(1L +
																														BgL_forwardz00_4577);
																													{	/* Unsafe/http.scm 499 */
																														long
																															BgL_newzd2matchzd2_11164;
																														RGC_STOP_MATCH
																															(BgL_iportz00_4575,
																															BgL_arg3492z00_4588);
																														BgL_newzd2matchzd2_11164
																															= 0L;
																														BgL_matchz00_4727 =
																															BgL_newzd2matchzd2_11164;
																												}}
																											else
																												{	/* Unsafe/http.scm 499 */
																													BgL_iportz00_4525 =
																														BgL_iportz00_4575;
																													BgL_lastzd2matchzd2_4526
																														=
																														BgL_lastzd2matchzd2_4576;
																													BgL_forwardz00_4527 =
																														(1L +
																														BgL_forwardz00_4577);
																													BgL_bufposz00_4528 =
																														BgL_bufposz00_4578;
																												BgL_zc3z04anonymousza33453ze3z87_4529:
																													{	/* Unsafe/http.scm 499 */
																														long
																															BgL_newzd2matchzd2_4530;
																														RGC_STOP_MATCH
																															(BgL_iportz00_4525,
																															BgL_forwardz00_4527);
																														BgL_newzd2matchzd2_4530
																															= 1L;
																														if (
																															(BgL_forwardz00_4527
																																==
																																BgL_bufposz00_4528))
																															{	/* Unsafe/http.scm 499 */
																																if (rgc_fill_buffer(BgL_iportz00_4525))
																																	{	/* Unsafe/http.scm 499 */
																																		long
																																			BgL_arg3456z00_4533;
																																		long
																																			BgL_arg3457z00_4534;
																																		BgL_arg3456z00_4533
																																			=
																																			RGC_BUFFER_FORWARD
																																			(BgL_iportz00_4525);
																																		BgL_arg3457z00_4534
																																			=
																																			RGC_BUFFER_BUFPOS
																																			(BgL_iportz00_4525);
																																		{
																																			long
																																				BgL_bufposz00_16443;
																																			long
																																				BgL_forwardz00_16442;
																																			BgL_forwardz00_16442
																																				=
																																				BgL_arg3456z00_4533;
																																			BgL_bufposz00_16443
																																				=
																																				BgL_arg3457z00_4534;
																																			BgL_bufposz00_4528
																																				=
																																				BgL_bufposz00_16443;
																																			BgL_forwardz00_4527
																																				=
																																				BgL_forwardz00_16442;
																																			goto
																																				BgL_zc3z04anonymousza33453ze3z87_4529;
																																		}
																																	}
																																else
																																	{	/* Unsafe/http.scm 499 */
																																		BgL_matchz00_4727
																																			=
																																			BgL_newzd2matchzd2_4530;
																																	}
																															}
																														else
																															{	/* Unsafe/http.scm 499 */
																																int
																																	BgL_curz00_4535;
																																BgL_curz00_4535
																																	=
																																	RGC_BUFFER_GET_CHAR
																																	(BgL_iportz00_4525,
																																	BgL_forwardz00_4527);
																																{	/* Unsafe/http.scm 499 */

																																	if (
																																		((long)
																																			(BgL_curz00_4535)
																																			== 13L))
																																		{	/* Unsafe/http.scm 499 */
																																			long
																																				BgL_arg3459z00_4537;
																																			BgL_arg3459z00_4537
																																				=
																																				(1L +
																																				BgL_forwardz00_4527);
																																			{
																																				long
																																					BgL_forwardz00_11072;
																																				long
																																					BgL_bufposz00_11073;
																																				BgL_forwardz00_11072
																																					=
																																					BgL_arg3459z00_4537;
																																				BgL_bufposz00_11073
																																					=
																																					BgL_bufposz00_4528;
																																			BgL_statezd27zd21250z00_11071:
																																				if (
																																					(BgL_forwardz00_11072
																																						==
																																						BgL_bufposz00_11073))
																																					{	/* Unsafe/http.scm 499 */
																																						if (rgc_fill_buffer(BgL_iportz00_4525))
																																							{	/* Unsafe/http.scm 499 */
																																								long
																																									BgL_arg3499z00_11076;
																																								long
																																									BgL_arg3500z00_11077;
																																								BgL_arg3499z00_11076
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_iportz00_4525);
																																								BgL_arg3500z00_11077
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_iportz00_4525);
																																								{
																																									long
																																										BgL_bufposz00_16456;
																																									long
																																										BgL_forwardz00_16455;
																																									BgL_forwardz00_16455
																																										=
																																										BgL_arg3499z00_11076;
																																									BgL_bufposz00_16456
																																										=
																																										BgL_arg3500z00_11077;
																																									BgL_bufposz00_11073
																																										=
																																										BgL_bufposz00_16456;
																																									BgL_forwardz00_11072
																																										=
																																										BgL_forwardz00_16455;
																																									goto
																																										BgL_statezd27zd21250z00_11071;
																																								}
																																							}
																																						else
																																							{	/* Unsafe/http.scm 499 */
																																								BgL_matchz00_4727
																																									=
																																									BgL_newzd2matchzd2_4530;
																																							}
																																					}
																																				else
																																					{	/* Unsafe/http.scm 499 */
																																						int
																																							BgL_curz00_11078;
																																						BgL_curz00_11078
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_iportz00_4525,
																																							BgL_forwardz00_11072);
																																						{	/* Unsafe/http.scm 499 */

																																							if (((long) (BgL_curz00_11078) == 10L))
																																								{	/* Unsafe/http.scm 499 */
																																									long
																																										BgL_arg3502z00_11080;
																																									BgL_arg3502z00_11080
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_11072);
																																									{	/* Unsafe/http.scm 499 */
																																										long
																																											BgL_newzd2matchzd2_11090;
																																										RGC_STOP_MATCH
																																											(BgL_iportz00_4525,
																																											BgL_arg3502z00_11080);
																																										BgL_newzd2matchzd2_11090
																																											=
																																											0L;
																																										BgL_matchz00_4727
																																											=
																																											BgL_newzd2matchzd2_11090;
																																								}}
																																							else
																																								{	/* Unsafe/http.scm 499 */
																																									BgL_matchz00_4727
																																										=
																																										BgL_newzd2matchzd2_4530;
																																								}
																																						}
																																					}
																																			}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 499 */
																																			if (
																																				((long)
																																					(BgL_curz00_4535)
																																					==
																																					10L))
																																				{	/* Unsafe/http.scm 499 */
																																					long
																																						BgL_arg3461z00_4539;
																																					BgL_arg3461z00_4539
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_4527);
																																					{	/* Unsafe/http.scm 499 */
																																						long
																																							BgL_newzd2matchzd2_11095;
																																						RGC_STOP_MATCH
																																							(BgL_iportz00_4525,
																																							BgL_arg3461z00_4539);
																																						BgL_newzd2matchzd2_11095
																																							=
																																							0L;
																																						BgL_matchz00_4727
																																							=
																																							BgL_newzd2matchzd2_11095;
																																				}}
																																			else
																																				{	/* Unsafe/http.scm 499 */
																																					BgL_iportz00_4541
																																						=
																																						BgL_iportz00_4525;
																																					BgL_lastzd2matchzd2_4542
																																						=
																																						BgL_newzd2matchzd2_4530;
																																					BgL_forwardz00_4543
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_4527);
																																					BgL_bufposz00_4544
																																						=
																																						BgL_bufposz00_4528;
																																				BgL_zc3z04anonymousza33463ze3z87_4545:
																																					if (
																																						(BgL_forwardz00_4543
																																							==
																																							BgL_bufposz00_4544))
																																						{	/* Unsafe/http.scm 499 */
																																							if (rgc_fill_buffer(BgL_iportz00_4541))
																																								{	/* Unsafe/http.scm 499 */
																																									long
																																										BgL_arg3466z00_4548;
																																									long
																																										BgL_arg3467z00_4549;
																																									BgL_arg3466z00_4548
																																										=
																																										RGC_BUFFER_FORWARD
																																										(BgL_iportz00_4541);
																																									BgL_arg3467z00_4549
																																										=
																																										RGC_BUFFER_BUFPOS
																																										(BgL_iportz00_4541);
																																									{
																																										long
																																											BgL_bufposz00_16475;
																																										long
																																											BgL_forwardz00_16474;
																																										BgL_forwardz00_16474
																																											=
																																											BgL_arg3466z00_4548;
																																										BgL_bufposz00_16475
																																											=
																																											BgL_arg3467z00_4549;
																																										BgL_bufposz00_4544
																																											=
																																											BgL_bufposz00_16475;
																																										BgL_forwardz00_4543
																																											=
																																											BgL_forwardz00_16474;
																																										goto
																																											BgL_zc3z04anonymousza33463ze3z87_4545;
																																									}
																																								}
																																							else
																																								{	/* Unsafe/http.scm 499 */
																																									BgL_matchz00_4727
																																										=
																																										BgL_lastzd2matchzd2_4542;
																																								}
																																						}
																																					else
																																						{	/* Unsafe/http.scm 499 */
																																							int
																																								BgL_curz00_4550;
																																							BgL_curz00_4550
																																								=
																																								RGC_BUFFER_GET_CHAR
																																								(BgL_iportz00_4541,
																																								BgL_forwardz00_4543);
																																							{	/* Unsafe/http.scm 499 */

																																								if (((long) (BgL_curz00_4550) == 13L))
																																									{	/* Unsafe/http.scm 499 */
																																										long
																																											BgL_arg3469z00_4552;
																																										BgL_arg3469z00_4552
																																											=
																																											(1L
																																											+
																																											BgL_forwardz00_4543);
																																										{
																																											long
																																												BgL_forwardz00_11109;
																																											long
																																												BgL_bufposz00_11110;
																																											BgL_forwardz00_11109
																																												=
																																												BgL_arg3469z00_4552;
																																											BgL_bufposz00_11110
																																												=
																																												BgL_bufposz00_4544;
																																										BgL_statezd27zd21250z00_11108:
																																											if ((BgL_forwardz00_11109 == BgL_bufposz00_11110))
																																												{	/* Unsafe/http.scm 499 */
																																													if (rgc_fill_buffer(BgL_iportz00_4541))
																																														{	/* Unsafe/http.scm 499 */
																																															long
																																																BgL_arg3499z00_11113;
																																															long
																																																BgL_arg3500z00_11114;
																																															BgL_arg3499z00_11113
																																																=
																																																RGC_BUFFER_FORWARD
																																																(BgL_iportz00_4541);
																																															BgL_arg3500z00_11114
																																																=
																																																RGC_BUFFER_BUFPOS
																																																(BgL_iportz00_4541);
																																															{
																																																long
																																																	BgL_bufposz00_16488;
																																																long
																																																	BgL_forwardz00_16487;
																																																BgL_forwardz00_16487
																																																	=
																																																	BgL_arg3499z00_11113;
																																																BgL_bufposz00_16488
																																																	=
																																																	BgL_arg3500z00_11114;
																																																BgL_bufposz00_11110
																																																	=
																																																	BgL_bufposz00_16488;
																																																BgL_forwardz00_11109
																																																	=
																																																	BgL_forwardz00_16487;
																																																goto
																																																	BgL_statezd27zd21250z00_11108;
																																															}
																																														}
																																													else
																																														{	/* Unsafe/http.scm 499 */
																																															BgL_matchz00_4727
																																																=
																																																BgL_lastzd2matchzd2_4542;
																																														}
																																												}
																																											else
																																												{	/* Unsafe/http.scm 499 */
																																													int
																																														BgL_curz00_11115;
																																													BgL_curz00_11115
																																														=
																																														RGC_BUFFER_GET_CHAR
																																														(BgL_iportz00_4541,
																																														BgL_forwardz00_11109);
																																													{	/* Unsafe/http.scm 499 */

																																														if (((long) (BgL_curz00_11115) == 10L))
																																															{	/* Unsafe/http.scm 499 */
																																																long
																																																	BgL_arg3502z00_11117;
																																																BgL_arg3502z00_11117
																																																	=
																																																	(1L
																																																	+
																																																	BgL_forwardz00_11109);
																																																{	/* Unsafe/http.scm 499 */
																																																	long
																																																		BgL_newzd2matchzd2_11127;
																																																	RGC_STOP_MATCH
																																																		(BgL_iportz00_4541,
																																																		BgL_arg3502z00_11117);
																																																	BgL_newzd2matchzd2_11127
																																																		=
																																																		0L;
																																																	BgL_matchz00_4727
																																																		=
																																																		BgL_newzd2matchzd2_11127;
																																															}}
																																														else
																																															{	/* Unsafe/http.scm 499 */
																																																BgL_matchz00_4727
																																																	=
																																																	BgL_lastzd2matchzd2_4542;
																																															}
																																													}
																																												}
																																										}
																																									}
																																								else
																																									{	/* Unsafe/http.scm 499 */
																																										if (((long) (BgL_curz00_4550) == 10L))
																																											{	/* Unsafe/http.scm 499 */
																																												long
																																													BgL_arg3473z00_4554;
																																												BgL_arg3473z00_4554
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_4543);
																																												{	/* Unsafe/http.scm 499 */
																																													long
																																														BgL_newzd2matchzd2_11132;
																																													RGC_STOP_MATCH
																																														(BgL_iportz00_4541,
																																														BgL_arg3473z00_4554);
																																													BgL_newzd2matchzd2_11132
																																														=
																																														0L;
																																													BgL_matchz00_4727
																																														=
																																														BgL_newzd2matchzd2_11132;
																																											}}
																																										else
																																											{
																																												long
																																													BgL_forwardz00_16500;
																																												BgL_forwardz00_16500
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_4543);
																																												BgL_forwardz00_4543
																																													=
																																													BgL_forwardz00_16500;
																																												goto
																																													BgL_zc3z04anonymousza33463ze3z87_4545;
																																											}
																																									}
																																							}
																																						}
																																				}
																																		}
																																}
																															}
																													}
																												}
																										}
																								}
																							}
																					}
																					RGC_SET_FILEPOS(BgL_iportz00_4489);
																					switch (BgL_matchz00_4727)
																						{
																						case 1L:
																							BFALSE;
																							break;
																						case 0L:
																							BUNSPEC;
																							break;
																						default:
																							BGl_errorz00zz__errorz00
																								(BGl_string5600z00zz__httpz00,
																								BGl_string5601z00zz__httpz00,
																								BINT(BgL_matchz00_4727));
																						}
																				}
																			}
																			{	/* Unsafe/http.scm 531 */
																				obj_t BgL_arg3421z00_4409;

																				BgL_arg3421z00_4409 =
																					MAKE_YOUNG_PAIR(BgL_kz00_4393,
																					BgL_contentzd2lengthzd2_3881);
																				BgL_headerz00_3878 =
																					MAKE_YOUNG_PAIR(BgL_arg3421z00_4409,
																					BgL_headerz00_3878);
																			}
																			goto
																				BgL_zc3z04anonymousza33376ze3z87_4352;
																		}
																	else
																		{	/* Unsafe/http.scm 512 */
																			if (
																				(BgL_kz00_4393 ==
																					BGl_keyword5716z00zz__httpz00))
																				{	/* Unsafe/http.scm 512 */
																					BgL_iportz00_5737 = BgL_iportz00_3876;
																					{
																						obj_t BgL_iportz00_5772;
																						long BgL_lastzd2matchzd2_5773;
																						long BgL_forwardz00_5774;
																						long BgL_bufposz00_5775;
																						obj_t BgL_iportz00_5800;
																						long BgL_lastzd2matchzd2_5801;
																						long BgL_forwardz00_5802;
																						long BgL_bufposz00_5803;
																						obj_t BgL_iportz00_5815;
																						long BgL_lastzd2matchzd2_5816;
																						long BgL_forwardz00_5817;
																						long BgL_bufposz00_5818;
																						obj_t BgL_iportz00_5830;
																						long BgL_lastzd2matchzd2_5831;
																						long BgL_forwardz00_5832;
																						long BgL_bufposz00_5833;
																						obj_t BgL_iportz00_5852;
																						long BgL_lastzd2matchzd2_5853;
																						long BgL_forwardz00_5854;
																						long BgL_bufposz00_5855;

																					BgL_zc3z04anonymousza34223ze3z87_5996:
																						RGC_START_MATCH
																							(BgL_iportz00_5737);
																						{	/* Unsafe/http.scm 466 */
																							long BgL_matchz00_5997;

																							{	/* Unsafe/http.scm 466 */
																								long BgL_arg4224z00_6000;
																								long BgL_arg4225z00_6001;

																								BgL_arg4224z00_6000 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_5737);
																								BgL_arg4225z00_6001 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_5737);
																								BgL_iportz00_5852 =
																									BgL_iportz00_5737;
																								BgL_lastzd2matchzd2_5853 = 2L;
																								BgL_forwardz00_5854 =
																									BgL_arg4224z00_6000;
																								BgL_bufposz00_5855 =
																									BgL_arg4225z00_6001;
																							BgL_zc3z04anonymousza34123ze3z87_5856:
																								if (
																									(BgL_forwardz00_5854 ==
																										BgL_bufposz00_5855))
																									{	/* Unsafe/http.scm 466 */
																										if (rgc_fill_buffer
																											(BgL_iportz00_5852))
																											{	/* Unsafe/http.scm 466 */
																												long
																													BgL_arg4126z00_5859;
																												long
																													BgL_arg4127z00_5860;
																												BgL_arg4126z00_5859 =
																													RGC_BUFFER_FORWARD
																													(BgL_iportz00_5852);
																												BgL_arg4127z00_5860 =
																													RGC_BUFFER_BUFPOS
																													(BgL_iportz00_5852);
																												{
																													long
																														BgL_bufposz00_16522;
																													long
																														BgL_forwardz00_16521;
																													BgL_forwardz00_16521 =
																														BgL_arg4126z00_5859;
																													BgL_bufposz00_16522 =
																														BgL_arg4127z00_5860;
																													BgL_bufposz00_5855 =
																														BgL_bufposz00_16522;
																													BgL_forwardz00_5854 =
																														BgL_forwardz00_16521;
																													goto
																														BgL_zc3z04anonymousza34123ze3z87_5856;
																												}
																											}
																										else
																											{	/* Unsafe/http.scm 466 */
																												BgL_matchz00_5997 =
																													BgL_lastzd2matchzd2_5853;
																											}
																									}
																								else
																									{	/* Unsafe/http.scm 466 */
																										int BgL_curz00_5861;

																										BgL_curz00_5861 =
																											RGC_BUFFER_GET_CHAR
																											(BgL_iportz00_5852,
																											BgL_forwardz00_5854);
																										{	/* Unsafe/http.scm 466 */

																											{	/* Unsafe/http.scm 466 */
																												bool_t
																													BgL_test6536z00_16524;
																												if (((long)
																														(BgL_curz00_5861) ==
																														45L))
																													{	/* Unsafe/http.scm 466 */
																														BgL_test6536z00_16524
																															= ((bool_t) 1);
																													}
																												else
																													{	/* Unsafe/http.scm 466 */
																														bool_t
																															BgL_test6538z00_16528;
																														if (((long)
																																(BgL_curz00_5861)
																																>= 65L))
																															{	/* Unsafe/http.scm 466 */
																																BgL_test6538z00_16528
																																	=
																																	((long)
																																	(BgL_curz00_5861)
																																	< 91L);
																															}
																														else
																															{	/* Unsafe/http.scm 466 */
																																BgL_test6538z00_16528
																																	=
																																	((bool_t) 0);
																															}
																														if (BgL_test6538z00_16528)
																															{	/* Unsafe/http.scm 466 */
																																BgL_test6536z00_16524
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Unsafe/http.scm 466 */
																																if (
																																	((long)
																																		(BgL_curz00_5861)
																																		>= 97L))
																																	{	/* Unsafe/http.scm 466 */
																																		BgL_test6536z00_16524
																																			=
																																			((long)
																																			(BgL_curz00_5861)
																																			< 123L);
																																	}
																																else
																																	{	/* Unsafe/http.scm 466 */
																																		BgL_test6536z00_16524
																																			=
																																			((bool_t)
																																			0);
																																	}
																															}
																													}
																												if (BgL_test6536z00_16524)
																													{	/* Unsafe/http.scm 466 */
																														BgL_iportz00_5830 =
																															BgL_iportz00_5852;
																														BgL_lastzd2matchzd2_5831
																															=
																															BgL_lastzd2matchzd2_5853;
																														BgL_forwardz00_5832
																															=
																															(1L +
																															BgL_forwardz00_5854);
																														BgL_bufposz00_5833 =
																															BgL_bufposz00_5855;
																													BgL_zc3z04anonymousza34113ze3z87_5834:
																														{	/* Unsafe/http.scm 466 */
																															long
																																BgL_newzd2matchzd2_5835;
																															RGC_STOP_MATCH
																																(BgL_iportz00_5830,
																																BgL_forwardz00_5832);
																															BgL_newzd2matchzd2_5835
																																= 0L;
																															if (
																																(BgL_forwardz00_5832
																																	==
																																	BgL_bufposz00_5833))
																																{	/* Unsafe/http.scm 466 */
																																	if (rgc_fill_buffer(BgL_iportz00_5830))
																																		{	/* Unsafe/http.scm 466 */
																																			long
																																				BgL_arg4116z00_5838;
																																			long
																																				BgL_arg4117z00_5839;
																																			BgL_arg4116z00_5838
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_iportz00_5830);
																																			BgL_arg4117z00_5839
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_iportz00_5830);
																																			{
																																				long
																																					BgL_bufposz00_16547;
																																				long
																																					BgL_forwardz00_16546;
																																				BgL_forwardz00_16546
																																					=
																																					BgL_arg4116z00_5838;
																																				BgL_bufposz00_16547
																																					=
																																					BgL_arg4117z00_5839;
																																				BgL_bufposz00_5833
																																					=
																																					BgL_bufposz00_16547;
																																				BgL_forwardz00_5832
																																					=
																																					BgL_forwardz00_16546;
																																				goto
																																					BgL_zc3z04anonymousza34113ze3z87_5834;
																																			}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 466 */
																																			BgL_matchz00_5997
																																				=
																																				BgL_newzd2matchzd2_5835;
																																		}
																																}
																															else
																																{	/* Unsafe/http.scm 466 */
																																	int
																																		BgL_curz00_5840;
																																	BgL_curz00_5840
																																		=
																																		RGC_BUFFER_GET_CHAR
																																		(BgL_iportz00_5830,
																																		BgL_forwardz00_5832);
																																	{	/* Unsafe/http.scm 466 */

																																		{	/* Unsafe/http.scm 466 */
																																			bool_t
																																				BgL_test6543z00_16549;
																																			if ((
																																					(long)
																																					(BgL_curz00_5840)
																																					==
																																					45L))
																																				{	/* Unsafe/http.scm 466 */
																																					BgL_test6543z00_16549
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Unsafe/http.scm 466 */
																																					bool_t
																																						BgL_test6545z00_16553;
																																					if ((
																																							(long)
																																							(BgL_curz00_5840)
																																							>=
																																							65L))
																																						{	/* Unsafe/http.scm 466 */
																																							BgL_test6545z00_16553
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_5840)
																																								<
																																								91L);
																																						}
																																					else
																																						{	/* Unsafe/http.scm 466 */
																																							BgL_test6545z00_16553
																																								=
																																								(
																																								(bool_t)
																																								0);
																																						}
																																					if (BgL_test6545z00_16553)
																																						{	/* Unsafe/http.scm 466 */
																																							BgL_test6543z00_16549
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Unsafe/http.scm 466 */
																																							if (((long) (BgL_curz00_5840) >= 97L))
																																								{	/* Unsafe/http.scm 466 */
																																									BgL_test6543z00_16549
																																										=
																																										(
																																										(long)
																																										(BgL_curz00_5840)
																																										<
																																										123L);
																																								}
																																							else
																																								{	/* Unsafe/http.scm 466 */
																																									BgL_test6543z00_16549
																																										=
																																										(
																																										(bool_t)
																																										0);
																																								}
																																						}
																																				}
																																			if (BgL_test6543z00_16549)
																																				{	/* Unsafe/http.scm 466 */
																																					BgL_iportz00_5772
																																						=
																																						BgL_iportz00_5830;
																																					BgL_lastzd2matchzd2_5773
																																						=
																																						BgL_newzd2matchzd2_5835;
																																					BgL_forwardz00_5774
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_5832);
																																					BgL_bufposz00_5775
																																						=
																																						BgL_bufposz00_5833;
																																				BgL_zc3z04anonymousza34086ze3z87_5776:
																																					{	/* Unsafe/http.scm 466 */
																																						long
																																							BgL_newzd2matchzd2_5777;
																																						RGC_STOP_MATCH
																																							(BgL_iportz00_5772,
																																							BgL_forwardz00_5774);
																																						BgL_newzd2matchzd2_5777
																																							=
																																							0L;
																																						if (
																																							(BgL_forwardz00_5774
																																								==
																																								BgL_bufposz00_5775))
																																							{	/* Unsafe/http.scm 466 */
																																								if (rgc_fill_buffer(BgL_iportz00_5772))
																																									{	/* Unsafe/http.scm 466 */
																																										long
																																											BgL_arg4089z00_5780;
																																										long
																																											BgL_arg4090z00_5781;
																																										BgL_arg4089z00_5780
																																											=
																																											RGC_BUFFER_FORWARD
																																											(BgL_iportz00_5772);
																																										BgL_arg4090z00_5781
																																											=
																																											RGC_BUFFER_BUFPOS
																																											(BgL_iportz00_5772);
																																										{
																																											long
																																												BgL_bufposz00_16572;
																																											long
																																												BgL_forwardz00_16571;
																																											BgL_forwardz00_16571
																																												=
																																												BgL_arg4089z00_5780;
																																											BgL_bufposz00_16572
																																												=
																																												BgL_arg4090z00_5781;
																																											BgL_bufposz00_5775
																																												=
																																												BgL_bufposz00_16572;
																																											BgL_forwardz00_5774
																																												=
																																												BgL_forwardz00_16571;
																																											goto
																																												BgL_zc3z04anonymousza34086ze3z87_5776;
																																										}
																																									}
																																								else
																																									{	/* Unsafe/http.scm 466 */
																																										BgL_matchz00_5997
																																											=
																																											BgL_newzd2matchzd2_5777;
																																									}
																																							}
																																						else
																																							{	/* Unsafe/http.scm 466 */
																																								int
																																									BgL_curz00_5782;
																																								BgL_curz00_5782
																																									=
																																									RGC_BUFFER_GET_CHAR
																																									(BgL_iportz00_5772,
																																									BgL_forwardz00_5774);
																																								{	/* Unsafe/http.scm 466 */

																																									{	/* Unsafe/http.scm 466 */
																																										bool_t
																																											BgL_test6550z00_16574;
																																										if (((long) (BgL_curz00_5782) == 45L))
																																											{	/* Unsafe/http.scm 466 */
																																												BgL_test6550z00_16574
																																													=
																																													(
																																													(bool_t)
																																													1);
																																											}
																																										else
																																											{	/* Unsafe/http.scm 466 */
																																												bool_t
																																													BgL_test6552z00_16578;
																																												if (((long) (BgL_curz00_5782) >= 65L))
																																													{	/* Unsafe/http.scm 466 */
																																														BgL_test6552z00_16578
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_5782)
																																															<
																																															91L);
																																													}
																																												else
																																													{	/* Unsafe/http.scm 466 */
																																														BgL_test6552z00_16578
																																															=
																																															(
																																															(bool_t)
																																															0);
																																													}
																																												if (BgL_test6552z00_16578)
																																													{	/* Unsafe/http.scm 466 */
																																														BgL_test6550z00_16574
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Unsafe/http.scm 466 */
																																														if (((long) (BgL_curz00_5782) >= 97L))
																																															{	/* Unsafe/http.scm 466 */
																																																BgL_test6550z00_16574
																																																	=
																																																	(
																																																	(long)
																																																	(BgL_curz00_5782)
																																																	<
																																																	123L);
																																															}
																																														else
																																															{	/* Unsafe/http.scm 466 */
																																																BgL_test6550z00_16574
																																																	=
																																																	(
																																																	(bool_t)
																																																	0);
																																															}
																																													}
																																											}
																																										if (BgL_test6550z00_16574)
																																											{
																																												long
																																													BgL_forwardz00_16590;
																																												long
																																													BgL_lastzd2matchzd2_16589;
																																												BgL_lastzd2matchzd2_16589
																																													=
																																													BgL_newzd2matchzd2_5777;
																																												BgL_forwardz00_16590
																																													=
																																													(1L
																																													+
																																													BgL_forwardz00_5774);
																																												BgL_forwardz00_5774
																																													=
																																													BgL_forwardz00_16590;
																																												BgL_lastzd2matchzd2_5773
																																													=
																																													BgL_lastzd2matchzd2_16589;
																																												goto
																																													BgL_zc3z04anonymousza34086ze3z87_5776;
																																											}
																																										else
																																											{	/* Unsafe/http.scm 466 */
																																												BgL_matchz00_5997
																																													=
																																													BgL_newzd2matchzd2_5777;
																																											}
																																									}
																																								}
																																							}
																																					}
																																				}
																																			else
																																				{	/* Unsafe/http.scm 466 */
																																					BgL_matchz00_5997
																																						=
																																						BgL_newzd2matchzd2_5835;
																																				}
																																		}
																																	}
																																}
																														}
																													}
																												else
																													{	/* Unsafe/http.scm 466 */
																														bool_t
																															BgL_test6555z00_16594;
																														if (((long)
																																(BgL_curz00_5861)
																																== 9L))
																															{	/* Unsafe/http.scm 466 */
																																BgL_test6555z00_16594
																																	=
																																	((bool_t) 1);
																															}
																														else
																															{	/* Unsafe/http.scm 466 */
																																BgL_test6555z00_16594
																																	=
																																	((long)
																																	(BgL_curz00_5861)
																																	== 32L);
																															}
																														if (BgL_test6555z00_16594)
																															{	/* Unsafe/http.scm 466 */
																																BgL_iportz00_5800
																																	=
																																	BgL_iportz00_5852;
																																BgL_lastzd2matchzd2_5801
																																	=
																																	BgL_lastzd2matchzd2_5853;
																																BgL_forwardz00_5802
																																	=
																																	(1L +
																																	BgL_forwardz00_5854);
																																BgL_bufposz00_5803
																																	=
																																	BgL_bufposz00_5855;
																															BgL_zc3z04anonymousza34097ze3z87_5804:
																																{	/* Unsafe/http.scm 466 */
																																	long
																																		BgL_newzd2matchzd2_5805;
																																	RGC_STOP_MATCH
																																		(BgL_iportz00_5800,
																																		BgL_forwardz00_5802);
																																	BgL_newzd2matchzd2_5805
																																		= 1L;
																																	if (
																																		(BgL_forwardz00_5802
																																			==
																																			BgL_bufposz00_5803))
																																		{	/* Unsafe/http.scm 466 */
																																			if (rgc_fill_buffer(BgL_iportz00_5800))
																																				{	/* Unsafe/http.scm 466 */
																																					long
																																						BgL_arg4100z00_5808;
																																					long
																																						BgL_arg4101z00_5809;
																																					BgL_arg4100z00_5808
																																						=
																																						RGC_BUFFER_FORWARD
																																						(BgL_iportz00_5800);
																																					BgL_arg4101z00_5809
																																						=
																																						RGC_BUFFER_BUFPOS
																																						(BgL_iportz00_5800);
																																					{
																																						long
																																							BgL_bufposz00_16608;
																																						long
																																							BgL_forwardz00_16607;
																																						BgL_forwardz00_16607
																																							=
																																							BgL_arg4100z00_5808;
																																						BgL_bufposz00_16608
																																							=
																																							BgL_arg4101z00_5809;
																																						BgL_bufposz00_5803
																																							=
																																							BgL_bufposz00_16608;
																																						BgL_forwardz00_5802
																																							=
																																							BgL_forwardz00_16607;
																																						goto
																																							BgL_zc3z04anonymousza34097ze3z87_5804;
																																					}
																																				}
																																			else
																																				{	/* Unsafe/http.scm 466 */
																																					BgL_matchz00_5997
																																						=
																																						BgL_newzd2matchzd2_5805;
																																				}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 466 */
																																			int
																																				BgL_curz00_5810;
																																			BgL_curz00_5810
																																				=
																																				RGC_BUFFER_GET_CHAR
																																				(BgL_iportz00_5800,
																																				BgL_forwardz00_5802);
																																			{	/* Unsafe/http.scm 466 */

																																				{	/* Unsafe/http.scm 466 */
																																					bool_t
																																						BgL_test6559z00_16610;
																																					if ((
																																							(long)
																																							(BgL_curz00_5810)
																																							==
																																							9L))
																																						{	/* Unsafe/http.scm 466 */
																																							BgL_test6559z00_16610
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Unsafe/http.scm 466 */
																																							BgL_test6559z00_16610
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_5810)
																																								==
																																								32L);
																																						}
																																					if (BgL_test6559z00_16610)
																																						{	/* Unsafe/http.scm 466 */
																																							BgL_iportz00_5815
																																								=
																																								BgL_iportz00_5800;
																																							BgL_lastzd2matchzd2_5816
																																								=
																																								BgL_newzd2matchzd2_5805;
																																							BgL_forwardz00_5817
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_5802);
																																							BgL_bufposz00_5818
																																								=
																																								BgL_bufposz00_5803;
																																						BgL_zc3z04anonymousza34105ze3z87_5819:
																																							{	/* Unsafe/http.scm 466 */
																																								long
																																									BgL_newzd2matchzd2_5820;
																																								RGC_STOP_MATCH
																																									(BgL_iportz00_5815,
																																									BgL_forwardz00_5817);
																																								BgL_newzd2matchzd2_5820
																																									=
																																									1L;
																																								if ((BgL_forwardz00_5817 == BgL_bufposz00_5818))
																																									{	/* Unsafe/http.scm 466 */
																																										if (rgc_fill_buffer(BgL_iportz00_5815))
																																											{	/* Unsafe/http.scm 466 */
																																												long
																																													BgL_arg4108z00_5823;
																																												long
																																													BgL_arg4109z00_5824;
																																												BgL_arg4108z00_5823
																																													=
																																													RGC_BUFFER_FORWARD
																																													(BgL_iportz00_5815);
																																												BgL_arg4109z00_5824
																																													=
																																													RGC_BUFFER_BUFPOS
																																													(BgL_iportz00_5815);
																																												{
																																													long
																																														BgL_bufposz00_16624;
																																													long
																																														BgL_forwardz00_16623;
																																													BgL_forwardz00_16623
																																														=
																																														BgL_arg4108z00_5823;
																																													BgL_bufposz00_16624
																																														=
																																														BgL_arg4109z00_5824;
																																													BgL_bufposz00_5818
																																														=
																																														BgL_bufposz00_16624;
																																													BgL_forwardz00_5817
																																														=
																																														BgL_forwardz00_16623;
																																													goto
																																														BgL_zc3z04anonymousza34105ze3z87_5819;
																																												}
																																											}
																																										else
																																											{	/* Unsafe/http.scm 466 */
																																												BgL_matchz00_5997
																																													=
																																													BgL_newzd2matchzd2_5820;
																																											}
																																									}
																																								else
																																									{	/* Unsafe/http.scm 466 */
																																										int
																																											BgL_curz00_5825;
																																										BgL_curz00_5825
																																											=
																																											RGC_BUFFER_GET_CHAR
																																											(BgL_iportz00_5815,
																																											BgL_forwardz00_5817);
																																										{	/* Unsafe/http.scm 466 */

																																											{	/* Unsafe/http.scm 466 */
																																												bool_t
																																													BgL_test6563z00_16626;
																																												if (((long) (BgL_curz00_5825) == 9L))
																																													{	/* Unsafe/http.scm 466 */
																																														BgL_test6563z00_16626
																																															=
																																															(
																																															(bool_t)
																																															1);
																																													}
																																												else
																																													{	/* Unsafe/http.scm 466 */
																																														BgL_test6563z00_16626
																																															=
																																															(
																																															(long)
																																															(BgL_curz00_5825)
																																															==
																																															32L);
																																													}
																																												if (BgL_test6563z00_16626)
																																													{
																																														long
																																															BgL_forwardz00_16633;
																																														long
																																															BgL_lastzd2matchzd2_16632;
																																														BgL_lastzd2matchzd2_16632
																																															=
																																															BgL_newzd2matchzd2_5820;
																																														BgL_forwardz00_16633
																																															=
																																															(1L
																																															+
																																															BgL_forwardz00_5817);
																																														BgL_forwardz00_5817
																																															=
																																															BgL_forwardz00_16633;
																																														BgL_lastzd2matchzd2_5816
																																															=
																																															BgL_lastzd2matchzd2_16632;
																																														goto
																																															BgL_zc3z04anonymousza34105ze3z87_5819;
																																													}
																																												else
																																													{	/* Unsafe/http.scm 466 */
																																														BgL_matchz00_5997
																																															=
																																															BgL_newzd2matchzd2_5820;
																																													}
																																											}
																																										}
																																									}
																																							}
																																						}
																																					else
																																						{	/* Unsafe/http.scm 466 */
																																							BgL_matchz00_5997
																																								=
																																								BgL_newzd2matchzd2_5805;
																																						}
																																				}
																																			}
																																		}
																																}
																															}
																														else
																															{	/* Unsafe/http.scm 466 */
																																long
																																	BgL_arg4136z00_5872;
																																BgL_arg4136z00_5872
																																	=
																																	(1L +
																																	BgL_forwardz00_5854);
																																{	/* Unsafe/http.scm 466 */
																																	long
																																		BgL_newzd2matchzd2_10519;
																																	RGC_STOP_MATCH
																																		(BgL_iportz00_5852,
																																		BgL_arg4136z00_5872);
																																	BgL_newzd2matchzd2_10519
																																		= 2L;
																																	BgL_matchz00_5997
																																		=
																																		BgL_newzd2matchzd2_10519;
																							}}}}}}}
																							RGC_SET_FILEPOS
																								(BgL_iportz00_5737);
																							switch (BgL_matchz00_5997)
																								{
																								case 2L:

																									{	/* Unsafe/http.scm 466 */
																										bool_t
																											BgL_test6565z00_16640;
																										{	/* Unsafe/http.scm 466 */
																											long BgL_arg4217z00_5987;

																											BgL_arg4217z00_5987 =
																												RGC_BUFFER_MATCH_LENGTH
																												(BgL_iportz00_5737);
																											BgL_test6565z00_16640 =
																												(BgL_arg4217z00_5987 ==
																												0L);
																										}
																										if (BgL_test6565z00_16640)
																											{	/* Unsafe/http.scm 466 */
																												BgL_transferzd2encodingzd2_3882
																													= BEOF;
																											}
																										else
																											{	/* Unsafe/http.scm 466 */
																												BgL_transferzd2encodingzd2_3882
																													=
																													BCHAR
																													(RGC_BUFFER_CHARACTER
																													(BgL_iportz00_5737));
																											}
																									}
																									break;
																								case 1L:

																									goto
																										BgL_zc3z04anonymousza34223ze3z87_5996;
																									break;
																								case 0L:

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

																										BgL_arg5193z00_10533 =
																											RGC_BUFFER_MATCH_LENGTH
																											(BgL_iportz00_5737);
																										BgL_transferzd2encodingzd2_3882
																											=
																											rgc_buffer_downcase_subsymbol
																											(BgL_iportz00_5737, 0L,
																											BgL_arg5193z00_10533);
																									} break;
																								default:
																									BgL_transferzd2encodingzd2_3882 = BGl_errorz00zz__errorz00(BGl_string5600z00zz__httpz00, BGl_string5601z00zz__httpz00, BINT(BgL_matchz00_5997));
																								}
																						}
																					}
																					BGl_crlfzd2grammarze70z35zz__httpz00
																						(BgL_iportz00_3876);
																					{	/* Unsafe/http.scm 536 */
																						obj_t BgL_arg3425z00_4413;

																						BgL_arg3425z00_4413 =
																							MAKE_YOUNG_PAIR(BgL_kz00_4393,
																							BgL_transferzd2encodingzd2_3882);
																						BgL_headerz00_3878 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg3425z00_4413,
																							BgL_headerz00_3878);
																					}
																					goto
																						BgL_zc3z04anonymousza33376ze3z87_4352;
																				}
																			else
																				{	/* Unsafe/http.scm 512 */
																					if (
																						(BgL_kz00_4393 ==
																							BGl_keyword5623z00zz__httpz00))
																						{	/* Unsafe/http.scm 512 */
																							BgL_authoriza7ationza7_3883 =
																								BGl_authzd2grammarze70z35zz__httpz00
																								(BgL_iportz00_3876);
																							BGl_crlfzd2grammarze70z35zz__httpz00
																								(BgL_iportz00_3876);
																							{	/* Unsafe/http.scm 541 */
																								obj_t BgL_arg3430z00_4417;

																								BgL_arg3430z00_4417 =
																									MAKE_YOUNG_PAIR(BgL_kz00_4393,
																									BgL_authoriza7ationza7_3883);
																								BgL_headerz00_3878 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg3430z00_4417,
																									BgL_headerz00_3878);
																							}
																							goto
																								BgL_zc3z04anonymousza33376ze3z87_4352;
																						}
																					else
																						{	/* Unsafe/http.scm 512 */
																							if (
																								(BgL_kz00_4393 ==
																									BGl_keyword5627z00zz__httpz00))
																								{	/* Unsafe/http.scm 512 */
																									BgL_iportz00_5332 =
																										BgL_iportz00_3876;
																									{
																										obj_t BgL_iportz00_5373;
																										long
																											BgL_lastzd2matchzd2_5374;
																										long BgL_forwardz00_5375;
																										long BgL_bufposz00_5376;
																										obj_t BgL_iportz00_5398;
																										long
																											BgL_lastzd2matchzd2_5399;
																										long BgL_forwardz00_5400;
																										long BgL_bufposz00_5401;
																										obj_t BgL_iportz00_5424;
																										long
																											BgL_lastzd2matchzd2_5425;
																										long BgL_forwardz00_5426;
																										long BgL_bufposz00_5427;
																										obj_t BgL_iportz00_5455;
																										long
																											BgL_lastzd2matchzd2_5456;
																										long BgL_forwardz00_5457;
																										long BgL_bufposz00_5458;
																										obj_t BgL_iportz00_5470;
																										long
																											BgL_lastzd2matchzd2_5471;
																										long BgL_forwardz00_5472;
																										long BgL_bufposz00_5473;
																										obj_t BgL_iportz00_5521;
																										long
																											BgL_lastzd2matchzd2_5522;
																										long BgL_forwardz00_5523;
																										long BgL_bufposz00_5524;
																										obj_t BgL_iportz00_5546;
																										long
																											BgL_lastzd2matchzd2_5547;
																										long BgL_forwardz00_5548;
																										long BgL_bufposz00_5549;
																										long BgL_minz00_5640;
																										long BgL_maxz00_5641;

																									BgL_zc3z04anonymousza34082ze3z87_5690:
																										RGC_START_MATCH
																											(BgL_iportz00_5332);
																										{	/* Unsafe/http.scm 471 */
																											long BgL_matchz00_5691;

																											{	/* Unsafe/http.scm 471 */
																												long
																													BgL_arg4083z00_5694;
																												long
																													BgL_arg4084z00_5695;
																												BgL_arg4083z00_5694 =
																													RGC_BUFFER_FORWARD
																													(BgL_iportz00_5332);
																												BgL_arg4084z00_5695 =
																													RGC_BUFFER_BUFPOS
																													(BgL_iportz00_5332);
																												BgL_iportz00_5398 =
																													BgL_iportz00_5332;
																												BgL_lastzd2matchzd2_5399
																													= 3L;
																												BgL_forwardz00_5400 =
																													BgL_arg4083z00_5694;
																												BgL_bufposz00_5401 =
																													BgL_arg4084z00_5695;
																											BgL_zc3z04anonymousza33908ze3z87_5402:
																												if (
																													(BgL_forwardz00_5400
																														==
																														BgL_bufposz00_5401))
																													{	/* Unsafe/http.scm 471 */
																														if (rgc_fill_buffer
																															(BgL_iportz00_5398))
																															{	/* Unsafe/http.scm 471 */
																																long
																																	BgL_arg3911z00_5405;
																																long
																																	BgL_arg3912z00_5406;
																																BgL_arg3911z00_5405
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_iportz00_5398);
																																BgL_arg3912z00_5406
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_iportz00_5398);
																																{
																																	long
																																		BgL_bufposz00_16671;
																																	long
																																		BgL_forwardz00_16670;
																																	BgL_forwardz00_16670
																																		=
																																		BgL_arg3911z00_5405;
																																	BgL_bufposz00_16671
																																		=
																																		BgL_arg3912z00_5406;
																																	BgL_bufposz00_5401
																																		=
																																		BgL_bufposz00_16671;
																																	BgL_forwardz00_5400
																																		=
																																		BgL_forwardz00_16670;
																																	goto
																																		BgL_zc3z04anonymousza33908ze3z87_5402;
																																}
																															}
																														else
																															{	/* Unsafe/http.scm 471 */
																																BgL_matchz00_5691
																																	=
																																	BgL_lastzd2matchzd2_5399;
																															}
																													}
																												else
																													{	/* Unsafe/http.scm 471 */
																														int BgL_curz00_5407;

																														BgL_curz00_5407 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_iportz00_5398,
																															BgL_forwardz00_5400);
																														{	/* Unsafe/http.scm 471 */

																															{	/* Unsafe/http.scm 471 */
																																bool_t
																																	BgL_test6570z00_16673;
																																if (((long)
																																		(BgL_curz00_5407)
																																		== 45L))
																																	{	/* Unsafe/http.scm 471 */
																																		BgL_test6570z00_16673
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Unsafe/http.scm 471 */
																																		bool_t
																																			BgL_test6572z00_16677;
																																		if (((long)
																																				(BgL_curz00_5407)
																																				>= 65L))
																																			{	/* Unsafe/http.scm 471 */
																																				BgL_test6572z00_16677
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_5407)
																																					<
																																					91L);
																																			}
																																		else
																																			{	/* Unsafe/http.scm 471 */
																																				BgL_test6572z00_16677
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test6572z00_16677)
																																			{	/* Unsafe/http.scm 471 */
																																				BgL_test6570z00_16673
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Unsafe/http.scm 471 */
																																				if (
																																					((long) (BgL_curz00_5407) >= 97L))
																																					{	/* Unsafe/http.scm 471 */
																																						BgL_test6570z00_16673
																																							=
																																							(
																																							(long)
																																							(BgL_curz00_5407)
																																							<
																																							123L);
																																					}
																																				else
																																					{	/* Unsafe/http.scm 471 */
																																						BgL_test6570z00_16673
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																			}
																																	}
																																if (BgL_test6570z00_16673)
																																	{	/* Unsafe/http.scm 471 */
																																		BgL_iportz00_5546
																																			=
																																			BgL_iportz00_5398;
																																		BgL_lastzd2matchzd2_5547
																																			=
																																			BgL_lastzd2matchzd2_5399;
																																		BgL_forwardz00_5548
																																			=
																																			(1L +
																																			BgL_forwardz00_5400);
																																		BgL_bufposz00_5549
																																			=
																																			BgL_bufposz00_5401;
																																	BgL_zc3z04anonymousza33982ze3z87_5550:
																																		{	/* Unsafe/http.scm 471 */
																																			long
																																				BgL_newzd2matchzd2_5551;
																																			RGC_STOP_MATCH
																																				(BgL_iportz00_5546,
																																				BgL_forwardz00_5548);
																																			BgL_newzd2matchzd2_5551
																																				= 3L;
																																			if (
																																				(BgL_forwardz00_5548
																																					==
																																					BgL_bufposz00_5549))
																																				{	/* Unsafe/http.scm 471 */
																																					if (rgc_fill_buffer(BgL_iportz00_5546))
																																						{	/* Unsafe/http.scm 471 */
																																							long
																																								BgL_arg3985z00_5554;
																																							long
																																								BgL_arg3986z00_5555;
																																							BgL_arg3985z00_5554
																																								=
																																								RGC_BUFFER_FORWARD
																																								(BgL_iportz00_5546);
																																							BgL_arg3986z00_5555
																																								=
																																								RGC_BUFFER_BUFPOS
																																								(BgL_iportz00_5546);
																																							{
																																								long
																																									BgL_bufposz00_16696;
																																								long
																																									BgL_forwardz00_16695;
																																								BgL_forwardz00_16695
																																									=
																																									BgL_arg3985z00_5554;
																																								BgL_bufposz00_16696
																																									=
																																									BgL_arg3986z00_5555;
																																								BgL_bufposz00_5549
																																									=
																																									BgL_bufposz00_16696;
																																								BgL_forwardz00_5548
																																									=
																																									BgL_forwardz00_16695;
																																								goto
																																									BgL_zc3z04anonymousza33982ze3z87_5550;
																																							}
																																						}
																																					else
																																						{	/* Unsafe/http.scm 471 */
																																							BgL_matchz00_5691
																																								=
																																								BgL_newzd2matchzd2_5551;
																																						}
																																				}
																																			else
																																				{	/* Unsafe/http.scm 471 */
																																					int
																																						BgL_curz00_5556;
																																					BgL_curz00_5556
																																						=
																																						RGC_BUFFER_GET_CHAR
																																						(BgL_iportz00_5546,
																																						BgL_forwardz00_5548);
																																					{	/* Unsafe/http.scm 471 */

																																						{	/* Unsafe/http.scm 471 */
																																							bool_t
																																								BgL_test6577z00_16698;
																																							if (((long) (BgL_curz00_5556) == 45L))
																																								{	/* Unsafe/http.scm 471 */
																																									BgL_test6577z00_16698
																																										=
																																										(
																																										(bool_t)
																																										1);
																																								}
																																							else
																																								{	/* Unsafe/http.scm 471 */
																																									bool_t
																																										BgL_test6579z00_16702;
																																									if (((long) (BgL_curz00_5556) >= 65L))
																																										{	/* Unsafe/http.scm 471 */
																																											BgL_test6579z00_16702
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_5556)
																																												<
																																												91L);
																																										}
																																									else
																																										{	/* Unsafe/http.scm 471 */
																																											BgL_test6579z00_16702
																																												=
																																												(
																																												(bool_t)
																																												0);
																																										}
																																									if (BgL_test6579z00_16702)
																																										{	/* Unsafe/http.scm 471 */
																																											BgL_test6577z00_16698
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Unsafe/http.scm 471 */
																																											if (((long) (BgL_curz00_5556) >= 97L))
																																												{	/* Unsafe/http.scm 471 */
																																													BgL_test6577z00_16698
																																														=
																																														(
																																														(long)
																																														(BgL_curz00_5556)
																																														<
																																														123L);
																																												}
																																											else
																																												{	/* Unsafe/http.scm 471 */
																																													BgL_test6577z00_16698
																																														=
																																														(
																																														(bool_t)
																																														0);
																																												}
																																										}
																																								}
																																							if (BgL_test6577z00_16698)
																																								{	/* Unsafe/http.scm 471 */
																																									BgL_iportz00_5424
																																										=
																																										BgL_iportz00_5546;
																																									BgL_lastzd2matchzd2_5425
																																										=
																																										BgL_newzd2matchzd2_5551;
																																									BgL_forwardz00_5426
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_5548);
																																									BgL_bufposz00_5427
																																										=
																																										BgL_bufposz00_5549;
																																								BgL_zc3z04anonymousza33922ze3z87_5428:
																																									if ((BgL_forwardz00_5426 == BgL_bufposz00_5427))
																																										{	/* Unsafe/http.scm 471 */
																																											if (rgc_fill_buffer(BgL_iportz00_5424))
																																												{	/* Unsafe/http.scm 471 */
																																													long
																																														BgL_arg3925z00_5431;
																																													long
																																														BgL_arg3926z00_5432;
																																													BgL_arg3925z00_5431
																																														=
																																														RGC_BUFFER_FORWARD
																																														(BgL_iportz00_5424);
																																													BgL_arg3926z00_5432
																																														=
																																														RGC_BUFFER_BUFPOS
																																														(BgL_iportz00_5424);
																																													{
																																														long
																																															BgL_bufposz00_16720;
																																														long
																																															BgL_forwardz00_16719;
																																														BgL_forwardz00_16719
																																															=
																																															BgL_arg3925z00_5431;
																																														BgL_bufposz00_16720
																																															=
																																															BgL_arg3926z00_5432;
																																														BgL_bufposz00_5427
																																															=
																																															BgL_bufposz00_16720;
																																														BgL_forwardz00_5426
																																															=
																																															BgL_forwardz00_16719;
																																														goto
																																															BgL_zc3z04anonymousza33922ze3z87_5428;
																																													}
																																												}
																																											else
																																												{	/* Unsafe/http.scm 471 */
																																													BgL_matchz00_5691
																																														=
																																														BgL_lastzd2matchzd2_5425;
																																												}
																																										}
																																									else
																																										{	/* Unsafe/http.scm 471 */
																																											int
																																												BgL_curz00_5433;
																																											BgL_curz00_5433
																																												=
																																												RGC_BUFFER_GET_CHAR
																																												(BgL_iportz00_5424,
																																												BgL_forwardz00_5426);
																																											{	/* Unsafe/http.scm 471 */

																																												{	/* Unsafe/http.scm 471 */
																																													bool_t
																																														BgL_test6584z00_16722;
																																													if (((long) (BgL_curz00_5433) == 45L))
																																														{	/* Unsafe/http.scm 471 */
																																															BgL_test6584z00_16722
																																																=
																																																(
																																																(bool_t)
																																																1);
																																														}
																																													else
																																														{	/* Unsafe/http.scm 471 */
																																															bool_t
																																																BgL_test6586z00_16726;
																																															if (((long) (BgL_curz00_5433) >= 65L))
																																																{	/* Unsafe/http.scm 471 */
																																																	BgL_test6586z00_16726
																																																		=
																																																		(
																																																		(long)
																																																		(BgL_curz00_5433)
																																																		<
																																																		91L);
																																																}
																																															else
																																																{	/* Unsafe/http.scm 471 */
																																																	BgL_test6586z00_16726
																																																		=
																																																		(
																																																		(bool_t)
																																																		0);
																																																}
																																															if (BgL_test6586z00_16726)
																																																{	/* Unsafe/http.scm 471 */
																																																	BgL_test6584z00_16722
																																																		=
																																																		(
																																																		(bool_t)
																																																		1);
																																																}
																																															else
																																																{	/* Unsafe/http.scm 471 */
																																																	if (((long) (BgL_curz00_5433) >= 97L))
																																																		{	/* Unsafe/http.scm 471 */
																																																			BgL_test6584z00_16722
																																																				=
																																																				(
																																																				(long)
																																																				(BgL_curz00_5433)
																																																				<
																																																				123L);
																																																		}
																																																	else
																																																		{	/* Unsafe/http.scm 471 */
																																																			BgL_test6584z00_16722
																																																				=
																																																				(
																																																				(bool_t)
																																																				0);
																																																		}
																																																}
																																														}
																																													if (BgL_test6584z00_16722)
																																														{
																																															long
																																																BgL_forwardz00_16737;
																																															BgL_forwardz00_16737
																																																=
																																																(1L
																																																+
																																																BgL_forwardz00_5426);
																																															BgL_forwardz00_5426
																																																=
																																																BgL_forwardz00_16737;
																																															goto
																																																BgL_zc3z04anonymousza33922ze3z87_5428;
																																														}
																																													else
																																														{	/* Unsafe/http.scm 471 */
																																															if (((long) (BgL_curz00_5433) == 44L))
																																																{	/* Unsafe/http.scm 471 */
																																																	BgL_iportz00_5521
																																																		=
																																																		BgL_iportz00_5424;
																																																	BgL_lastzd2matchzd2_5522
																																																		=
																																																		BgL_lastzd2matchzd2_5425;
																																																	BgL_forwardz00_5523
																																																		=
																																																		(1L
																																																		+
																																																		BgL_forwardz00_5426);
																																																	BgL_bufposz00_5524
																																																		=
																																																		BgL_bufposz00_5427;
																																																BgL_zc3z04anonymousza33969ze3z87_5525:
																																																	if ((BgL_forwardz00_5523 == BgL_bufposz00_5524))
																																																		{	/* Unsafe/http.scm 471 */
																																																			if (rgc_fill_buffer(BgL_iportz00_5521))
																																																				{	/* Unsafe/http.scm 471 */
																																																					long
																																																						BgL_arg3972z00_5528;
																																																					long
																																																						BgL_arg3973z00_5529;
																																																					BgL_arg3972z00_5528
																																																						=
																																																						RGC_BUFFER_FORWARD
																																																						(BgL_iportz00_5521);
																																																					BgL_arg3973z00_5529
																																																						=
																																																						RGC_BUFFER_BUFPOS
																																																						(BgL_iportz00_5521);
																																																					{
																																																						long
																																																							BgL_bufposz00_16749;
																																																						long
																																																							BgL_forwardz00_16748;
																																																						BgL_forwardz00_16748
																																																							=
																																																							BgL_arg3972z00_5528;
																																																						BgL_bufposz00_16749
																																																							=
																																																							BgL_arg3973z00_5529;
																																																						BgL_bufposz00_5524
																																																							=
																																																							BgL_bufposz00_16749;
																																																						BgL_forwardz00_5523
																																																							=
																																																							BgL_forwardz00_16748;
																																																						goto
																																																							BgL_zc3z04anonymousza33969ze3z87_5525;
																																																					}
																																																				}
																																																			else
																																																				{	/* Unsafe/http.scm 471 */
																																																					BgL_matchz00_5691
																																																						=
																																																						BgL_lastzd2matchzd2_5522;
																																																				}
																																																		}
																																																	else
																																																		{	/* Unsafe/http.scm 471 */
																																																			int
																																																				BgL_curz00_5530;
																																																			BgL_curz00_5530
																																																				=
																																																				RGC_BUFFER_GET_CHAR
																																																				(BgL_iportz00_5521,
																																																				BgL_forwardz00_5523);
																																																			{	/* Unsafe/http.scm 471 */

																																																				{	/* Unsafe/http.scm 471 */
																																																					bool_t
																																																						BgL_test6592z00_16751;
																																																					if (((long) (BgL_curz00_5530) == 45L))
																																																						{	/* Unsafe/http.scm 471 */
																																																							BgL_test6592z00_16751
																																																								=
																																																								(
																																																								(bool_t)
																																																								1);
																																																						}
																																																					else
																																																						{	/* Unsafe/http.scm 471 */
																																																							bool_t
																																																								BgL_test6594z00_16755;
																																																							if (((long) (BgL_curz00_5530) >= 65L))
																																																								{	/* Unsafe/http.scm 471 */
																																																									BgL_test6594z00_16755
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_5530)
																																																										<
																																																										91L);
																																																								}
																																																							else
																																																								{	/* Unsafe/http.scm 471 */
																																																									BgL_test6594z00_16755
																																																										=
																																																										(
																																																										(bool_t)
																																																										0);
																																																								}
																																																							if (BgL_test6594z00_16755)
																																																								{	/* Unsafe/http.scm 471 */
																																																									BgL_test6592z00_16751
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Unsafe/http.scm 471 */
																																																									if (((long) (BgL_curz00_5530) >= 97L))
																																																										{	/* Unsafe/http.scm 471 */
																																																											BgL_test6592z00_16751
																																																												=
																																																												(
																																																												(long)
																																																												(BgL_curz00_5530)
																																																												<
																																																												123L);
																																																										}
																																																									else
																																																										{	/* Unsafe/http.scm 471 */
																																																											BgL_test6592z00_16751
																																																												=
																																																												(
																																																												(bool_t)
																																																												0);
																																																										}
																																																								}
																																																						}
																																																					if (BgL_test6592z00_16751)
																																																						{	/* Unsafe/http.scm 471 */
																																																							BgL_iportz00_5373
																																																								=
																																																								BgL_iportz00_5521;
																																																							BgL_lastzd2matchzd2_5374
																																																								=
																																																								BgL_lastzd2matchzd2_5522;
																																																							BgL_forwardz00_5375
																																																								=
																																																								(1L
																																																								+
																																																								BgL_forwardz00_5523);
																																																							BgL_bufposz00_5376
																																																								=
																																																								BgL_bufposz00_5524;
																																																						BgL_zc3z04anonymousza33894ze3z87_5377:
																																																							if ((BgL_forwardz00_5375 == BgL_bufposz00_5376))
																																																								{	/* Unsafe/http.scm 471 */
																																																									if (rgc_fill_buffer(BgL_iportz00_5373))
																																																										{	/* Unsafe/http.scm 471 */
																																																											long
																																																												BgL_arg3897z00_5380;
																																																											long
																																																												BgL_arg3898z00_5381;
																																																											BgL_arg3897z00_5380
																																																												=
																																																												RGC_BUFFER_FORWARD
																																																												(BgL_iportz00_5373);
																																																											BgL_arg3898z00_5381
																																																												=
																																																												RGC_BUFFER_BUFPOS
																																																												(BgL_iportz00_5373);
																																																											{
																																																												long
																																																													BgL_bufposz00_16773;
																																																												long
																																																													BgL_forwardz00_16772;
																																																												BgL_forwardz00_16772
																																																													=
																																																													BgL_arg3897z00_5380;
																																																												BgL_bufposz00_16773
																																																													=
																																																													BgL_arg3898z00_5381;
																																																												BgL_bufposz00_5376
																																																													=
																																																													BgL_bufposz00_16773;
																																																												BgL_forwardz00_5375
																																																													=
																																																													BgL_forwardz00_16772;
																																																												goto
																																																													BgL_zc3z04anonymousza33894ze3z87_5377;
																																																											}
																																																										}
																																																									else
																																																										{	/* Unsafe/http.scm 471 */
																																																											BgL_matchz00_5691
																																																												=
																																																												BgL_lastzd2matchzd2_5374;
																																																										}
																																																								}
																																																							else
																																																								{	/* Unsafe/http.scm 471 */
																																																									int
																																																										BgL_curz00_5382;
																																																									BgL_curz00_5382
																																																										=
																																																										RGC_BUFFER_GET_CHAR
																																																										(BgL_iportz00_5373,
																																																										BgL_forwardz00_5375);
																																																									{	/* Unsafe/http.scm 471 */

																																																										{	/* Unsafe/http.scm 471 */
																																																											bool_t
																																																												BgL_test6599z00_16775;
																																																											if (((long) (BgL_curz00_5382) == 45L))
																																																												{	/* Unsafe/http.scm 471 */
																																																													BgL_test6599z00_16775
																																																														=
																																																														(
																																																														(bool_t)
																																																														1);
																																																												}
																																																											else
																																																												{	/* Unsafe/http.scm 471 */
																																																													bool_t
																																																														BgL_test6601z00_16779;
																																																													if (((long) (BgL_curz00_5382) >= 65L))
																																																														{	/* Unsafe/http.scm 471 */
																																																															BgL_test6601z00_16779
																																																																=
																																																																(
																																																																(long)
																																																																(BgL_curz00_5382)
																																																																<
																																																																91L);
																																																														}
																																																													else
																																																														{	/* Unsafe/http.scm 471 */
																																																															BgL_test6601z00_16779
																																																																=
																																																																(
																																																																(bool_t)
																																																																0);
																																																														}
																																																													if (BgL_test6601z00_16779)
																																																														{	/* Unsafe/http.scm 471 */
																																																															BgL_test6599z00_16775
																																																																=
																																																																(
																																																																(bool_t)
																																																																1);
																																																														}
																																																													else
																																																														{	/* Unsafe/http.scm 471 */
																																																															if (((long) (BgL_curz00_5382) >= 97L))
																																																																{	/* Unsafe/http.scm 471 */
																																																																	BgL_test6599z00_16775
																																																																		=
																																																																		(
																																																																		(long)
																																																																		(BgL_curz00_5382)
																																																																		<
																																																																		123L);
																																																																}
																																																															else
																																																																{	/* Unsafe/http.scm 471 */
																																																																	BgL_test6599z00_16775
																																																																		=
																																																																		(
																																																																		(bool_t)
																																																																		0);
																																																																}
																																																														}
																																																												}
																																																											if (BgL_test6599z00_16775)
																																																												{
																																																													long
																																																														BgL_forwardz00_16790;
																																																													BgL_forwardz00_16790
																																																														=
																																																														(1L
																																																														+
																																																														BgL_forwardz00_5375);
																																																													BgL_forwardz00_5375
																																																														=
																																																														BgL_forwardz00_16790;
																																																													goto
																																																														BgL_zc3z04anonymousza33894ze3z87_5377;
																																																												}
																																																											else
																																																												{	/* Unsafe/http.scm 471 */
																																																													if (((long) (BgL_curz00_5382) == 44L))
																																																														{
																																																															long
																																																																BgL_bufposz00_16799;
																																																															long
																																																																BgL_forwardz00_16797;
																																																															long
																																																																BgL_lastzd2matchzd2_16796;
																																																															obj_t
																																																																BgL_iportz00_16795;
																																																															BgL_iportz00_16795
																																																																=
																																																																BgL_iportz00_5373;
																																																															BgL_lastzd2matchzd2_16796
																																																																=
																																																																BgL_lastzd2matchzd2_5374;
																																																															BgL_forwardz00_16797
																																																																=
																																																																(1L
																																																																+
																																																																BgL_forwardz00_5375);
																																																															BgL_bufposz00_16799
																																																																=
																																																																BgL_bufposz00_5376;
																																																															BgL_bufposz00_5524
																																																																=
																																																																BgL_bufposz00_16799;
																																																															BgL_forwardz00_5523
																																																																=
																																																																BgL_forwardz00_16797;
																																																															BgL_lastzd2matchzd2_5522
																																																																=
																																																																BgL_lastzd2matchzd2_16796;
																																																															BgL_iportz00_5521
																																																																=
																																																																BgL_iportz00_16795;
																																																															goto
																																																																BgL_zc3z04anonymousza33969ze3z87_5525;
																																																														}
																																																													else
																																																														{	/* Unsafe/http.scm 471 */
																																																															if (((long) (BgL_curz00_5382) == 13L))
																																																																{	/* Unsafe/http.scm 471 */
																																																																	long
																																																																		BgL_arg3907z00_5393;
																																																																	BgL_arg3907z00_5393
																																																																		=
																																																																		(1L
																																																																		+
																																																																		BgL_forwardz00_5375);
																																																																	{
																																																																		long
																																																																			BgL_forwardz00_10553;
																																																																		long
																																																																			BgL_bufposz00_10554;
																																																																		BgL_forwardz00_10553
																																																																			=
																																																																			BgL_arg3907z00_5393;
																																																																		BgL_bufposz00_10554
																																																																			=
																																																																			BgL_bufposz00_5376;
																																																																	BgL_statezd29zd21213z00_10552:
																																																																		if ((BgL_forwardz00_10553 == BgL_bufposz00_10554))
																																																																			{	/* Unsafe/http.scm 471 */
																																																																				if (rgc_fill_buffer(BgL_iportz00_5373))
																																																																					{	/* Unsafe/http.scm 471 */
																																																																						long
																																																																							BgL_arg3964z00_10557;
																																																																						long
																																																																							BgL_arg3965z00_10558;
																																																																						BgL_arg3964z00_10557
																																																																							=
																																																																							RGC_BUFFER_FORWARD
																																																																							(BgL_iportz00_5373);
																																																																						BgL_arg3965z00_10558
																																																																							=
																																																																							RGC_BUFFER_BUFPOS
																																																																							(BgL_iportz00_5373);
																																																																						{
																																																																							long
																																																																								BgL_bufposz00_16811;
																																																																							long
																																																																								BgL_forwardz00_16810;
																																																																							BgL_forwardz00_16810
																																																																								=
																																																																								BgL_arg3964z00_10557;
																																																																							BgL_bufposz00_16811
																																																																								=
																																																																								BgL_arg3965z00_10558;
																																																																							BgL_bufposz00_10554
																																																																								=
																																																																								BgL_bufposz00_16811;
																																																																							BgL_forwardz00_10553
																																																																								=
																																																																								BgL_forwardz00_16810;
																																																																							goto
																																																																								BgL_statezd29zd21213z00_10552;
																																																																						}
																																																																					}
																																																																				else
																																																																					{	/* Unsafe/http.scm 471 */
																																																																						BgL_matchz00_5691
																																																																							=
																																																																							BgL_lastzd2matchzd2_5374;
																																																																					}
																																																																			}
																																																																		else
																																																																			{	/* Unsafe/http.scm 471 */
																																																																				int
																																																																					BgL_curz00_10559;
																																																																				BgL_curz00_10559
																																																																					=
																																																																					RGC_BUFFER_GET_CHAR
																																																																					(BgL_iportz00_5373,
																																																																					BgL_forwardz00_10553);
																																																																				{	/* Unsafe/http.scm 471 */

																																																																					if (((long) (BgL_curz00_10559) == 10L))
																																																																						{	/* Unsafe/http.scm 471 */
																																																																							long
																																																																								BgL_arg3967z00_10561;
																																																																							BgL_arg3967z00_10561
																																																																								=
																																																																								(1L
																																																																								+
																																																																								BgL_forwardz00_10553);
																																																																							{	/* Unsafe/http.scm 471 */
																																																																								long
																																																																									BgL_newzd2matchzd2_10571;
																																																																								RGC_STOP_MATCH
																																																																									(BgL_iportz00_5373,
																																																																									BgL_arg3967z00_10561);
																																																																								BgL_newzd2matchzd2_10571
																																																																									=
																																																																									1L;
																																																																								BgL_matchz00_5691
																																																																									=
																																																																									BgL_newzd2matchzd2_10571;
																																																																						}}
																																																																					else
																																																																						{	/* Unsafe/http.scm 471 */
																																																																							BgL_matchz00_5691
																																																																								=
																																																																								BgL_lastzd2matchzd2_5374;
																																																																						}
																																																																				}
																																																																			}
																																																																	}
																																																																}
																																																															else
																																																																{	/* Unsafe/http.scm 471 */
																																																																	BgL_matchz00_5691
																																																																		=
																																																																		BgL_lastzd2matchzd2_5374;
																																																																}
																																																														}
																																																												}
																																																										}
																																																									}
																																																								}
																																																						}
																																																					else
																																																						{	/* Unsafe/http.scm 471 */
																																																							bool_t
																																																								BgL_test6609z00_16819;
																																																							if (((long) (BgL_curz00_5530) == 9L))
																																																								{	/* Unsafe/http.scm 471 */
																																																									BgL_test6609z00_16819
																																																										=
																																																										(
																																																										(bool_t)
																																																										1);
																																																								}
																																																							else
																																																								{	/* Unsafe/http.scm 471 */
																																																									BgL_test6609z00_16819
																																																										=
																																																										(
																																																										(long)
																																																										(BgL_curz00_5530)
																																																										==
																																																										32L);
																																																								}
																																																							if (BgL_test6609z00_16819)
																																																								{
																																																									long
																																																										BgL_forwardz00_16825;
																																																									BgL_forwardz00_16825
																																																										=
																																																										(1L
																																																										+
																																																										BgL_forwardz00_5523);
																																																									BgL_forwardz00_5523
																																																										=
																																																										BgL_forwardz00_16825;
																																																									goto
																																																										BgL_zc3z04anonymousza33969ze3z87_5525;
																																																								}
																																																							else
																																																								{	/* Unsafe/http.scm 471 */
																																																									BgL_matchz00_5691
																																																										=
																																																										BgL_lastzd2matchzd2_5522;
																																																								}
																																																						}
																																																				}
																																																			}
																																																		}
																																																}
																																															else
																																																{	/* Unsafe/http.scm 471 */
																																																	if (((long) (BgL_curz00_5433) == 13L))
																																																		{	/* Unsafe/http.scm 471 */
																																																			long
																																																				BgL_arg3935z00_5444;
																																																			BgL_arg3935z00_5444
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_5426);
																																																			{
																																																				long
																																																					BgL_forwardz00_10612;
																																																				long
																																																					BgL_bufposz00_10613;
																																																				BgL_forwardz00_10612
																																																					=
																																																					BgL_arg3935z00_5444;
																																																				BgL_bufposz00_10613
																																																					=
																																																					BgL_bufposz00_5427;
																																																			BgL_statezd24zd21208z00_10611:
																																																				if ((BgL_forwardz00_10612 == BgL_bufposz00_10613))
																																																					{	/* Unsafe/http.scm 471 */
																																																						if (rgc_fill_buffer(BgL_iportz00_5424))
																																																							{	/* Unsafe/http.scm 471 */
																																																								long
																																																									BgL_arg3956z00_10616;
																																																								long
																																																									BgL_arg3957z00_10617;
																																																								BgL_arg3956z00_10616
																																																									=
																																																									RGC_BUFFER_FORWARD
																																																									(BgL_iportz00_5424);
																																																								BgL_arg3957z00_10617
																																																									=
																																																									RGC_BUFFER_BUFPOS
																																																									(BgL_iportz00_5424);
																																																								{
																																																									long
																																																										BgL_bufposz00_16839;
																																																									long
																																																										BgL_forwardz00_16838;
																																																									BgL_forwardz00_16838
																																																										=
																																																										BgL_arg3956z00_10616;
																																																									BgL_bufposz00_16839
																																																										=
																																																										BgL_arg3957z00_10617;
																																																									BgL_bufposz00_10613
																																																										=
																																																										BgL_bufposz00_16839;
																																																									BgL_forwardz00_10612
																																																										=
																																																										BgL_forwardz00_16838;
																																																									goto
																																																										BgL_statezd24zd21208z00_10611;
																																																								}
																																																							}
																																																						else
																																																							{	/* Unsafe/http.scm 471 */
																																																								BgL_matchz00_5691
																																																									=
																																																									BgL_lastzd2matchzd2_5425;
																																																							}
																																																					}
																																																				else
																																																					{	/* Unsafe/http.scm 471 */
																																																						int
																																																							BgL_curz00_10618;
																																																						BgL_curz00_10618
																																																							=
																																																							RGC_BUFFER_GET_CHAR
																																																							(BgL_iportz00_5424,
																																																							BgL_forwardz00_10612);
																																																						{	/* Unsafe/http.scm 471 */

																																																							if (((long) (BgL_curz00_10618) == 10L))
																																																								{	/* Unsafe/http.scm 471 */
																																																									long
																																																										BgL_arg3959z00_10620;
																																																									BgL_arg3959z00_10620
																																																										=
																																																										(1L
																																																										+
																																																										BgL_forwardz00_10612);
																																																									{	/* Unsafe/http.scm 471 */
																																																										long
																																																											BgL_newzd2matchzd2_10630;
																																																										RGC_STOP_MATCH
																																																											(BgL_iportz00_5424,
																																																											BgL_arg3959z00_10620);
																																																										BgL_newzd2matchzd2_10630
																																																											=
																																																											0L;
																																																										BgL_matchz00_5691
																																																											=
																																																											BgL_newzd2matchzd2_10630;
																																																								}}
																																																							else
																																																								{	/* Unsafe/http.scm 471 */
																																																									BgL_matchz00_5691
																																																										=
																																																										BgL_lastzd2matchzd2_5425;
																																																								}
																																																						}
																																																					}
																																																			}
																																																		}
																																																	else
																																																		{	/* Unsafe/http.scm 471 */
																																																			BgL_matchz00_5691
																																																				=
																																																				BgL_lastzd2matchzd2_5425;
																																																		}
																																																}
																																														}
																																												}
																																											}
																																										}
																																								}
																																							else
																																								{	/* Unsafe/http.scm 471 */
																																									if (((long) (BgL_curz00_5556) == 44L))
																																										{
																																											long
																																												BgL_bufposz00_16854;
																																											long
																																												BgL_forwardz00_16852;
																																											long
																																												BgL_lastzd2matchzd2_16851;
																																											obj_t
																																												BgL_iportz00_16850;
																																											BgL_iportz00_16850
																																												=
																																												BgL_iportz00_5546;
																																											BgL_lastzd2matchzd2_16851
																																												=
																																												BgL_newzd2matchzd2_5551;
																																											BgL_forwardz00_16852
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_5548);
																																											BgL_bufposz00_16854
																																												=
																																												BgL_bufposz00_5549;
																																											BgL_bufposz00_5524
																																												=
																																												BgL_bufposz00_16854;
																																											BgL_forwardz00_5523
																																												=
																																												BgL_forwardz00_16852;
																																											BgL_lastzd2matchzd2_5522
																																												=
																																												BgL_lastzd2matchzd2_16851;
																																											BgL_iportz00_5521
																																												=
																																												BgL_iportz00_16850;
																																											goto
																																												BgL_zc3z04anonymousza33969ze3z87_5525;
																																										}
																																									else
																																										{	/* Unsafe/http.scm 471 */
																																											if (((long) (BgL_curz00_5556) == 13L))
																																												{	/* Unsafe/http.scm 471 */
																																													long
																																														BgL_arg3995z00_5567;
																																													BgL_arg3995z00_5567
																																														=
																																														(1L
																																														+
																																														BgL_forwardz00_5548);
																																													{
																																														long
																																															BgL_forwardz00_10778;
																																														long
																																															BgL_bufposz00_10779;
																																														BgL_forwardz00_10778
																																															=
																																															BgL_arg3995z00_5567;
																																														BgL_bufposz00_10779
																																															=
																																															BgL_bufposz00_5549;
																																													BgL_statezd24zd21208z00_10777:
																																														if ((BgL_forwardz00_10778 == BgL_bufposz00_10779))
																																															{	/* Unsafe/http.scm 471 */
																																																if (rgc_fill_buffer(BgL_iportz00_5546))
																																																	{	/* Unsafe/http.scm 471 */
																																																		long
																																																			BgL_arg3956z00_10782;
																																																		long
																																																			BgL_arg3957z00_10783;
																																																		BgL_arg3956z00_10782
																																																			=
																																																			RGC_BUFFER_FORWARD
																																																			(BgL_iportz00_5546);
																																																		BgL_arg3957z00_10783
																																																			=
																																																			RGC_BUFFER_BUFPOS
																																																			(BgL_iportz00_5546);
																																																		{
																																																			long
																																																				BgL_bufposz00_16866;
																																																			long
																																																				BgL_forwardz00_16865;
																																																			BgL_forwardz00_16865
																																																				=
																																																				BgL_arg3956z00_10782;
																																																			BgL_bufposz00_16866
																																																				=
																																																				BgL_arg3957z00_10783;
																																																			BgL_bufposz00_10779
																																																				=
																																																				BgL_bufposz00_16866;
																																																			BgL_forwardz00_10778
																																																				=
																																																				BgL_forwardz00_16865;
																																																			goto
																																																				BgL_statezd24zd21208z00_10777;
																																																		}
																																																	}
																																																else
																																																	{	/* Unsafe/http.scm 471 */
																																																		BgL_matchz00_5691
																																																			=
																																																			BgL_newzd2matchzd2_5551;
																																																	}
																																															}
																																														else
																																															{	/* Unsafe/http.scm 471 */
																																																int
																																																	BgL_curz00_10784;
																																																BgL_curz00_10784
																																																	=
																																																	RGC_BUFFER_GET_CHAR
																																																	(BgL_iportz00_5546,
																																																	BgL_forwardz00_10778);
																																																{	/* Unsafe/http.scm 471 */

																																																	if (((long) (BgL_curz00_10784) == 10L))
																																																		{	/* Unsafe/http.scm 471 */
																																																			long
																																																				BgL_arg3959z00_10786;
																																																			BgL_arg3959z00_10786
																																																				=
																																																				(1L
																																																				+
																																																				BgL_forwardz00_10778);
																																																			{	/* Unsafe/http.scm 471 */
																																																				long
																																																					BgL_newzd2matchzd2_10796;
																																																				RGC_STOP_MATCH
																																																					(BgL_iportz00_5546,
																																																					BgL_arg3959z00_10786);
																																																				BgL_newzd2matchzd2_10796
																																																					=
																																																					0L;
																																																				BgL_matchz00_5691
																																																					=
																																																					BgL_newzd2matchzd2_10796;
																																																		}}
																																																	else
																																																		{	/* Unsafe/http.scm 471 */
																																																			BgL_matchz00_5691
																																																				=
																																																				BgL_newzd2matchzd2_5551;
																																																		}
																																																}
																																															}
																																													}
																																												}
																																											else
																																												{	/* Unsafe/http.scm 471 */
																																													BgL_matchz00_5691
																																														=
																																														BgL_newzd2matchzd2_5551;
																																												}
																																										}
																																								}
																																						}
																																					}
																																				}
																																		}
																																	}
																																else
																																	{	/* Unsafe/http.scm 471 */
																																		bool_t
																																			BgL_test6620z00_16874;
																																		if (((long)
																																				(BgL_curz00_5407)
																																				== 9L))
																																			{	/* Unsafe/http.scm 471 */
																																				BgL_test6620z00_16874
																																					=
																																					(
																																					(bool_t)
																																					1);
																																			}
																																		else
																																			{	/* Unsafe/http.scm 471 */
																																				BgL_test6620z00_16874
																																					=
																																					(
																																					(long)
																																					(BgL_curz00_5407)
																																					==
																																					32L);
																																			}
																																		if (BgL_test6620z00_16874)
																																			{	/* Unsafe/http.scm 471 */
																																				BgL_iportz00_5455
																																					=
																																					BgL_iportz00_5398;
																																				BgL_lastzd2matchzd2_5456
																																					=
																																					BgL_lastzd2matchzd2_5399;
																																				BgL_forwardz00_5457
																																					=
																																					(1L +
																																					BgL_forwardz00_5400);
																																				BgL_bufposz00_5458
																																					=
																																					BgL_bufposz00_5401;
																																			BgL_zc3z04anonymousza33937ze3z87_5459:
																																				{	/* Unsafe/http.scm 471 */
																																					long
																																						BgL_newzd2matchzd2_5460;
																																					RGC_STOP_MATCH
																																						(BgL_iportz00_5455,
																																						BgL_forwardz00_5457);
																																					BgL_newzd2matchzd2_5460
																																						=
																																						2L;
																																					if (
																																						(BgL_forwardz00_5457
																																							==
																																							BgL_bufposz00_5458))
																																						{	/* Unsafe/http.scm 471 */
																																							if (rgc_fill_buffer(BgL_iportz00_5455))
																																								{	/* Unsafe/http.scm 471 */
																																									long
																																										BgL_arg3940z00_5463;
																																									long
																																										BgL_arg3941z00_5464;
																																									BgL_arg3940z00_5463
																																										=
																																										RGC_BUFFER_FORWARD
																																										(BgL_iportz00_5455);
																																									BgL_arg3941z00_5464
																																										=
																																										RGC_BUFFER_BUFPOS
																																										(BgL_iportz00_5455);
																																									{
																																										long
																																											BgL_bufposz00_16888;
																																										long
																																											BgL_forwardz00_16887;
																																										BgL_forwardz00_16887
																																											=
																																											BgL_arg3940z00_5463;
																																										BgL_bufposz00_16888
																																											=
																																											BgL_arg3941z00_5464;
																																										BgL_bufposz00_5458
																																											=
																																											BgL_bufposz00_16888;
																																										BgL_forwardz00_5457
																																											=
																																											BgL_forwardz00_16887;
																																										goto
																																											BgL_zc3z04anonymousza33937ze3z87_5459;
																																									}
																																								}
																																							else
																																								{	/* Unsafe/http.scm 471 */
																																									BgL_matchz00_5691
																																										=
																																										BgL_newzd2matchzd2_5460;
																																								}
																																						}
																																					else
																																						{	/* Unsafe/http.scm 471 */
																																							int
																																								BgL_curz00_5465;
																																							BgL_curz00_5465
																																								=
																																								RGC_BUFFER_GET_CHAR
																																								(BgL_iportz00_5455,
																																								BgL_forwardz00_5457);
																																							{	/* Unsafe/http.scm 471 */

																																								{	/* Unsafe/http.scm 471 */
																																									bool_t
																																										BgL_test6624z00_16890;
																																									if (((long) (BgL_curz00_5465) == 9L))
																																										{	/* Unsafe/http.scm 471 */
																																											BgL_test6624z00_16890
																																												=
																																												(
																																												(bool_t)
																																												1);
																																										}
																																									else
																																										{	/* Unsafe/http.scm 471 */
																																											BgL_test6624z00_16890
																																												=
																																												(
																																												(long)
																																												(BgL_curz00_5465)
																																												==
																																												32L);
																																										}
																																									if (BgL_test6624z00_16890)
																																										{	/* Unsafe/http.scm 471 */
																																											BgL_iportz00_5470
																																												=
																																												BgL_iportz00_5455;
																																											BgL_lastzd2matchzd2_5471
																																												=
																																												BgL_newzd2matchzd2_5460;
																																											BgL_forwardz00_5472
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_5457);
																																											BgL_bufposz00_5473
																																												=
																																												BgL_bufposz00_5458;
																																										BgL_zc3z04anonymousza33945ze3z87_5474:
																																											{	/* Unsafe/http.scm 471 */
																																												long
																																													BgL_newzd2matchzd2_5475;
																																												RGC_STOP_MATCH
																																													(BgL_iportz00_5470,
																																													BgL_forwardz00_5472);
																																												BgL_newzd2matchzd2_5475
																																													=
																																													2L;
																																												if ((BgL_forwardz00_5472 == BgL_bufposz00_5473))
																																													{	/* Unsafe/http.scm 471 */
																																														if (rgc_fill_buffer(BgL_iportz00_5470))
																																															{	/* Unsafe/http.scm 471 */
																																																long
																																																	BgL_arg3948z00_5478;
																																																long
																																																	BgL_arg3949z00_5479;
																																																BgL_arg3948z00_5478
																																																	=
																																																	RGC_BUFFER_FORWARD
																																																	(BgL_iportz00_5470);
																																																BgL_arg3949z00_5479
																																																	=
																																																	RGC_BUFFER_BUFPOS
																																																	(BgL_iportz00_5470);
																																																{
																																																	long
																																																		BgL_bufposz00_16904;
																																																	long
																																																		BgL_forwardz00_16903;
																																																	BgL_forwardz00_16903
																																																		=
																																																		BgL_arg3948z00_5478;
																																																	BgL_bufposz00_16904
																																																		=
																																																		BgL_arg3949z00_5479;
																																																	BgL_bufposz00_5473
																																																		=
																																																		BgL_bufposz00_16904;
																																																	BgL_forwardz00_5472
																																																		=
																																																		BgL_forwardz00_16903;
																																																	goto
																																																		BgL_zc3z04anonymousza33945ze3z87_5474;
																																																}
																																															}
																																														else
																																															{	/* Unsafe/http.scm 471 */
																																																BgL_matchz00_5691
																																																	=
																																																	BgL_newzd2matchzd2_5475;
																																															}
																																													}
																																												else
																																													{	/* Unsafe/http.scm 471 */
																																														int
																																															BgL_curz00_5480;
																																														BgL_curz00_5480
																																															=
																																															RGC_BUFFER_GET_CHAR
																																															(BgL_iportz00_5470,
																																															BgL_forwardz00_5472);
																																														{	/* Unsafe/http.scm 471 */

																																															{	/* Unsafe/http.scm 471 */
																																																bool_t
																																																	BgL_test6628z00_16906;
																																																if (((long) (BgL_curz00_5480) == 9L))
																																																	{	/* Unsafe/http.scm 471 */
																																																		BgL_test6628z00_16906
																																																			=
																																																			(
																																																			(bool_t)
																																																			1);
																																																	}
																																																else
																																																	{	/* Unsafe/http.scm 471 */
																																																		BgL_test6628z00_16906
																																																			=
																																																			(
																																																			(long)
																																																			(BgL_curz00_5480)
																																																			==
																																																			32L);
																																																	}
																																																if (BgL_test6628z00_16906)
																																																	{
																																																		long
																																																			BgL_forwardz00_16913;
																																																		long
																																																			BgL_lastzd2matchzd2_16912;
																																																		BgL_lastzd2matchzd2_16912
																																																			=
																																																			BgL_newzd2matchzd2_5475;
																																																		BgL_forwardz00_16913
																																																			=
																																																			(1L
																																																			+
																																																			BgL_forwardz00_5472);
																																																		BgL_forwardz00_5472
																																																			=
																																																			BgL_forwardz00_16913;
																																																		BgL_lastzd2matchzd2_5471
																																																			=
																																																			BgL_lastzd2matchzd2_16912;
																																																		goto
																																																			BgL_zc3z04anonymousza33945ze3z87_5474;
																																																	}
																																																else
																																																	{	/* Unsafe/http.scm 471 */
																																																		BgL_matchz00_5691
																																																			=
																																																			BgL_newzd2matchzd2_5475;
																																																	}
																																															}
																																														}
																																													}
																																											}
																																										}
																																									else
																																										{	/* Unsafe/http.scm 471 */
																																											BgL_matchz00_5691
																																												=
																																												BgL_newzd2matchzd2_5460;
																																										}
																																								}
																																							}
																																						}
																																				}
																																			}
																																		else
																																			{	/* Unsafe/http.scm 471 */
																																				long
																																					BgL_arg3921z00_5418;
																																				BgL_arg3921z00_5418
																																					=
																																					(1L +
																																					BgL_forwardz00_5400);
																																				{	/* Unsafe/http.scm 471 */
																																					long
																																						BgL_newzd2matchzd2_10591;
																																					RGC_STOP_MATCH
																																						(BgL_iportz00_5398,
																																						BgL_arg3921z00_5418);
																																					BgL_newzd2matchzd2_10591
																																						=
																																						3L;
																																					BgL_matchz00_5691
																																						=
																																						BgL_newzd2matchzd2_10591;
																											}}}}}}}
																											RGC_SET_FILEPOS
																												(BgL_iportz00_5332);
																											switch (BgL_matchz00_5691)
																												{
																												case 3L:

																													BgL_connectionz00_3885
																														=
																														BGl_symbol5709z00zz__httpz00;
																													break;
																												case 2L:

																													goto
																														BgL_zc3z04anonymousza34082ze3z87_5690;
																													break;
																												case 1L:

																													BgL_minz00_5640 = 0L;
																													BgL_maxz00_5641 = -2L;
																												BgL_lambda4045z00_5642:
																													if (
																														(BgL_maxz00_5641 <
																															0L))
																														{	/* Unsafe/http.scm 471 */
																															long
																																BgL_stopz00_5644;
																															{	/* Unsafe/http.scm 471 */
																																long
																																	BgL_arg4049z00_5647;
																																BgL_arg4049z00_5647
																																	=
																																	RGC_BUFFER_MATCH_LENGTH
																																	(BgL_iportz00_5332);
																																BgL_stopz00_5644
																																	=
																																	(BgL_arg4049z00_5647
																																	+
																																	BgL_maxz00_5641);
																															}
																															if (
																																(BgL_stopz00_5644
																																	<=
																																	BgL_minz00_5640))
																																{	/* Unsafe/http.scm 471 */
																																	obj_t
																																		BgL_arg4048z00_5646;
																																	BgL_arg4048z00_5646
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BINT
																																		(BgL_minz00_5640),
																																		BINT
																																		(BgL_maxz00_5641));
																																	BgL_connectionz00_3885
																																		=
																																		BGl_errorz00zz__errorz00
																																		(BGl_string5710z00zz__httpz00,
																																		BGl_string5711z00zz__httpz00,
																																		BgL_arg4048z00_5646);
																																}
																															else
																																{	/* Unsafe/http.scm 471 */
																																	BgL_connectionz00_3885
																																		=
																																		rgc_buffer_downcase_subsymbol
																																		(BgL_iportz00_5332,
																																		BgL_minz00_5640,
																																		BgL_stopz00_5644);
																																}
																														}
																													else
																														{	/* Unsafe/http.scm 471 */
																															bool_t
																																BgL_test6632z00_16931;
																															if (
																																(BgL_minz00_5640
																																	>= 0L))
																																{	/* Unsafe/http.scm 471 */
																																	bool_t
																																		BgL_test6634z00_16934;
																																	{	/* Unsafe/http.scm 471 */
																																		long
																																			BgL_arg4056z00_5656;
																																		BgL_arg4056z00_5656
																																			=
																																			RGC_BUFFER_MATCH_LENGTH
																																			(BgL_iportz00_5332);
																																		BgL_test6634z00_16934
																																			=
																																			(BgL_maxz00_5641
																																			<=
																																			BgL_arg4056z00_5656);
																																	}
																																	if (BgL_test6634z00_16934)
																																		{	/* Unsafe/http.scm 471 */
																																			BgL_test6632z00_16931
																																				=
																																				(BgL_maxz00_5641
																																				>=
																																				BgL_minz00_5640);
																																		}
																																	else
																																		{	/* Unsafe/http.scm 471 */
																																			BgL_test6632z00_16931
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																}
																															else
																																{	/* Unsafe/http.scm 471 */
																																	BgL_test6632z00_16931
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test6632z00_16931)
																																{	/* Unsafe/http.scm 471 */
																																	BgL_connectionz00_3885
																																		=
																																		rgc_buffer_downcase_subsymbol
																																		(BgL_iportz00_5332,
																																		BgL_minz00_5640,
																																		BgL_maxz00_5641);
																																}
																															else
																																{	/* Unsafe/http.scm 471 */
																																	obj_t
																																		BgL_arg4055z00_5653;
																																	BgL_arg4055z00_5653
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BINT
																																		(BgL_minz00_5640),
																																		BINT
																																		(BgL_maxz00_5641));
																																	BgL_connectionz00_3885
																																		=
																																		BGl_errorz00zz__errorz00
																																		(BGl_string5710z00zz__httpz00,
																																		BGl_string5711z00zz__httpz00,
																																		BgL_arg4055z00_5653);
																																}
																														}
																													break;
																												case 0L:

																													{
																														long
																															BgL_maxz00_16944;
																														long
																															BgL_minz00_16943;
																														BgL_minz00_16943 =
																															0L;
																														BgL_maxz00_16944 =
																															-2L;
																														BgL_maxz00_5641 =
																															BgL_maxz00_16944;
																														BgL_minz00_5640 =
																															BgL_minz00_16943;
																														goto
																															BgL_lambda4045z00_5642;
																													}
																													break;
																												default:
																													BgL_connectionz00_3885
																														=
																														BGl_errorz00zz__errorz00
																														(BGl_string5600z00zz__httpz00,
																														BGl_string5601z00zz__httpz00,
																														BINT
																														(BgL_matchz00_5691));
																												}
																										}
																									}
																									{	/* Unsafe/http.scm 545 */
																										obj_t BgL_arg3433z00_4420;

																										BgL_arg3433z00_4420 =
																											MAKE_YOUNG_PAIR
																											(BgL_kz00_4393,
																											BgL_connectionz00_3885);
																										BgL_headerz00_3878 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg3433z00_4420,
																											BgL_headerz00_3878);
																									}
																									goto
																										BgL_zc3z04anonymousza33376ze3z87_4352;
																								}
																							else
																								{	/* Unsafe/http.scm 512 */
																									if (
																										(BgL_kz00_4393 ==
																											BGl_keyword5718z00zz__httpz00))
																										{	/* Unsafe/http.scm 512 */
																											BgL_proxyzd2authoriza7ationz75_3884
																												=
																												BGl_authzd2grammarze70z35zz__httpz00
																												(BgL_iportz00_3876);
																											BGl_crlfzd2grammarze70z35zz__httpz00
																												(BgL_iportz00_3876);
																											goto
																												BgL_zc3z04anonymousza33376ze3z87_4352;
																										}
																									else
																										{	/* Unsafe/http.scm 512 */
																											if (
																												(BgL_kz00_4393 ==
																													BGl_keyword5720z00zz__httpz00))
																												{	/* Unsafe/http.scm 553 */
																													obj_t BgL_ez00_4425;

																													BgL_ez00_4425 =
																														BGl_valuezd2grammarze70z35zz__httpz00
																														(BgL_iportz00_3876);
																													if (OUTPUT_PORTP
																														(BgL_poz00_3877))
																														{	/* Unsafe/http.scm 559 */
																															bool_t
																																BgL_test6638z00_16959;
																															{	/* Unsafe/http.scm 559 */
																																long
																																	BgL_l1z00_11704;
																																BgL_l1z00_11704
																																	=
																																	STRING_LENGTH(
																																	((obj_t)
																																		BgL_ez00_4425));
																																if (
																																	(BgL_l1z00_11704
																																		== 12L))
																																	{	/* Unsafe/http.scm 559 */
																																		int
																																			BgL_arg5248z00_11707;
																																		{	/* Unsafe/http.scm 559 */
																																			char
																																				*BgL_auxz00_16967;
																																			char
																																				*BgL_tmpz00_16964;
																																			BgL_auxz00_16967
																																				=
																																				BSTRING_TO_STRING
																																				(BGl_string5722z00zz__httpz00);
																																			BgL_tmpz00_16964
																																				=
																																				BSTRING_TO_STRING
																																				(((obj_t) BgL_ez00_4425));
																																			BgL_arg5248z00_11707
																																				=
																																				memcmp
																																				(BgL_tmpz00_16964,
																																				BgL_auxz00_16967,
																																				BgL_l1z00_11704);
																																		}
																																		BgL_test6638z00_16959
																																			=
																																			((long)
																																			(BgL_arg5248z00_11707)
																																			== 0L);
																																	}
																																else
																																	{	/* Unsafe/http.scm 559 */
																																		BgL_test6638z00_16959
																																			=
																																			((bool_t)
																																			0);
																																	}
																															}
																															if (BgL_test6638z00_16959)
																																{	/* Unsafe/http.scm 559 */
																																	bgl_display_string
																																		(BGl_string5723z00zz__httpz00,
																																		BgL_poz00_3877);
																																	bgl_display_char
																																		(((unsigned
																																				char)
																																			10),
																																		BgL_poz00_3877);
																																	bgl_flush_output_port
																																		(BgL_poz00_3877);
																																	goto
																																		BgL_zc3z04anonymousza33376ze3z87_4352;
																																}
																															else
																																{	/* Unsafe/http.scm 559 */
																																	bgl_display_string
																																		(BGl_string5724z00zz__httpz00,
																																		BgL_poz00_3877);
																																	bgl_display_char
																																		(((unsigned
																																				char)
																																			10),
																																		BgL_poz00_3877);
																																	bgl_flush_output_port
																																		(BgL_poz00_3877);
																																	{	/* Unsafe/http.scm 567 */
																																		BgL_z62iozd2parsezd2errorz62_bglt
																																			BgL_arg3441z00_4430;
																																		{	/* Unsafe/http.scm 567 */
																																			BgL_z62iozd2parsezd2errorz62_bglt
																																				BgL_new1277z00_4431;
																																			{	/* Unsafe/http.scm 567 */
																																				BgL_z62iozd2parsezd2errorz62_bglt
																																					BgL_new1276z00_4435;
																																				BgL_new1276z00_4435
																																					=
																																					(
																																					(BgL_z62iozd2parsezd2errorz62_bglt)
																																					BOBJECT
																																					(GC_MALLOC
																																						(sizeof
																																							(struct
																																								BgL_z62iozd2parsezd2errorz62_bgl))));
																																				{	/* Unsafe/http.scm 567 */
																																					long
																																						BgL_arg3445z00_4436;
																																					BgL_arg3445z00_4436
																																						=
																																						BGL_CLASS_NUM
																																						(BGl_z62iozd2parsezd2errorz62zz__objectz00);
																																					BGL_OBJECT_CLASS_NUM_SET
																																						(((BgL_objectz00_bglt) BgL_new1276z00_4435), BgL_arg3445z00_4436);
																																				}
																																				BgL_new1277z00_4431
																																					=
																																					BgL_new1276z00_4435;
																																			}
																																			((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1277z00_4431)))->BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
																																			((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1277z00_4431)))->BgL_locationz00) = ((obj_t) BFALSE), BUNSPEC);
																																			{
																																				obj_t
																																					BgL_auxz00_16986;
																																				{	/* Unsafe/http.scm 567 */
																																					obj_t
																																						BgL_arg3442z00_4432;
																																					{	/* Unsafe/http.scm 567 */
																																						obj_t
																																							BgL_arg3443z00_4433;
																																						{	/* Unsafe/http.scm 567 */
																																							obj_t
																																								BgL_classz00_11724;
																																							BgL_classz00_11724
																																								=
																																								BGl_z62iozd2parsezd2errorz62zz__objectz00;
																																							BgL_arg3443z00_4433
																																								=
																																								BGL_CLASS_ALL_FIELDS
																																								(BgL_classz00_11724);
																																						}
																																						BgL_arg3442z00_4432
																																							=
																																							VECTOR_REF
																																							(BgL_arg3443z00_4433,
																																							2L);
																																					}
																																					BgL_auxz00_16986
																																						=
																																						BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																																						(BgL_arg3442z00_4432);
																																				}
																																				((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt) BgL_new1277z00_4431)))->BgL_stackz00) = ((obj_t) BgL_auxz00_16986), BUNSPEC);
																																			}
																																			((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1277z00_4431)))->BgL_procz00) = ((obj_t) BGl_string5725z00zz__httpz00), BUNSPEC);
																																			{
																																				obj_t
																																					BgL_auxz00_16994;
																																				{	/* Unsafe/http.scm 570 */
																																					obj_t
																																						BgL_list3444z00_4434;
																																					BgL_list3444z00_4434
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_ez00_4425,
																																						BNIL);
																																					BgL_auxz00_16994
																																						=
																																						BGl_formatz00zz__r4_output_6_10_3z00
																																						(BGl_string5726z00zz__httpz00,
																																						BgL_list3444z00_4434);
																																				}
																																				((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1277z00_4431)))->BgL_msgz00) = ((obj_t) BgL_auxz00_16994), BUNSPEC);
																																			}
																																			((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt) BgL_new1277z00_4431)))->BgL_objz00) = ((obj_t) BgL_iportz00_3876), BUNSPEC);
																																			BgL_arg3441z00_4430
																																				=
																																				BgL_new1277z00_4431;
																																		}
																																		return
																																			BGl_raisez00zz__errorz00
																																			(((obj_t)
																																				BgL_arg3441z00_4430));
																																	}
																																}
																														}
																													else
																														{	/* Unsafe/http.scm 555 */
																															return
																																BGl_errorz00zz__errorz00
																																(BGl_string5725z00zz__httpz00,
																																BGl_string5727z00zz__httpz00,
																																BgL_poz00_3877);
																														}
																												}
																											else
																												{	/* Unsafe/http.scm 572 */
																													obj_t BgL_vz00_4438;

																													BgL_vz00_4438 =
																														BGl_valuezd2grammarze70z35zz__httpz00
																														(BgL_iportz00_3876);
																													{	/* Unsafe/http.scm 573 */
																														obj_t
																															BgL_arg3448z00_4439;
																														BgL_arg3448z00_4439
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_kz00_4393,
																															BgL_vz00_4438);
																														BgL_headerz00_3878 =
																															MAKE_YOUNG_PAIR
																															(BgL_arg3448z00_4439,
																															BgL_headerz00_3878);
																													}
																													goto
																														BgL_zc3z04anonymousza33376ze3z87_4352;
																												}
																										}
																								}
																						}
																				}
																		}
																}
														}
													}
													break;
												default:
													return
														BGl_errorz00zz__errorz00
														(BGl_string5600z00zz__httpz00,
														BGl_string5601z00zz__httpz00,
														BINT(BgL_matchz00_4353));
												}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



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

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

					BgL_arg3370z00_4343 = RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_12530);
					BgL_test6640z00_17010 = (BgL_arg3370z00_4343 == 0L);
				}
				if (BgL_test6640z00_17010)
					{	/* Unsafe/http.scm 506 */
						return BEOF;
					}
				else
					{	/* Unsafe/http.scm 506 */
						return BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_12530));
					}
			}
		}

	}



/* value-grammar~0 */
	obj_t BGl_valuezd2grammarze70z35zz__httpz00(obj_t BgL_iportz00_7161)
	{
		{	/* Unsafe/http.scm 428 */
			{
				obj_t BgL_iportz00_7201;
				long BgL_lastzd2matchzd2_7202;
				long BgL_forwardz00_7203;
				long BgL_bufposz00_7204;
				obj_t BgL_iportz00_7234;
				long BgL_lastzd2matchzd2_7235;
				long BgL_forwardz00_7236;
				long BgL_bufposz00_7237;
				obj_t BgL_iportz00_7249;
				long BgL_lastzd2matchzd2_7250;
				long BgL_forwardz00_7251;
				long BgL_bufposz00_7252;
				obj_t BgL_iportz00_7262;
				long BgL_lastzd2matchzd2_7263;
				long BgL_forwardz00_7264;
				long BgL_bufposz00_7265;
				obj_t BgL_iportz00_7278;
				long BgL_lastzd2matchzd2_7279;
				long BgL_forwardz00_7280;
				long BgL_bufposz00_7281;
				obj_t BgL_iportz00_7297;
				long BgL_lastzd2matchzd2_7298;
				long BgL_forwardz00_7299;
				long BgL_bufposz00_7300;
				obj_t BgL_iportz00_7318;
				long BgL_lastzd2matchzd2_7319;
				long BgL_forwardz00_7320;
				long BgL_bufposz00_7321;
				int BgL_minz00_7343;
				int BgL_maxz00_7344;

			BgL_zc3z04anonymousza34921ze3z87_7449:
				RGC_START_MATCH(BgL_iportz00_7161);
				{	/* Unsafe/http.scm 428 */
					long BgL_matchz00_7450;

					{	/* Unsafe/http.scm 428 */
						long BgL_arg4922z00_7453;
						long BgL_arg4923z00_7454;

						BgL_arg4922z00_7453 = RGC_BUFFER_FORWARD(BgL_iportz00_7161);
						BgL_arg4923z00_7454 = RGC_BUFFER_BUFPOS(BgL_iportz00_7161);
						BgL_iportz00_7278 = BgL_iportz00_7161;
						BgL_lastzd2matchzd2_7279 = 4L;
						BgL_forwardz00_7280 = BgL_arg4922z00_7453;
						BgL_bufposz00_7281 = BgL_arg4923z00_7454;
					BgL_zc3z04anonymousza34805ze3z87_7282:
						if ((BgL_forwardz00_7280 == BgL_bufposz00_7281))
							{	/* Unsafe/http.scm 428 */
								if (rgc_fill_buffer(BgL_iportz00_7278))
									{	/* Unsafe/http.scm 428 */
										long BgL_arg4808z00_7285;
										long BgL_arg4809z00_7286;

										BgL_arg4808z00_7285 = RGC_BUFFER_FORWARD(BgL_iportz00_7278);
										BgL_arg4809z00_7286 = RGC_BUFFER_BUFPOS(BgL_iportz00_7278);
										{
											long BgL_bufposz00_17025;
											long BgL_forwardz00_17024;

											BgL_forwardz00_17024 = BgL_arg4808z00_7285;
											BgL_bufposz00_17025 = BgL_arg4809z00_7286;
											BgL_bufposz00_7281 = BgL_bufposz00_17025;
											BgL_forwardz00_7280 = BgL_forwardz00_17024;
											goto BgL_zc3z04anonymousza34805ze3z87_7282;
										}
									}
								else
									{	/* Unsafe/http.scm 428 */
										BgL_matchz00_7450 = BgL_lastzd2matchzd2_7279;
									}
							}
						else
							{	/* Unsafe/http.scm 428 */
								int BgL_curz00_7287;

								BgL_curz00_7287 =
									RGC_BUFFER_GET_CHAR(BgL_iportz00_7278, BgL_forwardz00_7280);
								{	/* Unsafe/http.scm 428 */

									if (((long) (BgL_curz00_7287) == 13L))
										{	/* Unsafe/http.scm 428 */
											BgL_iportz00_7249 = BgL_iportz00_7278;
											BgL_lastzd2matchzd2_7250 = BgL_lastzd2matchzd2_7279;
											BgL_forwardz00_7251 = (1L + BgL_forwardz00_7280);
											BgL_bufposz00_7252 = BgL_bufposz00_7281;
										BgL_zc3z04anonymousza34788ze3z87_7253:
											{	/* Unsafe/http.scm 428 */
												long BgL_newzd2matchzd2_7254;

												RGC_STOP_MATCH(BgL_iportz00_7249, BgL_forwardz00_7251);
												BgL_newzd2matchzd2_7254 = 4L;
												if ((BgL_forwardz00_7251 == BgL_bufposz00_7252))
													{	/* Unsafe/http.scm 428 */
														if (rgc_fill_buffer(BgL_iportz00_7249))
															{	/* Unsafe/http.scm 428 */
																long BgL_arg4791z00_7257;
																long BgL_arg4792z00_7258;

																BgL_arg4791z00_7257 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_7249);
																BgL_arg4792z00_7258 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_7249);
																{
																	long BgL_bufposz00_17038;
																	long BgL_forwardz00_17037;

																	BgL_forwardz00_17037 = BgL_arg4791z00_7257;
																	BgL_bufposz00_17038 = BgL_arg4792z00_7258;
																	BgL_bufposz00_7252 = BgL_bufposz00_17038;
																	BgL_forwardz00_7251 = BgL_forwardz00_17037;
																	goto BgL_zc3z04anonymousza34788ze3z87_7253;
																}
															}
														else
															{	/* Unsafe/http.scm 428 */
																BgL_matchz00_7450 = BgL_newzd2matchzd2_7254;
															}
													}
												else
													{	/* Unsafe/http.scm 428 */
														int BgL_curz00_7259;

														BgL_curz00_7259 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_7249,
															BgL_forwardz00_7251);
														{	/* Unsafe/http.scm 428 */

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

																	BgL_arg4794z00_7261 =
																		(1L + BgL_forwardz00_7251);
																	{	/* Unsafe/http.scm 428 */
																		long BgL_newzd2matchzd2_10151;

																		RGC_STOP_MATCH(BgL_iportz00_7249,
																			BgL_arg4794z00_7261);
																		BgL_newzd2matchzd2_10151 = 3L;
																		BgL_matchz00_7450 =
																			BgL_newzd2matchzd2_10151;
																}}
															else
																{	/* Unsafe/http.scm 428 */
																	BgL_matchz00_7450 = BgL_newzd2matchzd2_7254;
																}
														}
													}
											}
										}
									else
										{	/* Unsafe/http.scm 428 */
											if (((long) (BgL_curz00_7287) == 10L))
												{	/* Unsafe/http.scm 428 */
													long BgL_arg4813z00_7291;

													BgL_arg4813z00_7291 = (1L + BgL_forwardz00_7280);
													{	/* Unsafe/http.scm 428 */
														long BgL_newzd2matchzd2_10182;

														RGC_STOP_MATCH(BgL_iportz00_7278,
															BgL_arg4813z00_7291);
														BgL_newzd2matchzd2_10182 = 3L;
														BgL_matchz00_7450 = BgL_newzd2matchzd2_10182;
												}}
											else
												{	/* Unsafe/http.scm 428 */
													bool_t BgL_test6648z00_17051;

													if (((long) (BgL_curz00_7287) == 9L))
														{	/* Unsafe/http.scm 428 */
															BgL_test6648z00_17051 = ((bool_t) 1);
														}
													else
														{	/* Unsafe/http.scm 428 */
															BgL_test6648z00_17051 =
																((long) (BgL_curz00_7287) == 32L);
														}
													if (BgL_test6648z00_17051)
														{	/* Unsafe/http.scm 428 */
															BgL_iportz00_7201 = BgL_iportz00_7278;
															BgL_lastzd2matchzd2_7202 =
																BgL_lastzd2matchzd2_7279;
															BgL_forwardz00_7203 = (1L + BgL_forwardz00_7280);
															BgL_bufposz00_7204 = BgL_bufposz00_7281;
														BgL_zc3z04anonymousza34767ze3z87_7205:
															{	/* Unsafe/http.scm 428 */
																long BgL_newzd2matchzd2_7206;

																RGC_STOP_MATCH(BgL_iportz00_7201,
																	BgL_forwardz00_7203);
																BgL_newzd2matchzd2_7206 = 0L;
																if ((BgL_forwardz00_7203 == BgL_bufposz00_7204))
																	{	/* Unsafe/http.scm 428 */
																		if (rgc_fill_buffer(BgL_iportz00_7201))
																			{	/* Unsafe/http.scm 428 */
																				long BgL_arg4770z00_7209;
																				long BgL_arg4771z00_7210;

																				BgL_arg4770z00_7209 =
																					RGC_BUFFER_FORWARD(BgL_iportz00_7201);
																				BgL_arg4771z00_7210 =
																					RGC_BUFFER_BUFPOS(BgL_iportz00_7201);
																				{
																					long BgL_bufposz00_17065;
																					long BgL_forwardz00_17064;

																					BgL_forwardz00_17064 =
																						BgL_arg4770z00_7209;
																					BgL_bufposz00_17065 =
																						BgL_arg4771z00_7210;
																					BgL_bufposz00_7204 =
																						BgL_bufposz00_17065;
																					BgL_forwardz00_7203 =
																						BgL_forwardz00_17064;
																					goto
																						BgL_zc3z04anonymousza34767ze3z87_7205;
																				}
																			}
																		else
																			{	/* Unsafe/http.scm 428 */
																				BgL_matchz00_7450 =
																					BgL_newzd2matchzd2_7206;
																			}
																	}
																else
																	{	/* Unsafe/http.scm 428 */
																		int BgL_curz00_7211;

																		BgL_curz00_7211 =
																			RGC_BUFFER_GET_CHAR(BgL_iportz00_7201,
																			BgL_forwardz00_7203);
																		{	/* Unsafe/http.scm 428 */

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

																				if (((long) (BgL_curz00_7211) == 9L))
																					{	/* Unsafe/http.scm 428 */
																						BgL_test6652z00_17067 =
																							((bool_t) 1);
																					}
																				else
																					{	/* Unsafe/http.scm 428 */
																						BgL_test6652z00_17067 =
																							((long) (BgL_curz00_7211) == 32L);
																					}
																				if (BgL_test6652z00_17067)
																					{	/* Unsafe/http.scm 428 */
																						BgL_iportz00_7297 =
																							BgL_iportz00_7201;
																						BgL_lastzd2matchzd2_7298 =
																							BgL_newzd2matchzd2_7206;
																						BgL_forwardz00_7299 =
																							(1L + BgL_forwardz00_7203);
																						BgL_bufposz00_7300 =
																							BgL_bufposz00_7204;
																					BgL_zc3z04anonymousza34818ze3z87_7301:
																						{	/* Unsafe/http.scm 428 */
																							long BgL_newzd2matchzd2_7302;

																							RGC_STOP_MATCH(BgL_iportz00_7297,
																								BgL_forwardz00_7299);
																							BgL_newzd2matchzd2_7302 = 0L;
																							if (
																								(BgL_forwardz00_7299 ==
																									BgL_bufposz00_7300))
																								{	/* Unsafe/http.scm 428 */
																									if (rgc_fill_buffer
																										(BgL_iportz00_7297))
																										{	/* Unsafe/http.scm 428 */
																											long BgL_arg4821z00_7305;
																											long BgL_arg4822z00_7306;

																											BgL_arg4821z00_7305 =
																												RGC_BUFFER_FORWARD
																												(BgL_iportz00_7297);
																											BgL_arg4822z00_7306 =
																												RGC_BUFFER_BUFPOS
																												(BgL_iportz00_7297);
																											{
																												long
																													BgL_bufposz00_17081;
																												long
																													BgL_forwardz00_17080;
																												BgL_forwardz00_17080 =
																													BgL_arg4821z00_7305;
																												BgL_bufposz00_17081 =
																													BgL_arg4822z00_7306;
																												BgL_bufposz00_7300 =
																													BgL_bufposz00_17081;
																												BgL_forwardz00_7299 =
																													BgL_forwardz00_17080;
																												goto
																													BgL_zc3z04anonymousza34818ze3z87_7301;
																											}
																										}
																									else
																										{	/* Unsafe/http.scm 428 */
																											BgL_matchz00_7450 =
																												BgL_newzd2matchzd2_7302;
																										}
																								}
																							else
																								{	/* Unsafe/http.scm 428 */
																									int BgL_curz00_7307;

																									BgL_curz00_7307 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_iportz00_7297,
																										BgL_forwardz00_7299);
																									{	/* Unsafe/http.scm 428 */

																										{	/* Unsafe/http.scm 428 */
																											bool_t
																												BgL_test6656z00_17083;
																											if (((long)
																													(BgL_curz00_7307) ==
																													9L))
																												{	/* Unsafe/http.scm 428 */
																													BgL_test6656z00_17083
																														= ((bool_t) 1);
																												}
																											else
																												{	/* Unsafe/http.scm 428 */
																													BgL_test6656z00_17083
																														=
																														((long)
																														(BgL_curz00_7307) ==
																														32L);
																												}
																											if (BgL_test6656z00_17083)
																												{
																													long
																														BgL_forwardz00_17090;
																													long
																														BgL_lastzd2matchzd2_17089;
																													BgL_lastzd2matchzd2_17089
																														=
																														BgL_newzd2matchzd2_7302;
																													BgL_forwardz00_17090 =
																														(1L +
																														BgL_forwardz00_7299);
																													BgL_forwardz00_7299 =
																														BgL_forwardz00_17090;
																													BgL_lastzd2matchzd2_7298
																														=
																														BgL_lastzd2matchzd2_17089;
																													goto
																														BgL_zc3z04anonymousza34818ze3z87_7301;
																												}
																											else
																												{	/* Unsafe/http.scm 428 */
																													BgL_matchz00_7450 =
																														BgL_newzd2matchzd2_7302;
																												}
																										}
																									}
																								}
																						}
																					}
																				else
																					{	/* Unsafe/http.scm 428 */
																						BgL_matchz00_7450 =
																							BgL_newzd2matchzd2_7206;
																					}
																			}
																		}
																	}
															}
														}
													else
														{	/* Unsafe/http.scm 428 */
															BgL_iportz00_7262 = BgL_iportz00_7278;
															BgL_lastzd2matchzd2_7263 =
																BgL_lastzd2matchzd2_7279;
															BgL_forwardz00_7264 = (1L + BgL_forwardz00_7280);
															BgL_bufposz00_7265 = BgL_bufposz00_7281;
														BgL_zc3z04anonymousza34795ze3z87_7266:
															{	/* Unsafe/http.scm 428 */
																long BgL_newzd2matchzd2_7267;

																RGC_STOP_MATCH(BgL_iportz00_7262,
																	BgL_forwardz00_7264);
																BgL_newzd2matchzd2_7267 = 4L;
																if ((BgL_forwardz00_7264 == BgL_bufposz00_7265))
																	{	/* Unsafe/http.scm 428 */
																		if (rgc_fill_buffer(BgL_iportz00_7262))
																			{	/* Unsafe/http.scm 428 */
																				long BgL_arg4798z00_7270;
																				long BgL_arg4799z00_7271;

																				BgL_arg4798z00_7270 =
																					RGC_BUFFER_FORWARD(BgL_iportz00_7262);
																				BgL_arg4799z00_7271 =
																					RGC_BUFFER_BUFPOS(BgL_iportz00_7262);
																				{
																					long BgL_bufposz00_17102;
																					long BgL_forwardz00_17101;

																					BgL_forwardz00_17101 =
																						BgL_arg4798z00_7270;
																					BgL_bufposz00_17102 =
																						BgL_arg4799z00_7271;
																					BgL_bufposz00_7265 =
																						BgL_bufposz00_17102;
																					BgL_forwardz00_7264 =
																						BgL_forwardz00_17101;
																					goto
																						BgL_zc3z04anonymousza34795ze3z87_7266;
																				}
																			}
																		else
																			{	/* Unsafe/http.scm 428 */
																				BgL_matchz00_7450 =
																					BgL_newzd2matchzd2_7267;
																			}
																	}
																else
																	{	/* Unsafe/http.scm 428 */
																		int BgL_curz00_7272;

																		BgL_curz00_7272 =
																			RGC_BUFFER_GET_CHAR(BgL_iportz00_7262,
																			BgL_forwardz00_7264);
																		{	/* Unsafe/http.scm 428 */

																			if (((long) (BgL_curz00_7272) == 13L))
																				{	/* Unsafe/http.scm 428 */
																					BgL_iportz00_7318 = BgL_iportz00_7262;
																					BgL_lastzd2matchzd2_7319 =
																						BgL_newzd2matchzd2_7267;
																					BgL_forwardz00_7320 =
																						(1L + BgL_forwardz00_7264);
																					BgL_bufposz00_7321 =
																						BgL_bufposz00_7265;
																				BgL_zc3z04anonymousza34827ze3z87_7322:
																					if (
																						(BgL_forwardz00_7320 ==
																							BgL_bufposz00_7321))
																						{	/* Unsafe/http.scm 428 */
																							if (rgc_fill_buffer
																								(BgL_iportz00_7318))
																								{	/* Unsafe/http.scm 428 */
																									long BgL_arg4830z00_7325;
																									long BgL_arg4831z00_7326;

																									BgL_arg4830z00_7325 =
																										RGC_BUFFER_FORWARD
																										(BgL_iportz00_7318);
																									BgL_arg4831z00_7326 =
																										RGC_BUFFER_BUFPOS
																										(BgL_iportz00_7318);
																									{
																										long BgL_bufposz00_17114;
																										long BgL_forwardz00_17113;

																										BgL_forwardz00_17113 =
																											BgL_arg4830z00_7325;
																										BgL_bufposz00_17114 =
																											BgL_arg4831z00_7326;
																										BgL_bufposz00_7321 =
																											BgL_bufposz00_17114;
																										BgL_forwardz00_7320 =
																											BgL_forwardz00_17113;
																										goto
																											BgL_zc3z04anonymousza34827ze3z87_7322;
																									}
																								}
																							else
																								{	/* Unsafe/http.scm 428 */
																									BgL_matchz00_7450 =
																										BgL_lastzd2matchzd2_7319;
																								}
																						}
																					else
																						{	/* Unsafe/http.scm 428 */
																							int BgL_curz00_7327;

																							BgL_curz00_7327 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_iportz00_7318,
																								BgL_forwardz00_7320);
																							{	/* Unsafe/http.scm 428 */

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

																										BgL_arg4833z00_7329 =
																											(1L +
																											BgL_forwardz00_7320);
																										{	/* Unsafe/http.scm 428 */
																											long
																												BgL_newzd2matchzd2_10213;
																											RGC_STOP_MATCH
																												(BgL_iportz00_7318,
																												BgL_arg4833z00_7329);
																											BgL_newzd2matchzd2_10213 =
																												1L;
																											BgL_matchz00_7450 =
																												BgL_newzd2matchzd2_10213;
																									}}
																								else
																									{	/* Unsafe/http.scm 428 */
																										BgL_iportz00_7234 =
																											BgL_iportz00_7318;
																										BgL_lastzd2matchzd2_7235 =
																											BgL_lastzd2matchzd2_7319;
																										BgL_forwardz00_7236 =
																											(1L +
																											BgL_forwardz00_7320);
																										BgL_bufposz00_7237 =
																											BgL_bufposz00_7321;
																									BgL_zc3z04anonymousza34778ze3z87_7238:
																										if (
																											(BgL_forwardz00_7236 ==
																												BgL_bufposz00_7237))
																											{	/* Unsafe/http.scm 428 */
																												if (rgc_fill_buffer
																													(BgL_iportz00_7234))
																													{	/* Unsafe/http.scm 428 */
																														long
																															BgL_arg4781z00_7241;
																														long
																															BgL_arg4782z00_7242;
																														BgL_arg4781z00_7241
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_iportz00_7234);
																														BgL_arg4782z00_7242
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_iportz00_7234);
																														{
																															long
																																BgL_bufposz00_17128;
																															long
																																BgL_forwardz00_17127;
																															BgL_forwardz00_17127
																																=
																																BgL_arg4781z00_7241;
																															BgL_bufposz00_17128
																																=
																																BgL_arg4782z00_7242;
																															BgL_bufposz00_7237
																																=
																																BgL_bufposz00_17128;
																															BgL_forwardz00_7236
																																=
																																BgL_forwardz00_17127;
																															goto
																																BgL_zc3z04anonymousza34778ze3z87_7238;
																														}
																													}
																												else
																													{	/* Unsafe/http.scm 428 */
																														BgL_matchz00_7450 =
																															BgL_lastzd2matchzd2_7235;
																													}
																											}
																										else
																											{	/* Unsafe/http.scm 428 */
																												int BgL_curz00_7243;

																												BgL_curz00_7243 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_iportz00_7234,
																													BgL_forwardz00_7236);
																												{	/* Unsafe/http.scm 428 */

																													if (
																														((long)
																															(BgL_curz00_7243)
																															== 13L))
																														{
																															long
																																BgL_bufposz00_17137;
																															long
																																BgL_forwardz00_17135;
																															long
																																BgL_lastzd2matchzd2_17134;
																															obj_t
																																BgL_iportz00_17133;
																															BgL_iportz00_17133
																																=
																																BgL_iportz00_7234;
																															BgL_lastzd2matchzd2_17134
																																=
																																BgL_lastzd2matchzd2_7235;
																															BgL_forwardz00_17135
																																=
																																(1L +
																																BgL_forwardz00_7236);
																															BgL_bufposz00_17137
																																=
																																BgL_bufposz00_7237;
																															BgL_bufposz00_7321
																																=
																																BgL_bufposz00_17137;
																															BgL_forwardz00_7320
																																=
																																BgL_forwardz00_17135;
																															BgL_lastzd2matchzd2_7319
																																=
																																BgL_lastzd2matchzd2_17134;
																															BgL_iportz00_7318
																																=
																																BgL_iportz00_17133;
																															goto
																																BgL_zc3z04anonymousza34827ze3z87_7322;
																														}
																													else
																														{	/* Unsafe/http.scm 428 */
																															if (
																																((long)
																																	(BgL_curz00_7243)
																																	== 10L))
																																{	/* Unsafe/http.scm 428 */
																																	long
																																		BgL_arg4786z00_7247;
																																	BgL_arg4786z00_7247
																																		=
																																		(1L +
																																		BgL_forwardz00_7236);
																																	{	/* Unsafe/http.scm 428 */
																																		long
																																			BgL_newzd2matchzd2_10136;
																																		RGC_STOP_MATCH
																																			(BgL_iportz00_7234,
																																			BgL_arg4786z00_7247);
																																		BgL_newzd2matchzd2_10136
																																			= 2L;
																																		BgL_matchz00_7450
																																			=
																																			BgL_newzd2matchzd2_10136;
																																}}
																															else
																																{
																																	long
																																		BgL_forwardz00_17143;
																																	BgL_forwardz00_17143
																																		=
																																		(1L +
																																		BgL_forwardz00_7236);
																																	BgL_forwardz00_7236
																																		=
																																		BgL_forwardz00_17143;
																																	goto
																																		BgL_zc3z04anonymousza34778ze3z87_7238;
																																}
																														}
																												}
																											}
																									}
																							}
																						}
																				}
																			else
																				{	/* Unsafe/http.scm 428 */
																					if (((long) (BgL_curz00_7272) == 10L))
																						{	/* Unsafe/http.scm 428 */
																							long BgL_arg4803z00_7276;

																							BgL_arg4803z00_7276 =
																								(1L + BgL_forwardz00_7264);
																							{	/* Unsafe/http.scm 428 */
																								long BgL_newzd2matchzd2_10167;

																								RGC_STOP_MATCH
																									(BgL_iportz00_7262,
																									BgL_arg4803z00_7276);
																								BgL_newzd2matchzd2_10167 = 2L;
																								BgL_matchz00_7450 =
																									BgL_newzd2matchzd2_10167;
																						}}
																					else
																						{
																							long BgL_bufposz00_17156;
																							long BgL_forwardz00_17154;
																							long BgL_lastzd2matchzd2_17153;
																							obj_t BgL_iportz00_17152;

																							BgL_iportz00_17152 =
																								BgL_iportz00_7262;
																							BgL_lastzd2matchzd2_17153 =
																								BgL_newzd2matchzd2_7267;
																							BgL_forwardz00_17154 =
																								(1L + BgL_forwardz00_7264);
																							BgL_bufposz00_17156 =
																								BgL_bufposz00_7265;
																							BgL_bufposz00_7237 =
																								BgL_bufposz00_17156;
																							BgL_forwardz00_7236 =
																								BgL_forwardz00_17154;
																							BgL_lastzd2matchzd2_7235 =
																								BgL_lastzd2matchzd2_17153;
																							BgL_iportz00_7234 =
																								BgL_iportz00_17152;
																							goto
																								BgL_zc3z04anonymousza34778ze3z87_7238;
																						}
																				}
																		}
																	}
															}
														}
												}
										}
								}
							}
					}
					RGC_SET_FILEPOS(BgL_iportz00_7161);
					switch (BgL_matchz00_7450)
						{
						case 4L:

							return BGl_string5701z00zz__httpz00;
							break;
						case 3L:

							return BGl_string5701z00zz__httpz00;
							break;
						case 2L:

							BgL_minz00_7343 = (int) (0L);
							BgL_maxz00_7344 = (int) (-1L);
						BgL_lambda4842z00_7345:
							if (((long) (BgL_maxz00_7344) < (long) (BgL_minz00_7343)))
								{	/* Unsafe/http.scm 428 */
									long BgL_arg4844z00_7347;

									BgL_arg4844z00_7347 =
										RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_7161);
									{	/* Unsafe/http.scm 428 */
										long BgL_za72za7_10225;

										BgL_za72za7_10225 = (long) (BgL_maxz00_7344);
										BgL_maxz00_7344 =
											(int) ((BgL_arg4844z00_7347 + BgL_za72za7_10225));
								}}
							else
								{	/* Unsafe/http.scm 428 */
									BFALSE;
								}
							{	/* Unsafe/http.scm 428 */
								bool_t BgL_test6670z00_17167;

								if (((long) (BgL_minz00_7343) >= 0L))
									{	/* Unsafe/http.scm 428 */
										if (((long) (BgL_maxz00_7344) >= (long) (BgL_minz00_7343)))
											{	/* Unsafe/http.scm 428 */
												long BgL_arg4853z00_7358;

												BgL_arg4853z00_7358 =
													RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_7161);
												BgL_test6670z00_17167 =
													((long) (BgL_maxz00_7344) <= BgL_arg4853z00_7358);
											}
										else
											{	/* Unsafe/http.scm 428 */
												BgL_test6670z00_17167 = ((bool_t) 0);
											}
									}
								else
									{	/* Unsafe/http.scm 428 */
										BgL_test6670z00_17167 = ((bool_t) 0);
									}
								if (BgL_test6670z00_17167)
									{	/* Unsafe/http.scm 428 */
										return
											rgc_buffer_substring(BgL_iportz00_7161,
											(long) (BgL_minz00_7343), (long) (BgL_maxz00_7344));
									}
								else
									{	/* Unsafe/http.scm 428 */
										obj_t BgL_arg4849z00_7352;
										obj_t BgL_arg4850z00_7353;

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

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

												BgL_arg4841z00_10235 =
													RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_7161);
												BgL_arg4851z00_7354 =
													rgc_buffer_substring(BgL_iportz00_7161, 0L,
													BgL_arg4841z00_10235);
											}
											{	/* Unsafe/http.scm 428 */
												obj_t BgL_list4852z00_7355;

												BgL_list4852z00_7355 =
													MAKE_YOUNG_PAIR(BgL_arg4851z00_7354, BNIL);
												BgL_arg4849z00_7352 =
													BGl_formatz00zz__r4_output_6_10_3z00
													(BGl_string5603z00zz__httpz00, BgL_list4852z00_7355);
										}}
										BgL_arg4850z00_7353 =
											MAKE_YOUNG_PAIR(BINT(BgL_minz00_7343),
											BINT(BgL_maxz00_7344));
										return
											BGl_errorz00zz__errorz00(BGl_string5604z00zz__httpz00,
											BgL_arg4849z00_7352, BgL_arg4850z00_7353);
									}
							}
							break;
						case 1L:

							{
								int BgL_maxz00_17193;
								int BgL_minz00_17191;

								BgL_minz00_17191 = (int) (0L);
								BgL_maxz00_17193 = (int) (-2L);
								BgL_maxz00_7344 = BgL_maxz00_17193;
								BgL_minz00_7343 = BgL_minz00_17191;
								goto BgL_lambda4842z00_7345;
							}
							break;
						case 0L:

							goto BgL_zc3z04anonymousza34921ze3z87_7449;
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string5600z00zz__httpz00,
								BGl_string5601z00zz__httpz00, BINT(BgL_matchz00_7450));
						}
				}
			}
		}

	}



/* auth-grammar~0 */
	obj_t BGl_authzd2grammarze70z35zz__httpz00(obj_t BgL_iportz00_5065)
	{
		{	/* Unsafe/http.scm 483 */
			{
				obj_t BgL_iportz00_5099;
				long BgL_lastzd2matchzd2_5100;
				long BgL_forwardz00_5101;
				long BgL_bufposz00_5102;
				obj_t BgL_iportz00_5114;
				long BgL_lastzd2matchzd2_5115;
				long BgL_forwardz00_5116;
				long BgL_bufposz00_5117;
				obj_t BgL_iportz00_5129;
				long BgL_lastzd2matchzd2_5130;
				long BgL_forwardz00_5131;
				long BgL_bufposz00_5132;
				obj_t BgL_iportz00_5144;
				long BgL_lastzd2matchzd2_5145;
				long BgL_forwardz00_5146;
				long BgL_bufposz00_5147;
				obj_t BgL_iportz00_5159;
				long BgL_lastzd2matchzd2_5160;
				long BgL_forwardz00_5161;
				long BgL_bufposz00_5162;

			BgL_zc3z04anonymousza33890ze3z87_5292:
				RGC_START_MATCH(BgL_iportz00_5065);
				{	/* Unsafe/http.scm 483 */
					long BgL_matchz00_5293;

					{	/* Unsafe/http.scm 483 */
						long BgL_arg3891z00_5296;
						long BgL_arg3892z00_5297;

						BgL_arg3891z00_5296 = RGC_BUFFER_FORWARD(BgL_iportz00_5065);
						BgL_arg3892z00_5297 = RGC_BUFFER_BUFPOS(BgL_iportz00_5065);
						BgL_iportz00_5159 = BgL_iportz00_5065;
						BgL_lastzd2matchzd2_5160 = 2L;
						BgL_forwardz00_5161 = BgL_arg3891z00_5296;
						BgL_bufposz00_5162 = BgL_arg3892z00_5297;
					BgL_zc3z04anonymousza33795ze3z87_5163:
						if ((BgL_forwardz00_5161 == BgL_bufposz00_5162))
							{	/* Unsafe/http.scm 483 */
								if (rgc_fill_buffer(BgL_iportz00_5159))
									{	/* Unsafe/http.scm 483 */
										long BgL_arg3798z00_5166;
										long BgL_arg3799z00_5167;

										BgL_arg3798z00_5166 = RGC_BUFFER_FORWARD(BgL_iportz00_5159);
										BgL_arg3799z00_5167 = RGC_BUFFER_BUFPOS(BgL_iportz00_5159);
										{
											long BgL_bufposz00_17208;
											long BgL_forwardz00_17207;

											BgL_forwardz00_17207 = BgL_arg3798z00_5166;
											BgL_bufposz00_17208 = BgL_arg3799z00_5167;
											BgL_bufposz00_5162 = BgL_bufposz00_17208;
											BgL_forwardz00_5161 = BgL_forwardz00_17207;
											goto BgL_zc3z04anonymousza33795ze3z87_5163;
										}
									}
								else
									{	/* Unsafe/http.scm 483 */
										BgL_matchz00_5293 = BgL_lastzd2matchzd2_5160;
									}
							}
						else
							{	/* Unsafe/http.scm 483 */
								int BgL_curz00_5168;

								BgL_curz00_5168 =
									RGC_BUFFER_GET_CHAR(BgL_iportz00_5159, BgL_forwardz00_5161);
								{	/* Unsafe/http.scm 483 */

									{	/* Unsafe/http.scm 483 */
										bool_t BgL_test6675z00_17210;

										if (((long) (BgL_curz00_5168) == 9L))
											{	/* Unsafe/http.scm 483 */
												BgL_test6675z00_17210 = ((bool_t) 1);
											}
										else
											{	/* Unsafe/http.scm 483 */
												BgL_test6675z00_17210 =
													((long) (BgL_curz00_5168) == 32L);
											}
										if (BgL_test6675z00_17210)
											{	/* Unsafe/http.scm 483 */
												BgL_iportz00_5114 = BgL_iportz00_5159;
												BgL_lastzd2matchzd2_5115 = BgL_lastzd2matchzd2_5160;
												BgL_forwardz00_5116 = (1L + BgL_forwardz00_5161);
												BgL_bufposz00_5117 = BgL_bufposz00_5162;
											BgL_zc3z04anonymousza33771ze3z87_5118:
												{	/* Unsafe/http.scm 483 */
													long BgL_newzd2matchzd2_5119;

													RGC_STOP_MATCH(BgL_iportz00_5114,
														BgL_forwardz00_5116);
													BgL_newzd2matchzd2_5119 = 0L;
													if ((BgL_forwardz00_5116 == BgL_bufposz00_5117))
														{	/* Unsafe/http.scm 483 */
															if (rgc_fill_buffer(BgL_iportz00_5114))
																{	/* Unsafe/http.scm 483 */
																	long BgL_arg3774z00_5122;
																	long BgL_arg3775z00_5123;

																	BgL_arg3774z00_5122 =
																		RGC_BUFFER_FORWARD(BgL_iportz00_5114);
																	BgL_arg3775z00_5123 =
																		RGC_BUFFER_BUFPOS(BgL_iportz00_5114);
																	{
																		long BgL_bufposz00_17224;
																		long BgL_forwardz00_17223;

																		BgL_forwardz00_17223 = BgL_arg3774z00_5122;
																		BgL_bufposz00_17224 = BgL_arg3775z00_5123;
																		BgL_bufposz00_5117 = BgL_bufposz00_17224;
																		BgL_forwardz00_5116 = BgL_forwardz00_17223;
																		goto BgL_zc3z04anonymousza33771ze3z87_5118;
																	}
																}
															else
																{	/* Unsafe/http.scm 483 */
																	BgL_matchz00_5293 = BgL_newzd2matchzd2_5119;
																}
														}
													else
														{	/* Unsafe/http.scm 483 */
															int BgL_curz00_5124;

															BgL_curz00_5124 =
																RGC_BUFFER_GET_CHAR(BgL_iportz00_5114,
																BgL_forwardz00_5116);
															{	/* Unsafe/http.scm 483 */

																{	/* Unsafe/http.scm 483 */
																	bool_t BgL_test6679z00_17226;

																	if (((long) (BgL_curz00_5124) == 9L))
																		{	/* Unsafe/http.scm 483 */
																			BgL_test6679z00_17226 = ((bool_t) 1);
																		}
																	else
																		{	/* Unsafe/http.scm 483 */
																			BgL_test6679z00_17226 =
																				((long) (BgL_curz00_5124) == 32L);
																		}
																	if (BgL_test6679z00_17226)
																		{	/* Unsafe/http.scm 483 */
																			BgL_iportz00_5144 = BgL_iportz00_5114;
																			BgL_lastzd2matchzd2_5145 =
																				BgL_newzd2matchzd2_5119;
																			BgL_forwardz00_5146 =
																				(1L + BgL_forwardz00_5116);
																			BgL_bufposz00_5147 = BgL_bufposz00_5117;
																		BgL_zc3z04anonymousza33787ze3z87_5148:
																			{	/* Unsafe/http.scm 483 */
																				long BgL_newzd2matchzd2_5149;

																				RGC_STOP_MATCH(BgL_iportz00_5144,
																					BgL_forwardz00_5146);
																				BgL_newzd2matchzd2_5149 = 0L;
																				if (
																					(BgL_forwardz00_5146 ==
																						BgL_bufposz00_5147))
																					{	/* Unsafe/http.scm 483 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_5144))
																							{	/* Unsafe/http.scm 483 */
																								long BgL_arg3790z00_5152;
																								long BgL_arg3791z00_5153;

																								BgL_arg3790z00_5152 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_5144);
																								BgL_arg3791z00_5153 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_5144);
																								{
																									long BgL_bufposz00_17240;
																									long BgL_forwardz00_17239;

																									BgL_forwardz00_17239 =
																										BgL_arg3790z00_5152;
																									BgL_bufposz00_17240 =
																										BgL_arg3791z00_5153;
																									BgL_bufposz00_5147 =
																										BgL_bufposz00_17240;
																									BgL_forwardz00_5146 =
																										BgL_forwardz00_17239;
																									goto
																										BgL_zc3z04anonymousza33787ze3z87_5148;
																								}
																							}
																						else
																							{	/* Unsafe/http.scm 483 */
																								BgL_matchz00_5293 =
																									BgL_newzd2matchzd2_5149;
																							}
																					}
																				else
																					{	/* Unsafe/http.scm 483 */
																						int BgL_curz00_5154;

																						BgL_curz00_5154 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_5144,
																							BgL_forwardz00_5146);
																						{	/* Unsafe/http.scm 483 */

																							{	/* Unsafe/http.scm 483 */
																								bool_t BgL_test6683z00_17242;

																								if (
																									((long) (BgL_curz00_5154) ==
																										9L))
																									{	/* Unsafe/http.scm 483 */
																										BgL_test6683z00_17242 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Unsafe/http.scm 483 */
																										BgL_test6683z00_17242 =
																											(
																											(long) (BgL_curz00_5154)
																											== 32L);
																									}
																								if (BgL_test6683z00_17242)
																									{
																										long BgL_forwardz00_17249;
																										long
																											BgL_lastzd2matchzd2_17248;
																										BgL_lastzd2matchzd2_17248 =
																											BgL_newzd2matchzd2_5149;
																										BgL_forwardz00_17249 =
																											(1L +
																											BgL_forwardz00_5146);
																										BgL_forwardz00_5146 =
																											BgL_forwardz00_17249;
																										BgL_lastzd2matchzd2_5145 =
																											BgL_lastzd2matchzd2_17248;
																										goto
																											BgL_zc3z04anonymousza33787ze3z87_5148;
																									}
																								else
																									{	/* Unsafe/http.scm 483 */
																										BgL_matchz00_5293 =
																											BgL_newzd2matchzd2_5149;
																									}
																							}
																						}
																					}
																			}
																		}
																	else
																		{	/* Unsafe/http.scm 483 */
																			BgL_matchz00_5293 =
																				BgL_newzd2matchzd2_5119;
																		}
																}
															}
														}
												}
											}
										else
											{	/* Unsafe/http.scm 483 */
												BgL_iportz00_5129 = BgL_iportz00_5159;
												BgL_lastzd2matchzd2_5130 = BgL_lastzd2matchzd2_5160;
												BgL_forwardz00_5131 = (1L + BgL_forwardz00_5161);
												BgL_bufposz00_5132 = BgL_bufposz00_5162;
											BgL_zc3z04anonymousza33779ze3z87_5133:
												{	/* Unsafe/http.scm 483 */
													long BgL_newzd2matchzd2_5134;

													RGC_STOP_MATCH(BgL_iportz00_5129,
														BgL_forwardz00_5131);
													BgL_newzd2matchzd2_5134 = 1L;
													if ((BgL_forwardz00_5131 == BgL_bufposz00_5132))
														{	/* Unsafe/http.scm 483 */
															if (rgc_fill_buffer(BgL_iportz00_5129))
																{	/* Unsafe/http.scm 483 */
																	long BgL_arg3782z00_5137;
																	long BgL_arg3783z00_5138;

																	BgL_arg3782z00_5137 =
																		RGC_BUFFER_FORWARD(BgL_iportz00_5129);
																	BgL_arg3783z00_5138 =
																		RGC_BUFFER_BUFPOS(BgL_iportz00_5129);
																	{
																		long BgL_bufposz00_17261;
																		long BgL_forwardz00_17260;

																		BgL_forwardz00_17260 = BgL_arg3782z00_5137;
																		BgL_bufposz00_17261 = BgL_arg3783z00_5138;
																		BgL_bufposz00_5132 = BgL_bufposz00_17261;
																		BgL_forwardz00_5131 = BgL_forwardz00_17260;
																		goto BgL_zc3z04anonymousza33779ze3z87_5133;
																	}
																}
															else
																{	/* Unsafe/http.scm 483 */
																	BgL_matchz00_5293 = BgL_newzd2matchzd2_5134;
																}
														}
													else
														{	/* Unsafe/http.scm 483 */
															int BgL_curz00_5139;

															BgL_curz00_5139 =
																RGC_BUFFER_GET_CHAR(BgL_iportz00_5129,
																BgL_forwardz00_5131);
															{	/* Unsafe/http.scm 483 */

																{	/* Unsafe/http.scm 483 */
																	bool_t BgL_test6687z00_17263;

																	if (((long) (BgL_curz00_5139) == 10L))
																		{	/* Unsafe/http.scm 483 */
																			BgL_test6687z00_17263 = ((bool_t) 1);
																		}
																	else
																		{	/* Unsafe/http.scm 483 */
																			BgL_test6687z00_17263 =
																				((long) (BgL_curz00_5139) == 13L);
																		}
																	if (BgL_test6687z00_17263)
																		{	/* Unsafe/http.scm 483 */
																			BgL_matchz00_5293 =
																				BgL_newzd2matchzd2_5134;
																		}
																	else
																		{	/* Unsafe/http.scm 483 */
																			BgL_iportz00_5099 = BgL_iportz00_5129;
																			BgL_lastzd2matchzd2_5100 =
																				BgL_newzd2matchzd2_5134;
																			BgL_forwardz00_5101 =
																				(1L + BgL_forwardz00_5131);
																			BgL_bufposz00_5102 = BgL_bufposz00_5132;
																		BgL_zc3z04anonymousza33763ze3z87_5103:
																			{	/* Unsafe/http.scm 483 */
																				long BgL_newzd2matchzd2_5104;

																				RGC_STOP_MATCH(BgL_iportz00_5099,
																					BgL_forwardz00_5101);
																				BgL_newzd2matchzd2_5104 = 1L;
																				if (
																					(BgL_forwardz00_5101 ==
																						BgL_bufposz00_5102))
																					{	/* Unsafe/http.scm 483 */
																						if (rgc_fill_buffer
																							(BgL_iportz00_5099))
																							{	/* Unsafe/http.scm 483 */
																								long BgL_arg3766z00_5107;
																								long BgL_arg3767z00_5108;

																								BgL_arg3766z00_5107 =
																									RGC_BUFFER_FORWARD
																									(BgL_iportz00_5099);
																								BgL_arg3767z00_5108 =
																									RGC_BUFFER_BUFPOS
																									(BgL_iportz00_5099);
																								{
																									long BgL_bufposz00_17277;
																									long BgL_forwardz00_17276;

																									BgL_forwardz00_17276 =
																										BgL_arg3766z00_5107;
																									BgL_bufposz00_17277 =
																										BgL_arg3767z00_5108;
																									BgL_bufposz00_5102 =
																										BgL_bufposz00_17277;
																									BgL_forwardz00_5101 =
																										BgL_forwardz00_17276;
																									goto
																										BgL_zc3z04anonymousza33763ze3z87_5103;
																								}
																							}
																						else
																							{	/* Unsafe/http.scm 483 */
																								BgL_matchz00_5293 =
																									BgL_newzd2matchzd2_5104;
																							}
																					}
																				else
																					{	/* Unsafe/http.scm 483 */
																						int BgL_curz00_5109;

																						BgL_curz00_5109 =
																							RGC_BUFFER_GET_CHAR
																							(BgL_iportz00_5099,
																							BgL_forwardz00_5101);
																						{	/* Unsafe/http.scm 483 */

																							{	/* Unsafe/http.scm 483 */
																								bool_t BgL_test6691z00_17279;

																								if (
																									((long) (BgL_curz00_5109) ==
																										10L))
																									{	/* Unsafe/http.scm 483 */
																										BgL_test6691z00_17279 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Unsafe/http.scm 483 */
																										BgL_test6691z00_17279 =
																											(
																											(long) (BgL_curz00_5109)
																											== 13L);
																									}
																								if (BgL_test6691z00_17279)
																									{	/* Unsafe/http.scm 483 */
																										BgL_matchz00_5293 =
																											BgL_newzd2matchzd2_5104;
																									}
																								else
																									{
																										long BgL_forwardz00_17286;
																										long
																											BgL_lastzd2matchzd2_17285;
																										BgL_lastzd2matchzd2_17285 =
																											BgL_newzd2matchzd2_5104;
																										BgL_forwardz00_17286 =
																											(1L +
																											BgL_forwardz00_5101);
																										BgL_forwardz00_5101 =
																											BgL_forwardz00_17286;
																										BgL_lastzd2matchzd2_5100 =
																											BgL_lastzd2matchzd2_17285;
																										goto
																											BgL_zc3z04anonymousza33763ze3z87_5103;
																									}
																							}
																						}
																					}
																			}
																		}
																}
															}
														}
												}
											}
									}
								}
							}
					}
					RGC_SET_FILEPOS(BgL_iportz00_5065);
					switch (BgL_matchz00_5293)
						{
						case 2L:

							return BFALSE;
							break;
						case 1L:

							{	/* Unsafe/http.scm 483 */
								long BgL_arg3810z00_10890;

								BgL_arg3810z00_10890 =
									RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_5065);
								return
									rgc_buffer_substring(BgL_iportz00_5065, 0L,
									BgL_arg3810z00_10890);
							}
							break;
						case 0L:

							goto BgL_zc3z04anonymousza33890ze3z87_5292;
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string5600z00zz__httpz00,
								BGl_string5601z00zz__httpz00, BINT(BgL_matchz00_5293));
						}
				}
			}
		}

	}



/* crlf-grammar~0 */
	obj_t BGl_crlfzd2grammarze70z35zz__httpz00(obj_t BgL_iportz00_4768)
	{
		{	/* Unsafe/http.scm 492 */
			{
				obj_t BgL_iportz00_4805;
				long BgL_lastzd2matchzd2_4806;
				long BgL_forwardz00_4807;
				long BgL_bufposz00_4808;
				obj_t BgL_iportz00_4830;
				long BgL_lastzd2matchzd2_4831;
				long BgL_forwardz00_4832;
				long BgL_bufposz00_4833;
				obj_t BgL_iportz00_4855;
				long BgL_lastzd2matchzd2_4856;
				long BgL_forwardz00_4857;
				long BgL_bufposz00_4858;
				obj_t BgL_iportz00_4874;
				long BgL_lastzd2matchzd2_4875;
				long BgL_forwardz00_4876;
				long BgL_bufposz00_4877;

				RGC_START_MATCH(BgL_iportz00_4768);
				{	/* Unsafe/http.scm 492 */
					long BgL_matchz00_5023;

					{	/* Unsafe/http.scm 492 */
						long BgL_arg3760z00_5026;
						long BgL_arg3761z00_5027;

						BgL_arg3760z00_5026 = RGC_BUFFER_FORWARD(BgL_iportz00_4768);
						BgL_arg3761z00_5027 = RGC_BUFFER_BUFPOS(BgL_iportz00_4768);
						BgL_iportz00_4805 = BgL_iportz00_4768;
						BgL_lastzd2matchzd2_4806 = 1L;
						BgL_forwardz00_4807 = BgL_arg3760z00_5026;
						BgL_bufposz00_4808 = BgL_arg3761z00_5027;
					BgL_zc3z04anonymousza33604ze3z87_4809:
						if ((BgL_forwardz00_4807 == BgL_bufposz00_4808))
							{	/* Unsafe/http.scm 492 */
								if (rgc_fill_buffer(BgL_iportz00_4805))
									{	/* Unsafe/http.scm 492 */
										long BgL_arg3607z00_4812;
										long BgL_arg3609z00_4813;

										BgL_arg3607z00_4812 = RGC_BUFFER_FORWARD(BgL_iportz00_4805);
										BgL_arg3609z00_4813 = RGC_BUFFER_BUFPOS(BgL_iportz00_4805);
										{
											long BgL_bufposz00_17306;
											long BgL_forwardz00_17305;

											BgL_forwardz00_17305 = BgL_arg3607z00_4812;
											BgL_bufposz00_17306 = BgL_arg3609z00_4813;
											BgL_bufposz00_4808 = BgL_bufposz00_17306;
											BgL_forwardz00_4807 = BgL_forwardz00_17305;
											goto BgL_zc3z04anonymousza33604ze3z87_4809;
										}
									}
								else
									{	/* Unsafe/http.scm 492 */
										BgL_matchz00_5023 = BgL_lastzd2matchzd2_4806;
									}
							}
						else
							{	/* Unsafe/http.scm 492 */
								int BgL_curz00_4814;

								BgL_curz00_4814 =
									RGC_BUFFER_GET_CHAR(BgL_iportz00_4805, BgL_forwardz00_4807);
								{	/* Unsafe/http.scm 492 */

									if (((long) (BgL_curz00_4814) == 13L))
										{	/* Unsafe/http.scm 492 */
											BgL_iportz00_4855 = BgL_iportz00_4805;
											BgL_lastzd2matchzd2_4856 = BgL_lastzd2matchzd2_4806;
											BgL_forwardz00_4857 = (1L + BgL_forwardz00_4807);
											BgL_bufposz00_4858 = BgL_bufposz00_4808;
										BgL_zc3z04anonymousza33635ze3z87_4859:
											{	/* Unsafe/http.scm 492 */
												long BgL_newzd2matchzd2_4860;

												RGC_STOP_MATCH(BgL_iportz00_4855, BgL_forwardz00_4857);
												BgL_newzd2matchzd2_4860 = 1L;
												if ((BgL_forwardz00_4857 == BgL_bufposz00_4858))
													{	/* Unsafe/http.scm 492 */
														if (rgc_fill_buffer(BgL_iportz00_4855))
															{	/* Unsafe/http.scm 492 */
																long BgL_arg3638z00_4863;
																long BgL_arg3639z00_4864;

																BgL_arg3638z00_4863 =
																	RGC_BUFFER_FORWARD(BgL_iportz00_4855);
																BgL_arg3639z00_4864 =
																	RGC_BUFFER_BUFPOS(BgL_iportz00_4855);
																{
																	long BgL_bufposz00_17319;
																	long BgL_forwardz00_17318;

																	BgL_forwardz00_17318 = BgL_arg3638z00_4863;
																	BgL_bufposz00_17319 = BgL_arg3639z00_4864;
																	BgL_bufposz00_4858 = BgL_bufposz00_17319;
																	BgL_forwardz00_4857 = BgL_forwardz00_17318;
																	goto BgL_zc3z04anonymousza33635ze3z87_4859;
																}
															}
														else
															{	/* Unsafe/http.scm 492 */
																BgL_matchz00_5023 = BgL_newzd2matchzd2_4860;
															}
													}
												else
													{	/* Unsafe/http.scm 492 */
														int BgL_curz00_4865;

														BgL_curz00_4865 =
															RGC_BUFFER_GET_CHAR(BgL_iportz00_4855,
															BgL_forwardz00_4857);
														{	/* Unsafe/http.scm 492 */

															if (((long) (BgL_curz00_4865) == 10L))
																{	/* Unsafe/http.scm 492 */
																	long BgL_arg3641z00_4867;

																	BgL_arg3641z00_4867 =
																		(1L + BgL_forwardz00_4857);
																	{	/* Unsafe/http.scm 492 */
																		long BgL_newzd2matchzd2_10973;

																		RGC_STOP_MATCH(BgL_iportz00_4855,
																			BgL_arg3641z00_4867);
																		BgL_newzd2matchzd2_10973 = 0L;
																		BgL_matchz00_5023 =
																			BgL_newzd2matchzd2_10973;
																}}
															else
																{	/* Unsafe/http.scm 492 */
																	BgL_matchz00_5023 = BgL_newzd2matchzd2_4860;
																}
														}
													}
											}
										}
									else
										{	/* Unsafe/http.scm 492 */
											if (((long) (BgL_curz00_4814) == 10L))
												{	/* Unsafe/http.scm 492 */
													long BgL_arg3614z00_4818;

													BgL_arg3614z00_4818 = (1L + BgL_forwardz00_4807);
													{	/* Unsafe/http.scm 492 */
														long BgL_newzd2matchzd2_10905;

														RGC_STOP_MATCH(BgL_iportz00_4805,
															BgL_arg3614z00_4818);
														BgL_newzd2matchzd2_10905 = 0L;
														BgL_matchz00_5023 = BgL_newzd2matchzd2_10905;
												}}
											else
												{	/* Unsafe/http.scm 492 */
													bool_t BgL_test6700z00_17332;

													if (((long) (BgL_curz00_4814) == 9L))
														{	/* Unsafe/http.scm 492 */
															BgL_test6700z00_17332 = ((bool_t) 1);
														}
													else
														{	/* Unsafe/http.scm 492 */
															BgL_test6700z00_17332 =
																((long) (BgL_curz00_4814) == 32L);
														}
													if (BgL_test6700z00_17332)
														{	/* Unsafe/http.scm 492 */
															BgL_iportz00_4830 = BgL_iportz00_4805;
															BgL_lastzd2matchzd2_4831 =
																BgL_lastzd2matchzd2_4806;
															BgL_forwardz00_4832 = (1L + BgL_forwardz00_4807);
															BgL_bufposz00_4833 = BgL_bufposz00_4808;
														BgL_zc3z04anonymousza33621ze3z87_4834:
															{	/* Unsafe/http.scm 492 */
																long BgL_newzd2matchzd2_4835;

																RGC_STOP_MATCH(BgL_iportz00_4830,
																	BgL_forwardz00_4832);
																BgL_newzd2matchzd2_4835 = 1L;
																if ((BgL_forwardz00_4832 == BgL_bufposz00_4833))
																	{	/* Unsafe/http.scm 492 */
																		if (rgc_fill_buffer(BgL_iportz00_4830))
																			{	/* Unsafe/http.scm 492 */
																				long BgL_arg3624z00_4838;
																				long BgL_arg3625z00_4839;

																				BgL_arg3624z00_4838 =
																					RGC_BUFFER_FORWARD(BgL_iportz00_4830);
																				BgL_arg3625z00_4839 =
																					RGC_BUFFER_BUFPOS(BgL_iportz00_4830);
																				{
																					long BgL_bufposz00_17346;
																					long BgL_forwardz00_17345;

																					BgL_forwardz00_17345 =
																						BgL_arg3624z00_4838;
																					BgL_bufposz00_17346 =
																						BgL_arg3625z00_4839;
																					BgL_bufposz00_4833 =
																						BgL_bufposz00_17346;
																					BgL_forwardz00_4832 =
																						BgL_forwardz00_17345;
																					goto
																						BgL_zc3z04anonymousza33621ze3z87_4834;
																				}
																			}
																		else
																			{	/* Unsafe/http.scm 492 */
																				BgL_matchz00_5023 =
																					BgL_newzd2matchzd2_4835;
																			}
																	}
																else
																	{	/* Unsafe/http.scm 492 */
																		int BgL_curz00_4840;

																		BgL_curz00_4840 =
																			RGC_BUFFER_GET_CHAR(BgL_iportz00_4830,
																			BgL_forwardz00_4832);
																		{	/* Unsafe/http.scm 492 */

																			if (((long) (BgL_curz00_4840) == 13L))
																				{	/* Unsafe/http.scm 492 */
																					long BgL_arg3628z00_4842;

																					BgL_arg3628z00_4842 =
																						(1L + BgL_forwardz00_4832);
																					{
																						long BgL_forwardz00_10930;
																						long BgL_bufposz00_10931;

																						BgL_forwardz00_10930 =
																							BgL_arg3628z00_4842;
																						BgL_bufposz00_10931 =
																							BgL_bufposz00_4833;
																					BgL_statezd28zd21240z00_10929:
																						if (
																							(BgL_forwardz00_10930 ==
																								BgL_bufposz00_10931))
																							{	/* Unsafe/http.scm 492 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_4830))
																									{	/* Unsafe/http.scm 492 */
																										long BgL_arg3661z00_10934;
																										long BgL_arg3663z00_10935;

																										BgL_arg3661z00_10934 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_4830);
																										BgL_arg3663z00_10935 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_4830);
																										{
																											long BgL_bufposz00_17359;
																											long BgL_forwardz00_17358;

																											BgL_forwardz00_17358 =
																												BgL_arg3661z00_10934;
																											BgL_bufposz00_17359 =
																												BgL_arg3663z00_10935;
																											BgL_bufposz00_10931 =
																												BgL_bufposz00_17359;
																											BgL_forwardz00_10930 =
																												BgL_forwardz00_17358;
																											goto
																												BgL_statezd28zd21240z00_10929;
																										}
																									}
																								else
																									{	/* Unsafe/http.scm 492 */
																										BgL_matchz00_5023 =
																											BgL_newzd2matchzd2_4835;
																									}
																							}
																						else
																							{	/* Unsafe/http.scm 492 */
																								int BgL_curz00_10936;

																								BgL_curz00_10936 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_4830,
																									BgL_forwardz00_10930);
																								{	/* Unsafe/http.scm 492 */

																									if (
																										((long) (BgL_curz00_10936)
																											== 10L))
																										{	/* Unsafe/http.scm 492 */
																											long BgL_arg3666z00_10938;

																											BgL_arg3666z00_10938 =
																												(1L +
																												BgL_forwardz00_10930);
																											{	/* Unsafe/http.scm 492 */
																												long
																													BgL_newzd2matchzd2_10948;
																												RGC_STOP_MATCH
																													(BgL_iportz00_4830,
																													BgL_arg3666z00_10938);
																												BgL_newzd2matchzd2_10948
																													= 0L;
																												BgL_matchz00_5023 =
																													BgL_newzd2matchzd2_10948;
																										}}
																									else
																										{	/* Unsafe/http.scm 492 */
																											BgL_matchz00_5023 =
																												BgL_newzd2matchzd2_4835;
																										}
																								}
																							}
																					}
																				}
																			else
																				{	/* Unsafe/http.scm 492 */
																					if (((long) (BgL_curz00_4840) == 10L))
																						{	/* Unsafe/http.scm 492 */
																							long BgL_arg3630z00_4844;

																							BgL_arg3630z00_4844 =
																								(1L + BgL_forwardz00_4832);
																							{	/* Unsafe/http.scm 492 */
																								long BgL_newzd2matchzd2_10953;

																								RGC_STOP_MATCH
																									(BgL_iportz00_4830,
																									BgL_arg3630z00_4844);
																								BgL_newzd2matchzd2_10953 = 0L;
																								BgL_matchz00_5023 =
																									BgL_newzd2matchzd2_10953;
																						}}
																					else
																						{	/* Unsafe/http.scm 492 */
																							bool_t BgL_test6709z00_17371;

																							if (
																								((long) (BgL_curz00_4840) ==
																									9L))
																								{	/* Unsafe/http.scm 492 */
																									BgL_test6709z00_17371 =
																										((bool_t) 1);
																								}
																							else
																								{	/* Unsafe/http.scm 492 */
																									BgL_test6709z00_17371 =
																										(
																										(long) (BgL_curz00_4840) ==
																										32L);
																								}
																							if (BgL_test6709z00_17371)
																								{	/* Unsafe/http.scm 492 */
																									BgL_iportz00_4874 =
																										BgL_iportz00_4830;
																									BgL_lastzd2matchzd2_4875 =
																										BgL_newzd2matchzd2_4835;
																									BgL_forwardz00_4876 =
																										(1L + BgL_forwardz00_4832);
																									BgL_bufposz00_4877 =
																										BgL_bufposz00_4833;
																								BgL_zc3z04anonymousza33643ze3z87_4878:
																									if (
																										(BgL_forwardz00_4876 ==
																											BgL_bufposz00_4877))
																										{	/* Unsafe/http.scm 492 */
																											if (rgc_fill_buffer
																												(BgL_iportz00_4874))
																												{	/* Unsafe/http.scm 492 */
																													long
																														BgL_arg3647z00_4881;
																													long
																														BgL_arg3649z00_4882;
																													BgL_arg3647z00_4881 =
																														RGC_BUFFER_FORWARD
																														(BgL_iportz00_4874);
																													BgL_arg3649z00_4882 =
																														RGC_BUFFER_BUFPOS
																														(BgL_iportz00_4874);
																													{
																														long
																															BgL_bufposz00_17384;
																														long
																															BgL_forwardz00_17383;
																														BgL_forwardz00_17383
																															=
																															BgL_arg3647z00_4881;
																														BgL_bufposz00_17384
																															=
																															BgL_arg3649z00_4882;
																														BgL_bufposz00_4877 =
																															BgL_bufposz00_17384;
																														BgL_forwardz00_4876
																															=
																															BgL_forwardz00_17383;
																														goto
																															BgL_zc3z04anonymousza33643ze3z87_4878;
																													}
																												}
																											else
																												{	/* Unsafe/http.scm 492 */
																													BgL_matchz00_5023 =
																														BgL_lastzd2matchzd2_4875;
																												}
																										}
																									else
																										{	/* Unsafe/http.scm 492 */
																											int BgL_curz00_4883;

																											BgL_curz00_4883 =
																												RGC_BUFFER_GET_CHAR
																												(BgL_iportz00_4874,
																												BgL_forwardz00_4876);
																											{	/* Unsafe/http.scm 492 */

																												if (
																													((long)
																														(BgL_curz00_4883) ==
																														13L))
																													{	/* Unsafe/http.scm 492 */
																														long
																															BgL_arg3651z00_4885;
																														BgL_arg3651z00_4885
																															=
																															(1L +
																															BgL_forwardz00_4876);
																														{
																															long
																																BgL_forwardz00_10989;
																															long
																																BgL_bufposz00_10990;
																															BgL_forwardz00_10989
																																=
																																BgL_arg3651z00_4885;
																															BgL_bufposz00_10990
																																=
																																BgL_bufposz00_4877;
																														BgL_statezd28zd21240z00_10988:
																															if (
																																(BgL_forwardz00_10989
																																	==
																																	BgL_bufposz00_10990))
																																{	/* Unsafe/http.scm 492 */
																																	if (rgc_fill_buffer(BgL_iportz00_4874))
																																		{	/* Unsafe/http.scm 492 */
																																			long
																																				BgL_arg3661z00_10993;
																																			long
																																				BgL_arg3663z00_10994;
																																			BgL_arg3661z00_10993
																																				=
																																				RGC_BUFFER_FORWARD
																																				(BgL_iportz00_4874);
																																			BgL_arg3663z00_10994
																																				=
																																				RGC_BUFFER_BUFPOS
																																				(BgL_iportz00_4874);
																																			{
																																				long
																																					BgL_bufposz00_17397;
																																				long
																																					BgL_forwardz00_17396;
																																				BgL_forwardz00_17396
																																					=
																																					BgL_arg3661z00_10993;
																																				BgL_bufposz00_17397
																																					=
																																					BgL_arg3663z00_10994;
																																				BgL_bufposz00_10990
																																					=
																																					BgL_bufposz00_17397;
																																				BgL_forwardz00_10989
																																					=
																																					BgL_forwardz00_17396;
																																				goto
																																					BgL_statezd28zd21240z00_10988;
																																			}
																																		}
																																	else
																																		{	/* Unsafe/http.scm 492 */
																																			BgL_matchz00_5023
																																				=
																																				BgL_lastzd2matchzd2_4875;
																																		}
																																}
																															else
																																{	/* Unsafe/http.scm 492 */
																																	int
																																		BgL_curz00_10995;
																																	BgL_curz00_10995
																																		=
																																		RGC_BUFFER_GET_CHAR
																																		(BgL_iportz00_4874,
																																		BgL_forwardz00_10989);
																																	{	/* Unsafe/http.scm 492 */

																																		if (
																																			((long)
																																				(BgL_curz00_10995)
																																				== 10L))
																																			{	/* Unsafe/http.scm 492 */
																																				long
																																					BgL_arg3666z00_10997;
																																				BgL_arg3666z00_10997
																																					=
																																					(1L +
																																					BgL_forwardz00_10989);
																																				{	/* Unsafe/http.scm 492 */
																																					long
																																						BgL_newzd2matchzd2_11007;
																																					RGC_STOP_MATCH
																																						(BgL_iportz00_4874,
																																						BgL_arg3666z00_10997);
																																					BgL_newzd2matchzd2_11007
																																						=
																																						0L;
																																					BgL_matchz00_5023
																																						=
																																						BgL_newzd2matchzd2_11007;
																																			}}
																																		else
																																			{	/* Unsafe/http.scm 492 */
																																				BgL_matchz00_5023
																																					=
																																					BgL_lastzd2matchzd2_4875;
																																			}
																																	}
																																}
																														}
																													}
																												else
																													{	/* Unsafe/http.scm 492 */
																														if (
																															((long)
																																(BgL_curz00_4883)
																																== 10L))
																															{	/* Unsafe/http.scm 492 */
																																long
																																	BgL_arg3653z00_4887;
																																BgL_arg3653z00_4887
																																	=
																																	(1L +
																																	BgL_forwardz00_4876);
																																{	/* Unsafe/http.scm 492 */
																																	long
																																		BgL_newzd2matchzd2_11012;
																																	RGC_STOP_MATCH
																																		(BgL_iportz00_4874,
																																		BgL_arg3653z00_4887);
																																	BgL_newzd2matchzd2_11012
																																		= 0L;
																																	BgL_matchz00_5023
																																		=
																																		BgL_newzd2matchzd2_11012;
																															}}
																														else
																															{	/* Unsafe/http.scm 492 */
																																bool_t
																																	BgL_test6718z00_17409;
																																if (((long)
																																		(BgL_curz00_4883)
																																		== 9L))
																																	{	/* Unsafe/http.scm 492 */
																																		BgL_test6718z00_17409
																																			=
																																			((bool_t)
																																			1);
																																	}
																																else
																																	{	/* Unsafe/http.scm 492 */
																																		BgL_test6718z00_17409
																																			=
																																			((long)
																																			(BgL_curz00_4883)
																																			== 32L);
																																	}
																																if (BgL_test6718z00_17409)
																																	{
																																		long
																																			BgL_forwardz00_17415;
																																		BgL_forwardz00_17415
																																			=
																																			(1L +
																																			BgL_forwardz00_4876);
																																		BgL_forwardz00_4876
																																			=
																																			BgL_forwardz00_17415;
																																		goto
																																			BgL_zc3z04anonymousza33643ze3z87_4878;
																																	}
																																else
																																	{	/* Unsafe/http.scm 492 */
																																		BgL_matchz00_5023
																																			=
																																			BgL_lastzd2matchzd2_4875;
																																	}
																															}
																													}
																											}
																										}
																								}
																							else
																								{	/* Unsafe/http.scm 492 */
																									BgL_matchz00_5023 =
																										BgL_newzd2matchzd2_4835;
																								}
																						}
																				}
																		}
																	}
															}
														}
													else
														{	/* Unsafe/http.scm 492 */
															long BgL_arg3619z00_4822;

															BgL_arg3619z00_4822 = (1L + BgL_forwardz00_4807);
															{	/* Unsafe/http.scm 492 */
																long BgL_newzd2matchzd2_10912;

																RGC_STOP_MATCH(BgL_iportz00_4805,
																	BgL_arg3619z00_4822);
																BgL_newzd2matchzd2_10912 = 1L;
																BgL_matchz00_5023 = BgL_newzd2matchzd2_10912;
					}}}}}}}
					RGC_SET_FILEPOS(BgL_iportz00_4768);
					switch (BgL_matchz00_5023)
						{
						case 1L:

							return BFALSE;
							break;
						case 0L:

							return BUNSPEC;
							break;
						default:
							return
								BGl_errorz00zz__errorz00(BGl_string5600z00zz__httpz00,
								BGl_string5601z00zz__httpz00, BINT(BgL_matchz00_5023));
						}
				}
			}
		}

	}



/* &http-parse-header */
	obj_t BGl_z62httpzd2parsezd2headerz62zz__httpz00(obj_t BgL_envz00_12396,
		obj_t BgL_pz00_12397, obj_t BgL_poz00_12398)
	{
		{	/* Unsafe/http.scm 425 */
			{	/* Unsafe/http.scm 428 */
				obj_t BgL_auxz00_17425;

				if (INPUT_PORTP(BgL_pz00_12397))
					{	/* Unsafe/http.scm 428 */
						BgL_auxz00_17425 = BgL_pz00_12397;
					}
				else
					{
						obj_t BgL_auxz00_17428;

						BgL_auxz00_17428 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5663z00zz__httpz00,
							BINT(15779L), BGl_string5729z00zz__httpz00,
							BGl_string5705z00zz__httpz00, BgL_pz00_12397);
						FAILURE(BgL_auxz00_17428, BFALSE, BFALSE);
					}
				return
					BGl_httpzd2parsezd2headerz00zz__httpz00(BgL_auxz00_17425,
					BgL_poz00_12398);
			}
		}

	}



/* 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_7494;

				BgL__1z00_7494 =
					BGl_z62zc3z04anonymousza31593ze3ze5zz__httpz00
					(BGl_statuszd2linezd2grammarz00zz__httpz00, BgL_ipz00_56);
				{	/* Unsafe/http.scm 623 */
					obj_t BgL_statusz00_7495;
					obj_t BgL__2z00_7496;

					{	/* Unsafe/http.scm 624 */
						obj_t BgL_tmpz00_11729;

						{	/* Unsafe/http.scm 624 */
							int BgL_tmpz00_17437;

							BgL_tmpz00_17437 = (int) (1L);
							BgL_tmpz00_11729 = BGL_MVALUES_VAL(BgL_tmpz00_17437);
						}
						{	/* Unsafe/http.scm 624 */
							int BgL_tmpz00_17440;

							BgL_tmpz00_17440 = (int) (1L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_17440, BUNSPEC);
						}
						BgL_statusz00_7495 = BgL_tmpz00_11729;
					}
					{	/* Unsafe/http.scm 624 */
						obj_t BgL_tmpz00_11730;

						{	/* Unsafe/http.scm 624 */
							int BgL_tmpz00_17443;

							BgL_tmpz00_17443 = (int) (2L);
							BgL_tmpz00_11730 = BGL_MVALUES_VAL(BgL_tmpz00_17443);
						}
						{	/* Unsafe/http.scm 624 */
							int BgL_tmpz00_17446;

							BgL_tmpz00_17446 = (int) (2L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_17446, BUNSPEC);
						}
						BgL__2z00_7496 = BgL_tmpz00_11730;
					}
					{	/* Unsafe/http.scm 624 */
						obj_t BgL_headerz00_7497;

						BgL_headerz00_7497 =
							BGl_httpzd2parsezd2headerz00zz__httpz00(BgL_ipz00_56,
							BgL_opz00_57);
						{	/* Unsafe/http.scm 625 */
							obj_t BgL__hostz00_7498;
							obj_t BgL__portz00_7499;
							obj_t BgL_clenz00_7500;
							obj_t BgL_tencz00_7501;
							obj_t BgL__autz00_7502;
							obj_t BgL__pautz00_7503;
							obj_t BgL__connz00_7504;

							{	/* Unsafe/http.scm 626 */
								obj_t BgL_tmpz00_11731;

								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17450;

									BgL_tmpz00_17450 = (int) (1L);
									BgL_tmpz00_11731 = BGL_MVALUES_VAL(BgL_tmpz00_17450);
								}
								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17453;

									BgL_tmpz00_17453 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_17453, BUNSPEC);
								}
								BgL__hostz00_7498 = BgL_tmpz00_11731;
							}
							{	/* Unsafe/http.scm 626 */
								obj_t BgL_tmpz00_11732;

								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17456;

									BgL_tmpz00_17456 = (int) (2L);
									BgL_tmpz00_11732 = BGL_MVALUES_VAL(BgL_tmpz00_17456);
								}
								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17459;

									BgL_tmpz00_17459 = (int) (2L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_17459, BUNSPEC);
								}
								BgL__portz00_7499 = BgL_tmpz00_11732;
							}
							{	/* Unsafe/http.scm 626 */
								obj_t BgL_tmpz00_11733;

								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17462;

									BgL_tmpz00_17462 = (int) (3L);
									BgL_tmpz00_11733 = BGL_MVALUES_VAL(BgL_tmpz00_17462);
								}
								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17465;

									BgL_tmpz00_17465 = (int) (3L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_17465, BUNSPEC);
								}
								BgL_clenz00_7500 = BgL_tmpz00_11733;
							}
							{	/* Unsafe/http.scm 626 */
								obj_t BgL_tmpz00_11734;

								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17468;

									BgL_tmpz00_17468 = (int) (4L);
									BgL_tmpz00_11734 = BGL_MVALUES_VAL(BgL_tmpz00_17468);
								}
								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17471;

									BgL_tmpz00_17471 = (int) (4L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_17471, BUNSPEC);
								}
								BgL_tencz00_7501 = BgL_tmpz00_11734;
							}
							{	/* Unsafe/http.scm 626 */
								obj_t BgL_tmpz00_11735;

								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17474;

									BgL_tmpz00_17474 = (int) (5L);
									BgL_tmpz00_11735 = BGL_MVALUES_VAL(BgL_tmpz00_17474);
								}
								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17477;

									BgL_tmpz00_17477 = (int) (5L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_17477, BUNSPEC);
								}
								BgL__autz00_7502 = BgL_tmpz00_11735;
							}
							{	/* Unsafe/http.scm 626 */
								obj_t BgL_tmpz00_11736;

								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17480;

									BgL_tmpz00_17480 = (int) (6L);
									BgL_tmpz00_11736 = BGL_MVALUES_VAL(BgL_tmpz00_17480);
								}
								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17483;

									BgL_tmpz00_17483 = (int) (6L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_17483, BUNSPEC);
								}
								BgL__pautz00_7503 = BgL_tmpz00_11736;
							}
							{	/* Unsafe/http.scm 626 */
								obj_t BgL_tmpz00_11737;

								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17486;

									BgL_tmpz00_17486 = (int) (7L);
									BgL_tmpz00_11737 = BGL_MVALUES_VAL(BgL_tmpz00_17486);
								}
								{	/* Unsafe/http.scm 626 */
									int BgL_tmpz00_17489;

									BgL_tmpz00_17489 = (int) (7L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_17489, BUNSPEC);
								}
								BgL__connz00_7504 = BgL_tmpz00_11737;
							}
							{

								if (INTEGERP(BgL_statusz00_7495))
									{	/* Unsafe/http.scm 626 */
										switch ((long) CINT(BgL_statusz00_7495))
											{
											case 200L:
											case 207L:

												if ((BgL_tencz00_7501 == BGl_symbol5733z00zz__httpz00))
													{	/* Unsafe/http.scm 631 */
														obj_t BgL_arg4924z00_7507;

														BgL_arg4924z00_7507 =
															BGl_httpzd2chunkszd2ze3portze3zz__httpz00
															(BgL_ipz00_56);
														return (VA_PROCEDUREP(BgL_procz00_58)
															? ((obj_t(*)(obj_t,
																		...))
																PROCEDURE_ENTRY(BgL_procz00_58))
															(BgL_procz00_58, BgL_arg4924z00_7507,
																BgL_statusz00_7495, BgL_headerz00_7497,
																BgL_clenz00_7500, BgL_tencz00_7501,
																BEOA) : ((obj_t(*)(obj_t, obj_t, obj_t, obj_t,
																		obj_t,
																		obj_t))
																PROCEDURE_ENTRY(BgL_procz00_58))
															(BgL_procz00_58, BgL_arg4924z00_7507,
																BgL_statusz00_7495, BgL_headerz00_7497,
																BgL_clenz00_7500, BgL_tencz00_7501));
													}
												else
													{	/* Unsafe/http.scm 630 */
														return
															(VA_PROCEDUREP(BgL_procz00_58) ? ((obj_t(*)(obj_t,
																		...))
																PROCEDURE_ENTRY(BgL_procz00_58))
															(BgL_procz00_58, BgL_ipz00_56, BgL_statusz00_7495,
																BgL_headerz00_7497, BgL_clenz00_7500,
																BgL_tencz00_7501, BEOA) : ((obj_t(*)(obj_t,
																		obj_t, obj_t, obj_t, obj_t,
																		obj_t))
																PROCEDURE_ENTRY(BgL_procz00_58))
															(BgL_procz00_58, BgL_ipz00_56, BgL_statusz00_7495,
																BgL_headerz00_7497, BgL_clenz00_7500,
																BgL_tencz00_7501));
													}
												break;
											case 201L:
											case 204L:
											case 304L:

												return
													(VA_PROCEDUREP(BgL_procz00_58) ? ((obj_t(*)(obj_t,
																...))
														PROCEDURE_ENTRY(BgL_procz00_58)) (BgL_procz00_58,
														BFALSE, BgL_statusz00_7495, BgL_headerz00_7497,
														BgL_clenz00_7500, BgL_tencz00_7501,
														BEOA) : ((obj_t(*)(obj_t, obj_t, obj_t, obj_t,
																obj_t,
																obj_t))
														PROCEDURE_ENTRY(BgL_procz00_58)) (BgL_procz00_58,
														BFALSE, BgL_statusz00_7495, BgL_headerz00_7497,
														BgL_clenz00_7500, BgL_tencz00_7501));
												break;
											case 301L:
											case 302L:
											case 303L:
											case 307L:

												{	/* Unsafe/http.scm 639 */
													obj_t BgL_locz00_7508;

													BgL_locz00_7508 =
														BGl_assqz00zz__r4_pairs_and_lists_6_3z00
														(BGl_keyword5735z00zz__httpz00, BgL_headerz00_7497);
													if (PAIRP(BgL_locz00_7508))
														{	/* Unsafe/http.scm 645 */
															BgL_z62httpzd2redirectionzb0_bglt
																BgL_arg4926z00_7510;
															{	/* Unsafe/http.scm 645 */
																BgL_z62httpzd2redirectionzb0_bglt
																	BgL_new1286z00_7511;
																{	/* Unsafe/http.scm 645 */
																	BgL_z62httpzd2redirectionzb0_bglt
																		BgL_new1285z00_7514;
																	BgL_new1285z00_7514 =
																		((BgL_z62httpzd2redirectionzb0_bglt)
																		BOBJECT(GC_MALLOC(sizeof(struct
																					BgL_z62httpzd2redirectionzb0_bgl))));
																	{	/* Unsafe/http.scm 645 */
																		long BgL_arg4929z00_7515;

																		BgL_arg4929z00_7515 =
																			BGL_CLASS_NUM
																			(BGl_z62httpzd2redirectionzb0zz__httpz00);
																		BGL_OBJECT_CLASS_NUM_SET((
																				(BgL_objectz00_bglt)
																				BgL_new1285z00_7514),
																			BgL_arg4929z00_7515);
																	}
																	BgL_new1286z00_7511 = BgL_new1285z00_7514;
																}
																((((BgL_z62exceptionz62_bglt) COBJECT(
																				((BgL_z62exceptionz62_bglt)
																					BgL_new1286z00_7511)))->
																		BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
																((((BgL_z62exceptionz62_bglt)
																			COBJECT(((BgL_z62exceptionz62_bglt)
																					BgL_new1286z00_7511)))->
																		BgL_locationz00) =
																	((obj_t) BFALSE), BUNSPEC);
																{
																	obj_t BgL_auxz00_17532;

																	{	/* Unsafe/http.scm 645 */
																		obj_t BgL_arg4927z00_7512;

																		{	/* Unsafe/http.scm 645 */
																			obj_t BgL_arg4928z00_7513;

																			{	/* Unsafe/http.scm 645 */
																				obj_t BgL_classz00_11746;

																				BgL_classz00_11746 =
																					BGl_z62httpzd2redirectionzb0zz__httpz00;
																				BgL_arg4928z00_7513 =
																					BGL_CLASS_ALL_FIELDS
																					(BgL_classz00_11746);
																			}
																			BgL_arg4927z00_7512 =
																				VECTOR_REF(BgL_arg4928z00_7513, 2L);
																		}
																		BgL_auxz00_17532 =
																			BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																			(BgL_arg4927z00_7512);
																	}
																	((((BgL_z62exceptionz62_bglt) COBJECT(
																					((BgL_z62exceptionz62_bglt)
																						BgL_new1286z00_7511)))->
																			BgL_stackz00) =
																		((obj_t) BgL_auxz00_17532), BUNSPEC);
																}
																((((BgL_z62httpzd2redirectionzb0_bglt)
																			COBJECT(BgL_new1286z00_7511))->
																		BgL_portz00) =
																	((obj_t) BgL_ipz00_56), BUNSPEC);
																((((BgL_z62httpzd2redirectionzb0_bglt)
																			COBJECT(BgL_new1286z00_7511))->
																		BgL_urlz00) =
																	((obj_t) CDR(BgL_locz00_7508)), BUNSPEC);
																BgL_arg4926z00_7510 = BgL_new1286z00_7511;
															}
															return
																BGl_raisez00zz__errorz00(
																((obj_t) BgL_arg4926z00_7510));
														}
													else
														{	/* Unsafe/http.scm 641 */
															BgL_z62httpzd2redirectionzd2errorz62_bglt
																BgL_arg4930z00_7516;
															{	/* Unsafe/http.scm 641 */
																BgL_z62httpzd2redirectionzd2errorz62_bglt
																	BgL_new1284z00_7517;
																{	/* Unsafe/http.scm 641 */
																	BgL_z62httpzd2redirectionzd2errorz62_bglt
																		BgL_new1283z00_7520;
																	BgL_new1283z00_7520 =
																		((BgL_z62httpzd2redirectionzd2errorz62_bglt)
																		BOBJECT(GC_MALLOC(sizeof(struct
																					BgL_z62httpzd2redirectionzd2errorz62_bgl))));
																	{	/* Unsafe/http.scm 641 */
																		long BgL_arg4933z00_7521;

																		BgL_arg4933z00_7521 =
																			BGL_CLASS_NUM
																			(BGl_z62httpzd2redirectionzd2errorz62zz__httpz00);
																		BGL_OBJECT_CLASS_NUM_SET((
																				(BgL_objectz00_bglt)
																				BgL_new1283z00_7520),
																			BgL_arg4933z00_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_17551;

																	{	/* Unsafe/http.scm 641 */
																		obj_t BgL_arg4931z00_7518;

																		{	/* Unsafe/http.scm 641 */
																			obj_t BgL_arg4932z00_7519;

																			{	/* Unsafe/http.scm 641 */
																				obj_t BgL_classz00_11752;

																				BgL_classz00_11752 =
																					BGl_z62httpzd2redirectionzd2errorz62zz__httpz00;
																				BgL_arg4932z00_7519 =
																					BGL_CLASS_ALL_FIELDS
																					(BgL_classz00_11752);
																			}
																			BgL_arg4931z00_7518 =
																				VECTOR_REF(BgL_arg4932z00_7519, 2L);
																		}
																		BgL_auxz00_17551 =
																			BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																			(BgL_arg4931z00_7518);
																	}
																	((((BgL_z62exceptionz62_bglt) COBJECT(
																					((BgL_z62exceptionz62_bglt)
																						BgL_new1284z00_7517)))->
																			BgL_stackz00) =
																		((obj_t) BgL_auxz00_17551), BUNSPEC);
																}
																((((BgL_z62errorz62_bglt) COBJECT(
																				((BgL_z62errorz62_bglt)
																					BgL_new1284z00_7517)))->BgL_procz00) =
																	((obj_t) BGl_symbol5737z00zz__httpz00),
																	BUNSPEC);
																((((BgL_z62errorz62_bglt)
																			COBJECT(((BgL_z62errorz62_bglt)
																					BgL_new1284z00_7517)))->BgL_msgz00) =
																	((obj_t) BGl_string5739z00zz__httpz00),
																	BUNSPEC);
																((((BgL_z62errorz62_bglt)
																			COBJECT(((BgL_z62errorz62_bglt)
																					BgL_new1284z00_7517)))->BgL_objz00) =
																	((obj_t) BgL_ipz00_56), BUNSPEC);
																BgL_arg4930z00_7516 = BgL_new1284z00_7517;
															}
															return
																BGl_raisez00zz__errorz00(
																((obj_t) BgL_arg4930z00_7516));
														}
												}
												break;
											default:
											BgL_case_else1281z00_7505:
												{	/* Unsafe/http.scm 649 */
													obj_t BgL__ortest_1278z00_7522;

													BgL__ortest_1278z00_7522 =
														(VA_PROCEDUREP(BgL_procz00_58) ? ((obj_t(*)(obj_t,
																	...))
															PROCEDURE_ENTRY(BgL_procz00_58)) (BgL_procz00_58,
															BgL_ipz00_56, BgL_statusz00_7495,
															BgL_headerz00_7497, BgL_clenz00_7500,
															BgL_tencz00_7501, BEOA) : ((obj_t(*)(obj_t, obj_t,
																	obj_t, obj_t, obj_t,
																	obj_t))
															PROCEDURE_ENTRY(BgL_procz00_58)) (BgL_procz00_58,
															BgL_ipz00_56, BgL_statusz00_7495,
															BgL_headerz00_7497, BgL_clenz00_7500,
															BgL_tencz00_7501));
													if (CBOOL(BgL__ortest_1278z00_7522))
														{	/* Unsafe/http.scm 649 */
															return BgL__ortest_1278z00_7522;
														}
													else
														{	/* Unsafe/http.scm 650 */
															BgL_z62httpzd2statuszd2errorz62_bglt
																BgL_arg4934z00_7523;
															{	/* Unsafe/http.scm 650 */
																BgL_z62httpzd2statuszd2errorz62_bglt
																	BgL_new1280z00_7524;
																{	/* Unsafe/http.scm 650 */
																	BgL_z62httpzd2statuszd2errorz62_bglt
																		BgL_new1279z00_7528;
																	BgL_new1279z00_7528 =
																		((BgL_z62httpzd2statuszd2errorz62_bglt)
																		BOBJECT(GC_MALLOC(sizeof(struct
																					BgL_z62httpzd2statuszd2errorz62_bgl))));
																	{	/* Unsafe/http.scm 650 */
																		long BgL_arg4938z00_7529;

																		BgL_arg4938z00_7529 =
																			BGL_CLASS_NUM
																			(BGl_z62httpzd2statuszd2errorz62zz__httpz00);
																		BGL_OBJECT_CLASS_NUM_SET((
																				(BgL_objectz00_bglt)
																				BgL_new1279z00_7528),
																			BgL_arg4938z00_7529);
																	}
																	BgL_new1280z00_7524 = BgL_new1279z00_7528;
																}
																((((BgL_z62exceptionz62_bglt) COBJECT(
																				((BgL_z62exceptionz62_bglt)
																					BgL_new1280z00_7524)))->
																		BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
																((((BgL_z62exceptionz62_bglt)
																			COBJECT(((BgL_z62exceptionz62_bglt)
																					BgL_new1280z00_7524)))->
																		BgL_locationz00) =
																	((obj_t) BFALSE), BUNSPEC);
																{
																	obj_t BgL_auxz00_17583;

																	{	/* Unsafe/http.scm 650 */
																		obj_t BgL_arg4935z00_7525;

																		{	/* Unsafe/http.scm 650 */
																			obj_t BgL_arg4936z00_7526;

																			{	/* Unsafe/http.scm 650 */
																				obj_t BgL_classz00_11741;

																				BgL_classz00_11741 =
																					BGl_z62httpzd2statuszd2errorz62zz__httpz00;
																				BgL_arg4936z00_7526 =
																					BGL_CLASS_ALL_FIELDS
																					(BgL_classz00_11741);
																			}
																			BgL_arg4935z00_7525 =
																				VECTOR_REF(BgL_arg4936z00_7526, 2L);
																		}
																		BgL_auxz00_17583 =
																			BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																			(BgL_arg4935z00_7525);
																	}
																	((((BgL_z62exceptionz62_bglt) COBJECT(
																					((BgL_z62exceptionz62_bglt)
																						BgL_new1280z00_7524)))->
																			BgL_stackz00) =
																		((obj_t) BgL_auxz00_17583), BUNSPEC);
																}
																((((BgL_z62errorz62_bglt) COBJECT(
																				((BgL_z62errorz62_bglt)
																					BgL_new1280z00_7524)))->BgL_procz00) =
																	((obj_t) BGl_symbol5730z00zz__httpz00),
																	BUNSPEC);
																{
																	obj_t BgL_auxz00_17591;

																	{	/* Unsafe/http.scm 652 */
																		obj_t BgL_list4937z00_7527;

																		BgL_list4937z00_7527 =
																			MAKE_YOUNG_PAIR(BgL_statusz00_7495, BNIL);
																		BgL_auxz00_17591 =
																			BGl_formatz00zz__r4_output_6_10_3z00
																			(BGl_string5732z00zz__httpz00,
																			BgL_list4937z00_7527);
																	}
																	((((BgL_z62errorz62_bglt) COBJECT(
																					((BgL_z62errorz62_bglt)
																						BgL_new1280z00_7524)))->
																			BgL_msgz00) =
																		((obj_t) BgL_auxz00_17591), BUNSPEC);
																}
																((((BgL_z62errorz62_bglt) COBJECT(
																				((BgL_z62errorz62_bglt)
																					BgL_new1280z00_7524)))->BgL_objz00) =
																	((obj_t) BgL_ipz00_56), BUNSPEC);
																((((BgL_z62httpzd2statuszd2errorz62_bglt)
																			COBJECT(BgL_new1280z00_7524))->
																		BgL_statusz00) =
																	((int) CINT(BgL_statusz00_7495)), BUNSPEC);
																BgL_arg4934z00_7523 = BgL_new1280z00_7524;
															}
															return
																BGl_raisez00zz__errorz00(
																((obj_t) BgL_arg4934z00_7523));
														}
												}
											}
									}
								else
									{	/* Unsafe/http.scm 626 */
										goto BgL_case_else1281z00_7505;
									}
							}
						}
					}
				}
			}
		}

	}



/* &http-parse-response */
	obj_t BGl_z62httpzd2parsezd2responsez62zz__httpz00(obj_t BgL_envz00_12399,
		obj_t BgL_ipz00_12400, obj_t BgL_opz00_12401, obj_t BgL_procz00_12402)
	{
		{	/* Unsafe/http.scm 621 */
			{	/* Unsafe/http.scm 622 */
				obj_t BgL_auxz00_17611;
				obj_t BgL_auxz00_17604;

				if (PROCEDUREP(BgL_procz00_12402))
					{	/* Unsafe/http.scm 622 */
						BgL_auxz00_17611 = BgL_procz00_12402;
					}
				else
					{
						obj_t BgL_auxz00_17614;

						BgL_auxz00_17614 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5663z00zz__httpz00,
							BINT(21476L), BGl_string5740z00zz__httpz00,
							BGl_string5741z00zz__httpz00, BgL_procz00_12402);
						FAILURE(BgL_auxz00_17614, BFALSE, BFALSE);
					}
				if (INPUT_PORTP(BgL_ipz00_12400))
					{	/* Unsafe/http.scm 622 */
						BgL_auxz00_17604 = BgL_ipz00_12400;
					}
				else
					{
						obj_t BgL_auxz00_17607;

						BgL_auxz00_17607 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5663z00zz__httpz00,
							BINT(21476L), BGl_string5740z00zz__httpz00,
							BGl_string5705z00zz__httpz00, BgL_ipz00_12400);
						FAILURE(BgL_auxz00_17607, BFALSE, BFALSE);
					}
				return
					BGl_httpzd2parsezd2responsez00zz__httpz00(BgL_auxz00_17604,
					BgL_opz00_12401, BgL_auxz00_17611);
			}
		}

	}



/* 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_proc5742z00zz__httpz00);
		}

	}



/* &http-response-body->port */
	obj_t BGl_z62httpzd2responsezd2bodyzd2ze3portz53zz__httpz00(obj_t
		BgL_envz00_12405, obj_t BgL_ipz00_12406, obj_t BgL_opz00_12407)
	{
		{	/* Unsafe/http.scm 659 */
			{	/* Unsafe/http.scm 662 */
				obj_t BgL_auxz00_17627;
				obj_t BgL_auxz00_17620;

				if (OUTPUT_PORTP(BgL_opz00_12407))
					{	/* Unsafe/http.scm 662 */
						BgL_auxz00_17627 = BgL_opz00_12407;
					}
				else
					{
						obj_t BgL_auxz00_17630;

						BgL_auxz00_17630 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5663z00zz__httpz00,
							BINT(22833L), BGl_string5743z00zz__httpz00,
							BGl_string5744z00zz__httpz00, BgL_opz00_12407);
						FAILURE(BgL_auxz00_17630, BFALSE, BFALSE);
					}
				if (INPUT_PORTP(BgL_ipz00_12406))
					{	/* Unsafe/http.scm 662 */
						BgL_auxz00_17620 = BgL_ipz00_12406;
					}
				else
					{
						obj_t BgL_auxz00_17623;

						BgL_auxz00_17623 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5663z00zz__httpz00,
							BINT(22833L), BGl_string5743z00zz__httpz00,
							BGl_string5705z00zz__httpz00, BgL_ipz00_12406);
						FAILURE(BgL_auxz00_17623, BFALSE, BFALSE);
					}
				return
					BGl_httpzd2responsezd2bodyzd2ze3portz31zz__httpz00(BgL_auxz00_17620,
					BgL_auxz00_17627);
			}
		}

	}



/* &parse-body */
	obj_t BGl_z62parsezd2bodyzb0zz__httpz00(obj_t BgL_envz00_12408,
		obj_t BgL_ipz00_12409, obj_t BgL_statuszd2codezd2_12410,
		obj_t BgL_headerz00_12411, obj_t BgL_clenz00_12412, obj_t BgL_tencz00_12413)
	{
		{	/* Unsafe/http.scm 669 */
			if (INPUT_PORTP(BgL_ipz00_12409))
				{	/* Unsafe/http.scm 662 */
					if (CBOOL(BgL_clenz00_12412))
						{	/* Unsafe/http.scm 665 */
							obj_t BgL_pz00_12954;

							{	/* Unsafe/http.scm 665 */
								obj_t BgL_arg4943z00_12955;

								BgL_arg4943z00_12955 =
									BGl_barrierzd2portzd2zz__httpz00(BgL_ipz00_12409,
									BgL_clenz00_12412);
								{	/* Unsafe/http.scm 665 */

									BgL_pz00_12954 =
										BGl_openzd2inputzd2procedurez00zz__r4_ports_6_10_1z00
										(BgL_arg4943z00_12955, BTRUE);
								}
							}
							{	/* Unsafe/http.scm 666 */
								obj_t BgL_zc3z04anonymousza34942ze3z87_12956;

								BgL_zc3z04anonymousza34942ze3z87_12956 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza34942ze3ze5zz__httpz00, (int) (1L),
									(int) (1L));
								PROCEDURE_SET(BgL_zc3z04anonymousza34942ze3z87_12956,
									(int) (0L), BgL_ipz00_12409);
								BGl_inputzd2portzd2closezd2hookzd2setz12z12zz__r4_ports_6_10_1z00
									(BgL_pz00_12954, BgL_zc3z04anonymousza34942ze3z87_12956);
							}
							return BgL_pz00_12954;
						}
					else
						{	/* Unsafe/http.scm 664 */
							return BgL_ipz00_12409;
						}
				}
			else
				{	/* Unsafe/http.scm 663 */

					return
						BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00
						(BGl_string5701z00zz__httpz00, BINT(0L), BINT(0L));
				}
		}

	}



/* &<@anonymous:4942> */
	obj_t BGl_z62zc3z04anonymousza34942ze3ze5zz__httpz00(obj_t BgL_envz00_12414,
		obj_t BgL_inz00_12416)
	{
		{	/* Unsafe/http.scm 666 */
			{	/* Unsafe/http.scm 666 */
				obj_t BgL_ipz00_12415;

				BgL_ipz00_12415 = PROCEDURE_REF(BgL_envz00_12414, (int) (0L));
				return bgl_close_input_port(((obj_t) BgL_ipz00_12415));
			}
		}

	}



/* http-read-crlf */
	BGL_EXPORTED_DEF obj_t BGl_httpzd2readzd2crlfz00zz__httpz00(obj_t BgL_pz00_61)
	{
		{	/* Unsafe/http.scm 675 */
			{
				obj_t BgL_iportz00_7552;

				BgL_iportz00_7552 = BgL_pz00_61;
				{
					obj_t BgL_iportz00_7658;
					long BgL_lastzd2matchzd2_7659;
					long BgL_forwardz00_7660;
					long BgL_bufposz00_7661;
					obj_t BgL_iportz00_7639;
					long BgL_lastzd2matchzd2_7640;
					long BgL_forwardz00_7641;
					long BgL_bufposz00_7642;
					obj_t BgL_iportz00_7614;
					long BgL_lastzd2matchzd2_7615;
					long BgL_forwardz00_7616;
					long BgL_bufposz00_7617;
					obj_t BgL_iportz00_7589;
					long BgL_lastzd2matchzd2_7590;
					long BgL_forwardz00_7591;
					long BgL_bufposz00_7592;

					RGC_START_MATCH(BgL_iportz00_7552);
					{	/* Unsafe/http.scm 677 */
						long BgL_matchz00_7807;

						{	/* Unsafe/http.scm 677 */
							long BgL_arg5093z00_7818;
							long BgL_arg5094z00_7819;

							BgL_arg5093z00_7818 = RGC_BUFFER_FORWARD(BgL_iportz00_7552);
							BgL_arg5094z00_7819 = RGC_BUFFER_BUFPOS(BgL_iportz00_7552);
							BgL_iportz00_7589 = BgL_iportz00_7552;
							BgL_lastzd2matchzd2_7590 = 1L;
							BgL_forwardz00_7591 = BgL_arg5093z00_7818;
							BgL_bufposz00_7592 = BgL_arg5094z00_7819;
						BgL_zc3z04anonymousza34946ze3z87_7593:
							if ((BgL_forwardz00_7591 == BgL_bufposz00_7592))
								{	/* Unsafe/http.scm 677 */
									if (rgc_fill_buffer(BgL_iportz00_7589))
										{	/* Unsafe/http.scm 677 */
											long BgL_arg4949z00_7596;
											long BgL_arg4950z00_7597;

											BgL_arg4949z00_7596 =
												RGC_BUFFER_FORWARD(BgL_iportz00_7589);
											BgL_arg4950z00_7597 =
												RGC_BUFFER_BUFPOS(BgL_iportz00_7589);
											{
												long BgL_bufposz00_17664;
												long BgL_forwardz00_17663;

												BgL_forwardz00_17663 = BgL_arg4949z00_7596;
												BgL_bufposz00_17664 = BgL_arg4950z00_7597;
												BgL_bufposz00_7592 = BgL_bufposz00_17664;
												BgL_forwardz00_7591 = BgL_forwardz00_17663;
												goto BgL_zc3z04anonymousza34946ze3z87_7593;
											}
										}
									else
										{	/* Unsafe/http.scm 677 */
											BgL_matchz00_7807 = BgL_lastzd2matchzd2_7590;
										}
								}
							else
								{	/* Unsafe/http.scm 677 */
									int BgL_curz00_7598;

									BgL_curz00_7598 =
										RGC_BUFFER_GET_CHAR(BgL_iportz00_7589, BgL_forwardz00_7591);
									{	/* Unsafe/http.scm 677 */

										if (((long) (BgL_curz00_7598) == 13L))
											{	/* Unsafe/http.scm 677 */
												BgL_iportz00_7639 = BgL_iportz00_7589;
												BgL_lastzd2matchzd2_7640 = BgL_lastzd2matchzd2_7590;
												BgL_forwardz00_7641 = (1L + BgL_forwardz00_7591);
												BgL_bufposz00_7642 = BgL_bufposz00_7592;
											BgL_zc3z04anonymousza34973ze3z87_7643:
												{	/* Unsafe/http.scm 677 */
													long BgL_newzd2matchzd2_7644;

													RGC_STOP_MATCH(BgL_iportz00_7639,
														BgL_forwardz00_7641);
													BgL_newzd2matchzd2_7644 = 1L;
													if ((BgL_forwardz00_7641 == BgL_bufposz00_7642))
														{	/* Unsafe/http.scm 677 */
															if (rgc_fill_buffer(BgL_iportz00_7639))
																{	/* Unsafe/http.scm 677 */
																	long BgL_arg4976z00_7647;
																	long BgL_arg4977z00_7648;

																	BgL_arg4976z00_7647 =
																		RGC_BUFFER_FORWARD(BgL_iportz00_7639);
																	BgL_arg4977z00_7648 =
																		RGC_BUFFER_BUFPOS(BgL_iportz00_7639);
																	{
																		long BgL_bufposz00_17677;
																		long BgL_forwardz00_17676;

																		BgL_forwardz00_17676 = BgL_arg4976z00_7647;
																		BgL_bufposz00_17677 = BgL_arg4977z00_7648;
																		BgL_bufposz00_7642 = BgL_bufposz00_17677;
																		BgL_forwardz00_7641 = BgL_forwardz00_17676;
																		goto BgL_zc3z04anonymousza34973ze3z87_7643;
																	}
																}
															else
																{	/* Unsafe/http.scm 677 */
																	BgL_matchz00_7807 = BgL_newzd2matchzd2_7644;
																}
														}
													else
														{	/* Unsafe/http.scm 677 */
															int BgL_curz00_7649;

															BgL_curz00_7649 =
																RGC_BUFFER_GET_CHAR(BgL_iportz00_7639,
																BgL_forwardz00_7641);
															{	/* Unsafe/http.scm 677 */

																if (((long) (BgL_curz00_7649) == 10L))
																	{	/* Unsafe/http.scm 677 */
																		long BgL_arg4979z00_7651;

																		BgL_arg4979z00_7651 =
																			(1L + BgL_forwardz00_7641);
																		{	/* Unsafe/http.scm 677 */
																			long BgL_newzd2matchzd2_11845;

																			RGC_STOP_MATCH(BgL_iportz00_7639,
																				BgL_arg4979z00_7651);
																			BgL_newzd2matchzd2_11845 = 0L;
																			BgL_matchz00_7807 =
																				BgL_newzd2matchzd2_11845;
																	}}
																else
																	{	/* Unsafe/http.scm 677 */
																		BgL_matchz00_7807 = BgL_newzd2matchzd2_7644;
																	}
															}
														}
												}
											}
										else
											{	/* Unsafe/http.scm 677 */
												if (((long) (BgL_curz00_7598) == 10L))
													{	/* Unsafe/http.scm 677 */
														long BgL_arg4954z00_7602;

														BgL_arg4954z00_7602 = (1L + BgL_forwardz00_7591);
														{	/* Unsafe/http.scm 677 */
															long BgL_newzd2matchzd2_11777;

															RGC_STOP_MATCH(BgL_iportz00_7589,
																BgL_arg4954z00_7602);
															BgL_newzd2matchzd2_11777 = 0L;
															BgL_matchz00_7807 = BgL_newzd2matchzd2_11777;
													}}
												else
													{	/* Unsafe/http.scm 677 */
														bool_t BgL_test6738z00_17690;

														if (((long) (BgL_curz00_7598) == 9L))
															{	/* Unsafe/http.scm 677 */
																BgL_test6738z00_17690 = ((bool_t) 1);
															}
														else
															{	/* Unsafe/http.scm 677 */
																BgL_test6738z00_17690 =
																	((long) (BgL_curz00_7598) == 32L);
															}
														if (BgL_test6738z00_17690)
															{	/* Unsafe/http.scm 677 */
																BgL_iportz00_7614 = BgL_iportz00_7589;
																BgL_lastzd2matchzd2_7615 =
																	BgL_lastzd2matchzd2_7590;
																BgL_forwardz00_7616 =
																	(1L + BgL_forwardz00_7591);
																BgL_bufposz00_7617 = BgL_bufposz00_7592;
															BgL_zc3z04anonymousza34960ze3z87_7618:
																{	/* Unsafe/http.scm 677 */
																	long BgL_newzd2matchzd2_7619;

																	RGC_STOP_MATCH(BgL_iportz00_7614,
																		BgL_forwardz00_7616);
																	BgL_newzd2matchzd2_7619 = 1L;
																	if (
																		(BgL_forwardz00_7616 == BgL_bufposz00_7617))
																		{	/* Unsafe/http.scm 677 */
																			if (rgc_fill_buffer(BgL_iportz00_7614))
																				{	/* Unsafe/http.scm 677 */
																					long BgL_arg4963z00_7622;
																					long BgL_arg4964z00_7623;

																					BgL_arg4963z00_7622 =
																						RGC_BUFFER_FORWARD
																						(BgL_iportz00_7614);
																					BgL_arg4964z00_7623 =
																						RGC_BUFFER_BUFPOS
																						(BgL_iportz00_7614);
																					{
																						long BgL_bufposz00_17704;
																						long BgL_forwardz00_17703;

																						BgL_forwardz00_17703 =
																							BgL_arg4963z00_7622;
																						BgL_bufposz00_17704 =
																							BgL_arg4964z00_7623;
																						BgL_bufposz00_7617 =
																							BgL_bufposz00_17704;
																						BgL_forwardz00_7616 =
																							BgL_forwardz00_17703;
																						goto
																							BgL_zc3z04anonymousza34960ze3z87_7618;
																					}
																				}
																			else
																				{	/* Unsafe/http.scm 677 */
																					BgL_matchz00_7807 =
																						BgL_newzd2matchzd2_7619;
																				}
																		}
																	else
																		{	/* Unsafe/http.scm 677 */
																			int BgL_curz00_7624;

																			BgL_curz00_7624 =
																				RGC_BUFFER_GET_CHAR(BgL_iportz00_7614,
																				BgL_forwardz00_7616);
																			{	/* Unsafe/http.scm 677 */

																				if (((long) (BgL_curz00_7624) == 13L))
																					{	/* Unsafe/http.scm 677 */
																						long BgL_arg4966z00_7626;

																						BgL_arg4966z00_7626 =
																							(1L + BgL_forwardz00_7616);
																						{
																							long BgL_forwardz00_11802;
																							long BgL_bufposz00_11803;

																							BgL_forwardz00_11802 =
																								BgL_arg4966z00_7626;
																							BgL_bufposz00_11803 =
																								BgL_bufposz00_7617;
																						BgL_statezd28zd21295z00_11801:
																							if (
																								(BgL_forwardz00_11802 ==
																									BgL_bufposz00_11803))
																								{	/* Unsafe/http.scm 677 */
																									if (rgc_fill_buffer
																										(BgL_iportz00_7614))
																										{	/* Unsafe/http.scm 677 */
																											long BgL_arg4996z00_11806;
																											long BgL_arg4997z00_11807;

																											BgL_arg4996z00_11806 =
																												RGC_BUFFER_FORWARD
																												(BgL_iportz00_7614);
																											BgL_arg4997z00_11807 =
																												RGC_BUFFER_BUFPOS
																												(BgL_iportz00_7614);
																											{
																												long
																													BgL_bufposz00_17717;
																												long
																													BgL_forwardz00_17716;
																												BgL_forwardz00_17716 =
																													BgL_arg4996z00_11806;
																												BgL_bufposz00_17717 =
																													BgL_arg4997z00_11807;
																												BgL_bufposz00_11803 =
																													BgL_bufposz00_17717;
																												BgL_forwardz00_11802 =
																													BgL_forwardz00_17716;
																												goto
																													BgL_statezd28zd21295z00_11801;
																											}
																										}
																									else
																										{	/* Unsafe/http.scm 677 */
																											BgL_matchz00_7807 =
																												BgL_newzd2matchzd2_7619;
																										}
																								}
																							else
																								{	/* Unsafe/http.scm 677 */
																									int BgL_curz00_11808;

																									BgL_curz00_11808 =
																										RGC_BUFFER_GET_CHAR
																										(BgL_iportz00_7614,
																										BgL_forwardz00_11802);
																									{	/* Unsafe/http.scm 677 */

																										if (
																											((long) (BgL_curz00_11808)
																												== 10L))
																											{	/* Unsafe/http.scm 677 */
																												long
																													BgL_arg4999z00_11810;
																												BgL_arg4999z00_11810 =
																													(1L +
																													BgL_forwardz00_11802);
																												{	/* Unsafe/http.scm 677 */
																													long
																														BgL_newzd2matchzd2_11820;
																													RGC_STOP_MATCH
																														(BgL_iportz00_7614,
																														BgL_arg4999z00_11810);
																													BgL_newzd2matchzd2_11820
																														= 0L;
																													BgL_matchz00_7807 =
																														BgL_newzd2matchzd2_11820;
																											}}
																										else
																											{	/* Unsafe/http.scm 677 */
																												BgL_matchz00_7807 =
																													BgL_newzd2matchzd2_7619;
																											}
																									}
																								}
																						}
																					}
																				else
																					{	/* Unsafe/http.scm 677 */
																						if (
																							((long) (BgL_curz00_7624) == 10L))
																							{	/* Unsafe/http.scm 677 */
																								long BgL_arg4968z00_7628;

																								BgL_arg4968z00_7628 =
																									(1L + BgL_forwardz00_7616);
																								{	/* Unsafe/http.scm 677 */
																									long BgL_newzd2matchzd2_11825;

																									RGC_STOP_MATCH
																										(BgL_iportz00_7614,
																										BgL_arg4968z00_7628);
																									BgL_newzd2matchzd2_11825 = 0L;
																									BgL_matchz00_7807 =
																										BgL_newzd2matchzd2_11825;
																							}}
																						else
																							{	/* Unsafe/http.scm 677 */
																								bool_t BgL_test6747z00_17729;

																								if (
																									((long) (BgL_curz00_7624) ==
																										9L))
																									{	/* Unsafe/http.scm 677 */
																										BgL_test6747z00_17729 =
																											((bool_t) 1);
																									}
																								else
																									{	/* Unsafe/http.scm 677 */
																										BgL_test6747z00_17729 =
																											(
																											(long) (BgL_curz00_7624)
																											== 32L);
																									}
																								if (BgL_test6747z00_17729)
																									{	/* Unsafe/http.scm 677 */
																										BgL_iportz00_7658 =
																											BgL_iportz00_7614;
																										BgL_lastzd2matchzd2_7659 =
																											BgL_newzd2matchzd2_7619;
																										BgL_forwardz00_7660 =
																											(1L +
																											BgL_forwardz00_7616);
																										BgL_bufposz00_7661 =
																											BgL_bufposz00_7617;
																									BgL_zc3z04anonymousza34981ze3z87_7662:
																										if (
																											(BgL_forwardz00_7660 ==
																												BgL_bufposz00_7661))
																											{	/* Unsafe/http.scm 677 */
																												if (rgc_fill_buffer
																													(BgL_iportz00_7658))
																													{	/* Unsafe/http.scm 677 */
																														long
																															BgL_arg4984z00_7665;
																														long
																															BgL_arg4985z00_7666;
																														BgL_arg4984z00_7665
																															=
																															RGC_BUFFER_FORWARD
																															(BgL_iportz00_7658);
																														BgL_arg4985z00_7666
																															=
																															RGC_BUFFER_BUFPOS
																															(BgL_iportz00_7658);
																														{
																															long
																																BgL_bufposz00_17742;
																															long
																																BgL_forwardz00_17741;
																															BgL_forwardz00_17741
																																=
																																BgL_arg4984z00_7665;
																															BgL_bufposz00_17742
																																=
																																BgL_arg4985z00_7666;
																															BgL_bufposz00_7661
																																=
																																BgL_bufposz00_17742;
																															BgL_forwardz00_7660
																																=
																																BgL_forwardz00_17741;
																															goto
																																BgL_zc3z04anonymousza34981ze3z87_7662;
																														}
																													}
																												else
																													{	/* Unsafe/http.scm 677 */
																														BgL_matchz00_7807 =
																															BgL_lastzd2matchzd2_7659;
																													}
																											}
																										else
																											{	/* Unsafe/http.scm 677 */
																												int BgL_curz00_7667;

																												BgL_curz00_7667 =
																													RGC_BUFFER_GET_CHAR
																													(BgL_iportz00_7658,
																													BgL_forwardz00_7660);
																												{	/* Unsafe/http.scm 677 */

																													if (
																														((long)
																															(BgL_curz00_7667)
																															== 13L))
																														{	/* Unsafe/http.scm 677 */
																															long
																																BgL_arg4987z00_7669;
																															BgL_arg4987z00_7669
																																=
																																(1L +
																																BgL_forwardz00_7660);
																															{
																																long
																																	BgL_forwardz00_11861;
																																long
																																	BgL_bufposz00_11862;
																																BgL_forwardz00_11861
																																	=
																																	BgL_arg4987z00_7669;
																																BgL_bufposz00_11862
																																	=
																																	BgL_bufposz00_7661;
																															BgL_statezd28zd21295z00_11860:
																																if (
																																	(BgL_forwardz00_11861
																																		==
																																		BgL_bufposz00_11862))
																																	{	/* Unsafe/http.scm 677 */
																																		if (rgc_fill_buffer(BgL_iportz00_7658))
																																			{	/* Unsafe/http.scm 677 */
																																				long
																																					BgL_arg4996z00_11865;
																																				long
																																					BgL_arg4997z00_11866;
																																				BgL_arg4996z00_11865
																																					=
																																					RGC_BUFFER_FORWARD
																																					(BgL_iportz00_7658);
																																				BgL_arg4997z00_11866
																																					=
																																					RGC_BUFFER_BUFPOS
																																					(BgL_iportz00_7658);
																																				{
																																					long
																																						BgL_bufposz00_17755;
																																					long
																																						BgL_forwardz00_17754;
																																					BgL_forwardz00_17754
																																						=
																																						BgL_arg4996z00_11865;
																																					BgL_bufposz00_17755
																																						=
																																						BgL_arg4997z00_11866;
																																					BgL_bufposz00_11862
																																						=
																																						BgL_bufposz00_17755;
																																					BgL_forwardz00_11861
																																						=
																																						BgL_forwardz00_17754;
																																					goto
																																						BgL_statezd28zd21295z00_11860;
																																				}
																																			}
																																		else
																																			{	/* Unsafe/http.scm 677 */
																																				BgL_matchz00_7807
																																					=
																																					BgL_lastzd2matchzd2_7659;
																																			}
																																	}
																																else
																																	{	/* Unsafe/http.scm 677 */
																																		int
																																			BgL_curz00_11867;
																																		BgL_curz00_11867
																																			=
																																			RGC_BUFFER_GET_CHAR
																																			(BgL_iportz00_7658,
																																			BgL_forwardz00_11861);
																																		{	/* Unsafe/http.scm 677 */

																																			if (
																																				((long)
																																					(BgL_curz00_11867)
																																					==
																																					10L))
																																				{	/* Unsafe/http.scm 677 */
																																					long
																																						BgL_arg4999z00_11869;
																																					BgL_arg4999z00_11869
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_11861);
																																					{	/* Unsafe/http.scm 677 */
																																						long
																																							BgL_newzd2matchzd2_11879;
																																						RGC_STOP_MATCH
																																							(BgL_iportz00_7658,
																																							BgL_arg4999z00_11869);
																																						BgL_newzd2matchzd2_11879
																																							=
																																							0L;
																																						BgL_matchz00_7807
																																							=
																																							BgL_newzd2matchzd2_11879;
																																				}}
																																			else
																																				{	/* Unsafe/http.scm 677 */
																																					BgL_matchz00_7807
																																						=
																																						BgL_lastzd2matchzd2_7659;
																																				}
																																		}
																																	}
																															}
																														}
																													else
																														{	/* Unsafe/http.scm 677 */
																															if (
																																((long)
																																	(BgL_curz00_7667)
																																	== 10L))
																																{	/* Unsafe/http.scm 677 */
																																	long
																																		BgL_arg4989z00_7671;
																																	BgL_arg4989z00_7671
																																		=
																																		(1L +
																																		BgL_forwardz00_7660);
																																	{	/* Unsafe/http.scm 677 */
																																		long
																																			BgL_newzd2matchzd2_11884;
																																		RGC_STOP_MATCH
																																			(BgL_iportz00_7658,
																																			BgL_arg4989z00_7671);
																																		BgL_newzd2matchzd2_11884
																																			= 0L;
																																		BgL_matchz00_7807
																																			=
																																			BgL_newzd2matchzd2_11884;
																																}}
																															else
																																{	/* Unsafe/http.scm 677 */
																																	bool_t
																																		BgL_test6756z00_17767;
																																	if (((long)
																																			(BgL_curz00_7667)
																																			== 9L))
																																		{	/* Unsafe/http.scm 677 */
																																			BgL_test6756z00_17767
																																				=
																																				(
																																				(bool_t)
																																				1);
																																		}
																																	else
																																		{	/* Unsafe/http.scm 677 */
																																			BgL_test6756z00_17767
																																				=
																																				((long)
																																				(BgL_curz00_7667)
																																				== 32L);
																																		}
																																	if (BgL_test6756z00_17767)
																																		{
																																			long
																																				BgL_forwardz00_17773;
																																			BgL_forwardz00_17773
																																				=
																																				(1L +
																																				BgL_forwardz00_7660);
																																			BgL_forwardz00_7660
																																				=
																																				BgL_forwardz00_17773;
																																			goto
																																				BgL_zc3z04anonymousza34981ze3z87_7662;
																																		}
																																	else
																																		{	/* Unsafe/http.scm 677 */
																																			BgL_matchz00_7807
																																				=
																																				BgL_lastzd2matchzd2_7659;
																																		}
																																}
																														}
																												}
																											}
																									}
																								else
																									{	/* Unsafe/http.scm 677 */
																										BgL_matchz00_7807 =
																											BgL_newzd2matchzd2_7619;
																									}
																							}
																					}
																			}
																		}
																}
															}
														else
															{	/* Unsafe/http.scm 677 */
																long BgL_arg4958z00_7606;

																BgL_arg4958z00_7606 =
																	(1L + BgL_forwardz00_7591);
																{	/* Unsafe/http.scm 677 */
																	long BgL_newzd2matchzd2_11784;

																	RGC_STOP_MATCH(BgL_iportz00_7589,
																		BgL_arg4958z00_7606);
																	BgL_newzd2matchzd2_11784 = 1L;
																	BgL_matchz00_7807 = BgL_newzd2matchzd2_11784;
						}}}}}}}
						RGC_SET_FILEPOS(BgL_iportz00_7552);
						switch (BgL_matchz00_7807)
							{
							case 1L:

								{	/* Unsafe/http.scm 681 */
									BgL_z62iozd2parsezd2errorz62_bglt BgL_arg5087z00_7810;

									{	/* Unsafe/http.scm 681 */
										BgL_z62iozd2parsezd2errorz62_bglt BgL_new1299z00_7811;

										{	/* Unsafe/http.scm 681 */
											BgL_z62iozd2parsezd2errorz62_bglt BgL_new1298z00_7816;

											BgL_new1298z00_7816 =
												((BgL_z62iozd2parsezd2errorz62_bglt)
												BOBJECT(GC_MALLOC(sizeof(struct
															BgL_z62iozd2parsezd2errorz62_bgl))));
											{	/* Unsafe/http.scm 681 */
												long BgL_arg5092z00_7817;

												BgL_arg5092z00_7817 =
													BGL_CLASS_NUM
													(BGl_z62iozd2parsezd2errorz62zz__objectz00);
												BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
														BgL_new1298z00_7816), BgL_arg5092z00_7817);
											}
											BgL_new1299z00_7811 = BgL_new1298z00_7816;
										}
										((((BgL_z62exceptionz62_bglt) COBJECT(
														((BgL_z62exceptionz62_bglt) BgL_new1299z00_7811)))->
												BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
										((((BgL_z62exceptionz62_bglt)
													COBJECT(((BgL_z62exceptionz62_bglt)
															BgL_new1299z00_7811)))->BgL_locationz00) =
											((obj_t) BFALSE), BUNSPEC);
										{
											obj_t BgL_auxz00_17788;

											{	/* Unsafe/http.scm 681 */
												obj_t BgL_arg5088z00_7812;

												{	/* Unsafe/http.scm 681 */
													obj_t BgL_arg5089z00_7813;

													{	/* Unsafe/http.scm 681 */
														obj_t BgL_classz00_11938;

														BgL_classz00_11938 =
															BGl_z62iozd2parsezd2errorz62zz__objectz00;
														BgL_arg5089z00_7813 =
															BGL_CLASS_ALL_FIELDS(BgL_classz00_11938);
													}
													BgL_arg5088z00_7812 =
														VECTOR_REF(BgL_arg5089z00_7813, 2L);
												}
												BgL_auxz00_17788 =
													BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
													(BgL_arg5088z00_7812);
											}
											((((BgL_z62exceptionz62_bglt) COBJECT(
															((BgL_z62exceptionz62_bglt)
																BgL_new1299z00_7811)))->BgL_stackz00) =
												((obj_t) BgL_auxz00_17788), BUNSPEC);
										}
										((((BgL_z62errorz62_bglt) COBJECT(
														((BgL_z62errorz62_bglt) BgL_new1299z00_7811)))->
												BgL_procz00) =
											((obj_t) BGl_symbol5745z00zz__httpz00), BUNSPEC);
										((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
															BgL_new1299z00_7811)))->BgL_msgz00) =
											((obj_t) BGl_string5602z00zz__httpz00), BUNSPEC);
										{
											obj_t BgL_auxz00_17798;

											{	/* Unsafe/http.scm 684 */
												obj_t BgL_arg5090z00_7814;

												{	/* Unsafe/http.scm 677 */
													bool_t BgL_test6758z00_17800;

													{	/* Unsafe/http.scm 677 */
														long BgL_arg5080z00_7797;

														BgL_arg5080z00_7797 =
															RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_7552);
														BgL_test6758z00_17800 = (BgL_arg5080z00_7797 == 0L);
													}
													if (BgL_test6758z00_17800)
														{	/* Unsafe/http.scm 677 */
															BgL_arg5090z00_7814 = BEOF;
														}
													else
														{	/* Unsafe/http.scm 677 */
															BgL_arg5090z00_7814 =
																BCHAR(RGC_BUFFER_CHARACTER(BgL_iportz00_7552));
														}
												}
												BgL_auxz00_17798 =
													BGl_httpzd2parsezd2errorzd2msgzd2zz__httpz00
													(BgL_arg5090z00_7814, BgL_iportz00_7552);
											}
											((((BgL_z62errorz62_bglt) COBJECT(
															((BgL_z62errorz62_bglt) BgL_new1299z00_7811)))->
													BgL_objz00) = ((obj_t) BgL_auxz00_17798), BUNSPEC);
										}
										BgL_arg5087z00_7810 = BgL_new1299z00_7811;
									}
									return
										BGl_raisez00zz__errorz00(((obj_t) BgL_arg5087z00_7810));
								}
								break;
							case 0L:

								return BGl_string5672z00zz__httpz00;
								break;
							default:
								return
									BGl_errorz00zz__errorz00(BGl_string5600z00zz__httpz00,
									BGl_string5601z00zz__httpz00, BINT(BgL_matchz00_7807));
							}
					}
				}
			}
		}

	}



/* &http-read-crlf */
	obj_t BGl_z62httpzd2readzd2crlfz62zz__httpz00(obj_t BgL_envz00_12417,
		obj_t BgL_pz00_12418)
	{
		{	/* Unsafe/http.scm 675 */
			{	/* Unsafe/http.scm 677 */
				obj_t BgL_auxz00_17812;

				if (INPUT_PORTP(BgL_pz00_12418))
					{	/* Unsafe/http.scm 677 */
						BgL_auxz00_17812 = BgL_pz00_12418;
					}
				else
					{
						obj_t BgL_auxz00_17815;

						BgL_auxz00_17815 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5663z00zz__httpz00,
							BINT(23375L), BGl_string5747z00zz__httpz00,
							BGl_string5705z00zz__httpz00, BgL_pz00_12418);
						FAILURE(BgL_auxz00_17815, BFALSE, BFALSE);
					}
				return BGl_httpzd2readzd2crlfz00zz__httpz00(BgL_auxz00_17812);
			}
		}

	}



/* 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_12425;

				BgL_contentzd2lengthzd2_12425 = MAKE_CELL(BgL_contentzd2lengthzd2_63);
				{	/* Unsafe/http.scm 741 */
					obj_t BgL_bufz00_7856;

					{	/* Ieee/string.scm 168 */

						BgL_bufz00_7856 = make_string(8192L, ((unsigned char) ' '));
					}
					{	/* Unsafe/http.scm 742 */
						obj_t BgL_zc3z04anonymousza35095ze3z87_12419;

						BgL_zc3z04anonymousza35095ze3z87_12419 =
							MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza35095ze3ze5zz__httpz00,
							(int) (0L), (int) (3L));
						PROCEDURE_SET(BgL_zc3z04anonymousza35095ze3z87_12419,
							(int) (0L), ((obj_t) BgL_contentzd2lengthzd2_12425));
						PROCEDURE_SET(BgL_zc3z04anonymousza35095ze3z87_12419,
							(int) (1L), BgL_bufz00_7856);
						PROCEDURE_SET(BgL_zc3z04anonymousza35095ze3z87_12419,
							(int) (2L), BgL_portz00_62);
						return BgL_zc3z04anonymousza35095ze3z87_12419;
					}
				}
			}
		}

	}



/* &<@anonymous:5095> */
	obj_t BGl_z62zc3z04anonymousza35095ze3ze5zz__httpz00(obj_t BgL_envz00_12420)
	{
		{	/* Unsafe/http.scm 742 */
			{	/* Unsafe/http.scm 743 */
				obj_t BgL_contentzd2lengthzd2_12421;
				obj_t BgL_bufz00_12422;
				obj_t BgL_portz00_12423;

				BgL_contentzd2lengthzd2_12421 =
					PROCEDURE_REF(BgL_envz00_12420, (int) (0L));
				BgL_bufz00_12422 =
					((obj_t) PROCEDURE_REF(BgL_envz00_12420, (int) (1L)));
				BgL_portz00_12423 =
					((obj_t) PROCEDURE_REF(BgL_envz00_12420, (int) (2L)));
				{	/* Unsafe/http.scm 743 */
					bool_t BgL_test6760z00_17839;

					{	/* Unsafe/http.scm 743 */
						long BgL_n1z00_12958;

						{	/* Unsafe/http.scm 743 */
							obj_t BgL_tmpz00_17840;

							BgL_tmpz00_17840 = CELL_REF(BgL_contentzd2lengthzd2_12421);
							BgL_n1z00_12958 = BELONG_TO_LONG(BgL_tmpz00_17840);
						}
						BgL_test6760z00_17839 = (BgL_n1z00_12958 > ((long) 0));
					}
					if (BgL_test6760z00_17839)
						{	/* Unsafe/http.scm 744 */
							long BgL_nz00_12959;

							{	/* Unsafe/http.scm 744 */
								long BgL_bz00_12960;

								{	/* Unsafe/http.scm 744 */
									long BgL_xz00_12961;

									{	/* Unsafe/http.scm 744 */
										obj_t BgL_tmpz00_17843;

										BgL_tmpz00_17843 = CELL_REF(BgL_contentzd2lengthzd2_12421);
										BgL_xz00_12961 = BELONG_TO_LONG(BgL_tmpz00_17843);
									}
									BgL_bz00_12960 = (long) (BgL_xz00_12961);
								}
								if ((8192L < BgL_bz00_12960))
									{	/* Unsafe/http.scm 744 */
										BgL_nz00_12959 = 8192L;
									}
								else
									{	/* Unsafe/http.scm 744 */
										BgL_nz00_12959 = BgL_bz00_12960;
									}
							}
							{	/* Unsafe/http.scm 744 */
								obj_t BgL_mz00_12962;

								BgL_mz00_12962 =
									BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00(BgL_bufz00_12422,
									BINT(BgL_nz00_12959), BgL_portz00_12423);
								{	/* Unsafe/http.scm 745 */

									{	/* Unsafe/http.scm 746 */
										obj_t BgL_auxz00_12963;

										{	/* Unsafe/http.scm 746 */
											long BgL_arg5097z00_12964;

											{	/* Unsafe/http.scm 746 */
												long BgL_tmpz00_17850;

												BgL_tmpz00_17850 = (long) CINT(BgL_mz00_12962);
												BgL_arg5097z00_12964 = (long) (BgL_tmpz00_17850);
											}
											{	/* Unsafe/http.scm 746 */
												long BgL_res5523z00_12965;

												{	/* Unsafe/http.scm 746 */
													long BgL_za71za7_12966;

													{	/* Unsafe/http.scm 746 */
														obj_t BgL_tmpz00_17853;

														BgL_tmpz00_17853 =
															CELL_REF(BgL_contentzd2lengthzd2_12421);
														BgL_za71za7_12966 =
															BELONG_TO_LONG(BgL_tmpz00_17853);
													}
													{	/* Unsafe/http.scm 746 */
														long BgL_tmpz00_17855;

														BgL_tmpz00_17855 =
															(BgL_za71za7_12966 - BgL_arg5097z00_12964);
														BgL_res5523z00_12965 = (long) (BgL_tmpz00_17855);
												}}
												BgL_auxz00_12963 = make_belong(BgL_res5523z00_12965);
										}}
										CELL_SET(BgL_contentzd2lengthzd2_12421, BgL_auxz00_12963);
									}
									if (((long) CINT(BgL_mz00_12962) < 8192L))
										{	/* Unsafe/http.scm 747 */
											return
												c_substring(BgL_bufz00_12422, 0L,
												(long) CINT(BgL_mz00_12962));
										}
									else
										{	/* Unsafe/http.scm 747 */
											return BgL_bufz00_12422;
										}
								}
							}
						}
					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_12443;

				BgL_statez00_12443 = MAKE_CELL(BGl_symbol5748z00zz__httpz00);
				{	/* Unsafe/http.scm 755 */
					obj_t BgL_sza7za7_12444;

					BgL_sza7za7_12444 = MAKE_CELL(BINT(0L));
					{	/* Unsafe/http.scm 757 */
						obj_t BgL_bufferz00_7871;

						BgL_bufferz00_7871 = make_string(512L, ((unsigned char) '\000'));
						{	/* Unsafe/http.scm 758 */

							{	/* Unsafe/http.scm 759 */
								obj_t BgL_zc3z04anonymousza35100ze3z87_12426;

								BgL_zc3z04anonymousza35100ze3z87_12426 =
									MAKE_FX_PROCEDURE
									(BGl_z62zc3z04anonymousza35100ze3ze5zz__httpz00, (int) (0L),
									(int) (5L));
								PROCEDURE_SET(BgL_zc3z04anonymousza35100ze3z87_12426,
									(int) (0L), ((obj_t) BgL_statez00_12443));
								PROCEDURE_SET(BgL_zc3z04anonymousza35100ze3z87_12426,
									(int) (1L), BgL_ipz00_64);
								PROCEDURE_SET(BgL_zc3z04anonymousza35100ze3z87_12426,
									(int) (2L), ((obj_t) BgL_sza7za7_12444));
								PROCEDURE_SET(BgL_zc3z04anonymousza35100ze3z87_12426,
									(int) (3L), BgL_bufferz00_7871);
								PROCEDURE_SET(BgL_zc3z04anonymousza35100ze3z87_12426,
									(int) (4L), BINT(512L));
								return BgL_zc3z04anonymousza35100ze3z87_12426;
							}
						}
					}
				}
			}
		}

	}



/* &http-chunks->procedure */
	obj_t BGl_z62httpzd2chunkszd2ze3procedurez81zz__httpz00(obj_t
		BgL_envz00_12427, obj_t BgL_ipz00_12428)
	{
		{	/* Unsafe/http.scm 754 */
			{	/* Unsafe/http.scm 755 */
				obj_t BgL_auxz00_17882;

				if (INPUT_PORTP(BgL_ipz00_12428))
					{	/* Unsafe/http.scm 755 */
						BgL_auxz00_17882 = BgL_ipz00_12428;
					}
				else
					{
						obj_t BgL_auxz00_17885;

						BgL_auxz00_17885 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5663z00zz__httpz00,
							BINT(26324L), BGl_string5750z00zz__httpz00,
							BGl_string5705z00zz__httpz00, BgL_ipz00_12428);
						FAILURE(BgL_auxz00_17885, BFALSE, BFALSE);
					}
				return BGl_httpzd2chunkszd2ze3procedureze3zz__httpz00(BgL_auxz00_17882);
			}
		}

	}



/* &<@anonymous:5100> */
	obj_t BGl_z62zc3z04anonymousza35100ze3ze5zz__httpz00(obj_t BgL_envz00_12429)
	{
		{	/* Unsafe/http.scm 759 */
			{	/* Unsafe/http.scm 761 */
				obj_t BgL_statez00_12430;
				obj_t BgL_ipz00_12431;
				obj_t BgL_sza7za7_12432;
				obj_t BgL_bufferz00_12433;
				long BgL_bufsza7za7_12434;

				BgL_statez00_12430 = PROCEDURE_REF(BgL_envz00_12429, (int) (0L));
				BgL_ipz00_12431 = ((obj_t) PROCEDURE_REF(BgL_envz00_12429, (int) (1L)));
				BgL_sza7za7_12432 = PROCEDURE_REF(BgL_envz00_12429, (int) (2L));
				BgL_bufferz00_12433 =
					((obj_t) PROCEDURE_REF(BgL_envz00_12429, (int) (3L)));
				BgL_bufsza7za7_12434 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_12429, (int) (4L)));
				{

				BgL_loopz00_12967:
					{	/* Unsafe/http.scm 761 */
						obj_t BgL_casezd2valuezd2_12968;

						BgL_casezd2valuezd2_12968 = CELL_REF(BgL_statez00_12430);
						if ((BgL_casezd2valuezd2_12968 == BGl_symbol5751z00zz__httpz00))
							{	/* Unsafe/http.scm 761 */
								return BFALSE;
							}
						else
							{	/* Unsafe/http.scm 761 */
								if ((BgL_casezd2valuezd2_12968 == BGl_symbol5753z00zz__httpz00))
									{	/* Unsafe/http.scm 765 */
										obj_t BgL_lz00_12969;

										BgL_lz00_12969 =
											BGl_httpzd2readzd2linez00zz__httpz00(BgL_ipz00_12431);
										if (EOF_OBJECTP(BgL_lz00_12969))
											{	/* Unsafe/http.scm 767 */
												{	/* Unsafe/http.scm 768 */
													obj_t BgL_auxz00_12970;

													BgL_auxz00_12970 = BGl_symbol5751z00zz__httpz00;
													CELL_SET(BgL_statez00_12430, BgL_auxz00_12970);
												}
												return BGl_string5701z00zz__httpz00;
											}
										else
											{	/* Unsafe/http.scm 770 */
												bool_t BgL_test6767z00_17910;

												{	/* Unsafe/http.scm 770 */
													bool_t BgL_test6768z00_17911;

													{	/* Unsafe/http.scm 770 */
														long BgL_l1z00_12971;

														BgL_l1z00_12971 =
															STRING_LENGTH(((obj_t) BgL_lz00_12969));
														if ((BgL_l1z00_12971 == 2L))
															{	/* Unsafe/http.scm 770 */
																int BgL_arg5248z00_12972;

																{	/* Unsafe/http.scm 770 */
																	char *BgL_auxz00_17919;
																	char *BgL_tmpz00_17916;

																	BgL_auxz00_17919 =
																		BSTRING_TO_STRING
																		(BGl_string5672z00zz__httpz00);
																	BgL_tmpz00_17916 =
																		BSTRING_TO_STRING(((obj_t) BgL_lz00_12969));
																	BgL_arg5248z00_12972 =
																		memcmp(BgL_tmpz00_17916, BgL_auxz00_17919,
																		BgL_l1z00_12971);
																}
																BgL_test6768z00_17911 =
																	((long) (BgL_arg5248z00_12972) == 0L);
															}
														else
															{	/* Unsafe/http.scm 770 */
																BgL_test6768z00_17911 = ((bool_t) 0);
															}
													}
													if (BgL_test6768z00_17911)
														{	/* Unsafe/http.scm 770 */
															BgL_test6767z00_17910 = ((bool_t) 1);
														}
													else
														{	/* Unsafe/http.scm 770 */
															long BgL_l1z00_12973;

															BgL_l1z00_12973 =
																STRING_LENGTH(((obj_t) BgL_lz00_12969));
															if ((BgL_l1z00_12973 == 1L))
																{	/* Unsafe/http.scm 770 */
																	int BgL_arg5248z00_12974;

																	{	/* Unsafe/http.scm 770 */
																		char *BgL_auxz00_17931;
																		char *BgL_tmpz00_17928;

																		BgL_auxz00_17931 =
																			BSTRING_TO_STRING
																			(BGl_string5755z00zz__httpz00);
																		BgL_tmpz00_17928 =
																			BSTRING_TO_STRING(((obj_t)
																				BgL_lz00_12969));
																		BgL_arg5248z00_12974 =
																			memcmp(BgL_tmpz00_17928, BgL_auxz00_17931,
																			BgL_l1z00_12973);
																	}
																	BgL_test6767z00_17910 =
																		((long) (BgL_arg5248z00_12974) == 0L);
																}
															else
																{	/* Unsafe/http.scm 770 */
																	BgL_test6767z00_17910 = ((bool_t) 0);
																}
														}
												}
												if (BgL_test6767z00_17910)
													{	/* Unsafe/http.scm 770 */
														{	/* Unsafe/http.scm 771 */
															obj_t BgL_auxz00_12975;

															BgL_auxz00_12975 = BGl_symbol5751z00zz__httpz00;
															CELL_SET(BgL_statez00_12430, BgL_auxz00_12975);
														}
														return BgL_lz00_12969;
													}
												else
													{	/* Unsafe/http.scm 770 */
														return BgL_lz00_12969;
													}
											}
									}
								else
									{	/* Unsafe/http.scm 761 */
										if (
											(BgL_casezd2valuezd2_12968 ==
												BGl_symbol5756z00zz__httpz00))
											{	/* Unsafe/http.scm 761 */
												if (((long) CINT(CELL_REF(BgL_sza7za7_12432)) == 0L))
													{	/* Unsafe/http.scm 777 */
														BGl_httpzd2readzd2crlfz00zz__httpz00
															(BgL_ipz00_12431);
														{	/* Unsafe/http.scm 779 */
															obj_t BgL_auxz00_12976;

															BgL_auxz00_12976 = BGl_symbol5748z00zz__httpz00;
															CELL_SET(BgL_statez00_12430, BgL_auxz00_12976);
														}
														goto BgL_loopz00_12967;
													}
												else
													{	/* Unsafe/http.scm 777 */
														if (
															((long) CINT(CELL_REF(BgL_sza7za7_12432)) <
																BgL_bufsza7za7_12434))
															{	/* Unsafe/http.scm 782 */
																obj_t BgL_sz00_12977;

																BgL_sz00_12977 =
																	BGl_readzd2charszd2zz__r4_input_6_10_2z00
																	(CELL_REF(BgL_sza7za7_12432),
																	BgL_ipz00_12431);
																{	/* Unsafe/http.scm 783 */
																	obj_t BgL_auxz00_12978;

																	BgL_auxz00_12978 =
																		SUBFX(CELL_REF(BgL_sza7za7_12432),
																		BINT(STRING_LENGTH(
																				((obj_t) BgL_sz00_12977))));
																	CELL_SET(BgL_sza7za7_12432, BgL_auxz00_12978);
																}
																return BgL_sz00_12977;
															}
														else
															{	/* Unsafe/http.scm 786 */
																obj_t BgL_sz00_12979;

																BgL_sz00_12979 =
																	BGl_readzd2charsz12zc0zz__r4_input_6_10_2z00
																	(BgL_bufferz00_12433, BINT(512L),
																	BgL_ipz00_12431);
																{	/* Unsafe/http.scm 787 */
																	obj_t BgL_auxz00_12980;

																	BgL_auxz00_12980 =
																		SUBFX(CELL_REF(BgL_sza7za7_12432),
																		BgL_sz00_12979);
																	CELL_SET(BgL_sza7za7_12432, BgL_auxz00_12980);
																}
																if (
																	((long) CINT(BgL_sz00_12979) ==
																		BgL_bufsza7za7_12434))
																	{	/* Unsafe/http.scm 788 */
																		return BgL_bufferz00_12433;
																	}
																else
																	{	/* Unsafe/http.scm 788 */
																		return
																			c_substring(BgL_bufferz00_12433, 0L,
																			(long) CINT(BgL_sz00_12979));
											}}}}
										else
											{	/* Unsafe/http.scm 761 */
												{	/* Unsafe/http.scm 792 */
													obj_t BgL_auxz00_12981;

													BgL_auxz00_12981 =
														BGl_z62zc3z04anonymousza31825ze3ze5zz__httpz00
														(BGl_za2chunkzd2siza7ezd2grammarza2za7zz__httpz00,
														BgL_ipz00_12431, BFALSE);
													CELL_SET(BgL_sza7za7_12432, BgL_auxz00_12981);
												}
												if (((long) CINT(CELL_REF(BgL_sza7za7_12432)) > 0L))
													{	/* Unsafe/http.scm 793 */
														{	/* Unsafe/http.scm 796 */
															obj_t BgL_auxz00_12982;

															BgL_auxz00_12982 = BGl_symbol5756z00zz__httpz00;
															CELL_SET(BgL_statez00_12430, BgL_auxz00_12982);
														}
														goto BgL_loopz00_12967;
													}
												else
													{	/* Unsafe/http.scm 793 */
														{	/* Unsafe/http.scm 800 */
															obj_t BgL_auxz00_12983;

															BgL_auxz00_12983 = BGl_symbol5753z00zz__httpz00;
															CELL_SET(BgL_statez00_12430, BgL_auxz00_12983);
														}
														goto BgL_loopz00_12967;
													}
											}
									}
							}
					}
				}
			}
		}

	}



/* 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_7892;

				{	/* Unsafe/http.scm 807 */
					obj_t BgL_arg5115z00_7897;

					BgL_arg5115z00_7897 =
						BGl_httpzd2chunkszd2ze3procedureze3zz__httpz00(BgL_ipz00_65);
					{	/* Ieee/port.scm 468 */

						BgL_ip2z00_7892 =
							BGl_openzd2inputzd2procedurez00zz__r4_ports_6_10_1z00
							(BgL_arg5115z00_7897, BTRUE);
					}
				}
				{	/* Unsafe/http.scm 808 */
					obj_t BgL_zc3z04anonymousza35114ze3z87_12447;

					BgL_zc3z04anonymousza35114ze3z87_12447 =
						MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza35114ze3ze5zz__httpz00,
						(int) (1L), (int) (1L));
					PROCEDURE_SET(BgL_zc3z04anonymousza35114ze3z87_12447,
						(int) (0L), BgL_ipz00_65);
					BGl_inputzd2portzd2closezd2hookzd2setz12z12zz__r4_ports_6_10_1z00
						(BgL_ipz00_65, BgL_zc3z04anonymousza35114ze3z87_12447);
				}
				return BgL_ip2z00_7892;
			}
		}

	}



/* &http-chunks->port */
	obj_t BGl_z62httpzd2chunkszd2ze3portz81zz__httpz00(obj_t BgL_envz00_12448,
		obj_t BgL_ipz00_12449)
	{
		{	/* Unsafe/http.scm 806 */
			{	/* Unsafe/http.scm 807 */
				obj_t BgL_auxz00_17974;

				if (INPUT_PORTP(BgL_ipz00_12449))
					{	/* Unsafe/http.scm 807 */
						BgL_auxz00_17974 = BgL_ipz00_12449;
					}
				else
					{
						obj_t BgL_auxz00_17977;

						BgL_auxz00_17977 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5663z00zz__httpz00,
							BINT(27661L), BGl_string5758z00zz__httpz00,
							BGl_string5705z00zz__httpz00, BgL_ipz00_12449);
						FAILURE(BgL_auxz00_17977, BFALSE, BFALSE);
					}
				return BGl_httpzd2chunkszd2ze3portze3zz__httpz00(BgL_auxz00_17974);
			}
		}

	}



/* &<@anonymous:5114> */
	obj_t BGl_z62zc3z04anonymousza35114ze3ze5zz__httpz00(obj_t BgL_envz00_12450,
		obj_t BgL_inz00_12452)
	{
		{	/* Unsafe/http.scm 808 */
			{	/* Unsafe/http.scm 808 */
				obj_t BgL_ipz00_12451;

				BgL_ipz00_12451 = ((obj_t) PROCEDURE_REF(BgL_envz00_12450, (int) (0L)));
				return bgl_close_input_port(BgL_ipz00_12451);
			}
		}

	}



/* 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_zc3z04anonymousza35116ze3z87_7901:
				{	/* Unsafe/http.scm 816 */
					obj_t BgL_sza7za7_7902;

					BgL_sza7za7_7902 =
						BGl_z62zc3z04anonymousza31825ze3ze5zz__httpz00
						(BGl_za2chunkzd2siza7ezd2grammarza2za7zz__httpz00, BgL_ipz00_66,
						BgL_opz00_67);
					if (((long) CINT(BgL_sza7za7_7902) > 0L))
						{	/* Unsafe/http.scm 817 */
							{
								obj_t BgL_sza7za7_7905;

								BgL_sza7za7_7905 = BgL_sza7za7_7902;
							BgL_zc3z04anonymousza35118ze3z87_7906:
								if (((long) CINT(BgL_sza7za7_7905) > 0L))
									{	/* Unsafe/http.scm 822 */
										long BgL_sz00_7908;

										{	/* Ieee/input.scm 85 */

											BgL_sz00_7908 =
												BGl_sendzd2charszd2zz__r4_input_6_10_2z00(BgL_ipz00_66,
												BgL_opz00_67, BgL_sza7za7_7905, BINT(-1L));
										}
										if ((BgL_sz00_7908 > 0L))
											{	/* Unsafe/http.scm 824 */
												long BgL_arg5121z00_7910;

												BgL_arg5121z00_7910 =
													((long) CINT(BgL_sza7za7_7905) - BgL_sz00_7908);
												{
													obj_t BgL_sza7za7_18003;

													BgL_sza7za7_18003 = BINT(BgL_arg5121z00_7910);
													BgL_sza7za7_7905 = BgL_sza7za7_18003;
													goto BgL_zc3z04anonymousza35118ze3z87_7906;
												}
											}
										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_7916;

								BgL_sz00_7916 =
									BGl_httpzd2readzd2crlfz00zz__httpz00(BgL_ipz00_66);
								bgl_display_obj(BgL_sz00_7916, BgL_opz00_67);
								goto BgL_zc3z04anonymousza35116ze3z87_7901;
							}
						}
					else
						{	/* Unsafe/http.scm 817 */
							if (BgL_trailerz00_68)
								{

								BgL_zc3z04anonymousza35122ze3z87_7918:
									{	/* Unsafe/http.scm 832 */
										obj_t BgL_lz00_7919;

										BgL_lz00_7919 =
											BGl_httpzd2readzd2linez00zz__httpz00(BgL_ipz00_66);
										if (EOF_OBJECTP(BgL_lz00_7919))
											{	/* Unsafe/http.scm 833 */
												return bgl_flush_output_port(BgL_opz00_67);
											}
										else
											{	/* Unsafe/http.scm 833 */
												bgl_display_obj(BgL_lz00_7919, BgL_opz00_67);
												if ((STRING_LENGTH(((obj_t) BgL_lz00_7919)) > 2L))
													{	/* Unsafe/http.scm 837 */
														goto BgL_zc3z04anonymousza35122ze3z87_7918;
													}
												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_12453,
		obj_t BgL_ipz00_12454, obj_t BgL_opz00_12455, obj_t BgL_trailerz00_12456)
	{
		{	/* Unsafe/http.scm 814 */
			{	/* Unsafe/http.scm 816 */
				obj_t BgL_auxz00_18029;
				obj_t BgL_auxz00_18022;

				if (OUTPUT_PORTP(BgL_opz00_12455))
					{	/* Unsafe/http.scm 816 */
						BgL_auxz00_18029 = BgL_opz00_12455;
					}
				else
					{
						obj_t BgL_auxz00_18032;

						BgL_auxz00_18032 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5663z00zz__httpz00,
							BINT(28128L), BGl_string5759z00zz__httpz00,
							BGl_string5744z00zz__httpz00, BgL_opz00_12455);
						FAILURE(BgL_auxz00_18032, BFALSE, BFALSE);
					}
				if (INPUT_PORTP(BgL_ipz00_12454))
					{	/* Unsafe/http.scm 816 */
						BgL_auxz00_18022 = BgL_ipz00_12454;
					}
				else
					{
						obj_t BgL_auxz00_18025;

						BgL_auxz00_18025 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string5663z00zz__httpz00,
							BINT(28128L), BGl_string5759z00zz__httpz00,
							BGl_string5705z00zz__httpz00, BgL_ipz00_12454);
						FAILURE(BgL_auxz00_18025, BFALSE, BFALSE);
					}
				return
					BGl_httpzd2sendzd2chunksz00zz__httpz00(BgL_auxz00_18022,
					BgL_auxz00_18029, CBOOL(BgL_trailerz00_12456));
			}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__httpz00(void)
	{
		{	/* Unsafe/http.scm 15 */
			{	/* Unsafe/http.scm 54 */
				obj_t BgL_arg5131z00_7930;
				obj_t BgL_arg5132z00_7931;

				{	/* Unsafe/http.scm 54 */
					obj_t BgL_v1445z00_7947;

					BgL_v1445z00_7947 = create_vector(0L);
					BgL_arg5131z00_7930 = BgL_v1445z00_7947;
				}
				{	/* Unsafe/http.scm 54 */
					obj_t BgL_v1446z00_7948;

					BgL_v1446z00_7948 = create_vector(0L);
					BgL_arg5132z00_7931 = BgL_v1446z00_7948;
				}
				BGl_z62httpzd2errorzb0zz__httpz00 =
					BGl_registerzd2classz12zc0zz__objectz00(BGl_symbol5763z00zz__httpz00,
					BGl_symbol5765z00zz__httpz00, BGl_z62errorz62zz__objectz00, 19506L,
					BGl_proc5762z00zz__httpz00, BGl_proc5761z00zz__httpz00, BFALSE,
					BGl_proc5760z00zz__httpz00, BFALSE, BgL_arg5131z00_7930,
					BgL_arg5132z00_7931);
			}
			{	/* Unsafe/http.scm 56 */
				obj_t BgL_arg5141z00_7955;
				obj_t BgL_arg5142z00_7956;

				{	/* Unsafe/http.scm 56 */
					obj_t BgL_v1447z00_7972;

					BgL_v1447z00_7972 = create_vector(0L);
					BgL_arg5141z00_7955 = BgL_v1447z00_7972;
				}
				{	/* Unsafe/http.scm 56 */
					obj_t BgL_v1448z00_7973;

					BgL_v1448z00_7973 = create_vector(0L);
					BgL_arg5142z00_7956 = BgL_v1448z00_7973;
				}
				BGl_z62httpzd2redirectionzd2errorz62zz__httpz00 =
					BGl_registerzd2classz12zc0zz__objectz00(BGl_symbol5770z00zz__httpz00,
					BGl_symbol5765z00zz__httpz00, BGl_z62httpzd2errorzb0zz__httpz00,
					5996L, BGl_proc5769z00zz__httpz00, BGl_proc5768z00zz__httpz00, BFALSE,
					BGl_proc5767z00zz__httpz00, BFALSE, BgL_arg5141z00_7955,
					BgL_arg5142z00_7956);
			}
			{	/* Unsafe/http.scm 57 */
				obj_t BgL_arg5151z00_7980;
				obj_t BgL_arg5152z00_7981;

				{	/* Unsafe/http.scm 57 */
					obj_t BgL_v1449z00_7998;

					BgL_v1449z00_7998 = create_vector(1L);
					VECTOR_SET(BgL_v1449z00_7998, 0L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol5774z00zz__httpz00, BGl_proc5773z00zz__httpz00,
							BGl_proc5772z00zz__httpz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol5776z00zz__httpz00));
					BgL_arg5151z00_7980 = BgL_v1449z00_7998;
				}
				{	/* Unsafe/http.scm 57 */
					obj_t BgL_v1450z00_8009;

					BgL_v1450z00_8009 = create_vector(0L);
					BgL_arg5152z00_7981 = BgL_v1450z00_8009;
				}
				BGl_z62httpzd2statuszd2errorz62zz__httpz00 =
					BGl_registerzd2classz12zc0zz__objectz00(BGl_symbol5781z00zz__httpz00,
					BGl_symbol5765z00zz__httpz00, BGl_z62httpzd2errorzb0zz__httpz00,
					8838L, BGl_proc5780z00zz__httpz00, BGl_proc5779z00zz__httpz00, BFALSE,
					BGl_proc5778z00zz__httpz00, BFALSE, BgL_arg5151z00_7980,
					BgL_arg5152z00_7981);
			}
			{	/* Unsafe/http.scm 60 */
				obj_t BgL_arg5166z00_8016;
				obj_t BgL_arg5167z00_8017;

				{	/* Unsafe/http.scm 60 */
					obj_t BgL_v1451z00_8032;

					BgL_v1451z00_8032 = create_vector(2L);
					VECTOR_SET(BgL_v1451z00_8032, 0L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol5785z00zz__httpz00, BGl_proc5784z00zz__httpz00,
							BGl_proc5783z00zz__httpz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol5786z00zz__httpz00));
					VECTOR_SET(BgL_v1451z00_8032, 1L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol5789z00zz__httpz00, BGl_proc5788z00zz__httpz00,
							BGl_proc5787z00zz__httpz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol5791z00zz__httpz00));
					BgL_arg5166z00_8016 = BgL_v1451z00_8032;
				}
				{	/* Unsafe/http.scm 60 */
					obj_t BgL_v1452z00_8053;

					BgL_v1452z00_8053 = create_vector(0L);
					BgL_arg5167z00_8017 = BgL_v1452z00_8053;
				}
				return (BGl_z62httpzd2redirectionzb0zz__httpz00 =
					BGl_registerzd2classz12zc0zz__objectz00(BGl_symbol5796z00zz__httpz00,
						BGl_symbol5765z00zz__httpz00, BGl_z62exceptionz62zz__objectz00,
						45480L, BGl_proc5795z00zz__httpz00, BGl_proc5794z00zz__httpz00,
						BFALSE, BGl_proc5793z00zz__httpz00, BFALSE, BgL_arg5166z00_8016,
						BgL_arg5167z00_8017), BUNSPEC);
			}
		}

	}



/* &<@anonymous:5172> */
	obj_t BGl_z62zc3z04anonymousza35172ze3ze5zz__httpz00(obj_t BgL_envz00_12475,
		obj_t BgL_new1074z00_12476)
	{
		{	/* Unsafe/http.scm 60 */
			{
				BgL_z62httpzd2redirectionzb0_bglt BgL_auxz00_18056;

				((((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt)
									((BgL_z62httpzd2redirectionzb0_bglt)
										BgL_new1074z00_12476))))->BgL_fnamez00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62exceptionz62_bglt)
							COBJECT(((BgL_z62exceptionz62_bglt) (
										(BgL_z62httpzd2redirectionzb0_bglt)
										BgL_new1074z00_12476))))->BgL_locationz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62exceptionz62_bglt)
							COBJECT(((BgL_z62exceptionz62_bglt) (
										(BgL_z62httpzd2redirectionzb0_bglt)
										BgL_new1074z00_12476))))->BgL_stackz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				{
					obj_t BgL_auxz00_18066;

					{	/* Unsafe/http.scm 60 */
						obj_t BgL_arg5238z00_12985;

						BgL_arg5238z00_12985 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_auxz00_18066 = BGL_ENV_CURRENT_INPUT_PORT(BgL_arg5238z00_12985);
					}
					((((BgL_z62httpzd2redirectionzb0_bglt) COBJECT(
									((BgL_z62httpzd2redirectionzb0_bglt) BgL_new1074z00_12476)))->
							BgL_portz00) = ((obj_t) BgL_auxz00_18066), BUNSPEC);
				}
				((((BgL_z62httpzd2redirectionzb0_bglt) COBJECT(
								((BgL_z62httpzd2redirectionzb0_bglt) BgL_new1074z00_12476)))->
						BgL_urlz00) = ((obj_t) BGl_string5701z00zz__httpz00), BUNSPEC);
				BgL_auxz00_18056 =
					((BgL_z62httpzd2redirectionzb0_bglt) BgL_new1074z00_12476);
				return ((obj_t) BgL_auxz00_18056);
			}
		}

	}



/* &lambda5170 */
	BgL_z62httpzd2redirectionzb0_bglt BGl_z62lambda5170z62zz__httpz00(obj_t
		BgL_envz00_12477)
	{
		{	/* Unsafe/http.scm 60 */
			{	/* Unsafe/http.scm 60 */
				BgL_z62httpzd2redirectionzb0_bglt BgL_new1073z00_12986;

				BgL_new1073z00_12986 =
					((BgL_z62httpzd2redirectionzb0_bglt) BOBJECT(GC_MALLOC(sizeof(struct
								BgL_z62httpzd2redirectionzb0_bgl))));
				{	/* Unsafe/http.scm 60 */
					long BgL_arg5171z00_12987;

					BgL_arg5171z00_12987 =
						BGL_CLASS_NUM(BGl_z62httpzd2redirectionzb0zz__httpz00);
					BGL_OBJECT_CLASS_NUM_SET(
						((BgL_objectz00_bglt) BgL_new1073z00_12986), BgL_arg5171z00_12987);
				}
				return BgL_new1073z00_12986;
			}
		}

	}



/* &lambda5168 */
	BgL_z62httpzd2redirectionzb0_bglt BGl_z62lambda5168z62zz__httpz00(obj_t
		BgL_envz00_12478, obj_t BgL_fname1068z00_12479,
		obj_t BgL_location1069z00_12480, obj_t BgL_stack1070z00_12481,
		obj_t BgL_port1071z00_12482, obj_t BgL_url1072z00_12483)
	{
		{	/* Unsafe/http.scm 60 */
			{	/* Unsafe/http.scm 60 */
				BgL_z62httpzd2redirectionzb0_bglt BgL_new1341z00_12990;

				{	/* Unsafe/http.scm 60 */
					BgL_z62httpzd2redirectionzb0_bglt BgL_new1340z00_12991;

					BgL_new1340z00_12991 =
						((BgL_z62httpzd2redirectionzb0_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_z62httpzd2redirectionzb0_bgl))));
					{	/* Unsafe/http.scm 60 */
						long BgL_arg5169z00_12992;

						BgL_arg5169z00_12992 =
							BGL_CLASS_NUM(BGl_z62httpzd2redirectionzb0zz__httpz00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1340z00_12991),
							BgL_arg5169z00_12992);
					}
					BgL_new1341z00_12990 = BgL_new1340z00_12991;
				}
				((((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt) BgL_new1341z00_12990)))->
						BgL_fnamez00) = ((obj_t) BgL_fname1068z00_12479), BUNSPEC);
				((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
									BgL_new1341z00_12990)))->BgL_locationz00) =
					((obj_t) BgL_location1069z00_12480), BUNSPEC);
				((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
									BgL_new1341z00_12990)))->BgL_stackz00) =
					((obj_t) BgL_stack1070z00_12481), BUNSPEC);
				((((BgL_z62httpzd2redirectionzb0_bglt) COBJECT(BgL_new1341z00_12990))->
						BgL_portz00) = ((obj_t) ((obj_t) BgL_port1071z00_12482)), BUNSPEC);
				((((BgL_z62httpzd2redirectionzb0_bglt) COBJECT(BgL_new1341z00_12990))->
						BgL_urlz00) = ((obj_t) ((obj_t) BgL_url1072z00_12483)), BUNSPEC);
				return BgL_new1341z00_12990;
			}
		}

	}



/* &lambda5182 */
	obj_t BGl_z62lambda5182z62zz__httpz00(obj_t BgL_envz00_12484,
		obj_t BgL_oz00_12485, obj_t BgL_vz00_12486)
	{
		{	/* Unsafe/http.scm 60 */
			return
				((((BgL_z62httpzd2redirectionzb0_bglt) COBJECT(
							((BgL_z62httpzd2redirectionzb0_bglt) BgL_oz00_12485)))->
					BgL_urlz00) = ((obj_t) ((obj_t) BgL_vz00_12486)), BUNSPEC);
		}

	}



/* &lambda5181 */
	obj_t BGl_z62lambda5181z62zz__httpz00(obj_t BgL_envz00_12487,
		obj_t BgL_oz00_12488)
	{
		{	/* Unsafe/http.scm 60 */
			return
				(((BgL_z62httpzd2redirectionzb0_bglt) COBJECT(
						((BgL_z62httpzd2redirectionzb0_bglt) BgL_oz00_12488)))->BgL_urlz00);
		}

	}



/* &lambda5177 */
	obj_t BGl_z62lambda5177z62zz__httpz00(obj_t BgL_envz00_12489,
		obj_t BgL_oz00_12490, obj_t BgL_vz00_12491)
	{
		{	/* Unsafe/http.scm 60 */
			return
				((((BgL_z62httpzd2redirectionzb0_bglt) COBJECT(
							((BgL_z62httpzd2redirectionzb0_bglt) BgL_oz00_12490)))->
					BgL_portz00) = ((obj_t) ((obj_t) BgL_vz00_12491)), BUNSPEC);
		}

	}



/* &lambda5176 */
	obj_t BGl_z62lambda5176z62zz__httpz00(obj_t BgL_envz00_12492,
		obj_t BgL_oz00_12493)
	{
		{	/* Unsafe/http.scm 60 */
			return
				(((BgL_z62httpzd2redirectionzb0_bglt) COBJECT(
						((BgL_z62httpzd2redirectionzb0_bglt) BgL_oz00_12493)))->
				BgL_portz00);
		}

	}



/* &<@anonymous:5157> */
	obj_t BGl_z62zc3z04anonymousza35157ze3ze5zz__httpz00(obj_t BgL_envz00_12494,
		obj_t BgL_new1066z00_12495)
	{
		{	/* Unsafe/http.scm 57 */
			{
				BgL_z62httpzd2statuszd2errorz62_bglt BgL_auxz00_18103;

				((((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt)
									((BgL_z62httpzd2statuszd2errorz62_bglt)
										BgL_new1066z00_12495))))->BgL_fnamez00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62exceptionz62_bglt)
							COBJECT(((BgL_z62exceptionz62_bglt) (
										(BgL_z62httpzd2statuszd2errorz62_bglt)
										BgL_new1066z00_12495))))->BgL_locationz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62exceptionz62_bglt)
							COBJECT(((BgL_z62exceptionz62_bglt) (
										(BgL_z62httpzd2statuszd2errorz62_bglt)
										BgL_new1066z00_12495))))->BgL_stackz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) (
										(BgL_z62httpzd2statuszd2errorz62_bglt)
										BgL_new1066z00_12495))))->BgL_procz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) (
										(BgL_z62httpzd2statuszd2errorz62_bglt)
										BgL_new1066z00_12495))))->BgL_msgz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) (
										(BgL_z62httpzd2statuszd2errorz62_bglt)
										BgL_new1066z00_12495))))->BgL_objz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62httpzd2statuszd2errorz62_bglt)
							COBJECT(((BgL_z62httpzd2statuszd2errorz62_bglt)
									BgL_new1066z00_12495)))->BgL_statusz00) =
					((int) (int) (0L)), BUNSPEC);
				BgL_auxz00_18103 =
					((BgL_z62httpzd2statuszd2errorz62_bglt) BgL_new1066z00_12495);
				return ((obj_t) BgL_auxz00_18103);
			}
		}

	}



/* &lambda5155 */
	BgL_z62httpzd2statuszd2errorz62_bglt BGl_z62lambda5155z62zz__httpz00(obj_t
		BgL_envz00_12496)
	{
		{	/* Unsafe/http.scm 57 */
			{	/* Unsafe/http.scm 57 */
				BgL_z62httpzd2statuszd2errorz62_bglt BgL_new1065z00_13000;

				BgL_new1065z00_13000 =
					((BgL_z62httpzd2statuszd2errorz62_bglt)
					BOBJECT(GC_MALLOC(sizeof(struct
								BgL_z62httpzd2statuszd2errorz62_bgl))));
				{	/* Unsafe/http.scm 57 */
					long BgL_arg5156z00_13001;

					BgL_arg5156z00_13001 =
						BGL_CLASS_NUM(BGl_z62httpzd2statuszd2errorz62zz__httpz00);
					BGL_OBJECT_CLASS_NUM_SET(
						((BgL_objectz00_bglt) BgL_new1065z00_13000), BgL_arg5156z00_13001);
				}
				return BgL_new1065z00_13000;
			}
		}

	}



/* &lambda5153 */
	BgL_z62httpzd2statuszd2errorz62_bglt BGl_z62lambda5153z62zz__httpz00(obj_t
		BgL_envz00_12497, obj_t BgL_fname1058z00_12498,
		obj_t BgL_location1059z00_12499, obj_t BgL_stack1060z00_12500,
		obj_t BgL_proc1061z00_12501, obj_t BgL_msg1062z00_12502,
		obj_t BgL_obj1063z00_12503, obj_t BgL_status1064z00_12504)
	{
		{	/* Unsafe/http.scm 57 */
			{	/* Unsafe/http.scm 57 */
				int BgL_status1064z00_13002;

				BgL_status1064z00_13002 = CINT(BgL_status1064z00_12504);
				{	/* Unsafe/http.scm 57 */
					BgL_z62httpzd2statuszd2errorz62_bglt BgL_new1339z00_13003;

					{	/* Unsafe/http.scm 57 */
						BgL_z62httpzd2statuszd2errorz62_bglt BgL_new1338z00_13004;

						BgL_new1338z00_13004 =
							((BgL_z62httpzd2statuszd2errorz62_bglt)
							BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62httpzd2statuszd2errorz62_bgl))));
						{	/* Unsafe/http.scm 57 */
							long BgL_arg5154z00_13005;

							BgL_arg5154z00_13005 =
								BGL_CLASS_NUM(BGl_z62httpzd2statuszd2errorz62zz__httpz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1338z00_13004),
								BgL_arg5154z00_13005);
						}
						BgL_new1339z00_13003 = BgL_new1338z00_13004;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1339z00_13003)))->
							BgL_fnamez00) = ((obj_t) BgL_fname1058z00_12498), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1339z00_13003)))->BgL_locationz00) =
						((obj_t) BgL_location1059z00_12499), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1339z00_13003)))->BgL_stackz00) =
						((obj_t) BgL_stack1060z00_12500), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
										BgL_new1339z00_13003)))->BgL_procz00) =
						((obj_t) BgL_proc1061z00_12501), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
										BgL_new1339z00_13003)))->BgL_msgz00) =
						((obj_t) BgL_msg1062z00_12502), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
										BgL_new1339z00_13003)))->BgL_objz00) =
						((obj_t) BgL_obj1063z00_12503), BUNSPEC);
					((((BgL_z62httpzd2statuszd2errorz62_bglt)
								COBJECT(BgL_new1339z00_13003))->BgL_statusz00) =
						((int) BgL_status1064z00_13002), BUNSPEC);
					return BgL_new1339z00_13003;
				}
			}
		}

	}



/* &lambda5162 */
	obj_t BGl_z62lambda5162z62zz__httpz00(obj_t BgL_envz00_12505,
		obj_t BgL_oz00_12506, obj_t BgL_vz00_12507)
	{
		{	/* Unsafe/http.scm 57 */
			{	/* Unsafe/http.scm 57 */
				int BgL_vz00_13007;

				BgL_vz00_13007 = CINT(BgL_vz00_12507);
				return
					((((BgL_z62httpzd2statuszd2errorz62_bglt) COBJECT(
								((BgL_z62httpzd2statuszd2errorz62_bglt) BgL_oz00_12506)))->
						BgL_statusz00) = ((int) BgL_vz00_13007), BUNSPEC);
		}}

	}



/* &lambda5161 */
	obj_t BGl_z62lambda5161z62zz__httpz00(obj_t BgL_envz00_12508,
		obj_t BgL_oz00_12509)
	{
		{	/* Unsafe/http.scm 57 */
			return
				BINT(
				(((BgL_z62httpzd2statuszd2errorz62_bglt) COBJECT(
							((BgL_z62httpzd2statuszd2errorz62_bglt) BgL_oz00_12509)))->
					BgL_statusz00));
		}

	}



/* &<@anonymous:5147> */
	obj_t BGl_z62zc3z04anonymousza35147ze3ze5zz__httpz00(obj_t BgL_envz00_12510,
		obj_t BgL_new1056z00_12511)
	{
		{	/* Unsafe/http.scm 56 */
			{
				BgL_z62httpzd2redirectionzd2errorz62_bglt BgL_auxz00_18155;

				((((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt)
									((BgL_z62httpzd2redirectionzd2errorz62_bglt)
										BgL_new1056z00_12511))))->BgL_fnamez00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62exceptionz62_bglt)
							COBJECT(((BgL_z62exceptionz62_bglt) (
										(BgL_z62httpzd2redirectionzd2errorz62_bglt)
										BgL_new1056z00_12511))))->BgL_locationz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62exceptionz62_bglt)
							COBJECT(((BgL_z62exceptionz62_bglt) (
										(BgL_z62httpzd2redirectionzd2errorz62_bglt)
										BgL_new1056z00_12511))))->BgL_stackz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) (
										(BgL_z62httpzd2redirectionzd2errorz62_bglt)
										BgL_new1056z00_12511))))->BgL_procz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) (
										(BgL_z62httpzd2redirectionzd2errorz62_bglt)
										BgL_new1056z00_12511))))->BgL_msgz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) (
										(BgL_z62httpzd2redirectionzd2errorz62_bglt)
										BgL_new1056z00_12511))))->BgL_objz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				BgL_auxz00_18155 =
					((BgL_z62httpzd2redirectionzd2errorz62_bglt) BgL_new1056z00_12511);
				return ((obj_t) BgL_auxz00_18155);
			}
		}

	}



/* &lambda5145 */
	BgL_z62httpzd2redirectionzd2errorz62_bglt
		BGl_z62lambda5145z62zz__httpz00(obj_t BgL_envz00_12512)
	{
		{	/* Unsafe/http.scm 56 */
			{	/* Unsafe/http.scm 56 */
				BgL_z62httpzd2redirectionzd2errorz62_bglt BgL_new1055z00_13010;

				BgL_new1055z00_13010 =
					((BgL_z62httpzd2redirectionzd2errorz62_bglt)
					BOBJECT(GC_MALLOC(sizeof(struct
								BgL_z62httpzd2redirectionzd2errorz62_bgl))));
				{	/* Unsafe/http.scm 56 */
					long BgL_arg5146z00_13011;

					BgL_arg5146z00_13011 =
						BGL_CLASS_NUM(BGl_z62httpzd2redirectionzd2errorz62zz__httpz00);
					BGL_OBJECT_CLASS_NUM_SET(
						((BgL_objectz00_bglt) BgL_new1055z00_13010), BgL_arg5146z00_13011);
				}
				return BgL_new1055z00_13010;
			}
		}

	}



/* &lambda5143 */
	BgL_z62httpzd2redirectionzd2errorz62_bglt
		BGl_z62lambda5143z62zz__httpz00(obj_t BgL_envz00_12513,
		obj_t BgL_fname1049z00_12514, obj_t BgL_location1050z00_12515,
		obj_t BgL_stack1051z00_12516, obj_t BgL_proc1052z00_12517,
		obj_t BgL_msg1053z00_12518, obj_t BgL_obj1054z00_12519)
	{
		{	/* Unsafe/http.scm 56 */
			{	/* Unsafe/http.scm 56 */
				BgL_z62httpzd2redirectionzd2errorz62_bglt BgL_new1337z00_13012;

				{	/* Unsafe/http.scm 56 */
					BgL_z62httpzd2redirectionzd2errorz62_bglt BgL_new1336z00_13013;

					BgL_new1336z00_13013 =
						((BgL_z62httpzd2redirectionzd2errorz62_bglt)
						BOBJECT(GC_MALLOC(sizeof(struct
									BgL_z62httpzd2redirectionzd2errorz62_bgl))));
					{	/* Unsafe/http.scm 56 */
						long BgL_arg5144z00_13014;

						BgL_arg5144z00_13014 =
							BGL_CLASS_NUM(BGl_z62httpzd2redirectionzd2errorz62zz__httpz00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1336z00_13013),
							BgL_arg5144z00_13014);
					}
					BgL_new1337z00_13012 = BgL_new1336z00_13013;
				}
				((((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt) BgL_new1337z00_13012)))->
						BgL_fnamez00) = ((obj_t) BgL_fname1049z00_12514), BUNSPEC);
				((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
									BgL_new1337z00_13012)))->BgL_locationz00) =
					((obj_t) BgL_location1050z00_12515), BUNSPEC);
				((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
									BgL_new1337z00_13012)))->BgL_stackz00) =
					((obj_t) BgL_stack1051z00_12516), BUNSPEC);
				((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
									BgL_new1337z00_13012)))->BgL_procz00) =
					((obj_t) BgL_proc1052z00_12517), BUNSPEC);
				((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
									BgL_new1337z00_13012)))->BgL_msgz00) =
					((obj_t) BgL_msg1053z00_12518), BUNSPEC);
				((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
									BgL_new1337z00_13012)))->BgL_objz00) =
					((obj_t) BgL_obj1054z00_12519), BUNSPEC);
				return BgL_new1337z00_13012;
			}
		}

	}



/* &<@anonymous:5137> */
	obj_t BGl_z62zc3z04anonymousza35137ze3ze5zz__httpz00(obj_t BgL_envz00_12520,
		obj_t BgL_new1047z00_12521)
	{
		{	/* Unsafe/http.scm 54 */
			{
				BgL_z62httpzd2errorzb0_bglt BgL_auxz00_18196;

				((((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt)
									((BgL_z62httpzd2errorzb0_bglt) BgL_new1047z00_12521))))->
						BgL_fnamez00) = ((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62exceptionz62_bglt)
							COBJECT(((BgL_z62exceptionz62_bglt) ((BgL_z62httpzd2errorzb0_bglt)
										BgL_new1047z00_12521))))->BgL_locationz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62exceptionz62_bglt)
							COBJECT(((BgL_z62exceptionz62_bglt) ((BgL_z62httpzd2errorzb0_bglt)
										BgL_new1047z00_12521))))->BgL_stackz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) ((BgL_z62httpzd2errorzb0_bglt)
										BgL_new1047z00_12521))))->BgL_procz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) ((BgL_z62httpzd2errorzb0_bglt)
										BgL_new1047z00_12521))))->BgL_msgz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) ((BgL_z62httpzd2errorzb0_bglt)
										BgL_new1047z00_12521))))->BgL_objz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				BgL_auxz00_18196 = ((BgL_z62httpzd2errorzb0_bglt) BgL_new1047z00_12521);
				return ((obj_t) BgL_auxz00_18196);
			}
		}

	}



/* &lambda5135 */
	BgL_z62httpzd2errorzb0_bglt BGl_z62lambda5135z62zz__httpz00(obj_t
		BgL_envz00_12522)
	{
		{	/* Unsafe/http.scm 54 */
			{	/* Unsafe/http.scm 54 */
				BgL_z62httpzd2errorzb0_bglt BgL_new1046z00_13016;

				BgL_new1046z00_13016 =
					((BgL_z62httpzd2errorzb0_bglt) BOBJECT(GC_MALLOC(sizeof(struct
								BgL_z62httpzd2errorzb0_bgl))));
				{	/* Unsafe/http.scm 54 */
					long BgL_arg5136z00_13017;

					BgL_arg5136z00_13017 =
						BGL_CLASS_NUM(BGl_z62httpzd2errorzb0zz__httpz00);
					BGL_OBJECT_CLASS_NUM_SET(
						((BgL_objectz00_bglt) BgL_new1046z00_13016), BgL_arg5136z00_13017);
				}
				return BgL_new1046z00_13016;
			}
		}

	}



/* &lambda5133 */
	BgL_z62httpzd2errorzb0_bglt BGl_z62lambda5133z62zz__httpz00(obj_t
		BgL_envz00_12523, obj_t BgL_fname1040z00_12524,
		obj_t BgL_location1041z00_12525, obj_t BgL_stack1042z00_12526,
		obj_t BgL_proc1043z00_12527, obj_t BgL_msg1044z00_12528,
		obj_t BgL_obj1045z00_12529)
	{
		{	/* Unsafe/http.scm 54 */
			{	/* Unsafe/http.scm 54 */
				BgL_z62httpzd2errorzb0_bglt BgL_new1335z00_13018;

				{	/* Unsafe/http.scm 54 */
					BgL_z62httpzd2errorzb0_bglt BgL_new1334z00_13019;

					BgL_new1334z00_13019 =
						((BgL_z62httpzd2errorzb0_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_z62httpzd2errorzb0_bgl))));
					{	/* Unsafe/http.scm 54 */
						long BgL_arg5134z00_13020;

						BgL_arg5134z00_13020 =
							BGL_CLASS_NUM(BGl_z62httpzd2errorzb0zz__httpz00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1334z00_13019),
							BgL_arg5134z00_13020);
					}
					BgL_new1335z00_13018 = BgL_new1334z00_13019;
				}
				((((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt) BgL_new1335z00_13018)))->
						BgL_fnamez00) = ((obj_t) BgL_fname1040z00_12524), BUNSPEC);
				((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
									BgL_new1335z00_13018)))->BgL_locationz00) =
					((obj_t) BgL_location1041z00_12525), BUNSPEC);
				((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
									BgL_new1335z00_13018)))->BgL_stackz00) =
					((obj_t) BgL_stack1042z00_12526), BUNSPEC);
				((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
									BgL_new1335z00_13018)))->BgL_procz00) =
					((obj_t) BgL_proc1043z00_12527), BUNSPEC);
				((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
									BgL_new1335z00_13018)))->BgL_msgz00) =
					((obj_t) BgL_msg1044z00_12528), BUNSPEC);
				((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
									BgL_new1335z00_13018)))->BgL_objz00) =
					((obj_t) BgL_obj1045z00_12529), BUNSPEC);
				return BgL_new1335z00_13018;
			}
		}

	}



/* 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_string5766z00zz__httpz00));
			BGl_modulezd2initializa7ationz75zz__rgcz00(352600006L,
				BSTRING_TO_STRING(BGl_string5766z00zz__httpz00));
			BGl_modulezd2initializa7ationz75zz__base64z00(67813413L,
				BSTRING_TO_STRING(BGl_string5766z00zz__httpz00));
			return
				BGl_modulezd2initializa7ationz75zz__socketz00(254233235L,
				BSTRING_TO_STRING(BGl_string5766z00zz__httpz00));
		}

	}

#ifdef __cplusplus
}
#endif
